nicht angemeldet
Ich habe das folgende Formular erstellt: www.hairlounge-friedberg.de/form.html
Ich habe folgenden Code schon einmal für den ersten Teil des Formulares per Perl-Beispiel Skript erstellt.
Kann der folgende Code stimmen? Wenn "Nein", dann erklärt mir bitte warum?
Hier der Code:
#!/usr/local/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:$VAL\n";
}
Grab necessary variables
$user_email = $DATA{'Email'};
$user_name = $DATA{'Nachname'};
$user_vname = $DATA{'Vorname'};
$user_strasse = $DATA{'Strasse'};
$user_ort = $DATA{'Ort'};
$user_plz = $DATA{'PLZ'};
$user_telefon = $DATA{'Telefonnummer'};
$user_fax = $DATA{'Faxnummer'};
$user_bemail = $DATA{'Benachrichtigung-Email'};
$user_btelefon = $DATA{'Benachrichtigung-Telefon'};
$user_bfax = $DATA{'Benachrichtigung-Fax'};
$user_bemail = $DATA{'Benachrichtigung-Email'};
Send mail to $recipient
open (MAIL, "|$mailer") || die "Can't open $mailprog!\n";
print MAIL "Betreff: $subject\n";
print MAIL "Von: $user_email ($user_name)\n";
print MAIL "An: $sendto\n";
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/html\n\n";
print "<HTML><BODY><TITLE>Vielen Dank!</TITLE>";
print "<FONT SIZE=+2>$response</FONT>";
print "</BODY></HTML>";
Ich bin Perl-Neuling und denke, daß es schon teilweise stimmen müßte!
Struppi