Formmailer mailt nicht aber sendet Erfolgsseite

[thomas luger]

Ich weis daß ich die Mailadresse direkt in den Perlquellcode stecken soll, zunächst will ich aber das ding zum senden bringen ...

Hallo,
Ich glaube kaum, dass du das Orginalscript 1:1 übernommen hast, also wäre es ganz hilfreich, wenn du mal den Code postest, sonst kann dir wohl keiner helfen.

$xNeTworKx.
»»
 #!/usr/bin/perl -w

-------> SMTP-Programm zum Versenden der Mail:

$Sendmail_Prog = "/usr/bin/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 -i") || 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";

so, das ist der code.

wäre klasse wenn mir da jemand helfen kann

grüße

Thomas