nicht angemeldet
Hallo!
Es handelt sich um 2 Perlscripte.
Beide sollen E-Mails versenden.
Alle beide laufen am selben Server,
sendmail ist installiert,
und sendmail funktioniert auch, sonst würde das eine davon ja nicht gehen.
Das Problem:
Eines der beiden Mails versendet die Mail.
Das zweite nicht.
Warum?!?
Trotz langem suchen ist da irgendwie kein Fehler im zweiten script.
======================================
[ OK ] Das Script das Funktioniert
#!/usr/bin/perl
use CGI;
use strict;
print "Content-type:text/html\n\n";
my $mailprog = '/usr/sbin/sendmail -t';
open(MAIL,"|$mailprog");
print MAIL "To: aquariophile@gmx.de\n";
print MAIL "From: foo@bar.com\n";
print MAIL "Subject: aaaaa \n\n";
print MAIL "Das ist eine Mail gesendet durch aaaaa.pl\n\n";
close (MAIL);
print "<html><head><title></title></head><body>Danke</body></html>";
=================================================
[ NICHT OK ] Dieses Script sendet keine Mail
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$to='aquariophile@gmx.de';
$from= 'aquariophile@gmx.de';
$subject='bbbb';
open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Diese Mail wurde durch bbbbb.pl gesendet\n";
close(MAIL);
print '<html><head><title></title></head><body>';
print system('which sendmail');
print '<p>foo</p></body></html>';
===================================================
Danke!
Aquariophile