<perl>
 

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

if($cmd eq "logout")
{

      mod "nutzer_name==!$namerein", ["nutzer_sid", "0"], "adressen";

out <<EOF;
<class=text>Ausgeloggt!<br><br>
Wollen sie sich erneut einloggen?</font><br>
<a href=http://franzillyc.de/i/members target=mitte onmouseover="window.status='tm'; return true" onmouseout="window.status=''"><b>Ja</b></font></a></p><br>
<br>
EOF

##### login? ########
}elsif ($cmd eq "login")
{
 
       if($namerein ne "" && pwrein ne "" && $sid eq "") 

       {
                    get "nutzer_name==!$namerein","adressen";
                    if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
                    {
                       mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "adressen";["eMail", "$eMail"], "adressen";
                       $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", "adressen";
        $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], "adressen";
                   $sid=$sid_aktuell;

if ($cmd eq "login")
{