my ( $user, $userId, $sessionId, $groupId ) =
        &PBoard::User::GetDataFromCookie( $dbh, $cgi );