getestet und funktionstüchtig:

$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")
                   {

                           do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=no buttonbrowse=top,bottom indexfield=Vorname listtype=list listfields=Vorname,Name,Geburtstag,Strasse,PLZ,Ort input=link", "namerein", "sid=$sid", "Schreiben=$Schreiben";
                   }elsif ($Schreiben ne "ja")
                   {

                           do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=top,bottom buttonbrowse=top,bottom selectbrowse=no indexfield=Vorname listtype^=list listfields=-Aktion,Id,Telefon,Fax,Handy,EMail,Homepage,Anrede,Kommentar allfields=-Aktion,Id input=link", "namerein", "sid=$sid";
                   }
###### Ende der erlaubten Tätigkeiten #######

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

if($namerein eq "")
{
out <<EOF;

<tr><td>
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx&cmd=login" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx"><input type=hidden name="cmd=" value="login">
<table>
<tr><td>Login-Name:</td><td><input type="text" name="namerein=" value="$login_name"></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form></td></tr></table>

}
###### ende login #####
</perl>

out "<a href=baseportal.pl?htx=$htx&cmd=logout&namerein=$namerein>ausloggen</a>";

######### Ab hier alles rein, was nach login gemacht werden darf ########## und dem if ($Schreiben...) rein.