<perl>

{
  get "zugang==!$namerein", "datenbank", "logincheck";

  if($passwort ne "" && $passwort eq $pwrein)
  {
   do_all "db=datenbank zugang==!$namerein action=list mail_mod=deinemailadresse pagebrowse=no buttonbrowse=no selectbrowse=no listtype=all listfields=-zugang allfields=-zugang formfields=-zugang keyfield=no input=no" , "namerein", "pwrein";

 } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}

{
out <<EOF;

<input type=hidden name="htx=" value="$htx">
zugang: <input type="text" name="namerein=">
passwort: <input type="password" name="pwrein=">
<input type=submit value="Login">

EOF

</perl>