ich möchte ein Formular über ein Script auslesen lassen, welches mir dann den Inhalt per E-Mail schickt. Ich habe ein Scipt "mailsend.pl" welches folgender maßen ausschaut:
Code: Select all
#!/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'};
$subject = $DATA{'subject'};
$response = $DATA{'response'};
$user_email = $DATA{'user_email'};
$user_name = $DATA{'user_name'};
# Send mail to $recipient
open (MAIL, "|$mailer") || die "Can't open $mailprog!n";
print MAIL "Subject: $subjectn";
print MAIL "From: $user_email ($user_name)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>";
Wenn ich dann das Script aber über die Shell ausführe erhalte ich folgende Fehlermeldung:
Code: Select all
107:~# /var/www/virtual/web-xxl.net/htdocs/cgi-bin/mailsend.pl
sendmail: warning: valid_hostname: numeric hostname: 107
sendmail: warning: valid_hostname: numeric hostname: 107
postdrop: warning: valid_hostname: numeric hostname: 107
postdrop: warning: valid_hostname: numeric hostname: 107
Content-type:text/html
<HTML><BODY><TITLE>Thank you</TITLE><FONT SIZE=+2></FONT></BODY></HTML>107:~#
Vielen Dank für eure Hilfe
mfg
Andre