<perl>

{
  get "nutzer_name==!$namerein", "nutzer";

  if($nutzer_passwort ne "" && $nutzer eq $pwrein)
  {
    do_all "Alex_Maier/Freizeit_V2", "nutzer_name", "nutzer_passwort";
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }

if($namerein eq "")
{

<h2>Anmeldung</h2>Bitte melden Sie sich an:
<form action="http://baseportal.de/cgi-bin/baseportal.pl/Alex_Maier/nutzer" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/Alex_Maier/nutzer">
<table>
<tr><td>Name:</td><td><input type="text" name="nutzer_name="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="nutzer_passwort="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form>
EOF

</perl>