<?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">&nbsp;' . $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 . '&nbsp;</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'>&nbsp;" . $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 . '&nbsp;</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>&nbsp;";
        } 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">&nbsp;' . 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',
        
    );
}
?>