out "<FORM ACTION=\"baseportal.pl?htx=$htx\" METHOD=\"post\" ENCTYPE=\"multipart/form-data\" ONRESET=\"return confirm('Sind Sie sicher, dass Sie das Formular leeren wollen?')\" onSubmit=\"return formcheck()\">";
&do_hidden("do_mail");
out <<EOF;
<TR><TD ALIGN='right'>Empfänger : </TD><TD><INPUT TYPE="text" NAME="work_empfaenger=" size=40 VALUE=""></TD></TR>
<TR><TD ALIGN='right'>Thema : </TD><TD><INPUT TYPE="text" NAME="work_thema=" size=40 VALUE=""></TD></TR>
<TR><TD ALIGN='right'>Text : </TD><TD><TEXTAREA NAME="work_text=" COLS=40 ROWS=4 WRAP=VIRTUAL></TEXTAREA></TD></TR>
<TR><TD ALIGN='right'>Sender : </TD><TD><INPUT TYPE="text" NAME="work_sender=" size=40 VALUE=""></TD></TR>
<TR><TD ALIGN='right'>Empfänger-Name : </TD><TD><INPUT TYPE="text" NAME="work_empfaenger_name=" size=40 VALUE=""></TD></TR>
<TR><TD ALIGN='right'>Sender-Name : </TD><TD><INPUT TYPE="text" NAME="work_sender_name=" size=40 VALUE=""></TD></TR>
<TR><TD ALIGN='right'>Copy : </TD><TD><INPUT TYPE="text" NAME="work_copy=" size=40 VALUE=""></TD></TR>
<TR><TD ALIGN='right'>Blindcopy : </TD><TD><INPUT TYPE="text" NAME="work_blindcopy=" size=40 VALUE=""></TD></TR>
<TR><TD ALIGN='right'>Header : </TD><TD><INPUT TYPE="text" NAME="work_header=" size=40 VALUE=""></TD></TR>
<TR><TD ALIGN="center" COLSPAN=2><BR><INPUT CLASS="button" TYPE="submit" VALUE="Mail versendenn"> <INPUT class=button TYPE=reset value="Eingabe löschen"><br> </TD></TR>
</FORM>
........sub do_mail
{
mail "$work_empfaenger", "$work_thema", "$work_text", "$work_sender", "$work_empfaenger_name", "$work_sender_name",
"$work_copy", "$work_blindcopy", "$work_header";
$msg = "SENT";
$cmd = "fm_mail";
}
..... usw.