Thomy: Mail mit attachment

Beitrag lesen

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