source: extensions/whois_online/online.php @ 5427

Last change on this file since 5427 was 3695, checked in by vdigital, 15 years ago

Minor release: 2009-07-28 2.0.j

Minor changes in Config management
Additionnal flags (Ireland, Armenia, Estonia, Kazakhstan, Belarus,
Andorra, Turkey, Albania, Bosnia and Herzegovina, Azerbaijan, Iceland, European Union,
Israel, Morocco, New Caledonia and some other revised)
Search Engine trapping
  • Property svn:eol-style set to LF
  • Property svn:keywords set to Author Date Id Revision
File size: 22.7 KB
Line 
1<?php
2
3if (!defined('PHPWG_ROOT_PATH')) die('Hacking attempt!');
4global $conf, $conf_whois, $prefixeTable;
5include_once(WHOIS_ONLINE_PATH.'include/wo_functions.inc.php');
6/* Secure Config */
7if (!isset($conf_whois['Active'])) $conf_whois = whois_online_conf();
8
9function whois_online_conf()
10{
11        global $conf;
12        $default = array(
13          'Active' => true,
14          'Delete level' => 20,
15          'Radar limit' => 25,
16          'Webmasters' => 2, // Normal
17          'Administrators' => 2,
18          'Obsolete limit' => 20,
19                'Default display' => true,
20          'Add to Plugins menu' => false,
21          'Add icon to History' => true,
22          'Keep data' => true,
23          'Search id' => 0,
24          'Users' => Array('max' => 0, 'When' => date('Y-m-d'), 'count' => 0),
25        );
26        $conf_whois = array_merge($default, unserialize($conf['Whois Online']));
27        if ((!isset($conf_whois['Version'])) or $conf_whois['Version'] != WHOIS_ONLINE_VER
28                or $conf['Whois Online'] != serialize($conf_whois)) {
29                $conf_whois['Version'] = WHOIS_ONLINE_VER;
30                $conf['Whois Online'] = serialize($conf_whois);
31                pwg_query('REPLACE INTO ' . CONFIG_TABLE . " (param,value,comment)
32          VALUES ('Whois Online','". $conf['Whois Online'] ."','Whois Online configuration');");
33        }
34        return $conf_whois;
35}
36
37define('ONLINE_LEVEL', (100+$conf_whois['Delete level'])/100);
38define('ONLINE_LIMIT', $conf_whois['Obsolete limit']);
39
40/* Admin menus are always available */
41add_event_handler('get_admin_plugin_menu_links', 'whois_add_icon' );
42/* On Active */
43if ($conf_whois['Active']) {
44        $conf['Whois Online Update'] = true;
45        add_event_handler('loc_begin_picture', 'whois_online_management');
46        add_event_handler('loc_begin_index', 'whois_online_management');
47        add_event_handler('register_user', 'whois_online_register');
48        if ($conf_whois['Default display'] or (defined('IN_ADMIN') and IN_ADMIN)) add_event_handler('loc_begin_page_tail', 'whois_default_display' );
49}
50
51
52
53
54// Assume the Default display on pages
55function whois_default_display() {
56        global $template;
57        $template->set_filenames(array( 'Whois_display' => dirname(__FILE__).'/default.tpl'));
58        $template->pparse('Whois_display');
59}
60
61// Add admin links
62function whois_add_icon($menu) {
63        global $conf_whois, $lang;
64        if ($conf_whois['Add icon to History'])
65                $lang['History'] .= '</a> <a class="external" href="' . get_admin_plugin_menu_link(WHOIS_ONLINE_PATH.'config.php') . '">
66                        <img class="button" src="' . WHOIS_ONLINE_PATH . 'icons/Whois_tuner.gif" alt="Whois Online configuration" title="Whois Online configuration" /></a>';
67        if ($conf_whois['Add to Plugins menu']) array_push($menu, array(
68                                'NAME' => 'Whois Online',
69                                'URL' => get_admin_plugin_menu_link(WHOIS_ONLINE_PATH.'config.php'),
70                        ));
71        return $menu;
72}
73
74// Template function
75function Whois_most($text, $count, $when, $format) {
76 return sprintf(l10n($text),$count,date(l10n($format),$when));
77}
78
79// New member
80function whois_online_register($who) {
81        global $conf, $conf_whois;
82        $conf_whois['Users']['count'] = $who['id'];
83        $conf['Whois Online'] = serialize($conf_whois);
84        pwg_query('REPLACE INTO ' . CONFIG_TABLE . " (param,value,comment)
85  VALUES ('Whois Online','". $conf['Whois Online'] ."','Whois Online configuration');");
86        return;
87}
88
89function whois_country($trace, $bypass = false) {
90  if (!isset($trace['country'])) {
91                        pwg_query('ALTER TABLE ' . WHOIS_ONLINE_TABLE . ' ADD `country` VARCHAR( 256 ) NOT NULL AFTER `lang` ;');
92                        $trace['country']='';
93        }
94        $c = array();
95        if ($trace['country']!='') $c = @unserialize(htmlspecialchars_decode($trace['country']));
96        if (isset($c['Code']) and $c['Code']!='' and $c['Code']!='__') return $c; 
97        if ($bypass and isset($c['Code']) and $c['Code']=='__') return $c;
98  $f = @fopen ('http://api.hostip.info/get_html.php?ip=' . $trace['IP'], 'r');
99        if ($f === FALSE) return Array('Code' => '__', 'Name' => l10n('Unknown country'), 'City' => 'N/A',);
100        $result='';
101        while ($l = fgets ($f, 1024)) $result .= $l;
102        fclose ($f);
103        $tokens = split ("[:\n]", $result);
104        $c = array ('Name' => $tokens[1], 'City' => $tokens[3]);
105        if (strpos ($c['Name'], '?') === FALSE) {
106                $tokens = split ("[\(\)]", $c['Name']);
107                $c['Code'] = isset($tokens[1]) ? $tokens[1]:'__';
108                $c['Name'] = ucwords ( strtolower( ereg_replace
109                        (' \([^\)]+)', '', $c['Name'])));
110        }
111        else $c = Array('Code' => '__', 'Name' => l10n('Unknown country'), 'City' => 'N/A',);
112        if ($c['Code'] == 'Private Address') {
113                $c['Name'] = l10n('Private Address');
114                $c['City'] = l10n('N/A');
115                $c['Code'] = '__';
116        }
117        $new = htmlspecialchars(serialize($c),ENT_QUOTES,'UTF-8');
118        if ($new == $trace['country']) return $c;
119        pwg_query('UPDATE ' . WHOIS_ONLINE_TABLE . '
120      SET `country` = \'' . $new . '\'
121    WHERE `session_id` = \'' . $trace['session_id'] . '\';');
122  return $c;
123}
124
125function whois_flag($trace, &$step, $limit = 10) {
126  $flag = WHOIS_ONLINE_PATH . 'flags/' . $trace['Country']['Code'] . '.jpg';
127        if (file_exists($flag)) return $flag;
128        if ( $step > $limit ) return WHOIS_ONLINE_PATH . 'flags/__.jpg';
129        $f = fopen ('http://api.hostip.info/flag.php?ip=' . $trace['IP'], 'r');
130        $result='';
131        while ($l = fgets ($f, 1024)) $result .= $l;
132        fclose ($f);
133        $f = fopen($flag,"w+");
134        fputs($f,$result);
135        fclose($f);
136  return $flag;
137}
138
139// Read all data
140function whois_online_get_data($order='') {
141        $remove = "''"; // Nothing to remove ( = an empty session_id)
142        $ctr = 0; $Online[0] = '';
143        $result = pwg_query('SELECT * FROM ' . WHOIS_ONLINE_TABLE . $order . ';');
144        while($row=mysql_fetch_array($result)) {
145                $row['delay'] = (int) time() - $row['last_access'];
146                $row['elm_ids'] = explode(' ', $row['last_elm_ids']);
147                $row['cat_ids'] = explode(' ', $row['last_cat_ids']);
148                $row['tag_ids'] = explode(' ', $row['last_tag_ids']);
149                $row['sch_ids'] = explode(' ', $row['last_sch_ids']);
150                $row['dates'] = explode(' ', $row['last_dates']);
151                $ctr++;
152                if ( $row['IP'] != 'global' and $row['permanent'] == 'false'
153                        and $row['delay'] > (float)( 60 * 60 * 24 * 3 )) $remove .= ", '" . $row['session_id'] . "'";
154                elseif ($row['IP'] == 'global') $Online[0] = $row;
155                else $Online[] = $row;
156        }
157        // Out of 7 visits: Reduce registered visits for 3 days without access
158        if ($remove != "''" and $ctr > (count($Online) * ONLINE_LEVEL)
159                and ($ctr-count($Online)) > ONLINE_LIMIT and ($Online[0]['pag_hits']%7)==0) {
160                pwg_query('DELETE FROM ' . WHOIS_ONLINE_TABLE . ' WHERE `session_id` IN ('. $remove .')
161                                AND `permanent` = \'false\' AND `IP` <> \'global\';');
162                if (($Online[0]['pag_hits']%13)==0) @pwg_query('OPTIMIZE TABLE ' . WHOIS_ONLINE_TABLE . ';');
163        }
164        return $Online;
165}
166
167// Update global and update/create current session_id
168function whois_online_update(&$global, &$dedicated, &$gtrace)
169{
170        global $lang_info;
171        // Rewrite the global record
172        if ( $gtrace == 2 ) {
173                $query = 'REPLACE INTO ' . WHOIS_ONLINE_TABLE . ' (`IP`, `hidden_IP`, `session_id`,`user_id`,`username`,`lang`,
174                `permanent`,`last_access`,`last_elm_ids`, `last_cat_ids`, `last_tag_ids`, `last_sch_ids`,
175                `first_access_date`, `last_dates`, `elm_hits`, `pag_hits`)
176                        VALUES (\'global\', \'true\',\'global\', 0, \''. $global['username'] .'\', \'--\', \'true\', \''
177                        . time()  .'\',  \''
178                        . implode(' ',$global['elm_ids']) . '\', \''
179                        . implode(' ',$global['cat_ids']) . '\', \''
180                        . implode(' ',$global['tag_ids']) . '\', \''
181                        . implode(' ',$global['sch_ids']) . '\', \''
182                        . $global['first_access_date'] . '\', \'\', \''
183                        . $global['elm_hits'] . '\', \'' . $global['pag_hits'] . '\');';
184                pwg_query($query);
185        }
186        // Write or Rewrite the dedicated record
187        $query = 'REPLACE INTO ' . WHOIS_ONLINE_TABLE . ' (`IP`, `hidden_IP`, `session_id`,`user_id`,`username`,`lang`, `user_agent`,
188        `any_previous`, `same_previous`, `permanent`,`last_access`,`last_elm_ids`, `last_cat_ids`, `last_tag_ids`, `last_sch_ids`,
189        `first_access_date`, `last_dates`, `elm_hits`, `pag_hits`)
190                VALUES (\''. $dedicated['IP'] .'\', \''
191                . $dedicated['hidden_IP'] .'\', \''. $dedicated['session_id'] .'\', \''
192                . $dedicated['user_id'] .'\', \''. $dedicated['username'] .'\', \''
193                . substr($lang_info['code'],0,2) .'\', \''
194                . $dedicated['user_agent'] .'\', \''
195                . $dedicated['any_previous'] .'\', \''
196                . $dedicated['same_previous'] .'\', \''
197                . $dedicated['permanent'] . '\', \''. time() .'\',  \''
198                . implode(' ',$dedicated['elm_ids']) . '\', \''
199                . implode(' ',$dedicated['cat_ids']) . '\', \''
200                . implode(' ',$dedicated['tag_ids']) . '\', \''
201                . implode(' ',$dedicated['sch_ids']) . '\', \''
202                . $dedicated['first_access_date'] . '\', \''
203                . implode(' ',$dedicated['dates']) . '\', \''
204                . $dedicated['elm_hits'] . '\', \''
205                . $dedicated['pag_hits'] . '\');';
206        pwg_query($query);
207}
208
209// Data tracking
210// Parameters:
211//  - Array of Ids
212//  - New ID
213//  - Array of dates
214// => Add the ID if needed, Add Today if needed
215function whois_online_track(&$key, $id, &$date) {
216        if ($id != '') array_unshift($key, $id);
217        $key = array_unique($key);
218        if (count($key)>10) array_pop($key);
219        array_unshift($date, date('Y-m-d'));
220        $date = array_unique($date);
221        if (count($date)>5) array_pop($date);
222        return;
223}
224
225// Antiaspi delay conversion in seconds
226// delay in "HH:ii:ss" or "d :HH:ii:ss"
227// return delay in seconds
228function whois_online_duration($date_string)
229{
230 list($s, $i, $H, $d, $more) = 
231   array_merge(array_reverse(
232           explode(" ",str_ireplace(':',' ', $date_string))),
233                 array(0,0,0,0,0));
234 $t = time();
235 return strtotime(sprintf("+%s days %s hours %s minutes %s seconds", 
236   $d, $H, $i, $s), $t) - $t;
237}
238
239/*
240                Main process: Analyze, set new values and prepare displayed values.
241               
242                Update on parameter...
243*/
244function whois_online_management()
245{
246        global $user, $conf, $conf_whois, $template, $page, $lang, $lang_info;
247        load_language('plugin.lang', WHOIS_ONLINE_PATH);
248        srand((float)time());
249
250  pwg_debug('*********** start Online_management ***********');
251        if (!isset($conf_whois['Active'])) $conf_whois = whois_online_conf();
252
253        $online = whois_online_get_data();
254
255        $global = $online[0];
256        unset($online[0]);
257        $sid = session_id();
258       
259        // Step 1 - Find the User and/or IP/session_id
260        foreach ($online as $key => $record) {
261                // 1st case: Same IP and same member (Proxy guests are viewed as one)
262                if ($record['IP'] == $_SERVER['REMOTE_ADDR']
263                        and $record['username'] == $user['username'] ) {
264                                $visit = $record;
265                                $v = $key;
266                                break;
267                }
268                // 2nd case: Same session and user (No doubt)
269                if ($record['session_id'] == $sid
270                        and $record['username'] == $user['username'] ) {
271                                $visit = $record; // Maybe a guest
272                                if (!is_a_guest()) $visit['hidden_IP'] = 'true'; // Maybe Proxy or hidden IP
273                                //$visit['IP'] = $_SERVER['REMOTE_ADDR'];
274                                $v = $key;
275                                break;
276                }
277                // 3rd and last case: Same user_id
278                if ($record['user_id'] == $user['id'] and !is_a_guest()) { // new IP and new session
279                                $visit = $record;
280                                $visit['hidden_IP'] = 'true'; /* Or Generic user or the user is using several connections */
281                                //$visit['IP'] = $_SERVER['REMOTE_ADDR'];
282                                $v = $key;
283                                break;
284                }
285        }
286
287        // Step 2 - Assume a new comer
288        if ( !isset($visit) ) {
289                $visit = Array( 
290                        'IP' => $_SERVER['REMOTE_ADDR'], // First known IP (Is that one true?)
291                        'hidden_IP' => 'false', // supposed a fixed IP
292                        'session_id' => $sid,
293                        'user_id' => $user['id'],
294                        'username' => $user['username'],
295                        'delay' => 0,
296                        'lang' => substr($lang_info['code'],0,2),
297                        'permanent' => 'false', // False: delete after 72 Hours / True: delete after 90 days
298                        'last_access' => time(), // Last access by this user
299                        'elm_ids' => array_fill(0, 10, 0), // 10 last minutes + Last reference minute
300                        'cat_ids' => array_fill(0, 12, 0), // 12 ranges (of 5 minutes) + ref
301                        'tag_ids' => array_fill(0, 24, 0), // 24 hours + ref
302                        'sch_ids' => array_fill(0, 14, 0), // 14 days + ref
303                        'date' => date('Y-m-d'), // Futur usage
304                        'elm_hits' => 0, 'pag_hits' => 0, // elements hits and pages hits by this user
305                        'first_access_date' => date('Y-m-d'), // First access by this user
306                        'dates' => Array(), // 5 last access dates
307                );
308                $online[] = $visit;
309                $v = count($online);
310        }
311
312        // Step 3 - Monitor this access
313        $base = script_basename();
314        // Picture page
315        if (isset($page['image_id']) and $base == 'picture') {
316                whois_online_track($visit['elm_ids'], $page['image_id'],$visit['dates']);
317                if (isset($page['tags']))
318                whois_online_track($visit['tag_ids'], $page['image_id'],$visit['dates']);
319                if (isset($page['search']))
320                whois_online_track($visit['sch_ids'], $page['image_id'],$visit['dates']);
321                $visit['elm_hits']++;
322                $global['elm_hits']++;
323        }
324        // Category page
325        if (isset($page['category']['id']) and $base == 'index')
326                whois_online_track($visit['cat_ids'], $page['category']['id'],$visit['dates']);
327        // Page index
328        if (!isset($page['category']['id']) and !isset($page['image_id']))
329                whois_online_track($visit['cat_ids'], '' ,$visit['dates']);
330        $visit['pag_hits']++;
331        $global['pag_hits']++;
332
333        // Step 4 - Identify current range
334        $current = floor(time() / 60);                  // minutes for Unix time origin
335        $minute = $current % 10;                                                // (0-9) current minute
336        $five = floor($current / 5);    // (0-11) last 5 minutes range
337        $hour = floor($current / 60);   // (0-11) last hours
338        $day = floor($current / 1440); // (0-13) last days
339        if (isset($global['elm_ids'][10])) $old = $global['elm_ids'][10]; // previous minute (last one, or maybe 60 minutes ago or more).
340        else $old = $current; /* Only the first time or prevent wrong changes */
341
342        // Step 5 - Hits by range
343        if ($current != $old) {
344                $global['elm_ids'][11] = $global['elm_ids'][$minute];
345                $raz = min($current-$old, 10);
346        // 5.1 - $global['elm_ids'] ( hits by minute range )
347                for ($i=0;$i<$raz;$i++) {
348                        $global['elm_ids'][($minute+10-$i)%10] = 0;
349                }
350        // 5.2 - $global['cat_ids'] ( hits by 5 minutes range )
351                if (isset($global['cat_ids'][12])) $oldfive = $global['cat_ids'][12];
352                else $oldfive = floor($old / 5);
353                $raz = min($five - $oldfive, 12);
354                for ($i=0;$i<$raz;$i++) {
355                        $global['cat_ids'][($five+12-$i)%12] = 0; // Reset in backside
356                }
357        // 5.3 - $global['tag_ids'] (hits by hours )
358                if (count($global['tag_ids'])<25) $global['tag_ids'] = array_fill(0, 24, 0);
359                if (isset($global['tag_ids'][24])) $oldhour = $global['tag_ids'][24];
360                else $oldhour = floor($old / 60);
361                $raz = min($hour - $oldhour, 24);
362                for ($i=0;$i<$raz;$i++) {
363                        $global['tag_ids'][($hour+24-$i)%24] = 0; // Reset in backside
364                }
365        // 5.4 - $global['sch_ids'] ( hits by days )
366                if (isset($global['sch_ids'][14])) $oldday = $global['sch_ids'][14];
367                else $oldday = floor($old / 1440);
368                $raz = min($day - $oldday, 14);
369                for ($i=0;$i<$raz;$i++) {
370                        $global['sch_ids'][($day+14-$i)%14] = 0; // Reset in backside
371                }
372        }
373        $global['elm_ids'][$minute]++;
374        $global['cat_ids'][$five%12]++;
375        $global['tag_ids'][$hour%12]++;
376        $global['sch_ids'][$day%14]++;
377  // !!! WARNING  !!! WARNING !!! WARNING !!! WARNING !!!
378        $global['elm_ids'][10] = $current; // reference minute has changed
379        $global['cat_ids'][12] = $five;
380        $global['tag_ids'][24] = $hour;
381        $global['sch_ids'][14] = $day;
382  // !!! WARNING  !!! WARNING !!! WARNING !!! WARNING !!!
383
384        // 5.5 - Add in previous
385  if (!isset($global['any_previous'])) {
386                pwg_query('ALTER TABLE ' . WHOIS_ONLINE_TABLE . 
387                        ' ADD `same_previous` VARCHAR( 256 ) NOT NULL DEFAULT \'\'  AFTER `country`;');
388                pwg_query('ALTER TABLE ' . WHOIS_ONLINE_TABLE . 
389                        ' ADD `any_previous` VARCHAR( 256 ) NOT NULL DEFAULT \'\'  AFTER `country`;');
390                pwg_query('ALTER TABLE ' . WHOIS_ONLINE_TABLE . 
391                        ' ADD `user_agent` VARCHAR( 160 ) NOT NULL DEFAULT \'\'  AFTER `country`;');
392        }
393
394        $antiaspi = array(
395    'diff' => '20 pages in 00:00:10' , // Banned for 20 access in 10 seconds or less
396    'same' => '15 pages in 00:00:30' , // Banned for 15 access on the same page in 30 seconds or less
397    'banned during' => '23:59:59' ,    // Banned time hh:mm:ss or any valid MySQL datetime expression 'YYYY-MM-DD HH:MM:SS'
398    'only guest' => true ,             // True, registred members won't be banned
399    'only picture' => false ,          // True, Check only on picture pages
400    'allowed ip' => array()            // Allowed IP array (Bots, or your fixed IP)
401  );
402  if (isset($conf['antiaspi'])) $antiaspi = array_merge($antiaspi, $conf['antiaspi']);
403
404        // For AntiAspi follow ANY PREVIOUS access
405        $access = '0:';
406        list($max_any, $maxtext) = explode(' pages in ', $antiaspi['diff']);
407        $maxtime = whois_online_duration($maxtext);
408        $prev='';
409        $previous = (isset($visit['any_previous'])) ? explode(' ', $visit['any_previous']):Array();
410        foreach ($previous as $v) {
411                $old = explode(':', $v);
412                $old[0] += $visit['delay']; 
413                if ($old[0]<$maxtime) $prev .= $old[0].': ';
414        }
415        $prev = $access . ' ' . $prev;
416        $prev = substr($prev, 0, -2);
417        $visit['any_previous'] = $prev;
418        // For AntiAspi follow ANY SAME PICTURE access
419        $access = '0:';
420        $same_elem = (isset($page['image_id'])) ? $page['image_id']:'0';
421        list($max_same, $maxtext) = explode(' pages in ', $antiaspi['same']);
422        $maxtime = whois_online_duration($maxtext);
423        $access .= $same_elem . ':';
424        $prev='';
425        $previous = (isset($visit['same_previous'])) ? explode(' ', $visit['same_previous']):Array();
426        foreach ($previous as $v) {
427                $old = explode(':', $v);
428                $old[0] += $visit['delay'];
429                if ($old[0]<$maxtime and $old[1]==$same_elem) $prev .= $old[0].':'.$old[1].': ';
430        }
431        $prev = $access . ' ' . $prev;
432        $prev = substr($prev, 0, -2);
433        $visit['same_previous'] = $prev;
434       
435        // Check limits of $visit['any_previous'] and $visit['same_previous']
436        // by 256 characters
437        // by $max_any and by $max_same
438        while (strlen($visit['any_previous'])>256) {
439          $previous = explode(' ',$visit['any_previous']);
440                $oldest = array_pop($previous);
441                $visit['any_previous'] = implode(' ', $previous);
442        }
443        $ctr_any = count(explode(' ',$visit['any_previous']));
444        while (strlen($visit['same_previous'])>256) {
445          $previous = explode(' ',$visit['same_previous']);
446                $oldest = array_pop($previous);
447                $visit['same_previous'] = implode(' ', $previous);
448        }
449        $ctr_same = count(explode(' ',$visit['same_previous']));
450       
451        $visit['user_agent'] = $_SERVER['HTTP_USER_AGENT'];
452        $Vip =& $visit['IP'];
453        $visit['Allowed_SE'] = false;
454  if (!empty($antiaspi['allowed ip']))
455  {
456    $allowed_ips = str_replace(array('.', '%'), array('\.', '.*?'), $antiaspi['allowed ip']);
457    foreach ($allowed_ips as $ip)
458    {
459      if (preg_match("#" . $ip . "#", $Vip)) { $visit['Allowed_SE'] = true; break; }
460    }
461  }
462       
463        // Step 6 - Update (on Conf_Update and trace) and send trace to determine global tracing or not
464        $dtrace = 0;
465        if ($user['status'] == 'admin') $dtrace += $conf_whois['Administrators'];
466        elseif ($user['status'] == 'webmaster') $dtrace += $conf_whois['Webmasters'];
467        else $dtrace = 2;
468        if ($conf['Whois Online Update'] and $dtrace > 0) whois_online_update($global, $visit, $dtrace);
469
470        // Step 7 - Find your recent visits (These image_ids are presumely authorized)
471        $my_ids = $visit['elm_ids'];
472        sort($my_ids);
473        unset($my_ids[0]);
474        $url_visited = (count($my_ids)>0) ? make_index_url(array('list' => $my_ids)).'&amp;review':'';
475
476        // Step 8 - Guest count and Member list
477        $h24 = 0; $h1 = 0; $guest = 0;
478        $list = array();
479        $elm = array(); $excl = array(); // Get images_ids from all and from the current visitor
480        foreach ($online as $k => $monit)
481        {
482                if ($user['id']==$monit['user_id']) $excl = $monit['elm_ids'];
483                else $elm = array_merge($elm, $monit['elm_ids']);
484                if ($monit['delay'] <= (24*3600)) $h24++;
485                if ($monit['delay'] <= 3600) $h1++;
486                // Less than 5 minutes: users are considered as still online...
487                if ($monit['delay'] <= 300) {
488                        if ($monit['user_id'] == $conf['guest_id']) $guest++;
489                        else $list[] = $monit['username'];
490                }
491        }
492        // The first (and current) access are not recorded in $online
493        // As visitor you are not expecting your access to be already counted: Ok that the case
494        // but you are expecting to see you as a member in the member list if you are: and there it is
495        if ($visit['user_id'] != $conf['guest_id'] ) $list[] = $visit['username'];
496        $list = array_unique($list);
497       
498        if (count($list) > $conf_whois['Users']['max']) {
499                $conf_whois['Users']['max'] = count($list);
500                $conf_whois['Users']['When'] = time();
501                $conf['Whois Online'] = serialize($conf_whois);
502                pwg_query('REPLACE INTO ' . CONFIG_TABLE . " (param,value,comment)
503    VALUES ('Whois Online','". $conf['Whois Online'] ."','Whois Online configuration');");
504        }
505
506        // Step 9 - Review pictures viewed by others (all images except yours)
507        $elm = array_diff( array_unique($elm), $excl );
508        shuffle($elm);
509        $elm = array_slice($elm,0,($conf['top_number']+50));
510        sort($elm);
511        array_shift($elm);
512        $elm[] = 0; // Check if authorized pictures
513        $query = 'SELECT DISTINCT(image_id)
514  FROM '.IMAGE_CATEGORY_TABLE.'
515    INNER JOIN '.IMAGES_TABLE.' ON id = image_id
516  WHERE image_id IN ('.implode(',', $elm ).')
517    '.get_sql_condition_FandF(
518      array(
519          'forbidden_categories' => 'category_id',
520          'visible_categories' => 'category_id',
521          'visible_images' => 'id'
522        ), "\n  AND") . ';';
523        $ids = array_from_query($query, 'image_id');
524        shuffle($ids);
525        $ids = array_slice($ids, 0, $conf['top_number']); // Keep some
526        $url_someothers = (isset($ids[0])) ? make_index_url(array('list' => $ids)).'&amp;others':'';
527
528        // Random page title change
529        $url_type = pwg_get_session_var('whois_url_type', ''); /* previous review or others */
530        $list_ids = pwg_get_session_var('whois_list_ids', ''); /* previous list/xx,yy,zz, ... */
531        $list_section = (isset($page['section']) and $page['section'] == 'list') ? true:false;
532        $same_ids = (isset($page['list']) and $page['list'] == $list_ids) ? true:false;
533        if ($list_section and isset($_GET['review'])) {
534                $url_type = 'Whois_review';
535                $same_ids = true;
536        }
537        if ($list_section and isset($_GET['others'])) {
538                $url_type = 'Whois_others';
539                $same_ids = true;
540        }
541        if ($list_section and $same_ids and isset($page['list'])) $list_ids = $page['list'];
542        else $url_type = ''; // Not the same list
543        pwg_set_session_var('whois_list_ids', $list_ids);
544        pwg_set_session_var('whois_url_type', $url_type);
545        if ($url_type != '' and $list_section)
546  $page['title'] = '<a href="'.duplicate_index_url(array('start'=>0)).'">'
547                    .l10n($url_type).'</a>';
548
549       
550        // Step 10 - Prepare data to display
551        $yesterday = ($day+13) % 14;
552        $template->assign('Whois', array(
553                'Total' => $global['pag_hits'],
554                'Image' => $global['elm_hits'],
555                'Other' => ($global['pag_hits']-$global['elm_hits']),
556                'Current_minute' => $global['elm_ids'][$minute],
557                'Previous_minute' => $global['elm_ids'][($minute+9) % 10],
558                'Current_5mins' => $global['elm_ids'][$minute]
559                                                                        + $global['elm_ids'][($minute+9) % 10]
560                                                                        + $global['elm_ids'][($minute+8) % 10]
561                                                                        + $global['elm_ids'][($minute+7) % 10]
562                                                                        + $global['elm_ids'][($minute+6) % 10],
563                'Current_10mins' => array_sum(array_slice($global['elm_ids'],0,10)),
564                'Current_hour' => array_sum(array_slice($global['cat_ids'],0,12)),
565                'Current_24h' => array_sum(array_slice($global['tag_ids'],0,24)),
566                'Yesterday' => $global['sch_ids'][$yesterday],
567                'Users_Last_day' => $h24,
568                'Users_Last_hour' => $h1,
569                'Guests' => $guest,
570                'Online' => $list,
571                'Review_url' => $url_someothers,
572                'Their_ids' => $ids,
573                'Seen_url' => $url_visited,
574                'My_ids' => $my_ids,
575                'Slideshow' => isset($_GET['slideshow']) ? true:false,
576        ));
577        $template->assign('Online', $global );
578
579        pwg_debug('end Online_management');
580}
581?>
Note: See TracBrowser for help on using the repository browser.