<?php declare(strict_types=1);
namespace TotalCounter; #
if (!defined('PmWiki')) exit ();
const TOTALCOUNTERNAME = 'TotalCounter';
const TOTALCOUNTERV = '2024-10-25';
$RecipeInfo[TOTALCOUNTERNAME]['Version'] = TOTALCOUNTERV;
$FmtPV['$TotalCounterVersion'] = "'" . $RecipeInfo[TOTALCOUNTERNAME]['Version'] . "'"; // return version as a custom page variable
/*
statistic counter for PmWiki
copyright (c) 2005/2006 Yuri Giuntoli (www.giuntoli.com), 2007-2024 various contributors
This PHP script is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by the Free Software Foundation.
This PHP script is not part of the standard PmWiki distribution.
0.1 - 23.06.2005
First version, counts page views and total views.
0.2 - 20.11.2005
Added action=totalcounter which displays a page with statistics summary.
0.3 - 24.11.2005
Added logging of users, browsers, operating systems, referers and locations.
0.4 - 28.11.2005
Optimization of the detection routines.
Improved detection of the user.
Added logging of web bots.
0.5 - 02.12.2005
Added possibility to blacklist specific items from being logged.
Modified regex for better referer and location detection.
Added extended description of location in statistic summary.
0.6 - 14.12.2005
Added possibility to DNS lookup the location in case the server doesn't do it automatically.
Added detection of location when user is sitting behind a proxy server.
Added possibility to blacklist with regexes for pages, users, referers and locations.
Listed pages now are link to the actual page.
Added possibility to assign a password authorization level (edit, admin, etc).
1.0 - 21.12.2005
Corrected a bug when the page is the default page.
Corrected a bug which assigned a browser when pages were crawled by a web bot.
Optimization of array routines.
Public release.
1.1 - 03.01.2006
Fixed a bug when no bots are present yet.
Now users work with both UserAuth and AuthUser.
Added recognition for other popular web bots.
Added configuration of bars color in the statistics page.
Added numbers on items (configurable) in the statistics page.
1.1b - 05.01.2006
Fixed a bug with empty blacklist array.
Fixed an alignment problem in the statistics page.
Fixed a problem which treated Group/Page different from Group.Page.
Added version display in the statistics page.
1.1c - 17.01.2006
Fixed a problem with the markup to work with 2.1.beta20.
1.2 - 24.01.2006
Added links to profile pages for the users.
Reduced locking loop to 5 seconds.
1.3 - 30.01.2006
Suppressed the modification to $pagename, now uses internal variable.
Fixed a bug when remote location is in upper case.
Changed creation of lock directory to lock file, to prevent problems with some providers.
1.4 - 31.01.2006
Optimized the detection of the current page (using ResolvePageName).
Added statistic count of languages (when used with the MultiLanguage recipe).
1.4b - 20.02.2006
Added blacklist support for languages.
Some fixes about arrays.
1.5 - 07.03.2006
Added {$PageViews} page variable.
Fixed a problem when ResolvePageName function does not exist (earlier versions of PmWiki).
Fixed a problem with PHP version <4.3.
1.6 - 11.06.2006 Florian Xaver:
Added os: "DOS"
Added browser: "Arachne GPL"
Added browser: "Blazer"
Changed 'palmos' to 'palm'
Schlaefer: a daily page counter, a short input field to set the $TotalCounterMaxItems. Changes he mades have a ## comment.
1.7 - 26.07.2006 Florian Xaver:
Fixed bug, which resets counter. Now there should be no problems with slow servers anymore.
IMPORTANT: If you get errors on your server, please change creating and deleting
of the directory $lockfilename with creating and deleting of a file. This code
is commented.
1.8 - 2007-01-01 - Dave Carver
Added ($TotalCounterGEOIP) variable.
Added ($TotalCounterEnableGeoIp) - Set to 1 to use MaxMind's GEOIP Database
for country identification. Make sure to turn off Lookup (set to 0).
Added code to get Location by looking up GEOIP
Added code to hopefully fix resets of the file.
Added ignore_user_abort(true) to keep file from resetting.
Defaults to 'admin' level for viewing of stats.
Minor code refactoring to only open the file in write mode when action=browse
1.8a - 2007-01-21 - Florian Xaver
Improved/Fixed handling of userlanguage plug-in: (uses $userlang2 instead of $userlang)
Fixed handling of "File Downloads" (no "." at the filename)
1.9 - 2007-10-01 - Mateusz Czaplinski
Added time statistics (last day, last month,...).
Chmods can be disabled via configuration option.
1.9.1 - 2008-01-22 - Mateusz Czaplinski
A fix which tries to ensure that the site won't get locked up by TC's lockfile.
Added $TotalCounterFile & $TotalCounterLockfile configuration variables.
1.9.2 - 2010-02-08 - Peter Bowers
Tiny fix to allow Google Chrome browser to be identified correctly.
1.9.2 - 2014-10-04 php 5.3.3 Nigel
Incorporate Nigel's upgrade to replace deprecated eregi() function with preg_replace() to make it php5.3.3 compliant
1.9.3 - 2014-10-29 - Bianka Martinovic
Replaced two occurences of /e with Markup_e()
1.10.0 - 2014-11-12 - Simon
div with class totalcounter to allow styling; friendly names for counts; don't show LastYears of zero; add logfile; log unknowns; add more robots,
skip unknown OS if bot; skip unknown referer if bot; skip unknown location if bot; use smaller instead of small; right align percentage;
$TotalCounterEnableGeoIp default to 0; enable https referers; use $FmtPV for page variables; Add $TotalCounterEnableUsers; add OSes; use number_format ();
add $TotalCounterCountBots
1.11.0 - 2017-10-19 - Said Achmiz
Fixed blacklist logic; now it properly blacklists things/people. Also fixed $TotalCounterEnableUsers flag, it works now.
1.11.1 - 2017-10-20 - Said Achmiz
Fixed dumb bug.
1.12 - 2022-01-22 - Simon
quote defined constant to remove warning, add a few more domains, bots, and Edge browser,
use namespace, strict_types=1, use type hints, use PSFT to replace strftime, refactoring, fix location
1.13 - 2022-07-06 - Simon
add more bots, use Lock()
2024-10-25 Simon
Many updates for PHP 8.3 warnings and errors, removed use of eval, more use of Lock(), more lines displayed
See https://useragentstring.com/ and https://developers.whatismybrowser.com/useragents/explore/ to assist in identifying browser strings
See https://www.pmwiki.org/wiki/PmWiki/OtherVariables#FmtPV
*/
const NL = "\n";
const BR = '</br />' . NL;
const DATEFMT = 'DateFmt';
const GRAPHNAME ='GraphName';
const BARMAXWIDTH = 250; # px
const BARCELLWIDTH = '260px';
// These constants are cell or column names in the TotalCounter array. DO NOT change.
const PREVIOUSYEARS = 'LastYears';
#
\SDV($TotalCounterAction, 'totalcounter'); // ?action=totalcounter
\SDV($TotalCounterAuthLevel, 'admin');
\SDV($TotalCounterMaxItems, 30); // default 30
\SDV($TotalCounterEnableLookup, 0); // default 0
\SDV($TotalCounterBarColor, '#5af'); // default '#5af'
\SDV($TotalCounterCountBots, 0); // default 0
\SDV($TotalCounterShowNumbers, 1); // default 1
\SDV($TotalCounterEnableGeoIp, 0); // default 0
\SDV($TotalCounterGeoIPData, "$WorkDir/GeoIP.dat");
\SDV($TotalCounterEnableDownload, 0); //default 0
\SDV($TotalCounterDownloadManager, "$WorkDir/.download.manager");
\SDV($TotalCounterEnableChmods, 1); // default 1
\SDV($TotalCounterEnableUsers, 0); // default 0
\SDV($TotalCounterFile, "$WorkDir/totalcounter.stat");
\SDV($TotalCounterLockfile, "$WorkDir/totalcounter.lock");
\SDV($TotalCounterLogfile, "$WorkDir/totalcounter.log");
\SDV($TotalCounterEnableLog, 0); # default 0 (off), 1 (on, captures unknowns), 2 log server details (verbose)
/*##
\SDV($TotalCounterBrowsersUnset, ''); // used to remove individual totals from file, don't use this unless you know what you are doing
\SDV($TotalCounterOSesUnset, ''); // used to remove individual totals from file, don't use this unless you know what you are doing
\SDV($TotalCounterLocationsUnset, ''); // used to remove individual totals from file, don't use this unless you know what you are doing
\SDV($TotalCounterBotsUnset, ''); // used to remove individual totals from file, don't use this unless you know what you are doing
\SDV($TotalCounterReferersUnset, ''); // used to remove individual totals from file, don't use this unless you know what you are doing
##*/
\SDV($HTMLStylesFmt[TOTALCOUNTERNAME],
'.TCbar {background-color:$TotalCounterBarColor; min-height:13px; width:13px; color:#fff;}' .NL
. '.TCtxtr {text-align:right;}' .NL
. '.TCtxtl {text-align:left;}' .NL
. '.TCtxth {font-weight: bold;}' .NL
. '.TCprogress {margin-left:auto; margin-right:auto;}' . NL
. 'table.totalcounter td {font-size:x-small; text-align:left}' . NL);
\SDVA($TotalCounterMonthsShort,
array('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'));
\SDV($TotalCounterBlacklist['Pages'], array ());
\SDV($TotalCounterBlacklist['Users'], array ());
\SDV($TotalCounterBlacklist['Browsers'], array ());
\SDV($TotalCounterBlacklist['OSes'], array ());
\SDV($TotalCounterBlacklist['Referers'], array ());
\SDV($TotalCounterBlacklist['Locations'], array ());
\SDV($TotalCounterBlacklist['Bots'], array ());
\SDV($TotalCounterBlacklist['Languages'], array ());
## by MateuszCzaplinski
## last day, last week, ... - data & display descriptions
\SDVA($TotalCounterTimeBins, array(
'LastDay' => array( # LastDay = 24 hours; 1 hour = 60*60sec
GRAPHNAME=>'Last day (hours)', 'max'=>24, 'atom'=>60*60, //
DATEFMT => function($now, $atom, $maxnr, $nr) { return date("H:00", $now - $atom * ($maxnr - 1 - $nr)); }
# DATEFMT=> 'date("G",$now-$atom*($maxnr-1-$nr))'
),
'LastWeek' => array( # LastWeek = 7 days
GRAPHNAME=>'Last week', 'max'=>7, 'atom'=>24*60*60, //
DATEFMT => function($now, $atom, $maxnr, $nr) { return date("D", $now - $atom * ($maxnr - 1 - $nr)); }
# DATEFMT=> 'date("D",$now-$atom*($maxnr-1-$nr))'
),
'LastMonth' => array(
GRAPHNAME=>'Last month', 'max'=>31, 'atom'=>24*60*60, //
DATEFMT => function($now, $atom, $maxnr, $nr) { return date("j", $now - $atom * ($maxnr - 1 - $nr)); }
# DATEFMT=> 'date("j",$now-$atom*($maxnr-1-$nr))'
),
'LastYear' => array( # date('n') is the month of the year
GRAPHNAME=>'Last year', 'max'=>12, 'atom'=>'n', //
DATEFMT => function($now, $atom, $maxnr, $nr) use ($TotalCounterMonthsShort) {
return $TotalCounterMonthsShort[(12 + intval(date($atom, $now)) - $maxnr + $nr) % 12];
}
# DATEFMT=> '$TotalCounterMonthsShort[(12+intval(date("n",$now))-$maxnr+$nr)%12]'
),
PREVIOUSYEARS => array(
GRAPHNAME=>'Previous years', 'max'=>30, 'atom'=>'Y', //
DATEFMT => function($now, $atom, $maxnr, $nr) { return strval(intval(date($atom, $now)) - ($maxnr - 1 - $nr)); }
# DATEFMT=> 'intval(date("Y",$now))-($maxnr-1-$nr)'
)
));
\SDVA($HandleActions, array (
$TotalCounterAction => __NAMESPACE__ . '\HandleTotalCounter'
));
\SDVA($HandleAuth, array (
$TotalCounterAction => $TotalCounterAuthLevel
));
\SDV($TotalCounterDebug, false); # set default debug setting
# set debug flag
$totalcounter_debugon = boolval ($TotalCounterDebug); # if on writes input and output to web page
if ($totalcounter_debugon) {
tcmsg (__FILE__, $RecipeInfo[TOTALCOUNTERNAME]['Version'] . ' using "' . $WorkDir . '" with action=' . $action
. ', log=' . $TotalCounterEnableLog . ', IP lookup: '. $TotalCounterEnableLookup);
}
$TotalCounterLog = boolval ($TotalCounterEnableLog > 0);
global $TotalCounter;
if ($TotalCounterMaxItems <= 0)
$TotalCounterMaxItems = 1;
$statfilename = $TotalCounterFile;
$lockfilename = $TotalCounterLockfile;
$logfilename = $TotalCounterLogfile;
$psft = function_exists('\PSFT') ? '\PSFT' : 'strftime';
$logfiletime = $psft ("%Y-%m-%d %H:%M:%S ");
$geoIpFile = $TotalCounterGeoIPData;
// clear cached information about file
clearstatcache();
// script to carry on working after the user has cancelled request or browser session closed
ignore_user_abort(true);
//------------------------------------------------------------------------------------
if ($TotalCounterLog) {
$logfilehandle = fopen($logfilename, 'a'); # create or open logfile for appending
if ($logfilehandle === false) {
tcmsg ('fopen failed', $logfilename, error_get_last());
if ($totalcounter_debugon) \Abort ($MessagesFmt [TOTALCOUNTERNAME]);
}
}
if ($TotalCounterEnableLog == 2) { # write for every call, this can be very verbose
if (false === fwrite($logfilehandle, $logfiletime . 'UA: "' . $_SERVER['HTTP_USER_AGENT']
. '" Rf: "' . $_SERVER['HTTP_REFERER'] . '" URf: "' . $_SERVER['HTTP_USER_REFERER']
. '" XXF: "' . $_SERVER['HTTP_X_FORWARDED_FOR'] . '" Fw: "' . $_SERVER['HTTP_FORWARDED'] . '" XFH: "' . $_SERVER['HTTP_X_FORWARDED_HOST']
. '" RH: "' . $_SERVER['REMOTE_HOST'] . '" RA: "' . $_SERVER['REMOTE_ADDR']
. '"' . NL)) {
tcmsg ('fwrite failed', $logfilename, error_get_last());
if ($totalcounter_debugon) \Abort ($MessagesFmt [TOTALCOUNTERNAME]);
};
};
if (function_exists('\ResolvePageName')) {
$tc_pagename = \ResolvePageName($pagename);
} else {
$tc_pagename = str_replace('/', '.', $pagename); /* line changed by Chris Morison 9/3/06 */
} // end if
if (empty($tc_pagename))
$tc_pagename = 'Unknown'; #"$DefaultGroup.$DefaultName";
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// update counts from page being browsed
if ($action == 'browse') {
//find users
if (isset ($AuthId)) {
$tc_user = $AuthId;
} else {
if (isset ($Author)) {
$tc_user = $Author;
} else {
session_start();
if (isset ($_SESSION['authid'])) {
$tc_user = $_SESSION['authid'][0];
} else {
$tc_user = 'Guest (not authenticated)';
} // end isset $_SESSION
} // end if else isset $Author
} // end if else isset $AuthId
// find web bot https://developers.whatismybrowser.com/useragents/explore/, https://bigdata-madesimple.com/top-50-open-source-web-crawlers-for-data-mining/
Define ('NULLVALUE', '_nullvalue_');
$tc_bot = NULLVALUE;
$tc_browser = NULLVALUE;
if (empty($_SERVER['HTTP_USER_AGENT'])) { # it happens
if ($TotalCounterLog) {
\Lock(2); # acquire shared lock
$fwritestatus = fwrite($logfilehandle, $logfiletime . 'UA empty RH:"' . $_SERVER['REMOTE_HOST'] . '" action: ' . $action . '"' . NL);
\Lock(0); # release lock
if ($fwritestatus === false) {
tcmsg ('fwrite failed', $logfilename, error_get_last());
}
tcmsg ('HTTP_USER_AGENT', 'empty RH:"' . $_SERVER['REMOTE_HOST']
. '", RA:"' . $_SERVER['REMOTE_ADDR'] . '" action: ' . $action);
}
$tc_bot = 'User Agent empty';
}
elseif (preg_match('/ia_archiver/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Alexa'; // # https://support.alexa.com/hc/en-us/articles/200450194-Alexa-s-Web-and-Site-Audit-Crawlers
elseif (preg_match('/360Spider/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = '360Spider'; #
elseif (preg_match('/A6-Indexer/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'A6'; # http://www.a6corp.com/a6-web-scraping-policy/
elseif (preg_match('/Abonti/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Abonti'; # http://www.abonti.com
elseif (preg_match('/acebookexternalhit/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Facebook External hit'; # http://www.facebook.com/externalhit_uatext.php
elseif (preg_match('/Adsbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Adsbot'; # https://seostar.co/robot/
elseif (preg_match('/AhrefsBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Ahrefs'; # https://ahrefs.com/robot/
elseif (preg_match('/aiohttp/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'aiohttp'; # aiohttp
elseif (preg_match('/ALittle/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'ALittle Client'; # ALittle Client
elseif (preg_match('/AnyEvent/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'AnyEvent'; # http://software.schmorp.de/pkg/AnyEvent
elseif (preg_match('/AppEngine-Google/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'AppEngine-Google'; # http://code.google.com/appengine
elseif (preg_match('/applebot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Applebot'; # https://support.apple.com/en-us/HT204683
elseif (preg_match('/archive.org_bot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Web archive'; # https://webarchive.jira.com/wiki/display/ARIH/Robots+Exclusion+Protocol
elseif (preg_match('/AntBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Ant'; # http://www.ant.com
elseif (preg_match('/ask jeeves/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Ask Jeeves';
elseif (preg_match('/baiduspider/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Baidu'; // # http://www.baidu.com/search/spider.html
elseif (preg_match('/becomebot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Become';
elseif (preg_match('/bibalex.org_bot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Bibalex'; # http://archive.bibalex.org/bot/
elseif (preg_match('/bingbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Bing'; # http://www.bing.com/bingbot.htm
elseif (preg_match('/BLEXBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'WebMeUp'; # http://webmeup-crawler.com/
elseif (preg_match('/CATExplorador/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'CATExplorador'; # https://domini.cat/catexplorador/
elseif (preg_match('/CCBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Common Crawl'; # http://commoncrawl.org/faqs/
elseif (preg_match('/CensysInspect/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Censys Inspect'; # https://about.censys.io/
elseif (preg_match('/centuryb/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'centuryb'; # centuryb.o.t9[at]gmail.com
elseif (preg_match('/CheckMarkNetwork/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'CheckMark Network'; # http://www.checkmarknetwork.com/spider.html
elseif (preg_match('/Cincraw/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Cincraw'; # http://cincrawdata.net/bot/
elseif (preg_match('/coccocbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Coccocbot';# http://help.coccoc.com/searchengine
elseif (preg_match('/colly/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Colly'; # https://github.com/gocolly/colly/v2
elseif (preg_match('/Crawlbot\/Nutch/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Crawlbot/Nutch'; # https://nutch.apache.org/
elseif (preg_match('/Crawlson/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Crawlson';# https://www.crawlson.com/about
elseif (preg_match('/Dalvik/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Dalvik'; #
elseif (preg_match('/DataForSeoBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'DataForSeoBot'; # https://dataforseo.com/dataforseo-bot
elseif (preg_match('/Daum/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Daum'; # http://cs.daum.net/faq/15/4118.html?faqId=28966)
elseif (preg_match('/deepnoc/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Deepnoc'; # https://deepnoc.com/bot
elseif (preg_match('/Discordbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Discordbot'; # https://discordapp.com
elseif (preg_match('/DIVD/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'DIVD'; # https://csirt.divd.nl/
elseif (preg_match('/Domains Project/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Domains Project'; # https://domainsproject.org/
elseif (preg_match('/DomainStatsBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'DomainStatsBot';# https://domainstats.com/pages/our-bot
elseif (preg_match('/dotbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'DotBot'; # http://www.opensiteexplorer.org/dotbot
elseif (preg_match('/DuckDuckBot-http/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'DuckDuckBot'; # https://duckduckgo.com/duckduckbot
elseif (preg_match('/DuckDuckGo-Favicons-Bot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'DuckDuckGo-Favicons-Bot'; # http://duckduckgo.com
elseif (preg_match('/Dy robot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Dy robot'; #
elseif (preg_match('/EntferBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'EntferBot'; # https://entfer.com
elseif (preg_match('/exabot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Exalead';
elseif (preg_match('/Expanse/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Expanse'; # scaninfo@expanseinc.com
elseif (preg_match('/facebookexternalhit/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Facebook'; # http://www.facebook.com/externalhit_uatext.php
elseif (preg_match('/fast/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Fast/Alltheweb';
elseif (preg_match('/gigabot/i', $_SERVER['HTTP_USER_AGENT']) // http://www.gigablast.com/spider.html
|| preg_match('/GigablastOpenSource/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Gigablast'; # https://github.com/gigablast/open-source-search-engine
elseif (preg_match('/Go-http-client/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Go-http-client'; # Go-http-client
elseif (preg_match('/googlebot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Google'; # http://www.google.com/bot.html
elseif (preg_match('/Grammarly/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Grammarly'; # http://www.grammarly.com
elseif (preg_match('/hgfAlphaXCrawl/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'hgfAlphaXCrawl'; # https://www.fim.uni-passau.de/data-science/forschung/open-search
elseif (preg_match('/InfoTigerBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'InfoTigerBot'; # https://infotiger.com/bot
elseif (preg_match('/InternetMeasurement/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'InternetMeasurement'; # https://internet-measurement.com/
elseif (preg_match('/James BOT/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'CognitiveSEO'; # http://cognitiveseo.com/bot.html
elseif (preg_match('/libwww-perl/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Libwww-perl'; # libwww-perl
elseif (preg_match('/linkdexbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Linkdex'; # http://www.linkdex.com/bots/
elseif (preg_match('/linkfluence/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Linkfluence'; # https://linkfluence.com/
elseif (preg_match('/Mediapartners-Google/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Google'; # https://support.google.com/webmasters/answer/1061943?hl=en
elseif (preg_match('/AdsBot-Google/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Google'; //
elseif (preg_match('/grub-client/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Grub';
elseif (preg_match('/java/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Java';
elseif (preg_match('/libcurl/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'cURL';
elseif (preg_match('/curl/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'cURL';
elseif (preg_match('/slurp@inktomi.com/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Inktomi';
elseif (preg_match('/Keybot Translation-Search-Machine/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Keybot Translation-Search-Machine';
elseif (preg_match('/Knowledge AI/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Knowledge AI'; //
elseif (preg_match('/Linespider/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Linespider'; # https://lin.ee/4dwXkTH
elseif (preg_match('/ltx71/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'ltx71'; # http://ltx71.com/
elseif (preg_match('/Mail\.RU_Bot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'mail.ru'; # http://go.mail.ru/help/robots
elseif (preg_match('/marginalia/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'marginalia'; # https://search.marginalia.nu
elseif (preg_match('/meanpathbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'meanpath'; //
elseif (preg_match('/MJ12bot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Majestic'; # http://www.majestic12.co.uk/bot.php
elseif (preg_match('/MojeekBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'MojeekBot'; # https://www.mojeek.com/bot.html
elseif (preg_match('/msnbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'MSN';
elseif (preg_match('/NerdyBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Nerdy data'; //
elseif (preg_match('/NetcraftSurveyAgent/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Netcraft'; # info@netcraft.com
elseif (preg_match('/Netcraft Web Server Survey/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Netcraft';
elseif (preg_match('/NetpeakCheckerBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'NetpeakCheckerBot'; # https://netpeaksoftware.com/checker
elseif (preg_match('/NetSystemsResearch/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'NetSystemsResearch'; # https://netsystemsresearch.com
elseif (preg_match('/Neevabot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Neevabot'; # https://neeva.com/neevabot
elseif (preg_match('/Nimo Software/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Nimo Software HTTP Retriever'; #
elseif (preg_match('/NLNZ_IAHarvester/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'NLNZ_IAHarvester';# https://natlib.govt.nz/publishers-and-authors/web-harvesting/domain-harvest
elseif (preg_match('/node-fetch/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Node-fetch'; # https://github.com/bitinn/node-fetch
elseif (preg_match('/Pandalytics/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Pandalytics'; # https://domainsbot.com/pandalytics/
elseif (preg_match('/panscient/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Panscient';# panscient.com
elseif (preg_match('/petalbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Petalbot'; # https://petalsearch.com/
elseif (preg_match('/PHP-Curl-Class/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'PHP-Curl-Class'; # https://github.com/php-curl-class/php-curl-class
elseif (preg_match('/Pinterest/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Pinterest'; # http://www.pinterest.com
elseif (preg_match('/PocketParser/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'PocketParser'; # https://getpocket.com/pocketparser_ua
elseif (preg_match('/python-requests/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Python-requests'; // # python-requests
elseif (preg_match('/python-urllib/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Python-urllib'; // # python-urllib
elseif (preg_match('/Qwantify/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Qwantify'; # https://www.qwant.com/
elseif (preg_match('/RepoLookoutBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'RepoLookoutBot'; # abuse reports to abuse@repo-lookout.org
elseif (preg_match('/SafeDNSBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'SafeDNSBot'; # https://www.safedns.com/searchbot
elseif (preg_match('/Scrapy/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Scrapy'; # https://scrapy.org
elseif (preg_match('/scooter/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Altavista'; # deprecated http://www.siteware.ch/webresources/useragents/spiders/altavista.html
elseif (preg_match('/Screaming/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Screaming Frog SEO Spider'; # https://www.screamingfrog.co.uk/seo-spider/
elseif (preg_match('/SISTRIX/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'SISTRIX'; # http://crawler.007ac9.net/
elseif (preg_match('/Crawler/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'SISTRIX'; # http://crawler.007ac9.net/
elseif (preg_match('/SeekportBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'SeekportBot';# https://bot.seekport.com
elseif (preg_match('/SemrushBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'SemrushBot'; # http://www.semrush.com/bot.html
elseif (preg_match('/SEOkicks/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'SEOkicks'; # https://www.seokicks.de/robot.html
elseif (preg_match('/serpstatbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Serpstatbot'; # https://serpstatbot.com/; abuse@serpstatbot.com
elseif (preg_match('/SeznamBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'SeznamBot'; # http://napoveda.seznam.cz/en/seznambot-intro/
elseif (preg_match('/Sidetrade/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Sidetrade indexer bot'; #
elseif (preg_match('/SiteExplorer/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Site Explorer'; # http://siteexplorer.info/
elseif (preg_match('/snapchat/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Snapchat URL Preview Service'; # https://developers.snap.com/robots
elseif (preg_match('/Sogou/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Sogou web spider'; # http://www.sogou.com/docs/help/webmasters.htm#07
elseif (preg_match('/SpiceworksAgentShell/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Spiceworks Agent Shell'; # https://community.spiceworks.com/support/inventory-online/docs/deploy-agent
elseif (preg_match('/SurdotlyBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'SurdotlyBot'; # http://sur.ly/bot.html
elseif (preg_match('/synapse/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Synapse'; #
elseif (preg_match('/t3versionsBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'T3versionsBot'; # https://www.t3versions.com/bot
elseif (preg_match('/ThinkChaos/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'ThinkChaos'; # ThinkChaos
elseif (preg_match('/Turnitin/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Turnitin'; # https://bit.ly/2UvnfoQ
elseif (preg_match('/Twisted PageGetter/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Twisted PageGetter'; # https://twistedmatrix.com/trac/
elseif (preg_match('/Twitterbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Twitterbot'; #
elseif (preg_match('/unirest-java/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'unirest-java'; # unirest-java
elseif (preg_match('/W3C-checklink/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'W3C-checklink';# W3C-checklink
elseif (preg_match('/webpage-inspector/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Webpage Inspector'; # webpage-inspector.com
elseif (preg_match('/webprosbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Webprosbot'; # mailto:abuse-6337@webpros.com
elseif (preg_match('/WebTarantula/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'WebTarantula'; // # http://webtarantula.com/
elseif (preg_match('/wget/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'wget'; # https://www.gnu.org/software/wget/
elseif (preg_match('/woorankreview/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'WooRankReview'; # https://www.woorank.com/
elseif (preg_match('/wp_is_mobile/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Wp_is_mobile'; #
elseif (preg_match('/Xenu/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Xenu Link Sleuth'; # Xenu Link Sleuth
elseif (preg_match('/XoviBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Xovi'; # http://www.xovibot.net/
elseif (preg_match('/yahoo! slurp/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Yahoo!'; # http://help.yahoo.com/help/us/ysearch/slurp
elseif (preg_match('/YandexBot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Yandex'; # http://yandex.com/bots
elseif (preg_match('/Yeti/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Yeti'; # http://naver.me/spd
elseif (preg_match('/YottaaMonitor/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'Yottaa'; # http://www.yottaa.com/blog/bid/223629/Google-Analytics-How-to-Segment-and-Filter-Robot-Traffic
elseif (preg_match('/zyborg/i', $_SERVER['HTTP_USER_AGENT'])
|| preg_match('/zealbot/i', $_SERVER['HTTP_USER_AGENT'])) $tc_bot = 'WiseNut!';
// not a bot, so find the browser, https://developer.mozilla.org/en-US/docs/Web/HTTP/Browser_detection_using_the_user_agent
elseif (preg_match('/arachne/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Arachne GPL';
elseif (preg_match('/vivaldi/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Vivaldi';
elseif (preg_match('/blazer/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Blazer';
elseif (preg_match('/brave/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Brave';
elseif (preg_match('/opera/i', $_SERVER['HTTP_USER_AGENT'])
|| preg_match('/OPR/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Opera'; # must be before Chrome below
elseif (preg_match('/webtv/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'WebTV';
elseif (preg_match('/camino/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Camino';
elseif (preg_match('/MAXTHON/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'MAXTHON'; # must be before msie below # http://www.maxthon.com/
elseif (preg_match('/netpositive/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'NetPositive';
elseif (preg_match('/internet explorer/i', $_SERVER['HTTP_USER_AGENT'])
|| preg_match('/msie/i', $_SERVER['HTTP_USER_AGENT'])
|| preg_match('/IEMobile/i', $_SERVER['HTTP_USER_AGENT'])
|| preg_match('/mspie/i', $_SERVER['HTTP_USER_AGENT'])
|| preg_match('/trident/i', $_SERVER['HTTP_USER_AGENT']) ) $tc_browser = 'MS Internet Explorer'; # add trident
elseif (preg_match('/avant browser/i', $_SERVER['HTTP_USER_AGENT'])
|| preg_match('/advanced browser/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Avant Browser';
elseif (preg_match('/galeon/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Galeon';
elseif (preg_match('/konqueror/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Konqueror';
elseif (preg_match('/icab/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'iCab';
elseif (preg_match('/Nmap Scripting Engine/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Nmap'; # http://nmap.org/book/nse.html
elseif (preg_match('/omniweb/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'OmniWeb';
elseif (preg_match('/phoenix/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Phoenix';
elseif (preg_match('/firebird/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Firebird';
elseif (preg_match('/seamonkey/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Seamonkey'; # must be before Firefox
elseif (preg_match('/firefox/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Firefox';
elseif (preg_match('/netscape/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Netscape'; # must be before Mozilla below
elseif (preg_match('/minimo/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Minimo';
elseif (preg_match('/mozilla/i', $_SERVER['HTTP_USER_AGENT'])
&& preg_match('/rv:[0-9].[0-9][a-b]/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Mozilla'; #
elseif (preg_match('/mozilla/i', $_SERVER['HTTP_USER_AGENT'])
&& preg_match('/rv:[0-9].[0-9]/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Mozilla'; #
elseif (preg_match('/YaBrowser/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Yandex browser'; # http://help.yandex.ru/yabrowser/?lang=en
elseif (preg_match('/libwww/i', $_SERVER['HTTP_USER_AGENT'])) {
if (preg_match('/amaya/i', $_SERVER['HTTP_USER_AGENT'])) {
$tc_browser = 'Amaya';
} else {
$tc_browser = 'Text browser';
}
}
elseif (preg_match('/edge/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Edge'; // must be before Safari
elseif (preg_match('/chromium/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Chromium'; // must be before Chrome
elseif (preg_match('/chrome/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Chrome'; // must be before Safari
elseif (preg_match('/safari/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Safari'; // must be after Chrome above
elseif (preg_match('/elinks/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'ELinks';
elseif (preg_match('/offbyone/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Off By One';
elseif (preg_match('/playstation portable/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'PlayStation Portable';
elseif (preg_match('/links/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Links';
elseif (preg_match('/ibrowse/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'iBrowse';
elseif (preg_match('/w3m/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'w3m';
elseif (preg_match('/aweb/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'AWeb';
elseif (preg_match('/voyager/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Voyager';
elseif (preg_match('/oregano/i', $_SERVER['HTTP_USER_AGENT'])) $tc_browser = 'Oregano';
else {
$tc_browser = 'Unknown';
tcmsg ('Browser', $_SERVER['HTTP_USER_AGENT'] . ' unknown');
if ($TotalCounterLog) {
\Lock(2); # acquire exclusive lock
$fwritestatus = fwrite($logfilehandle, $logfiletime . 'Browser: UA:"' . $_SERVER['HTTP_USER_AGENT'] . '"' . NL);
\Lock(0); # release lock
if ($fwritestatus === false) {
tcmsg ('fwrite failed', $logfilename, error_get_last());
}
}
} // end find web bot or browser
// decide if we are counting this visit
$tc_count_visit = (($tc_bot == NULLVALUE) // don't count bots
|| ($TotalCounterCountBots == 1)); // count bots (all visits)
if ($tc_count_visit) { // 1.10.0 # don't count bots by default
// find operating system
if (empty($_SERVER['HTTP_USER_AGENT'])) { } // can't find it if its empty
elseif (preg_match('/android/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Android'; // 1.10.0 # must be before linux below
elseif (preg_match('/linux/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Linux';
elseif (preg_match('/irix/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'IRIX';
elseif (preg_match('/hp-ux/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'HP-Unix';
elseif (preg_match('/os2/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'OS/2';
elseif (preg_match('/beos/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'BeOS';
elseif (preg_match('/sunos/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'SunOS';
elseif (preg_match('/palm/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'PalmOS';
elseif (preg_match('/cygwin/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Cygwin';
elseif (preg_match('/amiga/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Amiga';
elseif (preg_match('/unix/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Unix';
elseif (preg_match('/qnx/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'QNX';
elseif (preg_match('/Windows Phone/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Windows Phone'; // 1.10.0 # must be before Windows below
elseif (preg_match('/windows/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Windows'; // 1.10.0 win to windows
elseif (preg_match('/iphone os/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'iPhone'; // 1.10.0 # must be before Mac OS below
elseif (preg_match('/mac os/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Mac'; // 1.10.0 mac to mac os
elseif (preg_match('/cros/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Chrome OS';
elseif (preg_match('/symbian/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Symbian';
elseif (preg_match('/risc/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'RISC';
elseif (preg_match('/dreamcast/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'Dreamcast';
elseif (preg_match('/freebsd/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'FreeBSD';
elseif (preg_match('/dos/i', $_SERVER['HTTP_USER_AGENT'])) $tc_os = 'dos';
elseif (empty ($tc_bot)) { # skip OS if it is a bot and OS not identified // 1.10.0
$tc_os = 'Unknown';
tcmsg ('OpSystem', $_SERVER['HTTP_USER_AGENT'] . ' unknown');
if ($TotalCounterLog) {
\Lock(2); # acquire exclusive lock
$fwritestatus = fwrite($logfilehandle, $logfiletime . 'OpSystem: RH:"' . $_SERVER['REMOTE_HOST'] . ' UA:"' . $_SERVER['HTTP_USER_AGENT'] . '"' . NL);
\Lock(0); # release lock
if ($fwritestatus === false) {
tcmsg ('fwrite failed', $logfilename, error_get_last());
}
}
} // end preg_match
} // end find OS
if ($tc_count_visit) { // 1.10.0 # don't count bots by default
// find referrer domain
$matches = [];
$referer = '';
$tc_referer = 'Unknown';
if (!empty ($_SERVER['HTTP_REFERER'])) {
# remove the schema, see https://regex101.com/r/epmzHv/2
if (1 == preg_match("/^(?:https?:\/\/)?([^\/:\r\n]+)/", $_SERVER['HTTP_REFERER'], $matches)) {
$referer = $matches[1];
}
}
if (!empty($referer)) {
$tc_referer = $referer;
}
if ($tc_referer == 'Unknown') {
if (! ($tc_bot == NULLVALUE)) { # skip referer if it is a bot and referer not identified // 1.10.0
unset ($tc_referer);
}; // end !empty $tc_bot
if ($TotalCounterLog and !empty($_SERVER['HTTP_REFERER'])) {
tcmsg ('Referer unknown', $_SERVER['HTTP_REFERER'] . ' UA:"' . $_SERVER['HTTP_USER_AGENT'] . '"');
\Lock(2); # acquire exclusive lock
$fwritestatus = fwrite($logfilehandle, $logfiletime . 'Referer: "' . $_SERVER['HTTP_REFERER'] . '", UA:"' . $_SERVER['HTTP_USER_AGENT']
. '" ^' . $referer . '^ [' . implode (', ', $matches) . '] ' . NL);
\Lock(0); # release lock
if ($fwritestatus === false) {
tcmsg ('fwrite failed', $logfilename, error_get_last());
}
}
} // end find referrer
} // end count visit referrer
if ($tc_count_visit) { // 1.10.0 # don't count bots by default
// find location
$dbgloc = '';
# de-facto standard header for identifying the originating IP address of a client connecting to a web server through an HTTP proxy or a load balancer
if (!empty($_SERVER['HTTP_X_FORWARDED_FOR'])) {
$dbgloc .= 'XFF';
if (false !== strpos($_SERVER['HTTP_X_FORWARDED_FOR'], ',')) {
$ips = explode(',', $_SERVER['HTTP_X_FORWARDED_FOR']);
$thehost = trim($ips[0]); # see https://developer.mozilla.org/en-US/docs/Web/HTTP/Headers/X-Forwarded-For
} else {
$thehost = $_SERVER['HTTP_X_FORWARDED_FOR'];
}
} elseif (!empty($_SERVER['HTTP_FORWARDED'])) {
$dbgloc = 'Fw';
$posn = strpos($_SERVER['HTTP_FORWARDED'], 'for=');
if (false !== $posn) {
$ips = explode(';', substr($_SERVER['HTTP_FORWARDED'], $posn + 4)); #for=192.0.2.60;proto=http
$ips = explode(',', $ips[0]); # 192.0.2.43, for=198.51.100.17
$thehost = trim($ips[0]);
} else {
$thehost = $_SERVER['HTTP_FORWARDED'];
}
} elseif (false !== strpos($_SERVER['REMOTE_HOST'], ',')) {
$dbgloc = 'RH+';
# empty($_SERVER['HTTP_X_FORWARDED_FOR']) and empty($_SERVER['HTTP_FORWARDED'])
$ips = explode(',', $_SERVER['REMOTE_HOST']);
$thehost = trim($ips[0]);
} else {
$dbgloc = 'RH';
$thehost = $_SERVER['REMOTE_HOST'];
}
// match any character not digits or period backwards from end of string
if (1 == preg_match("/[^\.0-9]+$/", $thehost, $matches)) {
$loc = $matches[0];
}
$tc_location = 'Unknown';
while (true) {
if (!empty($loc)) {
$dbgloc .= '=';
$tc_location = $loc;
break;
}
if ($TotalCounterEnableLookup == 1) {
$hostbyaddr = gethostbyaddr($_SERVER['REMOTE_ADDR']);
$dbgloc .= 'L^' . $hostbyaddr . '^';
if (false === $hostbyaddr) {
$tc_location = 'Unknown';
} else {
$prmRetVal = preg_match("/[^\.0-9]+$/", $hostbyaddr, $matches);
switch (true) {
case ($prmRetVal === false): // match any character not digits or period (IP address?)
$tc_location = 'Unknown';
break;
case ($prmRetVal == 1):
$gloc = $matches[0];
break;
case ($prmRetVal == 1):
$tc_location = 'Not found';
break;
}
if (!empty($gloc)) {
$tc_location = $gloc;
break;
}
}
}
if ($TotalCounterEnableGeoIp == 1) {
$dbgloc .= 'G';
include ('geoip/geoip.inc'); # return the two letter country code corresponding to a hostname or an IP address
$gi = geoip_open($geoIpFile, GEOIP_STANDARD); # https://www.php.net/manual/en/function.geoip-country-code-by-name.php
$gccba = geoip_country_code_by_addr($gi, $_SERVER['REMOTE_ADDR']);
geoip_close($gi);
if (!false === $gccba) {
$tc_location = $gccba;
break;
}
}
# https://regex101.com/r/ONcmD7/1
if (1 == preg_match("/(?:10\.[0-9]{1,3}|172\.(?:1[6-9]|2[0-9]|3[0-1])|192\.168)(?:\.[0-2]?[0-9]{1,2}){2}/", $thehost, $matches)) {
$dbgloc .= 'P';
# match for private IP address https://en.wikipedia.org/wiki/Private_network
$tc_location = 'Private IP (' . stristr ($matches [0], '.', true) . ')';
break;
}
$dbgloc .= '.';
break;
} # end while true
if ($tc_location == 'Unknown') {
if (! ($tc_bot == NULLVALUE)) { # skip location if it is a bot and location not identified // 1.10.0
unset ($tc_location);
}; // end !empty $tc_bot
if ($TotalCounterLog) {
$logmsg = 'Location: ';
if (!empty ($_SERVER['HTTP_X_FORWARDED_FOR'])) $logmsg .= 'XFF:"' . $_SERVER['HTTP_X_FORWARDED_FOR'] . '" ';
if (!empty ($_SERVER['HTTP_FORWARDED'])) $logmsg .= 'Fw:"' . $_SERVER['HTTP_FORWARDED'] . '" ';
if (!empty ($_SERVER['HTTP_FORWARDED-HOST'])) $logmsg .= 'FH:"' . $_SERVER['HTTP_FORWARDED-HOST'] . '" ';
\Lock(2); # acquire exclusive lock
$fwritestatus = fwrite($logfilehandle, $logfiletime . $logmsg . 'RH:"' . $_SERVER['REMOTE_HOST']
. '", RA:"' . $_SERVER['REMOTE_ADDR']
. '", UA:"' . $_SERVER['HTTP_USER_AGENT'] . ' (' . $thehost . ') ' . $dbgloc . NL);
\Lock(0); # release lock
if ($fwritestatus === false) {
tcmsg ('fwrite failed', $logfilename, error_get_last());
}
}
}; //end = Unknown
$tc_location = strtolower($tc_location);
$tc_location = str_ireplace (['unknown', 'private ip'], ['Unknown', 'Private IP'], $tc_location);
} // end count visits location
} // end if action = browse
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
$oldumask = umask(0); # set the default file permissions for newly created files and directories
$TotalCounterDownloads = FALSE;
if ($TotalCounterEnableDownload == 1) {
$downloadfile = $TotalCounterDownloadManager;
if (file_exists($downloadfile)) {
$TotalCounterDownloadsFileContents = tc_file_get_contents($downloadfile);
if (FALSE === $TotalCounterDownloadsFileContents) {
tcmsg ('tc_file_get_contents failed', $downloadfile, error_get_last());
} else {
$TotalCounterDownloads = unserialize($TotalCounterDownloadsFileContents);
if (FALSE === $TotalCounterDownloads)
tcmsg ('unserialize failed', $downloadfile, error_get_last());
}
}
}
if (file_exists($statfilename)) {
$TotalCounterFileContents = tc_file_get_contents($statfilename);
if (FALSE === $TotalCounterFileContents) {
tcmsg ('tc_file_get_contents failed', $statfilename, error_get_last());
echo $MessagesFmt [TOTALCOUNTERNAME];
return ($MessagesFmt [TOTALCOUNTERNAME]); # failed to read file, lets get out of here
}
$TotalCounter = unserialize($TotalCounterFileContents);
if (FALSE === $TotalCounter) {
tcmsg ('tc_file unserialize failed', $statfilename, error_get_last());
echo $MessagesFmt [TOTALCOUNTERNAME];
return ($MessagesFmt [TOTALCOUNTERNAME]); # failed to unserialise file, lets get out of here
}
} else {
touch($statfilename); # create the stat file
$TotalCounter = [];
$TotalCounter['DateCreated'] = date ('c'); # ISO 8601 format
$TotalCounter['Total'] = 0;
$TotalCounter['Pages'][$tc_pagename] = 0;
}
#
$PageCount = 0; # initialise
$TotalCount = 0; # initialise
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
if (($action == 'browse') && (!empty($tc_pagename))) {
if( dblock($statfilename) ) {
$TotalCounterFileContents = tc_file_get_contents($statfilename);
if (FALSE === $TotalCounterFileContents) {
tcmsg ('tc_file_get_contents failed', $statfilename, error_get_last());
}
$TotalCounter = unserialize($TotalCounterFileContents);
if (FALSE === $TotalCounter) {
tcmsg ('tc_file unserialize failed', $statfilename, error_get_last());
}
/*##
// code intended only for developers to clean up entries in the stats file
// use at your own risk
if ($totalcounter_debugon) {
if (!empty ($TotalCounterBrowsersUnset)) {
if (isset($TotalCounter['Browsers'][$TotalCounterBrowsersUnset])) {
unset ($TotalCounter['Browsers'][$TotalCounterBrowsersUnset]);
tcmsg ('unset Browser', $TotalCounterBrowsersUnset);
}
} # end Browsers
if (!empty ($TotalCounterOSesUnset)) {
if (isset($TotalCounter['OSes'][$TotalCounterOSesUnset])) {
unset ($TotalCounter['OSes'][$TotalCounterOSesUnset]);
tcmsg ('unset OSe', $TotalCounterOSesUnset);
}
} # end OSes
if (!empty ($TotalCounterLocationsUnset)) {
if (isset($TotalCounter['Locations'][$TotalCounterLocationsUnset])) {
unset ($TotalCounter['Locations'][$TotalCounterLocationsUnset]);
tcmsg ('unset Location', $TotalCounterLocationsUnset);
}
} # end Locations
if (!empty ($TotalCounterBotsUnset)) {
if (isset($TotalCounter['Bots'][$TotalCounterBotsUnset])) {
unset ($TotalCounter['Bots'][$TotalCounterBotsUnset]);
tcmsg ('unset Bot', $TotalCounterBotsUnset);
}
} # end Bots
if (!empty ($TotalCounterReferersUnset)) {
if (isset($TotalCounter['Referers'][$TotalCounterReferersUnset])) {
unset ($TotalCounter['Referers'][$TotalCounterReferersUnset]);
tcmsg ('unset Referer', $TotalCounterReferersUnset);
}
} # end Referers
} # $totalcounter_debugon
// end clean up code
##*/
$TotalCount = ++ $TotalCounter['Total'];
$blacklisted = false;
if (in_array($tc_user, $TotalCounterBlacklist['Users']))
$blacklisted = true;
if (!$blacklisted && !in_array($tc_user, $TotalCounterBlacklist['Users'])) {
if (is_array($TotalCounterBlacklist['Users'])) {
foreach ($TotalCounterBlacklist['Users'] as $value)
if (substr($value, 0, 1) == '/' && preg_match($value, $tc_user) > 0)
$blacklisted = true;
}
if (isset ($tc_user)) { // 1.10.0 isset
incrementCount('Users', $tc_user);
}
}
if (!$blacklisted && !in_array($tc_pagename, $TotalCounterBlacklist['Pages'])) {
if (is_array($TotalCounterBlacklist['Pages']))
foreach ($TotalCounterBlacklist['Pages'] as $value)
if (substr($value, 0, 1) == '/')
if (preg_match($value, $tc_pagename) > 0)
$blacklisted = true;
if (!$blacklisted) {
if (empty ($TotalCounter['Pages'][$tc_pagename])) { # initialise
$TotalCounter['Pages'][$tc_pagename] = 0;
$TotalCounter['PagesTodayDay'][$tc_pagename] = date("%y%m%d");
$TotalCounter['PagesTodayCounter'][$tc_pagename] = 0;
}
$PageCount = ++ $TotalCounter['Pages'][$tc_pagename];
## handles the daily counter
if ($TotalCounter['PagesTodayDay'][$tc_pagename] == date("%y%m%d"))
$PageCountToday = ++ $TotalCounter['PagesTodayCounter'][$tc_pagename];
else {
$TotalCounter['PagesTodayDay'][$tc_pagename] = date("%y%m%d");
$TotalCounter['PagesTodayCounter'][$tc_pagename] = 1;
}
} else {
$PageCount = 0; // blacklisted
}
}
if (!$blacklisted && defined('MULTILANGUAGE')) {
if (isset ($userlang2)) {
incrementCount('Languages', $userlang2);
}
}
if (!$blacklisted && !($tc_browser == NULLVALUE) && !in_array($tc_browser, $TotalCounterBlacklist['Browsers'])) {
incrementCount('Browsers', $tc_browser);
}
if (!$blacklisted && ! ($tc_bot == NULLVALUE) && !in_array($tc_bot, $TotalCounterBlacklist['Bots'])) {
incrementCount('Bots', $tc_bot);
}
if (!$blacklisted && isset ($tc_os) && !in_array($tc_os, $TotalCounterBlacklist['OSes'])) { // 1.10.0 isset
incrementCount('OSes', $tc_os);
}
/*
if (!$blacklisted && !in_array($tc_referer, $TotalCounterBlacklist['Referers'])) {
if (is_array($TotalCounterBlacklist['Referers']))
foreach ($TotalCounterBlacklist['Referers'] as $value)
if (substr($value, 0, 1) == '/')
if (preg_match($value, $tc_referer) > 0)
$blacklisted = true;
if (isset ($tc_referer) && !$blacklisted) // 1.10.0 isset
incrementCount ('Referers', $tc_referer);
}
*/ # code below replaces code above
switch (true) {
case $blacklisted: break;
case !isset ($TotalCounterBlacklist['Referers']): break;
case !isset ($tc_referer): break;
case !is_array($TotalCounterBlacklist['Referers']): break;
case in_array($tc_referer, $TotalCounterBlacklist['Referers']): break;
default:
foreach ($TotalCounterBlacklist['Referers'] as $value) {
if (substr($value, 0, 1) == '/')
if (preg_match($value, $tc_referer) > 0)
$blacklisted = true;
}
if (!$blacklisted) // 1.10.0 isset
incrementCount('Referers', $tc_referer);
}
# end of replaced code
if (!$blacklisted && isset ($tc_location) && !in_array($tc_location, $TotalCounterBlacklist['Locations'])) { // 1.10.0 isset
incrementCount('Locations', $tc_location);
}
if (!$blacklisted && defined('MULTILANGUAGE')) {
if (! in_array($tc_location, $TotalCounterBlacklist['Languages']))
incrementCount('Languages', $userlang2);
}
## by MateuszCzaplinski
## last day, last week, ... - collect data
if (!$blacklisted && ($tc_bot == NULLVALUE)) { // don't count if bot
$TCnow = time(); # fix current time for duration of processing
foreach ($TotalCounterTimeBins as $n=>$a)
TCbins($n, $a['max'], $a['atom'], $TCnow);
$TotalCounter['LastTimestamp'] = $TCnow;
$TotalCounter['TotalCounterVersion'] = TOTALCOUNTERV;
}
dbexport_unlock($statfilename, serialize($TotalCounter), 'w');
} else { // could not acquire a lockfile
// check if the lockfile isn't a stale one, try to delete it if so
dblock_remove_stale($statfilename);
} # end if browse
} else {
$TotalCount = $TotalCounter['Total'];
$PageCount = empty ($TotalCounter['Pages'][$tc_pagename]) ? 0 : $TotalCounter['Pages'][$tc_pagename];
## by Schlaefer (==?) - fixed
incrementCount('PagesTodayCounter', $tc_pagename);
if (empty ($TotalCounter['PagesTodayDay'][$tc_pagename])) {
$TotalCounter['PagesTodayDay'][$tc_pagename] = date("%y%m%d");
}
}
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
//add the {$PageCount} and {$TotalCount} markup
$FmtPV['$PageCount'] = "'" . number_format ($PageCount) . "'"; // return count for current page # 1.10.0 FmtPV
$FmtPV['$TotalCount'] = "'" . number_format ((float) $TotalCount) . "'"; // return total count for wiki # 1.10.0 FmtPV
## by Schlaefer
## adds vars for the input form
$FmtPV['$TotalCounterMaxItems'] = "'" . (!empty($_REQUEST['TotalCounterMaxItems']) ? $_REQUEST['TotalCounterMaxItems'] : $TotalCounterMaxItems) . "'"; // 1.10.0 FmtPV
//add the {$PageViews} page variable (this appears to duplicate $PageCount above)
$FmtPV['$PageViews'] = 'number_format ($GLOBALS["TotalCounter"]["Pages"][$pagename])';
## by Schlaefer
## add the {$PagesTodayCounter} page variable
$FmtPV['$PageCountToday'] = 'number_format ($GLOBALS["TotalCounter"]["PagesTodayCounter"][$pagename])';
return; # finished TotalCounter processing
//=====================================================================================================================
function incrementCount (string $countType, $counter) {
// create variable if it does not exist to avoid PHP 8 errors
# counter may be of type string or int
global $TotalCounter;
if (empty($TotalCounter[$countType])) { // If not, initialise it as an empty array
$TotalCounter[$countType] = [];
}
if (empty ($TotalCounter[$countType][$counter])) {
$TotalCounter[$countType][$counter] = 1;
} else {
$TotalCounter[$countType][$counter]++;
}
} # end incrementCount
//=====================================================================================================================
function HandleTotalCounter(string $pagename, string $auth = 'read') {
// handle PmWiki action=totalcounter
global $Action, $TotalCounter, $TotalCounterMaxItems, $TotalCounterBarColor, $TotalCounterShowNumbers;
global $TotalCount, $TotalCounterEnableDownload, $TotalCounterDownloads, $TotalCounterTimeBins, $TotalCounterBinsFmt, $TotalCounterEnableUsers;
global $PageStartFmt, $PageEndFmt, $MessagesFmt, $totalcounter_debugon, $TotalCounterLog, $logfilehandle;
//$page = RetrieveAuthPage($pagename, $auth, true, READPAGE_CURRENT);
$page = \RetrieveAuthPage($pagename, $auth); # PmWiki function
if (!$page)
\Abort("?you are not permitted to perform this action"); # PmWiki function
#
$all_locations = SetAllLocations (); # top level domains
$Action = 'TotalCounter statistics';
## by Schlaefer
## sets the max items if provided by the form
if (array_key_exists ('TotalCounterMaxItems', $_REQUEST))
$TotalCounterMaxItems = $_REQUEST['TotalCounterMaxItems'];
$html = '<section class="totalcounter"> <h1>Total Counter $[statistics]</h1>' . NL;
//------------------------------------------------------------------------------------------------------------
// PAGES
$html .= graphHead ('$[Page views]', true);
arsort($TotalCounter['Pages']); // sort high to low
$tar = array_slice($TotalCounter['Pages'], 0, $TotalCounterMaxItems);
$tar2 = array_slice($TotalCounter['Pages'], $TotalCounterMaxItems, $TotalCounterMaxItems);
$tot = $TotalCount;
$max = current($tar);
$i = 0;
if (is_array($tar) && $tot) // by Florian Xaver
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, true, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
if (is_array($tar2)) {
$html .= '<details>';
$html .= '<summary>' . '$[More] $[Pages]' . '</summary>' . NL;
$html .= graphHead ('$[More] $[Pages]', true);
foreach ($tar2 as $pn => $cnt) {
$html .= graphLine ($pn, true, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
$html .= '</details>';
}
## by Schlaefer
//------------------------------------------------------------------------------------------------------------
## PAGES daily
$html .= graphHead ('$[Page views] $[today]', true);
$pageviews = array ();
foreach ($TotalCounter['PagesTodayCounter'] as $pn => $cnt) {
if ($TotalCounter['PagesTodayDay'][$pn] === date("%y%m%d"))
$pageviews[$pn] = $cnt;
}
arsort($pageviews);
$tot = array_sum($pageviews);
$tar = array_slice($pageviews, 0, $TotalCounterMaxItems);
$tar2 = array_slice($pageviews, $TotalCounterMaxItems, $TotalCounterMaxItems);
$max = current($tar);
$i = 0;
if (is_array($tar))
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, true, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
if (is_array($tar2)) {
$html .= '<details>';
$html .= '<summary>' . '$[More] $[Page views]' . '</summary>' . NL;
$html .= graphHead ('$[More] $[Page views]', true);
foreach ($tar2 as $pn => $cnt) {
$html .= graphLine ($pn, true, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
$html .= '</details>';
}
//------------------------------------------------------------------------------------------------------------
// USERS
# TotalCounterEnableUsers
if ($TotalCounterEnableUsers == 1) {
$html .= graphHead ('$[Users]', true);
arsort($TotalCounter['Users']);
$tar = array_slice($TotalCounter['Users'], 0, $TotalCounterMaxItems);
$max = current($tar);
$tot = array_sum($TotalCounter['Users']);
$i = 0;
if (is_array($tar))
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
}
//------------------------------------------------------------------------------------------------------------
// LANGUAGES
if (defined('MULTILANGUAGE')) {
$html .= graphHead ('$[Languages]', true);
arsort($TotalCounter['Languages']);
$tar = array_slice($TotalCounter['Languages'], 0, $TotalCounterMaxItems);
$max = current($tar);
$tot = array_sum($TotalCounter['Languages']);
$i = 0;
if (is_array($tar))
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, false, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
}
//------------------------------------------------------------------------------------------------------------
// BROWSERS
$html .= graphHead ('$[Browsers]', true);
if (is_array($TotalCounter['Browsers'])) {
arsort ($TotalCounter['Browsers']);
$tot = array_sum($TotalCounter['Browsers']);
$tar = array_slice($TotalCounter['Browsers'], 0, $TotalCounterMaxItems);
} else { # should never happen
$tar = [];
$tot = 0;
}
$max = current($tar);
$i = 0;
if (is_array($tar))
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, false, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
//------------------------------------------------------------------------------------------------------------
// OPERATING SYSTEMS
$html .= graphHead ('$[Operating systems]', true);
if (is_array($TotalCounter['OSes'])) {
arsort($TotalCounter['OSes']);
$tar = array_slice($TotalCounter['OSes'], 0, $TotalCounterMaxItems);
$tot = array_sum($TotalCounter['OSes']);
} else { # should never happen
$tar = [];
$tot = 0;
}
$max = current($tar);
$i = 0;
if (is_array($tar))
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, false, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
//------------------------------------------------------------------------------------------------------------
// REFERERS
$html .= graphHead ('$[Referers]', true);
if (is_array($TotalCounter['Referers'])) {
arsort($TotalCounter['Referers']);
$tar = array_slice($TotalCounter['Referers'], 0, $TotalCounterMaxItems);
$tot = array_sum($TotalCounter['Referers']);
} else { # should never happen
$tar = [];
$tot = 0;
}
$max = current($tar);
$i = 0;
if (is_array($tar))
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, false, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
//------------------------------------------------------------------------------------------------------------
// LOCATIONS
$html .= graphHead ('$[Locations]', true);
if (is_array($TotalCounter['Locations'])) {
arsort($TotalCounter['Locations']);
$tar = array_slice($TotalCounter['Locations'], 0, $TotalCounterMaxItems);
$tot = array_sum($TotalCounter['Locations']);
} else { # should never happen
$tar = [];
$tot = 0;
}
$max = current($tar);
$i = 0;
if (is_array($tar))
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, false, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
//------------------------------------------------------------------------------------------------------------
// WEB BOTS
$html .= graphHead ('$[Web bots]', true);
arsort($TotalCounter['Bots']);
$tar = array_slice($TotalCounter['Bots'], 0, $TotalCounterMaxItems);
$tar2 = array_slice($TotalCounter['Bots'], $TotalCounterMaxItems, $TotalCounterMaxItems);
$max = current($tar);
$tot = array_sum($TotalCounter['Bots']);
$i = 0;
if (is_array($tar)) {
foreach ($tar as $pn => $cnt) {
$html .= graphLine ($pn, false, $cnt, $tot, $max, ++ $i);
}
}
$html .= graphHead ('', false);
if (is_array($tar2)) {
$html .= '<details>';
$html .= '<summary>' . '$[More] $[Web bots]' . '</summary>' . NL;
$html .= graphHead ('$[More] $[Web bots]', true);
foreach ($tar2 as $pn => $cnt) {
$html .= graphLine ($pn, false, $cnt, $tot, $max, ++ $i);
}
$html .= graphHead ('', false);
$html .= '</details>';
}
//------------------------------------------------------------------------------------------------------------
// Downloads
if ($TotalCounterEnableDownload == 1) {
$html .= graphHead ('$[File Downloads]', true);
arsort($TotalCounterDownloads);
$max = count($TotalCounterDownloads);
$tot = array_sum($TotalCounterDownloads);
$i = 0;
if (is_array($TotalCounterDownloads)) {
for ($row = 0; $row < $max; $row++) {
$tablerow = each($TotalCounterDownloads);
$value = $tablerow['value'];
$html .= '<tr>' .
($TotalCounterShowNumbers ? TD1 . ++ $i . '.</td>' : '') .
'<td>' . $tablerow['key'] . '</td>' .
'<td></td>' .
'<td></td><td align="right"> ' . $value . '</td>' .
'</tr>' . NL;
}
}
$html .= graphHead ('', false);
}
//------------------------------------------------------------------------------------------------------------
// Time statistics
## by MateuszCzaplinski
foreach( $TotalCounterTimeBins as $n=>$a ) {
$name = $a[GRAPHNAME]; // 1.10.0
$dateFmt = $a[DATEFMT];
$html .= BR . '<hr />' . NL .
'<article><h2>$[' . $name. ']</h2>' . NL .
'<table border="0" class="totalcounterstat TC-' . $n. '"><thead>' . NL .
'<tr><th class="TCtxth TCtxtl" colspan=2>' . $name . ' </th>' .
'<th class="TCtxth TCtxtr">$[Count]</th></tr>' . NL .
'</thead><tbody>' . NL;
/* to remove eval
\SDVA($TotalCounterBinsFmt,array(
'number_format("$count")', // number_format 1.10.0
'"<div class=\"TCprogress TCbar\" style=\"$direction:".Round(1+BARMAXWIDTH*(($maxcount)?($count/$maxcount):0))."px;\"></div>"',
'date("G",$now-$atom*($maxnr-1-$nr))' )); // 1.10.0 from talk page
if( is_string($dateFmt) ) {
$tmp = $dateFmt;
$dateFmt = $TotalCounterBinsFmt;
$dateFmt[2] = $tmp;
}
if( is_array($dateFmt) ) {
$rows = array();
## Variables used in DATEFMT
$maxcount = max( $TotalCounter[$n] );
$direction = 'height';
$maxnr = $a['max'];
$atom = $a['atom'];
$now = time();
for( $nr=0; $nr<$maxnr; $nr++ ) {
$count = $TotalCounter[$n][$nr]; // 1.10.0 moved out of loop
if (($n!==PREVIOUSYEARS) or ($n==PREVIOUSYEARS and $count > 0)) { ## skip years with zero count // 1.10.0
for( $j=0; $j<count($dateFmt); $j++ ) {
$rows[$j] = strval ($dateFmt[$j]) . # was $rows
"<td valign='bottom' class='seq$j'>eval:".
strval (eval ("global \$TotalCounterMonthsShort; return ({$dateFmt[$j]});")) .
'</td>' . NL;
}
}
}
}
*/
$rows = []; # initialise
$maxcount = max($TotalCounter[$n]);
$direction = 'width';
$maxnr = $a['max'];
$atom = $a['atom'];
for ($nr = 0; $nr < $maxnr; $nr++) {
if (!isset ($TotalCounter[$n][$nr])) continue; # does not exist
$count = $TotalCounter[$n][$nr];
$row = ''; # initialise
if (($n !== PREVIOUSYEARS) || ($n === PREVIOUSYEARS && $count > 0)) {
# should improve this to cater for varying number of days in a month
// Directly evaluate the format function to display date column
$output = $dateFmt(time(), $atom, $maxnr, $nr);
$row .= "<td valign='bottom' class='TCtxtr'> " . $output . '</td>' . NL;
$row .= "<td valign='bottom'>" . NL;
$row .= "<div class=\"TCbar\" style=\"$direction:" . Round(1 + BARMAXWIDTH * (($maxcount) ? ($count / $maxcount) : 0)) . "px;\"></div>" . NL;
$row .= "</td>" . NL;
# display count column
$row .= "<td valign='bottom' class='TCtxtr'>" . number_format($count) . '</td>' . NL;
$rows[] = $row;
}
} # end for $nr
$html .= '<tr>'.implode('</tr>'.NL.'<tr>',$rows).'</tr></tbody></table></article>' . NL; // 1.10.0
}
//------------------------------------------------------------------------------------------------------------
if ($totalcounter_debugon) {
$html .= '<hr /><h2>Messages</h2>' . NL . $MessagesFmt [TOTALCOUNTERNAME] . NL;
}
$html .= '<hr /><p style="text-align:right; font-size:smaller;">TotalCounter ' . TOTALCOUNTERV . '</p></section>' . NL;
\PrintFmt($pagename, array ( # PmWiki function
& $PageStartFmt,
$html,
& $PageEndFmt
));
if ($TotalCounterLog) {
$fclosestatus = fclose($logfilehandle);
if ($fclosestatus === false) {
tcmsg ('fclose failed', '"' . $logfilename, error_get_last());
if ($totalcounter_debugon) \Abort ($MessagesFmt [TOTALCOUNTERNAME]);
}
}
return;
} # end HandleTotalCounter
//
## by MateuszCzaplinski
## Manages an array of counters, each for a specified time interval.
## In $TotalCounter[$name] array there are $max counters. Each counter
## is for time interval of $atom length.
## Note: if $atom is a number, it is a length of interval measured
## in seconds. If $atom is a string, it means date($atom) is executed
## and the result is the index of an interval.
## NOTE: See TODO below
//=====================================================================================================================
function tc_file_get_contents ($filename) {
\Lock(1); # acquire shared lock
if (function_exists("file_get_contents")) {
$contents = file_get_contents ($filename);
} else {
$contents = file($filename);
if (!FALSE === $contents) {
$contents = implode('', $contents);
}
}
\Lock(0); # release lock
return $contents;
} # end function tc_file_get_contents
//=====================================================================================================================
function TCbins(string $name, int $max, $atom, $TCnow) {
global $TotalCounter;
$lastTS = $TotalCounter['LastTimestamp'];
if( $TCnow < $lastTS ) return; // some error?
if( !$lastTS ) $TotalCounter[$name] = array_fill(0,$max,0);
if( is_string($atom) ) {
$diff = intval (date($atom,$TCnow)) - intval (date($atom,$lastTS));
if( $diff < 0 ) $diff += $max;
# TODO: handle time delta > $max
# Until fixed, if the site has no visitor for about a
# year, statistics will get falsified (empty years will compress)
}
else
$diff = intval ($TCnow/$atom) - intval ($lastTS/$atom);
if( $diff < 0 ) return;
if( $diff > 0 ) {
$a = array_slice($TotalCounter[$name], $diff, max(0,$max-$diff));
if(!$a) $a = array();
$a = array_pad($a, $max, 0);
$TotalCounter[$name] = $a;
}
incrementCount($name, $max-1); // put our visit in last bin
} # end function TCbins
//=====================================================================================================================
// generate graph head and tail
function graphHead (string $headline='', bool $heading=true):string {
global $TotalCounterShowNumbers;
$retval = '';
if ($heading) { # create table heading
$retval .= BR . '<hr /><article><h2>' . $headline . '</h2>' . NL;
$retval .= '<table class="totalcounterstat" border=\'0\'><thead>' . NL;
$retval .= '<tr><th class="TCtxth TCtxtl"' . ($TotalCounterShowNumbers ? ' colspan="2"' : '') . '>' . $headline . ' </th>' .
'<th class="TCtxth TCtxtl" colspan="2">$[Percent]</th>' .
'<th class="TCtxth TCtxtr">$[Count]</th></tr>' . NL;
$retval .= '</thead><tbody>' . NL;
} else { # create table footer
$retval .= '</tbody></table></article>' . NL;
}
return $retval;
} # end function graphHead
//=====================================================================================================================
// generate graph line
function graphLine (string $pname, bool $bpage, int $pcnt, int $ptotal, int $pmax, int $linenr) :string {
global $TotalCounterShowNumbers;
$retval = '<tr>' . NL;
if ($TotalCounterShowNumbers) {
$retval .= '<td class="TCtxtr" style="font-size:smaller;">' . $linenr . '.</td>';
}
$retval .= '<td class="TCtxtl" style="min-width:12em;">';
if ($bpage) {
$retval .= "<a href='\$ScriptUrl/$pname'>$pname</a> ";
} else {
$retval .= $pname;
}
$retval .= '</td>' . NL;
$retval .= '<td class="TCtxtr">' . Round(100 * $pcnt / $ptotal) . '%</td>' . NL;
$retval .= '<td style="width:BARCELLWIDTH;"><div class="TCbar" style="width:' . Round(BARMAXWIDTH * $pcnt / $pmax) . 'px;"></div></td>';
$retval .= '<td class="TCtxtr"> ' . number_format ($pcnt) . '</td>';
return $retval . '</tr>' . NL;
} # end function graphLine
//=====================================================================================================================
// https://www.exakat.io/en/prevent-multiple-php-scripts-at-the-same-time/
// https://stackoverflow.com/questions/6967553/php-flock-alternative
// Modified (breaks and returns 0 on failure,
// or returns 1 on success) by Mateusz Czaplinski, 22.01.2008
function aquirelock(string $wp) {
//Check if lock doesn't exist or our target is unwritable
if (!is_writable($wp))
return FALSE;
$lfName = "$wp.l";
\Lock(2); # lock exclusive; stop race condition
if(file_exists($lfName)) {
$retVal = FALSE;
} else {
//create the lock - hide warnings and pass empty if already created from racing
$retVal = fopen($lfName, 'x');
}
\Lock(0); # release lock
return $retVal;
}
//=====================================================================================================================
function dblock(string $wp):bool {
global $TotalCounterEnableChmods;
//Check for lockfile handle - if empty , another process raced the lock so report a failure
$ftw = aquirelock($wp);
if( $ftw === FALSE)
return FALSE;
if($TotalCounterEnableChmods) chmod($wp, 0444); //set the target file to read-only
$fwStatus = fwrite($ftw, 'lock'); //write the lockfile with 4bytes
if($TotalCounterEnableChmods) chmod("$wp.l", 0444); //set the lockfile to read only (OPTIONAL)
fclose($ftw); //close our lockfile
clearstatcache(); //Clear the stat cache
return TRUE;
}
//=====================================================================================================================
// Note: don't call it if 'dblock()' returned 0 !
function dbexport_unlock(string $wp, $data, string $meth) {
global $TotalCounterEnableChmods;
if($TotalCounterEnableChmods) chmod($wp, 0666); //Set the target file to read+write
//Write the passed string to the target file then close
\Lock(2); # acquire exclusive lock
fwrite($ftw = fopen($wp, $meth), $data);
fclose($ftw);
\Lock(0); # release lock
//Validate the written data using a string comparison
$check = tc_file_get_contents($wp);
if ($check != $data)
echo "Data Mismatch - Locking FAILED!". BR;
chmod("$wp.l", 0666); //Set the lockfile to read+write (OPTIONAL)
unlink("$wp.l"); //Release the lockfile by removing it
}
//=====================================================================================================================
function dblock_remove_stale(string $wp) {
$t=filemtime("$wp.l");
// 75 minutes - to make absolutely sure we're not tricked by Daylight
// Savings on Windows - see https://www.php.net/manual/en/function.stat.php#58404
if( $t+(75*60) < time())
unlink("$wp.l");
}
//=====================================================================================================================
// Record message to PmWiki for display by (:message:) directive
function tcmsg(string $smsgprefix, string $smsgdata, array $LastError = []) {
global $MessagesFmt;
if (!isset ($MessagesFmt [__NAMESPACE__ . '\\' . TOTALCOUNTERNAME])) $MessagesFmt [__NAMESPACE__ . '\\' . TOTALCOUNTERNAME] = [];
$TcMsgs = '';
$TcMsgs .= '<i>' . $smsgprefix . '</i>: ' . \PHSC($smsgdata);
if (!empty ($LastError)) $TcMsgs .= ' ' . TOTALCOUNTERNAME . ' {' . implode (', ', $LastError) . '}';
$MessagesFmt [__NAMESPACE__ . '\\' . TOTALCOUNTERNAME] [] = $TcMsgs . BR;
}
//=====================================================================================================================
// Define top level domains
function SetAllLocations ():array {
return array (
'localhost' => 'localhost',
'Unknown' => 'Unknown',
# original top level domains
'com' => 'Commercial',
'net' => 'Networks',
'org' => 'Organizations',
'int' => 'International organizations',
'edu' => 'US higher Education',
'gov' => 'US Government',
'mil' => 'US Dept of Defense',
# selected ICANN TLDs
'academy' => 'Academy',
'aero' => 'Aviation',
'biz' => 'Business organizations',
'church' => 'Churches',
'city' => 'City',
'club' => 'Clubs',
'community' => 'Community',
'coop' => 'Co-operative organizations',
'education' => 'Education insitiutes',
'info' => 'Information',
'international' => 'International entities',
'mobi' => 'mobile devices',
'museum' => 'Museums',
'name' => 'Personal',
'place' => 'Place',
'travel' => 'Travelling',
'universite' => 'University',
'wiki' => 'Wikis',
# selected geographic TLDs
'africa' => 'Africa',
'asia' => 'Asia',
'berlin' => 'Berlin',
'brussels' => 'Brussels',
'kiwi' => 'Kiwi',
'london' => 'London',
'paris' => 'Paris',
'quebec' => 'Quebec',
'scot' => 'Scotland',
# country code top level https://icannwiki.org/Country_code_top-level_domain
# updates from https://isotc.iso.org/livelink/livelink?func=ll&objId=16944257&objAction=browse&viewType=1
'ac' => 'Ascension Island',
'ad' => 'Andorra',
'ae' => 'United Arab Emirates',
'af' => 'Afghanistan',
'ag' => 'Antigua & Barbuda',
'ai' => 'Anguilla',
'al' => 'Albania',
'am' => 'Armenia',
'an' => 'Netherlands Antilles',
'ao' => 'Angola',
'aq' => 'Antarctica',
'ar' => 'Argentina',
'as' => 'American Samoa',
'at' => 'Austria',
'au' => 'Australia',
'aw' => 'Aruba',
'ax' => 'Åland', // 1.10.0
'az' => 'Azerbaijan',
'ba' => 'Bosnia & Herzegovina',
'bb' => 'Barbados',
'bd' => 'Bangladesh',
'be' => 'Belgium',
'bf' => 'Burkina Faso',
'bg' => 'Bulgaria',
'bh' => 'Bahrain',
'bi' => 'Burundi',
'bj' => 'Benin',
'bm' => 'Bermuda',
'bn' => 'Brunei Darussalam',
'bo' => 'Bolivia',
'br' => 'Brazil',
'bs' => 'Bahamas',
'bt' => 'Bhutan',
'bv' => 'Bouvet Island',
'bw' => 'Botswana',
'by' => 'Belarus',
'bz' => 'Belize',
'ca' => 'Canada',
'cc' => 'Cocos (Keeling) Islands',
'cd' => 'Democratic republic of Congo',
'cf' => 'Central African Republic',
'cg' => 'Congo',
'ch' => 'Switzerland',
'ci' => 'Ivory Coast',
'ck' => 'Cook Islands',
'cl' => 'Chile',
'cm' => 'Cameroon',
'cn' => 'China',
'co' => 'Colombia',
'cr' => 'Costa Rica',
'cs' => 'Czechoslovakia/Sebia & Montenegro', // deleted
'cu' => 'Cuba',
'cv' => 'Cape Verde',
'cw' => 'Curaçao', // 1.10.0
'cx' => 'Christmas Island',
'cy' => 'Cyprus',
'cz' => 'Czech Republic',
'de' => 'Germany',
'dj' => 'Djibouti',
'dk' => 'Denmark',
'dm' => 'Dominica',
'do' => 'Dominican Republic',
'dz' => 'Algeria',
'ec' => 'Ecuador',
'ee' => 'Estonia',
'eg' => 'Egypt',
'eh' => 'Western Sahara',
'er' => 'Eritrea',
'es' => 'Spain',
'et' => 'Ethiopia',
'eu' => 'European Union',
'fi' => 'Finland',
'fj' => 'Fiji',
'fk' => 'Falkland Islands',
'fm' => 'Micronesia',
'fo' => 'Faroe Islands',
'fr' => 'France',
'ga' => 'Gabon',
'gb' => 'United Kingdom',
'gd' => 'Grenada',
'ge' => 'Georgia',
'gf' => 'French Guiana',
'gg' => 'Guernsey',
'gh' => 'Ghana',
'gi' => 'Gibraltar',
'gl' => 'Greenland',
'gm' => 'Gambia',
'gn' => 'Guinea',
'gp' => 'Guadeloupe',
'gq' => 'Equatorial Guinea',
'gr' => 'Greece',
'gs' => 'South Georgia & South Sandwich Islands',
'gt' => 'Guatemala',
'gu' => 'Guam',
'gw' => 'Guinea-Bissau',
'gy' => 'Guyana',
'hk' => 'Hong Kong',
'hm' => 'Heard & McDonald Islands',
'hn' => 'Honduras',
'hr' => 'Croatia',
'ht' => 'Haiti',
'hu' => 'Hungary',
'id' => 'Indonesia',
'ie' => 'Ireland',
'il' => 'Israel',
'im' => 'Isle of Man',
'in' => 'India',
'io' => 'British Indian Ocean Territory',
'iq' => 'Iraq',
'ir' => 'Iran',
'is' => 'Iceland',
'it' => 'Italy',
'je' => 'Jersey',
'jm' => 'Jamaica',
'jo' => 'Jordan',
'jp' => 'Japan',
'ke' => 'Kenya',
'kg' => 'Kyrgyzstan',
'kh' => 'Cambodia',
'ki' => 'Kiribati',
'km' => 'Comoros',
'kn' => 'Saint Kitts & Nevis',
'kp' => 'North Korea', // 1.10.0
'kr' => 'South Korea',
'kw' => 'Kuwait',
'ky' => 'Cayman Islands',
'kz' => 'Kazakhstan',
'la' => 'Laos',
'lb' => 'Lebanon',
'lc' => 'Saint Lucia',
'li' => 'Liechtenstein',
'lk' => 'Sri Lanka',
'lr' => 'Liberia',
'ls' => 'Lesotho',
'lt' => 'Lithuania',
'lu' => 'Luxembourg',
'lv' => 'Latvia',
'ly' => 'Libyan Arab Jamahiriya',
'ma' => 'Morocco',
'mc' => 'Monaco',
'md' => 'Moldova',
'me' => 'Montenegro', // 1.10.0
'mg' => 'Madagascar',
'mh' => 'Marshall Islands',
'mk' => 'North Macedonia',
'ml' => 'Mali',
'mm' => 'Myanmar',
'mn' => 'Mongolia',
'mo' => 'Macau',
'mp' => 'Northern Mariana Islands',
'mq' => 'Martinique',
'mr' => 'Mauritania',
'ms' => 'Montserrat',
'mt' => 'Malta',
'mu' => 'Mauritius',
'mv' => 'Maldives',
'mw' => 'Malawi',
'mx' => 'Mexico',
'my' => 'Malaysia',
'mz' => 'Mozambique',
'na' => 'Namibia',
'nc' => 'New Caledonia',
'ne' => 'Niger',
'nf' => 'Norfolk Island',
'ng' => 'Nigeria',
'ni' => 'Nicaragua',
'nl' => 'The Netherlands',
'no' => 'Norway',
'np' => 'Nepal',
'nr' => 'Nauru',
'nu' => 'Niue',
'nz' => 'New Zealand',
'om' => 'Oman',
'pa' => 'Panama',
'pe' => 'Peru',
'pf' => 'French Polynesia',
'pg' => 'Papua New Guinea',
'ph' => 'Philippines',
'pk' => 'Pakistan',
'pl' => 'Poland',
'pm' => 'St. Pierre & Miquelon',
'pn' => 'Pitcairn',
'pr' => 'Puerto Rico',
'ps' => 'Palestine',
'pt' => 'Portugal',
'pw' => 'Palau',
'py' => 'Paraguay',
'qa' => 'Qatar',
're' => 'Réunion',
'ro' => 'Romania',
'rs' => 'Serbia', // 1.10.0
'ru' => 'Russia',
'rw' => 'Rwanda',
'sa' => 'Saudi Arabia',
'sb' => 'Solomon Islands',
'sc' => 'Seychelles',
'sd' => 'Sudan',
'se' => 'Sweden',
'sg' => 'Singapore',
'sh' => 'St. Helena',
'si' => 'Slovenia',
'sj' => 'Svalbard & Jan Mayen Islands',
'sk' => 'Slovakia',
'sl' => 'Sierra Leone',
'sm' => 'San Marino',
'sn' => 'Senegal',
'so' => 'Somalia',
'sr' => 'Surinam',
'st' => 'Sao Tome & Principe',
'su' => 'USSR',
'sv' => 'El Salvador',
'sy' => 'Syrian Arab Republic',
'sz' => 'Swaziland',
'tc' => 'The Turks & Caicos Islands',
'td' => 'Chad',
'tf' => 'French Southern Territories',
'tg' => 'Togo',
'th' => 'Thailand',
'tj' => 'Tajikistan',
'tk' => 'Tokelau',
'tl' => 'Timor-Leste',
'tm' => 'Turkmenistan',
'tn' => 'Tunisia',
'to' => 'Tonga',
'tp' => 'East Timor',
'tr' => 'Turkey',
'tt' => 'Trinidad & Tobago',
'tv' => 'Tuvalu',
'tw' => 'Taiwan',
'tz' => 'Tanzania',
'ua' => 'Ukraine',
'ug' => 'Uganda',
'uk' => 'United Kingdom',
'um' => 'United States Minor Outlying Islands',
'us' => 'United States',
'uy' => 'Uruguay',
'uz' => 'Uzbekistan',
'va' => 'Vatican City',
'vc' => 'Saint Vincent & the Grenadines',
've' => 'Venezuela',
'vg' => 'British Virgin Islands',
'vi' => 'US Virgin Islands',
'vn' => 'Vietnam',
'vu' => 'Vanuatu',
'wf' => 'Wallis & Futuna Islands',
'ws' => 'Samoa',
'ye' => 'Yemen',
'yt' => 'Mayotte',
'yu' => 'Yugoslavia',
'za' => 'South Africa',
'zm' => 'Zambia',
'zr' => 'Zaire', // deprecated
'zw' => 'Zimbabwe',
);
}
?>