nicht angemeldet
Hallo, liebes Forum....
hier einige Zeilen Perl.
Diese Funktion soll eine kleine HTML-Email versenden, doch leider... ich bekomme den gesamten HTML-Quellcode zu sehen, aber nicht die Formatierungen... wo steckt hier der Fehler.
sub send_email
{
my $EmailPrg = '/usr/sbin/sendmail -t';
my ($Recipient, $Sender) = @_;
open (MAIL, "|$EmailPrg") or die "!$";
print MAIL "To: $Recipient\n";
print MAIL "From: $Sender\n";
print MAIL "Subject: Hallo\n\n";
print MAIL "Content-type: text/html\n\n";
print MAIL "<html><head></head><body>\n";
print MAIL "<p align="center">Empfänger= $Recipient<br>Absender= $Sender</p>";
print MAIL "\n</body></html>";
close(MAIL) or die "!$";
}
Die Email sieht dann also folgendermaßen aus:
Content-type: text/html\n\n
<html><head></head><body>
<p align="center">Empfänger= XXX<br>Absender= YYY</p>";
</body></html>
Es hat schon mehrmals funktioniert... dann habe ich an dem Script gearbeitet... und nun das :(
Ich danke für jede Hilfe im voraus
Robert