sub checksession { 
    my %cookie=(); 
    foreach (split(/; /, $ENV{'HTTP_COOKIE'})) { 
        $_=~s/\+/ /g; 
        my ($chip, $val) = split(/=/,$_,2); 
        $chip =~ s/%([A-Fa-f0-9]{2})/pack('c',hex($1))/ge; 
        $val =~ s/%([A-Fa-f0-9]{2})/pack('c',hex($1))/ge; 
        $cookie{$chip} = $val; 
    } 

    my $sessionid=''; 
    $sessionid=$cookie{'sessionid'} if (exists $cookie{'sessionid'}); 
    if ($sessionid ne '') { 
        $sth=$db->prepare("SELECT * FROM user,access WHERE sessionid=\"$sessionid\" AND user.rubrik=access.rubrik AND stat=1"); 
        $sth->execute; 
        if ($rw=$sth->fetchrow_hashref) { 
            %user=%$rw; 
            $sth->finish; 
            return; 
        } 
        $sth->finish; 
    } 
    $sth=$db->prepare("SELECT * FROM user,access WHERE username=\"\" AND user.rubrik=access.rubrik AND stat=1"); 
    $sth->execute; 
    if ($rw=$sth->fetchrow_hashref) { 
        %user=%$rw; 
    } else { 
        %user=('username'=>''); 
    } 
    $sth->finish; 
}