#------------------------------------------------#
#--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&Auml;NGER ein!<br/> " if $_get{work_empfaenger} eq "";
    $errmsg.="Bitte geben Sie den EMPF&Auml;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)
       {

             "$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";
   }