Extension:CurrentUsers

<?php

1. *** If you're running MediaWiki 1.12.0 or Higher, please download the link below instead. ***
2. - http://www.organicdesign.co.nz/Extension:CurrentUsers.php/1.12

1. Extension:CurrentUsers

These are the MediaWiki extensions we're using and/or developing. Please refer to the information on the mediawiki.org wiki for installation and usage details. Extensions here which have no corresponding mediawiki article are either not ready for use or have been superseded. You can also browse our extension code in our local Subversion repository or our GitHub mirror.

1. - Licenced under LGPL (http://www.gnu.org/copyleft/lesser.html)
2. - Author: User:NadCategory:Extensions created with Template:Extension
3. - Started: 2007-07-25

if (!defined('MEDIAWIKI')) die('Not an entry point.');

define('CURRENTUSERS_VERSION','1.0.2, 2007-07-26');

$wgCurrentUsersMagic = 'currentusers'; $wgCurrentUsersTemplate = 'CurrentUsers'; $wgCurrentUsersTimeout = 60;

$wgExtensionFunctions[] = 'wfSetupCurrentUsers'; $wgHooks['LanguageGetMagic'][] = 'wfCurrentUsersLanguageGetMagic';

$wgExtensionCredits['parserhook'][] = array( 'name' => 'CurrentUsers', 'author' => 'User:Nad', 'description' => 'An example extension made with Template:Extension', 'url' => 'http://www.mediawiki.org/wiki/Extension:CurrentUsers', 'version' => CURRENTUSERS_VERSION );

1. Called from $wgExtensionFunctions array when initialising extensions

function wfSetupCurrentUsers() { global $wgUser,$wgParser,$wgCurrentUsers,$wgCurrentUsersTimeout,$wgCurrentUsersMagic; $wgParser->setFunctionHook($wgCurrentUsersMagic,'wfCurrentUsersMagic'); if (strtolower($_REQUEST['title']) == 'robots.txt') $bot = 'bot'; else $bot = ; $file = dirname(__FILE__).'/CurrentUsers.txt'; $data = file($file); $h = strftime('%H'); $m = strftime('%M'); $now = $h*60+$m; $user = $wgUser->getUserPage()->getText(); $wgCurrentUsers = array("$h:$m:$user"); foreach ($data as $item) { list($h,$m,$u,$b) = split(':',trim($item)); $age = $now-$h*60-$m; if ($age < 0) $age += 1440; if ($u == $user && $b == 'bot') $bot = $b; if ($u != && $u != $user && $age < $wgCurrentUsersTimeout) $wgCurrentUsers[] = "$h:$m:$u:$b"; } $wgCurrentUsers[0] .= ":$bot"; file_put_contents($file,join("\n",$wgCurrentUsers)); }

1. Needed in MediaWiki >1.8.0 for magic word hooks to work properly

function wfCurrentUsersLanguageGetMagic(&$magicWords,$langCode = 0) { global $wgCurrentUsersMagic; $magicWords[$wgCurrentUsersMagic] = array(0,$wgCurrentUsersMagic); return true; }

function wfCurrentUsersMagic(&$parser) { global $wgCurrentUsers,$wgCurrentUsersTemplate; $parser->disableCache(); $users = ; $guests = 0; $bots = 0; foreach ($wgCurrentUsers as $item) { list($h,$m,$u,$b) = split(':',$item); if (User::isIP($u)) $b ? $bots++ : $guests++; else $users .= "{"."{"."$wgCurrentUsersTemplate|$h:$m|$u|}"."}\n"; } if ($guests) $users .= "{"."{"."$wgCurrentUsersTemplate|Guests||$guests}"."}\n"; if ($bots) $users .= "{"."{"."$wgCurrentUsersTemplate|Robots||$bots}"."}\n"; return $users; } ?>