<perl>

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

{
do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Name range^=0,20 pagebrowse=no buttonbrowse=top,bottom indexfield=Name listtype=list listfields=Vorname,Name,Geburtstag,Strasse,PLZ,Ort input=link", "namerein", "pwrein", "Schreiben";
}elsif($Passwort ne "" && $Passwort eq $pwrein && $Schreiben ne "ja")
{
 
do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Name range^=0,20 pagebrowse=top,bottom buttonbrowse=top,bottom selectbrowse=no indexfield=Name listtype=list listfields=-Aktion,Id,Telefon,Fax,Handy,EMail,Homepage,Anrede,Kommentar allfields=-Aktion input=link", "namerein", "pwrein";
}
}
else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
</perl>
if($namerein eq "")
{
out <<EOF;
<h2>Anmeldung</h2>Bitte melden Sie sich an:
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein=" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein=" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"></td></tr>
<tr><td></td><td><input type=submit value="Anmelden" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"></td></tr>
</table></form>
EOF
}
</perl>