#------------------------------------------------#
#--SR Verschicken Mail #
#------------------------------------------------#
sub do_mail
{
$work_header = "Content-Type: text/html" if ($header eq "header2");
$work_header = "" if ($header eq "header1");
$work_header2 = "H" if ($header eq "header2");
$work_header2 = "" if ($header eq "header1");
$errmsg = "";
$pgmmsg = "";
$errmsg.="Bitte geben Sie den SENDER ein!<br/> " if $_get{work_sender} eq "";
$errmsg.="Bitte geben Sie den SENDER-NAMEN ein!<br/>" if $_get{work_sender_name} eq "";
$errmsg.="Bitte geben Sie den EMPFÄNGER ein!<br/> " if $_get{work_empfaenger} eq "";
$errmsg.="Bitte geben Sie den EMPFÄNGER-NAMEN ein!<br/>" if $_get{work_empfaenger_name} eq "";
$errmsg.="Bitte geben Sie den BETREFF ein!<br/> " if $_get{work_thema} eq "";
$errmsg.="Bitte geben Sie den TEXT ein!<br/> " if $_get{work_text} eq "";
if (!$errmsg)
{
mail "$work_empfaenger", "$work_thema", "$work_text", "$work_sender", "$work_empfaenger_name", "$work_sender_name", "$work_copy", "$work_blindcopy", "$work_header";
$work_empfaenger_name = "";
$work_empfaenger = "";
$work_sender_name = "";
$work_sender = "";
$work_copy ="";
$work_blindcopy ="";
$work_thema = "";
$work_text = "";
$pgmmsg = "Nachricht wurde versendet";
}
else
{
$pgmmsg = "";
}
$cmd = "fm_kontakt";
}