<perl>
if($namerein ne "")
{ get "Name==!$namerein", "../einsaetze/nutzer";
  if($Passwort ne "" && $Passwort eq $pwrein)
  { do_all "db=main listfields=Datum,Stichwort,Einsatzort sort=-Datum databack=f0f0f0 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial", "namerein", "pwrein", "ip";
  } else
  { out "<b><font color=#D90000>Unbekannter Benutzername oder falsches Passwort.<br>Die Anmeldung konnte nicht durchgeführt werden.</b></font><br><br>";
    $namerein="";
  }
}
if($namerein eq "")
{ out <<EOF;

<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form>
EOF
}
</perl>