<perl>
if($pwrein ne "")
{
get "Passwort==!$pwrein","nutzer";
if($Name ne "" && $Name eq $namerein)
{
$nutzerId=$_id;
get "Id==*","news";
while (get_next("news"))
{
$termin=datum($Termin, "Tag.Monat.Jahr"); 
out <<EOF;

EOF

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

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

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

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

out <<EOF;
<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...";
}