<perl>

{
  get "Login==!$namerein", "vertretungen";

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
    if($IDV ne "" && $IDV eq $idrein)
    {
      do_all "db=rapstruck Identifikation==$idrein listfields=Umrüster,Kennzeichen", "namerein", "pwrein", "idrein";
      }else
      {
       out "<b>Identifikation fehlgeschlagen!</b>";
       $namerein="";
      }
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}