<perl>
logout if $cmd eq "logout"; 
 if (%_user eq "" || $cmd eq "logout")
{
out<<EOF;
"<p>Bitte melden Sie sich an:</p><p><table><form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/Juergens/testlogin/hansel" method="post" enctype="multipart/form-data"><tr><td align=right><font face=arial size=3>Name:</td><td><input type=text name="uid=" value="" 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 class=submit type=submit value="Anmelden"></td></tr>
</form></table></p>"
EOF
}else
{
# Angemeldet...
$link="baseportal.pl?htx=$htx&uid=$_user&sid=$_session";
out "<p><a href=\"$link&cmd=logout\">Abmelden</a></p>";     # Abmelden-Link ausgeben
out "Hallo $_user... ".++$count;
out "<p><a href=\"$link&count=$count\">Weiter</a></p>";     # Link mit Nutzernamen und Session
}
</perl>