hallo zusammen,
ich verwenda dieses script zum versenden von formulardaten. meine frage: kann ich es so einstellen, dass der absender aus dem formular-feld 'e-mail' verwendet wird?
#!/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);
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:
admin\@pat87.ch\n"; print MAIL "From:
formular\@pat87.ch\n"; print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
# -------> Dankeseite an Browser senden:
print "Location: $returnhtml\n\n";
ich wäre für jede antwort froh...
mfg p@
---
mailto:admin@pat87.ch http://www.pat87.ch/
