bekomme cgi nicht zum laufen
Posted: 2004-07-25 14:37
ich habe mir einen server von 1und1 geholt. nach umzug meiner domains muß ich leider feststellen, daß folgendes skript nicht mehr läuft.
#!/usr/bin/perl
#
# mailsend.pl
# version 961110
# copyright 1996 by bo larsson
# all rights reserved
#
# bugs or feedback to bliss@seagull.net
# for information on how to use, visit http://www.seagull.net/bliss/
$mailer = "/usr/sbin/sendmail -t";
$valist = "";
# Get the input and strip off all unwanted characters
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$temp = $buffer;
$temp =~ s/+/ /g;
$temp =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
# Store the matching name and value pairs
foreach (split(/&/,$temp))
{
($NAM, $VAL) = split(/=/, $_);
$DATA{$NAM} = $VAL;
$valist .= "$NAM:$VALn";
}
# Grab necessary variables
$sendto = $DATA{'sendto'};
$response = $DATA{'response'};
$anfragegrund = $DATA{'anfragegrund'};
$Vorname = $DATA{'Vorname'};
$Nachname = $DATA{'Nachname'};
$Strasse = $DATA{'Strasse'};
$PLZ = $DATA{'PLZ'};
$Fahrzeughersteller = $DATA{'Fahrzeughersteller'};
$Fahrzeugtyp = $DATA{'fahrzeugtyp'};
$Modell = $DATA{'modell'};
$Motor = $DATA{'motor'};
$Hubraum = $DATA{'Hubraum'};
$Serienleistung = $DATA{'Serienleistung'};
$Erstzulassung = $DATA{'Erstzulassung'};
$Telefon = $DATA{'Telefon'};
$Fax = $DATA{'Fax'};
$email = $DATA{'email'};
$Offene_Fragen = $DATA{'Offene_Fragen'};
# Send mail to $recipient
open (MAIL, "|$mailer") || die "Can't open $mailprog!n";
print MAIL "Subject: $anfragegrundn";
print MAIL "From: $email ($Nachname)n";
print MAIL "To: $sendton";
print MAIL "n";
print MAIL "$valist";
print MAIL "n";
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}n";
close (MAIL);
# Print the response
print "Content-type:text/htmlnn";
print "<HTML><BODY><TITLE>Thank you</TITLE>";
print "<FONT SIZE=+2>$response</FONT>";
print "</BODY></HTML>";
Der Webserver gibt folgende Fehlermeldung aus:
Fehlermeldung:
Premature end of script headers: mailsend.pl
Da ich in der Linux-Welt neuling bin, wäre ich euch dankbar wenn ihr mir helfen könntet
#!/usr/bin/perl
#
# mailsend.pl
# version 961110
# copyright 1996 by bo larsson
# all rights reserved
#
# bugs or feedback to bliss@seagull.net
# for information on how to use, visit http://www.seagull.net/bliss/
$mailer = "/usr/sbin/sendmail -t";
$valist = "";
# Get the input and strip off all unwanted characters
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$temp = $buffer;
$temp =~ s/+/ /g;
$temp =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
# Store the matching name and value pairs
foreach (split(/&/,$temp))
{
($NAM, $VAL) = split(/=/, $_);
$DATA{$NAM} = $VAL;
$valist .= "$NAM:$VALn";
}
# Grab necessary variables
$sendto = $DATA{'sendto'};
$response = $DATA{'response'};
$anfragegrund = $DATA{'anfragegrund'};
$Vorname = $DATA{'Vorname'};
$Nachname = $DATA{'Nachname'};
$Strasse = $DATA{'Strasse'};
$PLZ = $DATA{'PLZ'};
$Fahrzeughersteller = $DATA{'Fahrzeughersteller'};
$Fahrzeugtyp = $DATA{'fahrzeugtyp'};
$Modell = $DATA{'modell'};
$Motor = $DATA{'motor'};
$Hubraum = $DATA{'Hubraum'};
$Serienleistung = $DATA{'Serienleistung'};
$Erstzulassung = $DATA{'Erstzulassung'};
$Telefon = $DATA{'Telefon'};
$Fax = $DATA{'Fax'};
$email = $DATA{'email'};
$Offene_Fragen = $DATA{'Offene_Fragen'};
# Send mail to $recipient
open (MAIL, "|$mailer") || die "Can't open $mailprog!n";
print MAIL "Subject: $anfragegrundn";
print MAIL "From: $email ($Nachname)n";
print MAIL "To: $sendton";
print MAIL "n";
print MAIL "$valist";
print MAIL "n";
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}n";
close (MAIL);
# Print the response
print "Content-type:text/htmlnn";
print "<HTML><BODY><TITLE>Thank you</TITLE>";
print "<FONT SIZE=+2>$response</FONT>";
print "</BODY></HTML>";
Der Webserver gibt folgende Fehlermeldung aus:
Fehlermeldung:
Premature end of script headers: mailsend.pl
Da ich in der Linux-Welt neuling bin, wäre ich euch dankbar wenn ihr mir helfen könntet