<perl>
if ($cmd eq "add") { 
    $err.=" -> Empfaenger<br>" if $_put{Empfaenger} eq "";
    $err.=" -> Absender<br>" if $_put{Absender} eq "";
    $err.=" -> Foto<br>" if $_put{file} eq "";

    if ($err ne ""){
        out "<b>Ihre Mail wurde nicht gesendet. Füllen Sie bitte noch folgende Felder aus.</b><br><br>$err<br><br>
<a HREF='javascript:history.back();'>zurück</a>";

   } else {
# file holen und in base64 verpacken

$res=~ s/^.//mg;
$res=~ s/\n//g;
$res=~ tr|` -_|AA-Za-z0-9+/|;
my $padding=(3 - length($_[0]) % 3) % 3;
$res=~ s/.{$padding}$/'=' x $padding/e if $padding;
$res=~ s/(.{1,76})/$1\n/g;

       $senddat=datum('jetzt', 'intern'); # $enddat füllen

<<EOF;

$res
 

       out<<EOF;
       <p><center>
<b>Vielen Dank!<br><br>

EOF
   } # E if/else err
   # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
} else { 

</div>

<form action="baseportal.pl?htx=/mail&cmd=add" name="_baseportal_form0" method="post" enctype="multipart/form-data">
<tr>
<td width=50>Absender:</td>
<td>
<div style="margin-left:0px; margin-top:3px;" >
<input type="text" NAME="Absender:=" style=" width:130px; height:20px; border-style:solid; border-width:1px; border-color:#666666; background-color:#ffffff; font-size:11px; font-family:verdana; color:#000000"></div>
</td>
</tr>

<td>Empfaenger:</td>
<td>
<div style="margin-left:0px; margin-top:3px;" >
<input type="text" NAME="Empfaenger:=" style=" width:130px; height:20px; border-style:solid; border-width:1px; border-color:#987DB2; background-color:#ffffff;  font-size:11px; font-family:verdana; color:#000000"></div>
</td>
</tr>
<tr>
<td width=50>Foto:</td>

<input name="file:=" type="file" size="30" style="border-color:#666666; background-color:#ffffff; font-size:11px; font-family:verdana; color:#000000">
</td>
</tr>
<tr><td colspan=2>
<br><br>

</td></tr>
</table>
 </form>
EOF
}
</perl>