Premature end of script headers
Von: , Frage gestellt am Mo, 23. Aug 2004
Halihalo,
ich habe mal wieder etwas Probleme mit einem Skript und hoffe,ih rkönnt mir da weiterhelfen.
Also,ich habe ein kleines Skript verfasst, mit dem ich e-mails versenden kann,aber ich bekomme ständig in der error_log zwei Fehlermeldungen:
1.Premature end of script headers sendmail1.pl, referer: http://localhost/sendmail1.html
2.Can't find string terminator "HERE_TEXT" anywhere before EOF at sendmail1.pl line 26., referer: http://localhost/sendmail1.html
Diese Fehlermeldungen habe ich ständig und hoffe, ihr könnt mir da weiterhelfen.
Hier das Skript: Line 26 ist übrigens: print <<HERE_TEXT;
#!c:/Perl/bin/perl
use strict;
use Mail::Sendmail;
use CGI qw(:standard);
my $to = param("to");
my $body = param("body");
my $subject = param("subject");
my $cc = param("cc");
###Festlegen des SMTP-Servers#####
unshift @{$Mail::Sendmail::mailcfg{'smtp'}},
'smtp.web.de';
my %mail = ( To => $to,
From => "[E-Mail-Adresse entfernt]",
Cc => $cc,
Subject => $subject,
Message => $body
);
sendmail(%mail) or die "Die Nachricht konnte nicht gesendet werden.$!";
print<<HERE_TEXT;
Content-type:text/html
<html>
<head>
<title>Nachrichten:</title></head>
<body>
<center>
<h3>Bestätigung:</h3>
<p>Ihre Nachricht wurde an die Adresse $to verschickt!
<br>
Klicken Sie hier um eine neue Nachricht zu verfassen</p></center>
</body></html>HERE_TEXT
Vielen Dank schonmal!!
Gruß