{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
do_all "showsort=Name,Angreifer oder Verteidiger,Angreifer verloren,Verteidiger verloren","namerein", "pwrein";
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
}
if($namerein eq "")
{
out <<EOF;
<h2>Anmeldung</h2>Bitte melden Sie sich an(auf Gross- und Kleinschreibung achten!!):
<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="></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>
<font size=3>Wenn ihr keinen Zugriff auf diese Datenbank habt und ihn haben wollt, dann tretet den BerlinSharks in Galaxie 8 bei( oder bewirkt ein Buendniss ;) )!!</font>
</center>
EOF
}
</perl></body>
</html>
