nicht angemeldet
Hallo!
Doch nochmal eine Frage. Hab in mein wunderbar funktionierendes mailscript zusätzlichen Text eingegeben, ging noch, aber als ich den \n und noch die IP Adresse mitschicken wollte, funktinierte das alles nicht mehr richtig. Muß irgendwo bei mailtext ein Fehler sein, wahrscheinlich nur irgendwelche Zeichen falsch, naja, wenn jemand so gütig wäre un nur eben einen kurzen Blick riskieren könte:-)
#!/usr/bin/perl
-------> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "/usr/lib/sendmail";
-------> Modul für CGI-Scripts einbinden:
use CGI;
-------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
$query = new CGI;
@names = $query->param;
-------> interne Daten aus den erwarteten hidden-Feldern auslesen:
$delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value
$mailto = $query->param('mailto'); # ---> Empfängeradresse
$returnhtml = $query->param('return'); # ---> URL für Dankeseite
$subject = $query->param('subject'); # ---> E-Mail-Subject
-------> Text der E-Mail aus den Formulardaten ermitteln:
$mailtext = "Aufgegebene Bestellung:\n";
$mailtext = "$ENV{'REMOTE_ADDR'}\n";
foreach(@names) {
$name = $_;
@values = "";
@values = $query->param($name);
if($name ne "mailto" && $name ne "return" && $name ne "subject" && $name ne "delimiter") {
foreach $value (@values) {
$mailtext = $mailtext.$name;
$mailtext = $mailtext.$delimiter;
$mailtext = $mailtext.$value."\n";
}
}
}
-------> E-Mail versenden:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
-------> Dankeseite an Browser senden:
print "Location: $returnhtml\n\n";
Also wie gesagt, wollte halt in der email einen Absatz einfügen und die IP adresse des Absenders, später nich das datum, aber soweit bin ich noch nicht, aber wenn ich weiß wie die IP da rein kommt, bekomme ich das datu auch hin!
Danke im voraus
Alex