myfriends online widget

[stardotstar]

I've scoured the net for something that at least provides some good code basis for a feature that does seem to have been discussed around the place.

With vBA CMPS we could have a portal block displaying which of our "friends" were online.

I have looked at all the myfriends widget options and they all centre on recent activity or blogs etc.

What I really would like, well what my members are asking for, is a portal block that lists, from the users online list only my friends who are online>

Is this difficult? I have tried a couple of attempts at the widget with code from some of the plugins but I'm getting nowhere.

Can the users online be filtered?

require_once(DIR . '/includes/functions_bigthree.php'); 

$activeusers = '';
if ((vB::$vbulletin->options['displayloggedin'] == 1 OR vB::$vbulletin->options['displayloggedin'] == 2 OR (vB::$vbulletin->options['displayloggedin'] > 2 AND vB::$vbulletin->userinfo['userid'])) AND !$show['search_engine'])
{
    $datecut = TIMENOW - vB::$vbulletin->options['cookietimeout'];
    $numbervisible = 0;
    $numberregistered = 0;
    $numberguest = 0;
    
    $hook_query_fields = $hook_query_joins = $hook_query_where = '';
    ($hook = vBulletinHook::fetch_hook('forumhome_loggedinuser_query')) ? eval($hook) : false;

    $forumusers = vB::$db->query_read_slave("
        SELECT
            user.username, (user.options & " . vB::$vbulletin->bf_misc_useroptions['invisible'] . ") AS invisible, user.usergroupid, user.lastvisit,
            session.userid, session.inforum, session.lastactivity, session.badlocation,
            IF(displaygroupid=0, user.usergroupid, displaygroupid) AS displaygroupid, infractiongroupid
            $hook_query_fields
        FROM " . TABLE_PREFIX . "session AS session
        LEFT JOIN " . TABLE_PREFIX . "user AS user ON(user.userid = session.userid)
        $hook_query_joins
        WHERE session.lastactivity > $datecut
            $hook_query_where
        " . iif(vB::$vbulletin->options['displayloggedin'] == 1 OR vB::$vbulletin->options['displayloggedin'] == 3, "ORDER BY username ASC") . "
    ");

    if (vB::$vbulletin->userinfo['userid'])
    {
        // fakes the user being online for an initial page view of index.php
        vB::$vbulletin->userinfo['joingroupid'] = iif(vB::$vbulletin->userinfo['displaygroupid'], vB::$vbulletin->userinfo['displaygroupid'], vB::$vbulletin->userinfo['usergroupid']);
        $userinfos = array
        (
            vB::$vbulletin->userinfo['userid'] => array
            (
                'userid'            =>& vB::$vbulletin->userinfo['userid'],
                'username'          =>& vB::$vbulletin->userinfo['username'],
                'invisible'         =>& vB::$vbulletin->userinfo['invisible'],
                'inforum'           => 0,
                'lastactivity'      => TIMENOW,
                'lastvisit'         =>& vB::$vbulletin->userinfo['lastvisit'],
                'usergroupid'       =>& vB::$vbulletin->userinfo['usergroupid'],
                'displaygroupid'    =>& vB::$vbulletin->userinfo['displaygroupid'],
                'infractiongroupid' =>& vB::$vbulletin->userinfo['infractiongroupid'],
            )
        );
    }
    else
    {
        $userinfos = array();
    }
    $inforum = array();

    while ($loggedin = vB::$db->fetch_array($forumusers))
    {
        $userid = $loggedin['userid'];
        if (!$userid)
        {    // Guest
            $numberguest++;
            if (!isset($inforum["$loggedin[inforum]"]))
            {
                $inforum["$loggedin[inforum]"] = 0;
            }
            if (!$loggedin['badlocation'])
            {
                $inforum["$loggedin[inforum]"]++;
            }
        }
        else if (empty($userinfos["$userid"]) OR ($userinfos["$userid"]['lastactivity'] < $loggedin['lastactivity']))
        {
            $userinfos["$userid"] = $loggedin;
        }
    }

    if (!vB::$vbulletin->userinfo['userid'] AND $numberguest == 0)
    {
        $numberguest++;
    }

    $activeusers = array();
    foreach ($userinfos AS $userid => $loggedin)
    {
        $numberregistered++;
        if ($userid != vB::$vbulletin->userinfo['userid'] AND !$loggedin['badlocation'])
        {
            if (!isset($inforum["$loggedin[inforum]"]))
            {
                $inforum["$loggedin[inforum]"] = 0;
            }
            $inforum["$loggedin[inforum]"]++;
        }

        fetch_musername($loggedin);
        $loggedin['comma'] = ',';

        if (fetch_online_status($loggedin))
        {
            $numbervisible++;
            $activeusers[$numbervisible] = $loggedin;
        }
    }
    
    // Last element
    if ($numbervisible) 
    {
        $activeusers[$numbervisible]['comma'] = '';
    }

    // memory saving
    unset($userinfos, $loggedin);

    vB::$db->free_result($forumusers);

    $totalonline = $numberregistered + $numberguest;
    $numberinvisible = $numberregistered - $numbervisible;
     
    vB::$vbulletin->datastore->fetch(array('maxloggedin'));
    if (vB::$vbulletin->maxloggedin === NULL)
    {
        vB::$vbulletin->maxloggedin = array();
    }
    if (intval(vB::$vbulletin->maxloggedin['maxonline']) <= $totalonline)
    {
        vB::$vbulletin->maxloggedin['maxonline'] = $totalonline;
        vB::$vbulletin->maxloggedin['maxonlinedate'] = TIMENOW;
        build_datastore('maxloggedin', serialize(vB::$vbulletin->maxloggedin), 1);
    }

    $recordusers = vb_number_format(vB::$vbulletin->maxloggedin['maxonline']);
    $recorddate = vbdate(vB::$vbulletin->options['dateformat'], vB::$vbulletin->maxloggedin['maxonlinedate'], true);
    $recordtime = vbdate(vB::$vbulletin->options['timeformat'], vB::$vbulletin->maxloggedin['maxonlinedate']);

    $show['loggedinusers'] = true;
    
    $statsarray = array('onlinestats' => $onlinestats,
    'totalonline' => $totalonline,
    'numberregistered' => $numberregistered,
    'numberguest' => $numberguest,
    'show'    => $show,
    'recordusers'  => $recordusers,
    'recorddate'  => $recorddate,
    'recordtime'  => $recordtime,
    'activeusers'=> $activeusers,
    );
    
    vB_Template::preRegister('vbcms_widget_execphp_activeusers', $statsarray); 
}

Very interested in any ideas or suggestions on what would be a very well adopted CMS widget if it could be built.

W