<perl>

{

  get "Login==!$namerein", "nutzerdb";
  if($Passwort ne "" && $Passwort eq $pwrein)
  {

out<<EOF;

<tr><td>Name</td><td>$vorname $nachname</td></tr>
<tr><td>Strasse</td><td>$strasse</td></tr>
<tr><td>PLZ/Ort</td><td>$plz $ort</td></tr>
<tr><td>Email</td><td>$email</td></tr>
<tr><td>Telefon</td><td>$telefon</td></tr>
</table>
EOF
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";

  }

if($namerein eq "")
{

<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Login:</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td colspan=2><input type=submit value="einloggen"></td></tr>
</body>
</table>
</form>
EOF

</perl>