<?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', ); } ?>