nicht angemeldet
#!/usr/bin/perl
-------> SMTP-Programm zum Versenden der Mail:
my $Sendmail_Prog = "/usr/sbin/sendmail";
-------> Modul für CGI-Scripts einbinden:
use CGI;
use strict;
-------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
my $query = new CGI;
my @names = $query->param;
-------> interne Daten aus den erwarteten hidden-Feldern auslesen:
my $delimiter = ':';
my $mailto = 'address@domain.de';
my $returnhtml = $query->param('return');
my $subject = 'Irgendwas';
-------> Text der E-Mail aus den Formulardaten ermitteln:
my $mailtext = "";
my $name;
my @values;
my $value;
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";
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
<html><head></head><body>
<form action="http://www.....de/cgi-bin/mailer.pl" method="post">
<input type="hidden" name="return" value="http://www.....de/danke.html">
<input type="hidden" name="delimiter" value=": ">
<input type="hidden" name="subject" value="Feedback-Formular">
<input type="Text" name="name" value="" size="50" maxlength="50">
<input type="Text" name="mailtext" value="" size="50" maxlength="50">
<input type="submit"><input type="reset">
</form>
</body></html>
was meinst Du mit "Modul" @ sasha??