xref: /plugin/botmon/action.php (revision e56d7b71abb5d1a6e19cb8d0b2e4e35a95ea2380)
16980370bSSascha Leib<?php
26980370bSSascha Leib
36980370bSSascha Leibuse dokuwiki\Extension\EventHandler;
46980370bSSascha Leibuse dokuwiki\Extension\Event;
55fbe88f7SSascha Leibuse dokuwiki\Logger;
66980370bSSascha Leib
76980370bSSascha Leib/**
87bd08c30SSascha Leib * Action Component for the Bot Monitoring Plugin
96980370bSSascha Leib *
106980370bSSascha Leib * @license	GPL 3 (http://www.gnu.org/licenses/gpl.html)
116980370bSSascha Leib * @author	 Sascha Leib <sascha.leib(at)kolmio.com>
126980370bSSascha Leib */
136980370bSSascha Leib
147bd08c30SSascha Leibclass action_plugin_botmon extends DokuWiki_Action_Plugin {
156980370bSSascha Leib
166980370bSSascha Leib	/**
176980370bSSascha Leib	 * Registers a callback functions
186980370bSSascha Leib	 *
196980370bSSascha Leib	 * @param EventHandler $controller DokuWiki's event controller object
206980370bSSascha Leib	 * @return void
216980370bSSascha Leib	 */
226980370bSSascha Leib	public function register(EventHandler $controller) {
235f2c1759SSascha Leib
24*e56d7b71SSascha Leib		global $ACT;
25*e56d7b71SSascha Leib
265f2c1759SSascha Leib		// insert header data into the page:
27*e56d7b71SSascha Leib		if ($ACT == 'show') {
286980370bSSascha Leib			$controller->register_hook('TPL_METAHEADER_OUTPUT', 'BEFORE', $this, 'insertHeader');
29*e56d7b71SSascha Leib		} else if ($ACT == 'admin' && isset($_REQUEST['page']) && $_REQUEST['page'] == 'botmon') {
30*e56d7b71SSascha Leib			$controller->register_hook('TPL_METAHEADER_OUTPUT', 'BEFORE', $this, 'insertAdminHeader');
31*e56d7b71SSascha Leib		}
325f2c1759SSascha Leib
335f2c1759SSascha Leib		// write to the log after the page content was displayed:
345f2c1759SSascha Leib		$controller->register_hook('TPL_CONTENT_DISPLAY', 'AFTER', $this, 'writeServerLog');
355f2c1759SSascha Leib
366980370bSSascha Leib	}
376980370bSSascha Leib
38b148c85eSSascha Leib	/* session information */
39f6a7ebc1SSascha Leib	private $sessionId = null;
40f6a7ebc1SSascha Leib	private $sessionType = '';
415f2c1759SSascha Leib	private $ipAddress = null;
42b148c85eSSascha Leib
436980370bSSascha Leib	/**
446980370bSSascha Leib	 * Inserts tracking code to the page header
45*e56d7b71SSascha Leib	 * (only called on 'show' actions)
466980370bSSascha Leib	 *
476980370bSSascha Leib	 * @param Event $event event object by reference
486980370bSSascha Leib	 * @return void
496980370bSSascha Leib	 */
506980370bSSascha Leib	public function insertHeader(Event $event, $param) {
516980370bSSascha Leib
526980370bSSascha Leib		global $INFO;
536980370bSSascha Leib
54b148c85eSSascha Leib		// populate the session id and type:
55b148c85eSSascha Leib		$this->getSessionInfo();
56b148c85eSSascha Leib
576980370bSSascha Leib		// is there a user logged in?
585f2c1759SSascha Leib		$username = ( !empty($INFO['userinfo']) && !empty($INFO['userinfo']['name']) ?  $INFO['userinfo']['name'] : '');
596980370bSSascha Leib
606980370bSSascha Leib		// build the tracker code:
61*e56d7b71SSascha Leib		$code = "document._botmon = {'t0': Date.now(), 'session': '" . json_encode($this->sessionId) . "'};" . NL;
626980370bSSascha Leib		if ($username) {
63*e56d7b71SSascha Leib			$code .= DOKU_TAB . DOKU_TAB . 'document._botmon.user = "' . $username . '";'. NL;
646980370bSSascha Leib		}
656980370bSSascha Leib
665f2c1759SSascha Leib		// add the deferred script loader::
67*e56d7b71SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "addEventListener('DOMContentLoaded', function(){" . NL;
68*e56d7b71SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . DOKU_TAB . "const e=document.createElement('script');" . NL;
69*e56d7b71SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . DOKU_TAB . "e.async=true;e.defer=true;" . NL;
70*e56d7b71SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . DOKU_TAB . "e.src='".DOKU_BASE."lib/plugins/botmon/client.js';" . NL;
71*e56d7b71SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . DOKU_TAB . "document.getElementsByTagName('head')[0].appendChild(e);" . NL;
72*e56d7b71SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "});";
736980370bSSascha Leib
745f2c1759SSascha Leib		$event->data['script'][] = ['_data' => $code];
75451abfadSSascha Leib	}
76451abfadSSascha Leib
77451abfadSSascha Leib	/**
78*e56d7b71SSascha Leib	 * Inserts tracking code to the page header
79*e56d7b71SSascha Leib	 * (only called on 'show' actions)
80*e56d7b71SSascha Leib	 *
81*e56d7b71SSascha Leib	 * @param Event $event event object by reference
82*e56d7b71SSascha Leib	 * @return void
83*e56d7b71SSascha Leib	 */
84*e56d7b71SSascha Leib	public function insertAdminHeader(Event $event, $param) {
85*e56d7b71SSascha Leib
86*e56d7b71SSascha Leib		$event->data['link'][] = ['rel' => 'stylesheet', 'href' => DOKU_BASE.'lib/plugins/botmon/admin.css', 'defer' => 'defer'];
87*e56d7b71SSascha Leib		$event->data['script'][] = ['href' => DOKU_BASE.'lib/plugins/botmon/admin.js', 'defer' => 'defer', '_data' => ''];
88*e56d7b71SSascha Leib	}
89*e56d7b71SSascha Leib
90*e56d7b71SSascha Leib
91*e56d7b71SSascha Leib	/**
92451abfadSSascha Leib	 * Writes data to the server log.
93451abfadSSascha Leib	 *
94451abfadSSascha Leib	 * @return void
95451abfadSSascha Leib	 */
965f2c1759SSascha Leib	public function writeServerLog(Event $event, $param) {
97451abfadSSascha Leib
98451abfadSSascha Leib		global $conf;
99451abfadSSascha Leib		global $INFO;
100091b5998SSascha Leib
1015f2c1759SSascha Leib		// is there a user logged in?
1025f2c1759SSascha Leib		$username = ( !empty($INFO['userinfo']) && !empty($INFO['userinfo']['name'])
1035f2c1759SSascha Leib					?  $INFO['userinfo']['name'] : '');
1045f2c1759SSascha Leib
105b2e3bd8bSSascha Leib		// clean the page ID
106b2e3bd8bSSascha Leib		$pageId = preg_replace('/[\x00-\x1F]/', "\u{FFFD}", $INFO['id'] ?? '');
107b2e3bd8bSSascha Leib
108451abfadSSascha Leib		// create the log array:
109cf9f7fe8SSascha Leib		$logArr = Array(
1105f2c1759SSascha Leib			$this->ipAddress, /* remote IP */
111b2e3bd8bSSascha Leib			$pageId, /* page ID */
112b148c85eSSascha Leib			$this->sessionId, /* Session ID */
113b148c85eSSascha Leib			$this->sessionType, /* session ID type */
1145f2c1759SSascha Leib			$username, /* user name */
1152f2bc93aSSascha Leib			$_SERVER['HTTP_USER_AGENT'] ?? '', /* User agent */
116451abfadSSascha Leib			$_SERVER['HTTP_REFERER'] ?? '', /* HTTP Referrer */
117451abfadSSascha Leib			substr($conf['lang'],0,2), /* page language */
118a93de874SSascha Leib			implode(',', array_unique(array_map( function($it) { return substr(trim($it),0,2); }, explode(',',trim($_SERVER['HTTP_ACCEPT_LANGUAGE'], " \t;,*"))))), /* accepted client languages */
1195f2c1759SSascha Leib			$this->getCountryCode() /* GeoIP country code */
120cf9f7fe8SSascha Leib		);
121cf9f7fe8SSascha Leib
122cf9f7fe8SSascha Leib		//* create the log line */
1234cddc661SSascha Leib		$filename = __DIR__ .'/logs/' . gmdate('Y-m-d') . '.srv.txt'; /* use GMT date for filename */
124cf9f7fe8SSascha Leib		$logline = gmdate('Y-m-d H:i:s'); /* use GMT time for log entries */
125cf9f7fe8SSascha Leib		foreach ($logArr as $tab) {
126cf9f7fe8SSascha Leib			$logline .= "\t" . $tab;
127cf9f7fe8SSascha Leib		};
128cf9f7fe8SSascha Leib
129cf9f7fe8SSascha Leib		/* write the log line to the file */
130cf9f7fe8SSascha Leib		$logfile = fopen($filename, 'a');
131cf9f7fe8SSascha Leib		if (!$logfile) die();
132cf9f7fe8SSascha Leib		if (fwrite($logfile, $logline . "\n") === false) {
133cf9f7fe8SSascha Leib			fclose($logfile);
134cf9f7fe8SSascha Leib			die();
1356980370bSSascha Leib		}
136cf9f7fe8SSascha Leib
137cf9f7fe8SSascha Leib		/* Done */
138cf9f7fe8SSascha Leib		fclose($logfile);
139cf9f7fe8SSascha Leib	}
140b148c85eSSascha Leib
1415f2c1759SSascha Leib	private function getCountryCode() {
1425f2c1759SSascha Leib
1437d05fe3bSSascha Leib		$country = ( $this->ipAddress == 'localhost' ? 'local' : 'ZZ' ); // default if no geoip is available!
1445f2c1759SSascha Leib
1455f2c1759SSascha Leib		$lib = $this->getConf('geoiplib'); /* which library to use? (can only be phpgeoip or disabled) */
1465f2c1759SSascha Leib
1475f2c1759SSascha Leib		try {
1485f2c1759SSascha Leib
1495f2c1759SSascha Leib			// use GeoIP module?
1505f2c1759SSascha Leib			if ($lib == 'phpgeoip' && extension_loaded('geoip') && geoip_db_avail(GEOIP_COUNTRY_EDITION)) { // Use PHP GeoIP module
1515f2c1759SSascha Leib				$result = geoip_country_code_by_name($_SERVER['REMOTE_ADDR']);
1525f2c1759SSascha Leib				$country = ($result ? $result : $country);
1535f2c1759SSascha Leib			}
1545f2c1759SSascha Leib		} catch (Exception $e) {
1555f2c1759SSascha Leib			Logger::error('BotMon Plugin: GeoIP Error', $e->getMessage());
1565f2c1759SSascha Leib		}
1575f2c1759SSascha Leib
1585f2c1759SSascha Leib		return $country;
1595f2c1759SSascha Leib	}
1605f2c1759SSascha Leib
161b148c85eSSascha Leib	private function getSessionInfo() {
162b148c85eSSascha Leib
1635f2c1759SSascha Leib		$this->ipAddress = $_SERVER['REMOTE_ADDR'] ?? null;
1645f2c1759SSascha Leib		if ($this->ipAddress == '127.0.0.1' || $this->ipAddress == '::1') $this->ipAddress = 'localhost';
1655f2c1759SSascha Leib
166b148c85eSSascha Leib		// what is the session identifier?
167b148c85eSSascha Leib		if (isset($_SESSION)) {
168b148c85eSSascha Leib			$sesKeys = array_keys($_SESSION); /* DokuWiki Session ID preferred */
169b148c85eSSascha Leib			foreach ($sesKeys as $key) {
170b148c85eSSascha Leib				if (substr($key, 0, 2) == 'DW') {
171b148c85eSSascha Leib					$this->sessionId = $key;
172b148c85eSSascha Leib					$this->sessionType = 'dw';
173b148c85eSSascha Leib					return;
174b148c85eSSascha Leib				}
175b148c85eSSascha Leib			}
176b148c85eSSascha Leib		}
177f6a7ebc1SSascha Leib		if (!$this->sessionId) { /* no DokuWiki Session ID, try PHP session ID */
178b148c85eSSascha Leib			$this->sessionId = session_id();
179b148c85eSSascha Leib			$this->sessionType = 'php';
180b148c85eSSascha Leib		}
1815f2c1759SSascha Leib		if (!$this->sessionId && $this->ipAddress) { /* no PHP session ID, try IP address */
1825f2c1759SSascha Leib			$this->sessionId = $this->ipAddress;
183b148c85eSSascha Leib			$this->sessionType = 'ip';
184b148c85eSSascha Leib		}
185f6a7ebc1SSascha Leib		if (!$this->sessionId) { /* if everything else fails, just us a random ID */
186b148c85eSSascha Leib			$this->sessionId = rand(1000000, 9999999);
187b148c85eSSascha Leib			$this->sessionType = 'rand';
188b148c85eSSascha Leib		}
189b148c85eSSascha Leib	}
1906980370bSSascha Leib}