<perl>
if($pwrein ne "")
{
get "Passwort==!$pwrein","nutzer";
 
if($Name ne "" && $Name eq $namerein)
{

out <<EOF;
#Ausgabe eines Formes, wenn noch kein Eintrag in der DB "main"
#abgefragt soll werden über "nutzer_id" - wird beim Eintrag mit gespeichert.

EOF
#Passwort falsch
  } else
  {
    out "<b>Ihre Anmeldung ist fehlgeschlagen!</b><br><br>";
    $namerein="";
  }
}

{
out <<EOF;
 

<form action="/cgi-bin/baseportal.pl?htx=/MYACCOUNT/template" 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>