<perl>

my $emsg="";

{
 
  $emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Nameatw} eq "";
  $emsg.="Bitte geben Sie einen Text ein! " if $_put{Beschreibung} eq "";
  $emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Beschreibung})>$maxtext;
  $emsg.="Bitte geben Sie Ihre Email-Adresse ein! " if $_put{Kontaktmail} eq "";
  if($emsg eq "")
  {
        out "<ul><b>Ihre Mail wurde verschickt...</b></ul>";

    "$Titel",
    "Hallo $Name,\n\n$_put{Beschreibung}\n\nDu erreichst mich unter\n\n Telefon: $_put{Telefon}\n\nHandy: $_put{Handy}\n\nEmail: $_put{Kontaktmail}\n\nViele Grüsse\n\n$_put{Nameatw}",
    "",
    "",
    "",
    "",
    "",
    "";
  } else
  {
    out "<ul><font color=d80000><b>$emsg</b></font></ul>";
 out"<br><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2><a href=javascript:history.go(-1);>Zum korrigieren bitte hier klicken</a></font>";
  }
}

out <<EOF;
<form action="http://www.domain.de/cgi-bin/baseportal.pl?htx=/.../Verzeichnis/Template&cmd=add" method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">
<input type="hidden" name="htx=" value="/.../Verzeichnis/Template">
 

EOF