<perl>
if(%_put)
{
$ausg= length ($_put{Feldname});
  $emsg.="Der Text im Feldname ist mit $ausg Zeichen zu lang! Bitte k&uuml;rzen Sie ihn auf maximal 20 Zeichen." if length($_put{Feldname})>20;
if ($emsg eq "")
{
    put;
    out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
} else
  {
    out "<ul><font color=d80000><b>$emsg</b></font></ul>";
 undef %_put;
$cmd="";
  }
}
</perl>