Leser: 17
1 2 3 4 5 6 7 8 9 10 11 12
if ($mail == 1){ open(SENDMAIL,"|/usr/lib/sendmail -oi -t") or die "kann keine Mail verschicken \n"; print SENDMAIL << "EOF"; From: Nagios <monitoring\@xxx.de> To: Oktay s. <oktay\@xxx.de> Subject: Toner Bestellung $mailbody EOF close(SENDMAIL); }
2010-08-04T09:06:57 oktayDas ist auch mein Post da konnte mir keiner wirklich helfen, deshalb hab ich michdirekt an eine perl community gewendet.
To: "firstname lastname" <firstname.lastname@example.org>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/usr/bin/perl use strict; use warnings; open(my $mail,"| /usr/lib/sendmail -oi -t") or die "Kann nicht Sendmails Pipe oeffnen: $!"; print $mail <<"EOF" or die "Kann nicht in Sendmails Pipe schreiben: $!"; From: Nagios <monitoring\@xxx.de> To: Oktay s. <oktay\@xxx.de> Subject: Toner Bestellung TEST . EOF close($mail) or die "Kann Sendmails Pipe nicht schließen: $!";