autoresponder mit selfmail

[chuck]

moin,

fuer alle die das selbe problem habe, hier eine loesung die funktioniert.

keine garantie auf qulitaet oder irgendwas.

habe nur zwei sachen geaendert in selfmail.pl.
1.

-------> interne Daten aus den erwarteten hidden-Feldern auslesen:

$delimiter = $query->param('delimiter');  # ---> Begrenzerzeichen zwischen name und value
$mailto = $query->param('mailto');        # ---> Empfängeradresse
$mailto2 = $query->param('Email');        # ---> Empfängeradresse2 das eingabefeld heisst Email
$returnhtml = $query->param('return');    # ---> URL für Dankeseite
$subject = $query->param('subject');      # ---> E-Mail-Subject

-------> E-Mail 2 versenden an user -> also eingebender:

open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto2\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);

sonnigst

chuck