<perl>

my $ziffer = $_REMOTE_ADDR;
$ziffer =~ s/[.]| //g;
$ziffkurz=substr($ziffer,0,5);
$sid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour).($ziffkurz);
out <<EOF;
EOF
if($cmd eq "logout")  ## Erneut Login-Maske falls Log Out erfolgt
{
      
      mod "Nickname==!$namerein", ["nutzer_sid", "0"], "register";   ## sessionid des Nutzers wird auf 0 gesetzt
      
          $msg="<font face=\'Verdana\' color=\'ffffff\' size=\'1\'>login again?</font>";
      $Nickname="";
      $namerein="";
}elsif ($cmd eq "login")
{
       if($namerein ne "" && pwrein ne "" && $sid eq "")
       {
                    get "Nickname==!$namerein range=0,1","register";
                    if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein && $Nickname eq $namerein)
                    {
                      mod "Nickname==$namerein", ["nutzer_sid", "$sid_aktuell"], "register";  ## sessionid wird in die Nutzerdatenbank eingetragen
                      $sid=$sid_aktuell;
                    }else
                    {
                       out "<font face=\'arial,helvetica\' color=\'#ff0000\' size=\'1\'>login error!</font>";
                       get "Nickname==!$namerein range=0,1","register";
                       if($Nickname eq $namerein)
                       {
                       mod "Nickname==$namerein", ["nutzer_sid", "0"], "register";  ## sessionid wird auf 0 gesetzt
                      }
                       $namerein="";
                       $login_name="";
                    }
       }
}

{

        get "Nickname==$namerein range=0,1", "register";
        $sidkurz = substr($nutzer_sid,0,9);
        $sid_max = ($sidkurz+10).($ziffkurz);
        if($sid eq $nutzer_sid && $sid_aktuell <= $sid_max)
        {
                   out "";
                   mod "Nickname==!$namerein range=0,1", ["nutzer_sid", $sid_aktuell], "register";
                   $sid=$sid_aktuell;

  out <<EOF;
<form action="baseportal.pl?htx=$htx&cmd=logout" method=post enctype=multipart/form-data target="_self" onKeyUp="highlight(event)" onClick="highlight(event)">
            <input type=hidden name="htx=" value="$htx">
            <input type="hidden" name="namerein=" value="$namerein">
        
   
             
     <input type="submit" value="LogOut" class=form2 width="35"><br>
        <font size="2" color="#2CB140"> $namerein logged!<br>IP: $_REMOTE_ADDR <br></font></form>
<hr Color="#585437">
<li><a href="baseportal.pl?htx=/SCbets/index2&sid_max=$sid_max&Nickname=$Nickname&Account=$Account&Id=$_id">MyBets</a><br>

EOF

     }else      ## Session-Id abgelaufen - wieder LogIn-Maske
     {
                    $msg="Session-Id abgelaufen!!!";

                    $login_name="$namerein";
                    $namerein="";

      }

if($namerein eq "")  ## Login-Maske falls nicht angemeldet
{
&form;
}

{
out <<EOF;
<form action="baseportal.pl?htx=$htx&cmd=login" method="post" enctype="multipart/form-data" target="_self">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="cmd=" value="login">
        
          <span class=news_font> Nick:  </span><input type="text" name="namerein=" size="8" class=form2  value=""><br>
          
              <span class=news_font>Pass: </span><input type="password" name="pwrein=" size="8" class=form2><br><br>
   <input type="submit" value="Login"  width="35"><br>

            </form>

EOF
}
</perl>