hallo:-)
würde gerne ein formular das daten an eine email sendet bauen. bzw das formular ist schon fertig.
jetzt habe ich den appacheserver installiert und die testseite
http://localhost zeigt mir auch an das es funktioniert.
mein problem ist nun das ich nicht verstehe wie ich das mit den pfadangaben händeln soll??!!
angenommen mein installationsverzeichniss von apache liegt auf:
E:\perl\serverinstall\Perl\
aber meine eigentliche website ligt auf:
E:\website\site\1\htm\formular.htm
E:\website\site\1\cgi-bin\mail.pl
wie und wo muss ich denn jetzt die pfadangaben machen???
wenn ich das formular im browser testen will gebe ich dann zb.:
http://localhost/...e\1\htm\formular.htm an oder wie??
------------------------------------------------------------------
das ist meine mail.pl datei:
#!E:\perl\serverinstall\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: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
# -------> Dankeseite an Browser senden:
print "Location: $returnhtml\n\n";
bitte bitte helft mir:-))