do_all "db=daten nutzer==$nutzer action=all listtype=list input=link" , "namerein", "pwrein";

<perl>
if($namerein ne "")
{
  get "nutzer==!$namerein", "nutzer";
  if($passwort ne "" && $passwort eq $pwrein)
  {
if (%_put)
{
$_put{nutzer}="$nutzer" if ($namerein eq "$nutzer");
}

   do_all "db=daten nutzer==$nutzer action=all listtype=list input=link" , "namerein", "pwrein";
EOF
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}

{

<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<p>Login<br><input type="text" name="namerein="></p>
<p>Passwort<br><input type="password" name="pwrein="></p>
<p><input type="submit" class="submit"  value="Login"></p>
</div>
</form>