<perl>

{
get "Id==!$Id","$db";
map {$_loop{$_}=$_put{$_}} keys(%_put);
  %_put=%_loop;
}

{
  get "Name==!$namerein", "Nutzer";

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
do_all "db=MercadoBugs mail_put=InfoMail action=all Publish>0 range^=0,20 sort^=Status,-Geaendert,-Erstellt listfields=Typ,Kurztitel,Prioritaet,Status,Kontakt,Erstellt,Geaendert allfields=-Publish formfields=-Publish searchfields=-Publish showsort=* showamount=all,sel selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top indexfield=Typ keyfield=Kurztitel listtype=list language=de detail=link search=link input=link tdparam=nowrap", "namerein", "pwrein";
  } else
  {
    out "<b>Log In failed!</b>";
    $namerein="";
  }
}
</perl>