<perl>

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

if($cmd eq "logout")
{
mod "nutzer_name==$namerein", ["nutzer_sid", ""], "nutzer";
 
##### Logout ende ######
##### login? ########
}elsif ($cmd eq "login")
{
 
       if($namerein ne "" && pwrein ne "" && $sid eq "")
       {
                    get "nutzer_name==!$namerein","nutzer";
                    if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
                    {
                       mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer";
                       $sid="$sid_aktuell";
                    }else
                    {
                       out "<b>Anmeldung fehlgeschlagen!</b>";
                       $namerein="";
                       $login_name="";
                    }
       }
}

{
 
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
        get "nutzer_name==$namerein", "nutzer";
        $sid_max = 10+(1*$nutzer_sid);
        if($sid eq $nutzer_sid && $sid_aktuell <= $sid_max)
        {
                   out "<!-- session-id ist gültig - session-id wird aktualisiert -->";
                   mod "nutzer_name==$namerein", ["nutzer_sid", $sid_aktuell], "nutzer";
                   $sid=$sid_aktuell;

                   if($Schreiben eq "ja")
                   {

                   }elsif ($Schreiben ne "ja")
                   {
out <<EOF;
<SCRIPT language=JavaScript>  // Zugriffsverweigerung
 function click()
   { 
   if (event.button==2)
     { 
     alert('GESPERRT!!');
     } 
   if (event.button==3)
     { 
     alert('GESPERRT!! )');
     } 
   }
 document.onmousedown=click
</script>

<!--

}

</script>
EOF
}
###### Ende der erlaubten Tätigkeiten #######

       }else
       {
                    out "Session-id ist abgelaufen - Bitte melden Sie sich erneut an";
                    $login_name="$nutzer_name";
                    $namerein="";
       }
}
 

</perl> 

                   {")