if($cmd eq "mod")
{

}

<perl>

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

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
    do_all "db=case_management listfields=Name,Fragestellung,eilt,verteilt_an,terminiert,Uhrzeit,fertig searchfields=Produkt,Versicherungsnummer,Name,Geburt,eilt,Telefon,Fax,email,Aufnahme_durch,verteilt_an,extern,terminiert,erstellt,fertig allfields=Produkt,Versicherungsnummer,Name,PLZ,Stadt,Fragestellung,eilt,Antwort_bitte_per,Telefon,Fax,email,Aufnahme_durch,verteilt_an,extern,terminiert,Uhrzeit,Antworten formfields=Produkt,Versicherungsnummer,Name,PLZ,Stadt,Fragestellung,eilt,Antwort_bitte_per,Telefon,Fax,email,Aufnahme_durch,verteilt_an,extern,terminiert,Uhrzeit,Antworten 

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

{

<h2>Anmeldung</h2>Bitte melden Sie sich an:
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<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>