formmailer von teamone
alexander richter
- perl
hallo zusammen,
als absoluter perl-nichtswisser habe ich folgendes problem:
ich habe das formmailer-script von teamone (http://www.teamone.de/selfaktuell/artikel/formmail.htm) auf einen unix-server in das entspr. cgi-bin-verzeichnis geladen, ausführbare rechte vergeben, das verzeichnis vom sendmail-programm angepasst etc.
ausgeführt wird das script dann auch (sehe ich daran, dass ich die angegebene dankes-html-seite zurückbekomme), nur die mail wird nicht versendet. das liegt laut dem server-betreiber daran, dass im perl-script keine absender-adresse angegeben ist.
dann habe ich mir ganz einfach gedacht, ich ergänze html/script wie folgt:
html:
...
<form action="/cgi-bin/selfmail.pl" method="post">
<input type="text" name="mailto" value="richter.alexander@planet-interkom.de">
<input type="hidden" name="mailfrom" value="richter.alexander@vertrieb.guj.de">
<input type="hidden" name="return" value="http://www.sap-center.guj.de/kontakt/empfehlungdanke.htm">
<input type="hidden" name="delimiter" value=": ">
<input type="hidden" name="subject" value="Feedback-Formular">
<!-- hier beliebige eigene Felder -->
<input type="submit"><input type="reset">
</form>
...
script:
...
$delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value
$mailto = $query->param('mailto'); # ---> Empfängeradresse
$mailfrom = $query->param('mailfrom'); # ---> Absenderadresse
$returnhtml = $query->param('return'); # ---> URL für Dankeseite
$subject = $query->param('subject'); # ---> E-Mail-Subject
...
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "From: $mailfrom\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
...
dat klappt aber nich...
weiß jemand eine lösung?
dank und gruß:
alexander
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
Sollte wohl besser ein die sein!
Peter