Hallo!
Ich brüte über einem an sich einfachen Formular, habe auch die Diskussion hierzu im Forum studiert, bringe es aber trotzdem nicht zum Funktionieren. Nach dem Absenden erscheint statt der Dankeseite stets die Fehlermeldung HTTP 500, der Server könne das selfmail.pl nicht auffinden - obwohl ich es im angezeigten Pfad hochgeladen habe. Daten werden keine übermittelt.
Dabei funktionierte vor einiger Zeit ein nahezu gleiches Formular über denselben Host mit exakt derselben E-Mail-Adresse problemlos.
Ich wäre Euch daher sehr dankbar, wenn Ihr sowohl mein selfmail.pl als auch das Formular überprüfen und mich auf meinen Denkfehler hinweisen könntet. Vielen Dank im Voraus für Eure geschätzte Hilfe!
Der Link zu meinem Formular-Entwurf: http://www.seidler.ch/Indienfreunde/Dezent/Spende.html
Mein selfmail.pl gemäss SELFHTML-Vorlage von Stefan Münz und Pfad-Angabe meines Hosts:
#!/usr/bin/perl
$Sendmail_Prog = "/usr/sbin/sendmail";
$mailto = "meine E-Mail-Adresse";
use CGI;
$query = new CGI;
@names = $query->param;
$delimiter = $query->param('delimiter');
$returnhtml = $query->param('return');
$subject = $query->param('subject');
$subject =~ s/\s/ /g;
$mailtext = "";
foreach(@names) {
$name = $_;
@values = "";
@values = $query->param($name);
if($name ne "return" && $name ne "subject" && $name ne "delimiter") {
foreach $value (@values) {
$mailtext = $mailtext.$name;
$mailtext = $mailtext.$delimiter;
$mailtext = $mailtext.$value."\n";
}
}
}
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);
print "Location: $returnhtml\n\n";