986
Bearbeitungen
Änderungen
Zur Navigation springen
Zur Suche springen
Zeile 45:
Zeile 45: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
→Dienste: neuer Superdienst
Johannes Gramse / Kirchmessaufbau:
Johannes Gramse / Kirchmessaufbau:
# noch nicht aktiv
# noch nicht aktiv
</pre>
==Erinnerung ans Treffen für den Kassenwart==
* liegt unter /usr/local/bin/meeting_reminder.pl
* verschickt Montags um 12 die aktuellen Daten des Treffens
* als cronjob in /etc/cron.d/scripts definiert
hier das Script zum Verbessern:
<pre>
#! /usr/bin/perl
use Net::NNTP;
use LWP::Simple;
#######
## change this to point to your NNTP server host.
$nntpserver = 'localhost';
########
# url to wiki
my $url_meeting="http://wireless.subsignal.org/index.php?title=Treffen";
my $place="undef";
my $date="undef";
my $subject="";
my $body="";
my $newsgroup="freifunk.de.weimar.discuss";
# Print warning and exit. Some mailers will discard warning string.
# # Postfix is nice enough to display it in the mailq & log output when
# # we exit with non-success exitcode.
sub croak {
my ($msg,$exitcode) = @_;
warn "$msg\n";
exit($exitcode);
}
my $content = get $url_meeting;
die "Couldn't get $url_meeting" unless defined $content;
# Then go do things with $content, like this:
if($content =~ m/Naechster Stammtisch<\/a>: (.*?)<\/b>.*?<a.*?>(.*?)<\/a>/s) {
$date=$1;
$place=$2;
}
#build subject
if ($place eq "undef" or $date eq "undef") {
$subject="Naechstes Treffen wahrscheinlich am Dienstag in der M18";
$body="Hallo allerseits, \n\nda das Wiki aktuell nicht erreichbar ist oder sich die Seitenstruktur erheblich veraendert hat, sind derzeit keine genauen Prognosen bezueglich des naechsten Treffens moeglich\n\nVielleicht ist es ja schonwieder erreichbar: " . $url_meeting . "\n\nDer Weimarnetzerinnerungsdienst\n\nps: Das ist eine computergenerierte Nachricht";
}
else {
$subject="Naechstes Treffen am: " . $date . ", Ort: " . $place;
$body="Hallo allerseits, \n\nnaehere Informationen zum naechsten Treffen sind unter " . $url_meeting . " auffindbar. Sollte das Datum veraltet sein, hat sich wieder niemand um das aktuelle Treffen gekuemmert.\n\nDer Weimarnetzerinnerungsdienst\n\nps: Das ist eine computergenerierte Nachricht";
}
push @headers,"From: Weimarnetz Wiki <do_not_reply\@weimarnetz.de>\n";
push @headers,"Newsgroups: ". $newsgroup ."\n";
push @headers,"Subject: ". $subject ."\n";
push @headers,"\n";
my $nntp = Net::NNTP->new($nntpserver) or croak('Net::NNTP failure.', "1");
$nntp->post() or croak('post() failure',&EX_TEMPFAIL);
$nntp->datasend(\@headers) or croak('datasend() header failure',"1");
#while (<>) {
$nntp->datasend($body)or croak('datasend() body failure',"1");
#}
#$nntp->debug(1); # if error exit code, log to maillog (STDERR)
$nntp->dataend() or croak('Post dataend() failure.', "2");
$nntp->quit();
exit(0);
</pre>
</pre>