$sid_aktuell = (1000000*$year)+(100000*$mon)+(1000*$mday)+(60*$hour)+$min;
$max_sid = $sid_alt+$session_zeit;
if (($max_sid > $sid_aktuell) or (($username eq "NUTZERNAME") && ($password eq "PASSWORT"))) {
do_all "db=DEINE_DB ,"sid_alt=$sid_aktuell","username=$username","password=$password";
}
else
{
out "<form action=\"http://DOMAIN/LOGIN_TEMPLATE\" methode=\"post\" enctype=\"multipart/form-data\">
<table border=\"0\">
<tr><td>Benutzername:</td><td><input type=text name=\"username\"></td></tr>
<tr><td>Passwort:</td><td><input type=password name=\"password\"></td></tr>
<tr><td></td><td><input type=\"submit\" style=\"BACKGROUND-COLOR: $butcol\" value=\"einloggen\"></td></tr>
</table>
</form>";
}
</perl>
</body></html>