nicht angemeldet
Weil ich mich lange nicht mehr mit solchen Dingen beschäftigt habe.
#!/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 = "";
foreach(@names) {
$name = $_;
@values = "";
@values = $query->param($name);
$mailto = "x@yz.de";
if($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";
Und welche Befehlszeile muss ich in das HTML-Formular einfügen?
Hallo Freunde des gehobenen Forumsgenusses,
Ich habe einen Formmailer (Perl) installiert, der zwar eine HTML-Seite als Antwort öffenen kann, aber leider keine Antwortmail an den Absender schickt. Wer weiss Rat?
Wer weis, warum du einmal unter CGI und einmal unter Perl postest, keinen Quellcode und keine Fehlerbeschreibung lieferst und die Hilfe nicht gelesen oder nicht beherzigt hast?
Gruß
Alexander Brock