$sid_aktuell = (1000000*$year)+(100000*$mon)+(1000*$mday)+(60*$hour)+$min;
$max_sid = $sid_alt+30;
if (($max_sid > $sid_aktuell) or (($username eq "admin") && ($password eq "admin"))) {
do_all "db=deine_db","sid_alt=$sid_aktuell";
}
else
{
out "<form action=\"http://deine-domain.de/baseportal/name_ des_templates\" 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>
