steFF: FormMailer mit perl

Beitrag lesen

Hallo!!
habe ein Problem, und zwar habe ich ein Bestellformular erstellt, dass ich gerne per mail zugesendet bekommen möchte!!
jetzt hab ich das perl script von selfHtml genommen und ein paar sachen geändert, doch es funktioniert nicht!
wenn ich auf den Button schicken klicke kommt diese Fehlermeldung: "The document has moved here." bitte um Hilfe!
PS:kenn mich nicht besonders aus in Perl!!!!

-> bestellmail.pl:

#!/usr/bin/perl

-------> Individuelle Parameter des Skriptes - bitte anpassen!

--> SMTP-Programm zum Versenden der Mail:

$Sendmail_Prog = "/usr/lib/sendmail";

--> Ziel-Mailadresse, an die gesendet werden soll:

$mailto = 'test@domain.at';

-------> 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(': ');  # ---> Begrenzerzeichen zwischen name und value
$returnhtml = $query->param('http://www.domain.at/formular/danke.html');    # ---> URL für Dankeseite
$subject = $query->param('Bestellung');      # ---> E-Mail-Subject

-------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln

#             VERHINDERT sonst möglichen MISSBRAUCH des Skripts
$subject =~ s/\s/ /g;

-------> Text der E-Mail aus den Formulardaten ermitteln:

$mailtext = "Bestellung";
foreach(@names) {
  $name = $_;
  @values = "";
  @values = $query->param($name);
  if($name ne "http://www.domain.at/formular/danke.html" && $name ne "Bestellung" && $name ne ": ") {
    foreach $value (@values) {
      $mailtext = $mailtext.$name;
   $mailtext = $mailtext.$strasse;
   $mailtext = $mailtext.$plz;
   $mailtext = $mailtext.$ort;
   $mailtext = $mailtext.$plz;
   $mailtext = $mailtext.$bundesland;
   $mailtext = $mailtext.$staat;
   $mailtext = $mailtext.$vorwahl;nummer;
   $mailtext = $mailtext.$email;
   $mailtext = $mailtext.$kommentar;
      $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";

-------------------------------------------------------

und hier das html doc:

<body>
<form action="http://www.meinedomain.at/cgi-bin/bestellmail.pl" method="post">
<input type="hidden" name="return" value="http://www.meinedomain.at/formular/danke.html">
<input type="hidden" name="delimiter" value=":&nbsp;">
<input type="hidden" name="subject" value="Bestellung">

<h1 align="center" class="Stil1 Stil1 Stil1">Bestellformular</h1>
</center>
<hr width="75%" />
<p>&nbsp;</p>
<form action="" method="post" enctype="multipart/form-data" name="form1" id="form1">
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><span class="Stil7">
<input type="checkbox" name="erste_cd" value="checkbox" />
erste CD (&euro; 15,00) <br />
<input type="checkbox" name="zweite_cd" value="checkbox" />
zweite CD (&euro; 15,00)</span></td>
</tr>
<tr>
<td>&nbsp;</td>
</tr>
</table>
<p>&nbsp;</p>
<table width="450" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="225" bgcolor="#D5ECB4"><p class="Stil7">&nbsp;</p>
<p class="Stil7">&nbsp;</p></td>
</tr>
<tr>
<td bgcolor="#D5ECB4"><span class="Stil7">
<label>Name: <br />
<input name="name" type="text" size="20" maxlength="25" />
</label>
<br />
Stra&szlig;e:
<label></label>
</span> <span class="Stil7">
<label><br />
<input name="strasse" type="text" size="20" maxlength="25" />
</label>
<br />
<label>PLZ.: &nbsp;&nbsp;&nbsp;&nbsp;Ort:</label>
</span> <span class="Stil7">
<label><br />
<input name="plz" type="text" size="4" maxlength="10" />
<input name="ort" type="text" size="20" maxlength="25" />
<br />
Bundesland:<br />
<input name="bundesland" type="text" size="20" maxlength="25" />
</label>
<label><br />
<br />
<br />
<br />
<br />
</label>
</span></td>
<td bgcolor="#D5ECB4"><span class="Stil7">
<label></label>
<label>Staat:<br />
<input name="staat" type="text" size="20" maxlength="25" />
<br />
</label>
<label>Telefon:<br />
<input name="vorwahl" type="text" size="4" maxlength="10" />
</label>
</span>
<p class="Stil7">
<input name="nummer" type="text" size="20" maxlength="25" />
<br />
E-Mail:<br />
<input name="email" type="text" size="20" maxlength="25" />
<br />
Kommentar:<br />
<textarea name="kommentar" cols="20" rows="2"></textarea>
</p></td>
</tr>
<tr>
<td align="right" bgcolor="#003300" ><input type="submit" name="Submit" value="Bestellung abschicken" /></td>
<td bgcolor="#003300"><input type="reset" name="Submit2" value="Eingaben l&ouml;schen" /></td>
</tr>
</table>
</form>
</body>