<perl>
#---hier wird die session-id generiert-----#

$usid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour)+$min ;
#------hier wird beim logout die aktuelle session-id gelöscht------#

{
mod "nutzer_name==$login_name", ["nutzer_usid", ""], "nutzer"; 

#----Überprüfung des Passwortes--------#

  if($namerein ne "" && pwrein ne "" && $usid eq "")
       {
                    get "nutzer_name==!$namerein","nutzer";
                    if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
                    {
                       mod "nutzer_name==$namerein", ["nutzer_usid", "$usid_aktuell"], "nutzer";
                       $usid="$usid_aktuell";
                    }else
                    {
                       out "<b>Anmeldung fehlgeschlagen!</b>";
                       $namerein="";
                       $login_name="";
                    }
       }
if($namerein ne "" && $usid ne "")
{
 
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
 
get "nutzer_name==$namerein", "nutzer";
### hier stellt man die Zeit ein, ab wann der Zugang bei Untätigkeit des jeweiligen users gesperrt wird (in diesem Fall 2 Minuten)
$usid_max = $usid+2;
        if($usid eq $nutzer_usid && $usid_aktuell <= $usid_max)
        {
                   out "<!-- session-id ist gültig - session-id wird aktualisiert -->";
                   mod "nutzer_name==$namerein", ["nutzer_usid", $usid_aktuell], "nutzer";
                   $usid=$usid_aktuell;