<perl>
if($sid=do_chat "/login", "nutzer")
{
out <<EOF;

EOF
} else
{
out "<center><br>";
out "<b>Anmeldung fehlgeschlagen!</b><p>" if $uid ne "";
out <<EOF;
Bitte melden Sie sich an:<p>
<table><form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<tr><td align=right><font face=arial size=3>Name:</td><td><input type=text name="uid=" value="$_get{uid}" size=12></td></tr>
<tr><td align=right><font face=arial size=3>Passwort:</td><td><input type=password name="upw=" size=12></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</form></table>