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

out <<EOF;

  <form action="baseportal.pl?htx=/?/nutzer&cmd=mod" method="post" enctype="multipart/form-data">
    <input type=hidden name="htx=" value="/?/editieren">
    <input type=hidden name="cmd=" value="add">
    <input type=hidden name="range=" value="0,20">
    <tr> 
      <td colspan="2">Ihre Nutzerdaten:</td>
    </tr>
    <tr> 
      <td align=right>Name:</td>
      <td> 
        <input type="text" name="Name:=" size=25 value="$Name">
        <font color="#CC3333">* </font></td>
    </tr>
    <tr> 
      <td align=right>Vorname:</td>
      <td> 
        <input type="text" name="Vorname:=" size=25 value="$Vorname">
        <font color="#CC3333">* </font></td>
    </tr>
    <tr> 
      <td align=right>Strasse:</td>
      <td> 
        <input type="text" name="Strasse:=" size=30 value="$Strasse">
        <font color="#CC3333">*</font> </td>
    </tr>
    <tr> 
      <td align=right>PLZ:</td>
      <td> 
        <input type="text" name="PLZ:=" size=10 value="$PLZ">
        <font color="#CC3333"> * </font></td>
    </tr>
    <tr> 
      <td align=right>Ort:</td>
      <td> 
        <input type="text" name="Ort:=" size=30 value="$Ort">
        <font color="#CC3333">* </font></td>
    </tr>
    <tr> 
      <td align=right>Telefon:</td>
      <td> 
        <input type="text" name="Telefon:=" size=20 value="$Telefon">
        <font color="#CC3333"> * </font></td>
    </tr>
    <tr> 
      <td align=right>EMail:</td>
      <td> 
        <input type="text" name="EMail:=" size=30 value="$EMail">
      </td>
    </tr>
    <tr> 
      <td align=right>Passwort:</td>
      <td> 
        <input type="text" name="Passwort:=" size=25 value="$Passwort">
        <font color="#CC3333">* </font></td>
    </tr>
    <tr> 
      <td align=right> </td>
      <td><font color="#CC3333"><br>
        *Eingabe wird benötigt. Bitte korrekt ausfüllen!</font></td>
    </tr>
    <tr> 
      <td></td>
      <td nowrap> 
        <input type=submit value="Ändern">
        <input type=reset value="Zurücksetzen">
      </td>
    </tr>
  </form>
</table>
EOF
#Passwort falsch
  } else
  {
    out "<b>Ihre Anmeldung ist fehlgeschlagen!</b><br><br>";
    $namerein="";
  }
}

{
out <<EOF;
 

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