<perl>

if($_post ne "")
{

 get "Name==$_get{name}", "nutzerdb";
 if($_get{name} ne "" && $nutzerdb{EMail}[0] eq $_get{email} && lc($nutzerdb{Name}[0]) eq lc($_get{name}))
 {

out <<EOF;
<form action="baseportal.pl?htx=/name/anmeldung" method="post" enctype="multipart/form-data">
<table><tr><td colspan=2>
<ul><font face=arial size=3>
Der Zugang wurde an die angegebene Email-Adresse verschickt. Warten Sie bis Sie die entsprechende EMail erhalten haben und melden Sie sich dann mit dem &uuml;bermittelten Passwort an:<p></td></tr>
<tr><td align=right><font face=arial size=3>Name:</td><td><input type=text name="uid=" size=12></td></tr>

<tr><td></td><td><input type=submit value="Anmelden"></td></tr>

EOF
 } else
 {
  $text="Der Name und/oder die EMail-Adresse stimmen nicht. Bitte überprüfen Sie Ihre Eingabe:";
  undef $_post;
 }
}

{
out <<EOF;
<form action="baseportal.pl?htx=/name/lostpw" method="post" enctype="multipart/form-data">
<table><tr><td colspan=2>
<ul><font face=arial size=3>
$text<p></td></tr>
<tr><td align=right><font face=arial size=3>Name:</td><td><input type=text name="name=" value="$_get{name}" size=12></td></tr>
<tr><td align=right><font face=arial size=3>EMail-Adresse:</td><td><input type=text name="email=" value="$_get{email}" size=20></td></tr>
<tr><td></td><td><input type=submit value="Abschicken"></td></tr>

EOF
}