<perl>
############### Eingabe des Benutzername & Passwort
out "<TABLE WIDTH='800' CELLPADDING='2' CELLSPACING='2' BORDER='0' ALIGN='CENTER'>";
out "<tr><td width='800' colspan='5' align='center'><FORM ACTION='http://unifit-daten.de/cgi-bin/baseportal.pl?htx=$htx'  METHOD='post' ENCTYPE='multipart/form-data'>";
out "<input type='hidden' name='namerein=' value='$namerein'></input>";
out "<input type='hidden' name='passwortrein=' value='$passwortrein'></input>";
out "<INPUT TYPE='TEXT' NAME='namerein=='><INPUT TYPE='PASSWORD' NAME='passwortrein=='>";
out "<INPUT TYPE='submit' VALUE='Anzeigen' CLASS='schrift2a' STYLE='background-color:#00315A; color: white; font-size: 8pt'></FORM>";
out "</td></tr></table>";
############## wird auch als namerein & passwortrein übernommen und einlass gewährt
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $passwortrein)
{
#################---hier wird die session-id generiert----- jetzt kommt der eigentliche teil vom Claus#

$usid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour)+$min ;

if($logout=1)
{
mod "Name==$namerein", ["nutzer_usid", ""], "nutzer";
}

{
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
}

### hier stellt man die Zeit ein, ab wann der Zugang bei Untätigkeit des jeweiligen users gesperrt wird (in diesem Fall 2 Minuten)

        if($usid eq $nutzer_usid && $usid_aktuell <= $usid_max)
        {
                   out "<!-- session-id ist gültig - session-id wird aktualisiert -->";
                   mod "Name==$namerein", ["nutzer_usid", $usid_aktuell], "nutzer";
                   $usid=$usid_aktuell;
}
#----------- Ab hier kommt alles rein, was nach dem Login gemacht werden darf #

out "<br><br>\$usid $usid <br> \$nutzer_usid $nutzer_usid <br> \$usid_aktuell $usid_aktuell";

 out"<br><br><a href=http://unifit-daten.de/cgi-bin/baseportal.pl?htx=$htx&Name=$namerein&logout=1><b><font face=Arial, Helvetica, sans-serif color=d80000>LOGOUT</font></b></a><br><br>";
 }
 else

out "<TABLE WIDTH='800' CELLPADDING='2' CELLSPACING='2' BORDER='0' ALIGN='CENTER'>";
out "<tr><td width='800' colspan='5' align='center' STYLE='background-color:#00315A; color: white; font-size: 8pt'>Leider kein Zugang ! oder melden Sie sich an !</td></tr></table>";
}