<perl>
if ($XLOGIN eq "")
{out <<EOF;
<body background="http://www.worldletter.com/pictures/snow.jpg">
<blockquote>
<br><br><br><br><br><br><br><br>
<h3>Login</h3>
<form action="baseportal.pl?htx=/unagmbh/WL/login" method="post" enctype="multipart/form-
data" target="_top">
<p>
<input type="hidden" name="htx=" value="/unagmbh/WL/login">
<b>Username :</b><br>
<input type="Text" name="XLOGIN="><br><br>
<b>Password :</b><br>
<input type="Password" name="XPWD="><br><br>
<input type="Submit" name="go" value="Anmelden">
<br><br>
</p>
</form>
</blockquote>
</body>
EOF
}
else
{out <<EOF;
<body background="http://www.worldletter.com/pictures/snow.jpg">
EOF
get "LOGIN==!$XLOGIN", "USER";
if($PSW ne "" && $PSW eq $XPWD)
{out <<EOF;
<include src=main XLOGIN=daniel>
EOF
} else
{
out "Anmeldung fehlgeschlagen !";
}
out "</body>";
}
</perl>