nicht angemeldet
Hallo!
Wollte fogendes(gekürztes) Skript verwenden, um einem Besteller eine personalisierte Bestätigung zukommen zu lassen.
Jetzt hab ich mir das so zusammengebastelt, aber ich bekomme immer den "Internal Server error". Findet einer von Euch vielleicht auf den ersten Blick einen Fehler??? Kann das sein, dass das mit Print mail unten doch nicht so einfach geht???
#!/usr/bin/perl
-------> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "/usr/lib/sendmail";
-------> Modul für CGI-Scripts einbinden:
use CGI qw(param);
-------> interne Daten aus den erwarteten hidden-Feldern auslesen:
$Hersteller = param("Hersteller");
$Produkt = param("Produkt");
$Beschreibung = param("Beschreibung");
$Vorname = param("Vorname");
$Nachname = param("Nachname");
$email = param("email");
$mailto = param("mailto");
-------> E-Mail versenden:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "From: $email\n";
print MAIL "Subject: Bestätigung Ihrer Online-Bestellung\n\n";
print MAIL "Hallo $Vorname $Nachname!\n\n";
print MAIL "Vielen Dank für Ihre Bestellung!\n\n\n";
print MAIL "Hiermit bestätigen wir Ihnen Ihre Bestellung für folgendes Produkt:\n\n";
print MAIL "$Hersteller $Produkt $Beschreibung\n\n\n";
close(MAIL);
Vielen Dank im voraus,
Alexander