Thomy: Mail mit attachment

SELF-Forum

Mail mit attachment

Thomy
– Informationen zu den Bewertungsregeln

hallo
ich habe ein problem mit meinem e-mail formular
ich bekomme ständig einen internal server error
wer kann mir hier weiterhelfen oder sieht jemand den/die fehler

if ($contents{'action'} eq ""){
print "Content-type: text/html\n\n";
print << "[END]";
<html>
<head><title>EMail versenden</title>
$style_head
</head>
<body bgcolor="$custom_color">
<center>
$style_span_start
<br><br>
<table valign="center">
  <tr><td class="navi">Von:</td><td class="navi">$from</td></tr>
  <form enctype="multipart/form-data" name="email" action="$http_mail_directory\lmail.cgi?&action=send" method="post" >
  <tr><td class="navi">An:</td><td><input type="text" name="email" size="55" value="$an"></td></tr>
  <tr><td class="navi">Betreff:</td><td><input type="text" name="subject" size="55" value="$subject"></td></tr>
  <tr><td class="navi">Kopie Cc:</td><td><input type="text" name="kopie" size="55" value="$kopie"></td></tr>
  <tr><td class="navi">Blindkopie BCc:</td><td><input type="text" name="blindkopie" size="55" value="$blindkopie"></td></tr>
  <tr>
       <td class="navi">Datei/File:</td>
        <td>
         <input type="file" name="attachement" value="$attachement">
       </td>
     </tr>
  <tr valign="top"><td class="navi">Email:</td><td><TEXTAREA NAME="Nachricht" ROWS=13 COLS=55>$content</TEXTAREA></td></tr>
  <tr><td></td><td class="navi"><input type="submit" value="Absenden"> <input put type="reset" value="Leeren"></td></tr>
  </form>
</table>
$style_span_end
</center>
</body>
</html>
[END]
}elsif($contents{'action'} eq "send"){

$Daten=$FORM{'attachement'};

if(($Daten) ne "")  
{  
$envct=$ENV{'CONTENT\_TYPE'};  
$envct=~ s/^.+boundary=//;  

@Teile=split /$envct/, $Daten;   
@Datei=split /\n/, $Teile[1], 5;  
while($Datei[1] =~/\\/)  
{

$Datei[1] =~ s/^.*\//;
}

$Datei[1] =~ s/"//;  
chop $Datei[1];  
chop $Datei[4];  
chop $Datei[4];  
$filename=$Datei[1];  
open DATEI, ">$uploaddir$filename";  
binmode DATEI;  
print DATEI $Datei[4];  
close DATEI;  
}

vielen dank!!!!

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. Mail mit attachment

    Cheatah
    – Informationen zu den Bewertungsregeln

    Hi,

    ich habe ein problem mit meinem e-mail formular
    ich bekomme ständig einen internal server error

    was sagt denn das Error-Log Deines Servers? Was sagt
    use CGI::Carp 'fatalsToBrowser';
    ? Und warum benutzt Du für den Upload nicht CGI.pm, für die Multipart-Mail nicht MIME::Lite?

    Cheatah

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln

    1. Mail mit attachment

      Thomy
      – Informationen zu den Bewertungsregeln

      also für die mail nehme ich mime::lite kannst du mir sagen ob und wie man CGI.pm einbinden kann ohne den gesamten html-Bereich neu zu schreiben also einfach den file bereich durch
      print $query->filefield('uploaded_file','startwert',50,80);
      ersetzen reicht wohl nicht!

      Hi,

      ich habe ein problem mit meinem e-mail formular
      ich bekomme ständig einen internal server error

      was sagt denn das Error-Log Deines Servers? Was sagt
      use CGI::Carp 'fatalsToBrowser';
      ? Und warum benutzt Du für den Upload nicht CGI.pm, für die Multipart-Mail nicht MIME::Lite?

      Cheatah

      Beitrag melden
      –
      Informationen zu den Bewertungsregeln

      1. Mail mit attachment

        Cheatah
        – Informationen zu den Bewertungsregeln

        Hi,

        kannst du mir sagen ob und wie man CGI.pm einbinden kann ohne den gesamten html-Bereich neu zu schreiben

        ganz einfach keine Ausgabe über CGI.pm machen.

        print $query->filefield('uploaded_file','startwert',50,80);
        ersetzen reicht wohl nicht!

        Wie Du den HTML-Code ausgibst ist völlig egal. Aber wenn die Daten des Uploads auf Deinem Server ankommen, solltest Du sie mit CGI.pm entgegennehmen. Wie das geht, ist mit Beispielen in

        perldoc CGI

        erklärt.

        Cheatah

        Beitrag melden
        –
        Informationen zu den Bewertungsregeln

        1. Mail mit attachment

          thomy
          – Informationen zu den Bewertungsregeln

          wenn das klappt dann leg ich ein Ei.
          Danke!!!!!

          Hi,

          kannst du mir sagen ob und wie man CGI.pm einbinden kann ohne den gesamten html-Bereich neu zu schreiben

          ganz einfach keine Ausgabe über CGI.pm machen.

          print $query->filefield('uploaded_file','startwert',50,80);
          ersetzen reicht wohl nicht!

          Wie Du den HTML-Code ausgibst ist völlig egal. Aber wenn die Daten des Uploads auf Deinem Server ankommen, solltest Du sie mit CGI.pm entgegennehmen. Wie das geht, ist mit Beispielen in

          perldoc CGI

          erklärt.

          Cheatah

          Beitrag melden
          –
          Informationen zu den Bewertungsregeln