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

EOF
}

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

if($namerein eq "")
{
out <<EOF;

<form action="/cgi-bin/baseportal.pl?htx=mein_editieren_start" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table width="50%" border="0" cellspacing="0" bgcolor="333333"><tr><td> 
<table width="100%" bgcolor="#C4C4C4" cellspacing="5">
<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 height="2"></td>
<td height="2"><input type=submit value="Anmelden" name="submit" class="inputbutton">
</td></tr></table></td></tr></table></form>

<perl>
if ($cmd eq "")
{
get "Id==$nutzerId", "nutzer";

<h3>Eintrag ändern</h3>
<table>
<form action='http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx' method='post' enctype='multipart/form-data'>
<input type=hidden name="Id=" value="$_id">
<input type=hidden name='htx=' value='$htx'>
<input type=hidden name='cmd=' value='add'>
<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='passwort' 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
}elsif ($cmd eq "add")
{
mod "Id==$Id", undef, "nutzer";
out "Ihr Eintrag wurde geändert...";
}