470 lines
11 KiB
PHP
470 lines
11 KiB
PHP
<?php
|
|
|
|
/*
|
|
+--------------------------------------------------------------------------
|
|
| Invision Power Board v1.3.1 Final
|
|
| ========================================
|
|
| by Matthew Mecham
|
|
| (c) 2001 - 2003 Invision Power Services
|
|
| http://www.invisionpower.com
|
|
| ========================================
|
|
| Web: http://www.invisionboard.com
|
|
| Time: Thu, 23 Sep 2004 23:05:01 GMT
|
|
| Release: 3cb325c445e1909182084806ae7f8226
|
|
| Email: matt@invisionpower.com
|
|
| Licence Info: http://www.invisionboard.com/?license
|
|
+---------------------------------------------------------------------------
|
|
|
|
|
| > Show online users
|
|
| > Module written by Matt Mecham
|
|
| > Date started: 12th March 2002
|
|
|
|
|
| > Module Version Number: 1.0.0
|
|
+--------------------------------------------------------------------------
|
|
*/
|
|
|
|
|
|
$idx = new Online;
|
|
|
|
class Online {
|
|
|
|
var $output = "";
|
|
var $page_title = "";
|
|
var $nav = array();
|
|
var $html = "";
|
|
var $first = 0;
|
|
var $perpage = 25;
|
|
|
|
var $forums = array();
|
|
var $cats = array();
|
|
var $sessions = array();
|
|
var $where = array();
|
|
|
|
var $seen_name = array();
|
|
|
|
|
|
|
|
function Online() {
|
|
global $ibforums, $DB, $std, $print;
|
|
|
|
// Are we allowed to see the online list?
|
|
|
|
$ibforums->input['st'] = intval($ibforums->input['st']);
|
|
|
|
if ( $ibforums->vars['allow_online_list'] != 1 )
|
|
{
|
|
$std->Error( array( 'LEVEL' => 1, 'MSG' => 'no_permission') );
|
|
}
|
|
|
|
|
|
if ($ibforums->input['CODE'] == "") $ibforums->input['CODE'] = 'listall';
|
|
|
|
//--------------------------------------------
|
|
// Require the HTML and language modules
|
|
//--------------------------------------------
|
|
|
|
$ibforums->lang = $std->load_words($ibforums->lang, 'lang_online', $ibforums->lang_id);
|
|
|
|
$this->html = $std->load_template('skin_online');
|
|
|
|
$this->base_url = $ibforums->base_url;
|
|
|
|
//--------------------------------------------
|
|
// Build up our language hash
|
|
//--------------------------------------------
|
|
|
|
foreach ($ibforums->lang as $k => $v) {
|
|
if ( preg_match( "/^WHERE_(\w+)$/", $k, $match ) ) {
|
|
$this->where[ $match[1] ] = $ibforums->lang[$k];
|
|
}
|
|
}
|
|
|
|
unset($match);
|
|
|
|
//--------------------------------------------
|
|
// What to do?
|
|
//--------------------------------------------
|
|
|
|
switch($ibforums->input['CODE']) {
|
|
case 'listall':
|
|
$this->list_all();
|
|
break;
|
|
case '02':
|
|
$this->list_forum();
|
|
break;
|
|
default:
|
|
$this->list_all();
|
|
break;
|
|
}
|
|
|
|
// If we have any HTML to print, do so...
|
|
|
|
$print->add_output("$this->output");
|
|
$print->do_output( array( 'TITLE' => $this->page_title, 'JS' => 0, NAV => $this->nav ) );
|
|
|
|
}
|
|
|
|
|
|
/*****************************************************/
|
|
// list_all
|
|
// ------------------
|
|
// List all online users
|
|
/*****************************************************/
|
|
|
|
function list_all() {
|
|
global $ibforums, $DB, $std;
|
|
|
|
$this->first = 0;
|
|
|
|
if (!empty($ibforums->input['st']))
|
|
{
|
|
$this->first = $ibforums->input['st'];
|
|
}
|
|
|
|
$show_mem = array( 'reg', 'guest', 'all' );
|
|
$sort_order = array( 'desc', 'asc' );
|
|
$sort_key = array( 'click', 'name' );
|
|
|
|
$show_mem_value = $ibforums->input['show_mem'] ? $ibforums->input['show_mem'] : 'all';
|
|
$sort_order_value = $ibforums->input['sort_order'] ? $ibforums->input['sort_order'] : 'desc';
|
|
$sort_key_value = $ibforums->input['sort_key'] ? $ibforums->input['sort_key'] : 'click';
|
|
|
|
$show_mem_html = "";
|
|
$sort_order_html = "";
|
|
$sort_key_html = "";
|
|
|
|
$oo = "<option ";
|
|
$oc = "</option>\n";
|
|
|
|
foreach( $show_mem as $k )
|
|
{
|
|
$s = "";
|
|
|
|
if ( $show_mem_value == $k )
|
|
{
|
|
$s = ' selected="selected" ';
|
|
}
|
|
|
|
$show_mem_html .= $oo.'value="'.$k.'"'.$s.'>'.$ibforums->lang['s_show_mem_'.$k].$oc;
|
|
}
|
|
|
|
foreach( $sort_order as $k )
|
|
{
|
|
$s = "";
|
|
|
|
if ( $sort_order_value == $k )
|
|
{
|
|
$s = ' selected="selected" ';
|
|
}
|
|
|
|
$sort_order_html .= $oo.'value="'.$k.'"'.$s.'>'.$ibforums->lang['s_sort_order_'.$k].$oc;
|
|
}
|
|
|
|
foreach( $sort_key as $k )
|
|
{
|
|
$s = "";
|
|
|
|
if ( $sort_key_value == $k )
|
|
{
|
|
$s = ' selected="selected" ';
|
|
}
|
|
|
|
$sort_key_html .= $oo.'value="'.$k.'"'.$s.'>'.$ibforums->lang['s_sort_key_'.$k].$oc;
|
|
}
|
|
|
|
$last_cat_id = -1;
|
|
|
|
$DB->query("SELECT f.id, f.name, f.read_perms, f.password, c.id as cat_id, c.name as cat_name from ibf_forums f, ibf_categories c where c.id=f.category ORDER BY c.position, f.position");
|
|
|
|
|
|
while ( $i = $DB->fetch_row() )
|
|
{
|
|
if ($last_cat_id != $i['cat_id'])
|
|
{
|
|
// Print the category
|
|
|
|
$last_cat_id = $i['cat_id'];
|
|
|
|
$this->cats[ $i['cat_id'] ] = $this->cats['cat_name'];
|
|
|
|
}
|
|
|
|
$this->forums[ $i['id'] ] = array( 'name' => $i['name'],
|
|
'read_perms' => $i['read_perms'],
|
|
'password' => $i['password'],
|
|
);
|
|
|
|
}
|
|
|
|
$DB->free_result();
|
|
|
|
$cut_off = ($ibforums->vars['au_cutoff'] != "") ? $ibforums->vars['au_cutoff'] * 60 : 900;
|
|
|
|
$t_time = time() - $cut_off;
|
|
|
|
$db_order = $sort_order_value == 'asc' ? 'asc' : 'desc';
|
|
$db_key = $sort_key_value == 'click' ? 'running_time' : 'member_name';
|
|
|
|
switch ($show_mem_value)
|
|
{
|
|
case 'reg':
|
|
$db_mem = " AND (s.member_group <> {$ibforums->vars['guest_group']} OR s.id LIKE '%session' ) ";
|
|
break;
|
|
case 'guest':
|
|
$db_mem = " AND s.member_group = {$ibforums->vars['guest_group']} ";
|
|
break;
|
|
default:
|
|
$db_mem = "";
|
|
break;
|
|
}
|
|
|
|
$DB->query("SELECT COUNT(id) as total_sessions FROM ibf_sessions s WHERE login_type <> 1 AND running_time > $t_time".$db_mem);
|
|
$max = $DB->fetch_row();
|
|
|
|
$DB->free_result();
|
|
|
|
$links = $std->build_pagelinks( array( 'TOTAL_POSS' => $max['total_sessions'],
|
|
'PER_PAGE' => 25,
|
|
'CUR_ST_VAL' => $this->first,
|
|
'L_SINGLE' => "",
|
|
'L_MULTI' => $ibforums->lang['pages'],
|
|
'BASE_URL' => $this->base_url."&act=Online&CODE=listall&sort_key=$sort_key_value&sort_order=$sort_order_value&show_mem=$show_mem_value"
|
|
)
|
|
);
|
|
|
|
$this->output = $this->html->Page_header($links);
|
|
|
|
// Grab all the current sessions.
|
|
|
|
$final = array();
|
|
$tid_array = array();
|
|
|
|
$topics = array();
|
|
|
|
$DB->query("SELECT s.id, s.in_forum, s.in_topic, s.member_name, s.member_id, s.ip_address, s.running_time, s.location,
|
|
s.login_type, s.member_group, g.prefix, g.suffix
|
|
FROM ibf_sessions s, ibf_groups g
|
|
WHERE s.running_time > $t_time AND s.member_group=g.g_id $db_mem ORDER BY $db_key $db_order LIMIT ".$this->first.",25");
|
|
|
|
while( $r = $DB->fetch_row() )
|
|
{
|
|
$final[] = $r;
|
|
|
|
if ($r['in_topic'] != "")
|
|
{
|
|
$tid_array[] = $r['in_topic'];
|
|
}
|
|
}
|
|
|
|
if ( count($tid_array) > 0 )
|
|
{
|
|
$tid_string = implode( ",", $tid_array );
|
|
|
|
$DB->query("SELECT tid, title FROM ibf_topics WHERE tid IN ($tid_string)");
|
|
|
|
while ( $t = $DB->fetch_row() )
|
|
{
|
|
$topics[ $t['tid'] ] = $t['title'];
|
|
}
|
|
}
|
|
|
|
|
|
foreach( $final as $idx => $sess )
|
|
{
|
|
|
|
//----------------------------------------------------
|
|
// Is this a member, and have we seen them before?
|
|
// Proxy servers, etc can confuse the session handler,
|
|
// creating duplicate session IDs for the same user when
|
|
// their IP address changes.
|
|
//----------------------------------------------------
|
|
|
|
$inv = '';
|
|
|
|
if ( strstr( $sess['id'], '_session' ) )
|
|
{
|
|
$sess['is_bot'] = 1;
|
|
|
|
if ( $ibforums->vars['spider_anon'] )
|
|
{
|
|
if ( $ibforums->member['mgroup'] == $ibforums->vars['admin_group'] )
|
|
{
|
|
$inv = '*';
|
|
}
|
|
else
|
|
{
|
|
continue;
|
|
}
|
|
}
|
|
}
|
|
else if ($sess['login_type'] == 1)
|
|
{
|
|
if ( ($ibforums->member['mgroup'] == $ibforums->vars['admin_group']) and ($ibforums->vars['disable_admin_anon'] != 1) )
|
|
{
|
|
$inv = '*';
|
|
}
|
|
else
|
|
{
|
|
continue;
|
|
}
|
|
}
|
|
|
|
//----------------------------------------------------
|
|
// ICheck for dupes
|
|
//----------------------------------------------------
|
|
|
|
if (! empty($sess['member_name']) )
|
|
{
|
|
if (isset($this->seen_name[ $sess['member_name'] ]) )
|
|
{
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
$this->seen_name[ $sess['member_name'] ] = 1;
|
|
}
|
|
}
|
|
|
|
//----------------------------------------------------
|
|
// Figure out location
|
|
//----------------------------------------------------
|
|
|
|
if (isset($sess['location']))
|
|
{
|
|
|
|
$line = "";
|
|
|
|
list($act, $pid) = explode( ",", $sess['location'] );
|
|
$fid = $sess['in_forum'];
|
|
$tid = $sess['in_topic'];
|
|
|
|
if (isset($act))
|
|
{
|
|
$line = isset($this->where[ $act ]) ? $this->where[ $act ] : $ibforums->lang['board_index'];
|
|
|
|
}
|
|
|
|
|
|
if ($fid != "" and ($act == 'SF' or $act == 'ST' or $act == 'Post'))
|
|
{
|
|
$pass = 0;
|
|
|
|
if ( $std->check_perms($this->forums[ $fid ]['read_perms']) == TRUE)
|
|
{
|
|
$pass = 1;
|
|
}
|
|
|
|
if ($pass == 1)
|
|
{
|
|
// Check cookie (monster)
|
|
|
|
if ($this->forums[ $fid ]['password'] != "")
|
|
{
|
|
if ( ! $c_pass = $std->my_getcookie('iBForum'.$fid) )
|
|
{
|
|
$pass = 0;
|
|
}
|
|
|
|
if ( $c_pass == $this->forums[ $fid ]['password'] )
|
|
{
|
|
$pass = 1;
|
|
}
|
|
else
|
|
{
|
|
$pass = 0;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$pass = 1;
|
|
}
|
|
}
|
|
|
|
if ($pass == 1)
|
|
{
|
|
if ( ($tid > 0) and ($act != 'Post') )
|
|
{
|
|
$line .= " <a href='{$this->base_url}&act=ST&f=$fid&t=$tid'>{$topics[$tid]}</a>";
|
|
}
|
|
else
|
|
{
|
|
$line .= " <a href='{$this->base_url}&act=SF&f=$fid'>{$this->forums[ $fid ]['name']}</a>";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$line = " {$ibforums->lang['board_index']}";
|
|
}
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
$line .= " {$ibforums->lang['board_index']}";
|
|
}
|
|
|
|
|
|
$sess['where_line'] = $line;
|
|
|
|
if ( ($ibforums->member['mgroup'] == $ibforums->vars['admin_group']) and ($ibforums->vars['disable_online_ip'] != 1) )
|
|
{
|
|
$sess['ip_address'] = " ( ".$sess['ip_address']." )";
|
|
}
|
|
else
|
|
{
|
|
$sess['ip_address'] = "";
|
|
}
|
|
|
|
if ( ($sess['member_id']) )
|
|
{
|
|
$sess['member_name'] = "<a href='{$this->base_url}showuser={$sess['member_id']}'>{$sess['prefix']}{$sess['member_name']}{$sess['suffix']}</a>$inv {$sess['ip_address']}";
|
|
}
|
|
|
|
$sess['running_time'] = $std->get_date( $sess['running_time'], 'LONG' );
|
|
|
|
$this->output .= $this->do_html_row($sess);
|
|
|
|
}
|
|
|
|
$this->output .= $this->html->Page_end($show_mem_html, $sort_order_html, $sort_key_html, $links);
|
|
|
|
$this->page_title = $ibforums->lang['page_title'];
|
|
$this->nav = array( $ibforums->lang['page_title']);
|
|
|
|
}
|
|
|
|
function do_html_row($sess) {
|
|
global $ibforums;
|
|
|
|
if ($sess['member_name'] and $sess['member_id'])
|
|
{
|
|
$sess['msg_icon'] = "<a href='{$this->base_url}act=Msg&CODE=04&MID={$sess['member_id']}'><{P_MSG}></a>";
|
|
}
|
|
else
|
|
{
|
|
if ( ! $sess['is_bot'] )
|
|
{
|
|
$sess['member_name'] = $sess['prefix'].$ibforums->lang['guest'].$sess['suffix']." ".$sess['ip_address'];
|
|
$sess['msg_icon'] = ' ';
|
|
}
|
|
else
|
|
{
|
|
$sess['member_name'] .= ' '.$sess['ip_address'];
|
|
}
|
|
}
|
|
|
|
return $this->html->show_row($sess);
|
|
}
|
|
|
|
|
|
function list_forum() { }
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
?>
|