Josef Reichardt: Formular per EMail versenden.......

Beitrag lesen

Hallo!

Ich bins wieder...
Ich habs immer noch nicht ganz verstanden!
Was mache ich falsch?
Es kommt immer Fehler 500!

Hier ist mein Formular:

<form action="http://www.crusader-mc.de/cgi-bin/send-mail.pl" method="post">
      <input type="hidden" name="mailto" value="webmaster@crusader-mc.de">
      <input type="hidden" name="return" value="http://www.crusader-mc.de/termine/termine.htm">
      <input type="hidden" name="delimiter" value=": ">
      <input type="hidden" name="subject" value="!!!Neuer Termin auf crusader-mc.de!!!">
      <font face="colonna mt,arial" size="5">
       Euer Party-Termin:<br>
      <table><tr><td width="75%">
       <table border="0" width="75%">
        <tr>
         <td width="200">
          <font face="colonna mt,arial" size="4">
           Von<small>(Nur bei Treffen!)</small>:
          </font>
         </td>
         <td>
          <font face="colonna mt,arial" size="3">
           <input type="text" maxlength="10" name="start" style="font-family:colonna mt,arial; font-size:16; color:#c0c0c0; background-image:url(bgformtext.gif); border:2px solid #c0c0c0; width:120">
          </font>
         </td>
        </tr>
        <tr>
         <td>
          <font face="colonna mt,arial" size="4">
           Bis/Am*:
          </font>
         </td>
         <td>
          <font face="colonna mt,arial" size="3">
           <input type="text" maxlength="10" name="end" style="font-family:colonna mt,arial; font-size:16; color:#c0c0c0; background-image:url(bgformtext.gif); border:2px solid #c0c0c0; width:120">
          </font>
         </td>
        </tr>
        <tr>
         <td>
          <font face="colonna mt,arial" size="4">
           Uhrzeit:
          </font>
         </td>
         <td>
          <font face="colonna mt,arial" size="3">
           <input type="text" maxlength="5" name="time" style="font-family:colonna mt,arial; font-size:16; color:#c0c0c0; background-image:url(bgformtext.gif); border:2px solid #c0c0c0; width:120">
          </font>
         </td>
        </tr>
        <tr>
         <td>
          <font face="colonna mt,arial" size="4">
           Veranstalter/Ort*:
          </font>
         </td>
         <td>
          <font face="colonna mt,arial" size="3">
           <input type="text" name="place" style="font-family:colonna mt,arial; font-size:16; color:#c0c0c0; background-image:url(bgformtext.gif); border:2px solid #c0c0c0; width:120">
          </font>
         </td>
        </tr>
        <tr>
         <td>
          <font face="colonna mt,arial" size="4">
           Art*:
          </font>
         </td>
         <td>
          <font face="colonna mt,arial" size="3">
           <select name="type" style="width:120; background-color:#000000; color:#c0c0c0; font-family:colonna mt,arial; font-size:16;">
            <option>   </option>
            <option>Treffen</option>
            <option>Party</option>
            <option>Winterparty</option>
            <option>Sommerparty</option>
            <option>Clubhaus open</option>
           </select>
          </font>
         </td>
        </tr>
       </table>
      </td>
      <td><img src="oldwizard.gif" border="0"></td></tr></table>
<center><input type="submit" value="Eintragen" style="font-family:colonna mt,arial; font-size:16; color:#c0c0c0; background-image:url(bgformtext.gif); border:2px solid #c0c0c0; width:120"><br><br></center>
<font size="3">*:Pflichtfelder   â€¢   Die Aktualisierung kann ein bis zwei Tage dauern!</font>
      </font>
     </form>

...und hier mein formmailer(send-mail.pl):

#!/usr/bin/perl

$Sendmail_Prog = "/usr/lib/sendmail";
use Net::SMTP;
$smtp = Net::SMTP->new('mailhost');
$smtp->mail($ENV{USER});
$smtp->to('mailto');
$smtp->data();
$smtp->datasend("To: mailto\n");
$smtp->datasend("Subject: subject\n");
$smtp->datasend("mailtext\n");
$smtp->dataend();

$smtp->quit;

if (grep { $mailto eq $_ } @all_mailq) {
my @all_mails = ('webmaster@crusader-mc.de', 'info@crusader-mc.de.de');
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";
} else {
   print "<h1>Nicht erlaubte Emailadresse!</h1>";
}

Bitte um schnelle hilfe, weil das formular aus zeitdruck bereits upgeloadet ist!

MfG

Josef