[vienna.pm] Re: Reminder script

[Michael Bauer]

* * * vienna-pm-list * * *



On 23-May-2001 Roland E. Lipovits wrote:
> $adresse="Kaiserstraße 12, 1070 Wien";

o.k. mit der info hab ich das script nochmal überarbeitet.

----snip----
#!/usr/bin/perl
$perl = my $bitch; # ;)
$local="Hopfenstange";
$adresse="Kaiserstraße 12, 1070 Wien";
@recipients=("mihi\@localhost","mihi\@nacl.dhs.org");
$zeit="19";
$link="http://www.unet.univie.ac.at/~a9900470/perlmap.jpg";

$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 $zeit uhr";
print HND " im $local, $adresse. kommt zahlreich! \n";
print HND "euer reminder.\n";
print HND "\n Anreise: $link\n.\n";
close (HND);
};
----snip----

gruss mihi
-- 
Real men don't read instructions
                              Tim Taylor
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/