[vienna.pm] Reminder script

[Michael Bauer]

* * * vienna-pm-list * * *


hallo leute

Hab heut nacht noch mal nen scratch für ein reminder script gemacht. Naja
vieleicht ist das ja brauchbar. das mit dem Datum hab ich nich hinbekommen. 
gruss mihi

-----snip-----
#!/usr/bin/perl

$local="Hopfenstange";
$adresse="hmmm weis ich nich";
@recipients=("vienna-pm-list\@happyfunball.pm.org","mihi\@nacl.dhs.org");

$from="\"vienna.pm-reminder <vienna.pm-reminder\@tibia.dyn.dhs.org>\"";
foreach my $tmp (@recipients) {
open (HND, "| sendmail -F $from $tmp") or die;
print HND "Subject: [ANNOUNCE] vienna.pm treffen\n";
print HND "Hallo leute, \n wir treffen uns am nächsten dienstag um 19 uhr";
print HND "im $local, $adresse. kommt zahlreich! \n";
print HND "euer reminder.\n.\n";
close (HND);
};

-----snip-----


-- 
one ring to rule them all, one ring to find them
one rint to bring them all, and in the darkness bind them
PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc

###
You are subscribed to vienna-pm-list as Michael Bauer <mihi at gmx.at>
http://www.fff.at/fff/vienna.pm/