xref: /plugin/botmon/action.php (revision 5fbe88f796ab3a991fadf4a4827c801f939bd7a3)
16980370bSSascha Leib<?php
26980370bSSascha Leib
36980370bSSascha Leibuse dokuwiki\Extension\EventHandler;
46980370bSSascha Leibuse dokuwiki\Extension\Event;
5*5fbe88f7SSascha 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) {
236980370bSSascha Leib		$controller->register_hook('TPL_METAHEADER_OUTPUT', 'BEFORE', $this, 'insertHeader');
246980370bSSascha Leib	}
256980370bSSascha Leib
266980370bSSascha Leib	/**
276980370bSSascha Leib	 * Inserts tracking code to the page header
286980370bSSascha Leib	 *
296980370bSSascha Leib	 * @param Event $event event object by reference
306980370bSSascha Leib	 * @return void
316980370bSSascha Leib	 */
326980370bSSascha Leib	public function insertHeader(Event $event, $param) {
336980370bSSascha Leib
346980370bSSascha Leib		global $INFO;
356980370bSSascha Leib
366980370bSSascha Leib		// is there a user logged in?
376980370bSSascha Leib		$username = ( !empty($INFO['userinfo']) && !empty($INFO['userinfo']['name'])
3813c9d29dSSascha Leib					?  $INFO['userinfo']['name'] : '');
396980370bSSascha Leib
406980370bSSascha Leib		// build the tracker code:
417bd08c30SSascha Leib		$code = NL . DOKU_TAB . "document._botmon = {'t0': Date.now()};" . NL;
426980370bSSascha Leib		if ($username) {
437bd08c30SSascha Leib			$code .= DOKU_TAB . 'document._botmon.user = "' . $username . '";'. NL;
446980370bSSascha Leib		}
456980370bSSascha Leib		$code .= DOKU_TAB . "addEventListener('load',function(){" . NL;
466980370bSSascha Leib
476980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "const e=document.createElement('script');" . NL;
486980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "e.async=true;e.defer=true;" . NL;
497bd08c30SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "e.src='".DOKU_BASE."lib/plugins/botmon/client.js';" . NL;
506980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "document.getElementsByTagName('head')[0].appendChild(e);" . NL;
511c16f1b7SSascha Leib		$code .= DOKU_TAB . "});" . NL . DOKU_TAB;
526980370bSSascha Leib
536980370bSSascha Leib		$event->data['script'][] = [
546980370bSSascha Leib			'_data'   => $code
556980370bSSascha Leib        ];
56cf9f7fe8SSascha Leib
574cddc661SSascha Leib		/* Write out server-side info to a server log: */
58451abfadSSascha Leib		$this->writeServerLog($username);
59451abfadSSascha Leib	}
60451abfadSSascha Leib
61451abfadSSascha Leib	/**
62451abfadSSascha Leib	 * Writes data to the server log.
63451abfadSSascha Leib	 *
64451abfadSSascha Leib	 * @return void
65451abfadSSascha Leib	 */
66451abfadSSascha Leib	private function writeServerLog($username) {
67451abfadSSascha Leib
68451abfadSSascha Leib		global $conf;
69451abfadSSascha Leib		global $INFO;
70091b5998SSascha Leib
71091b5998SSascha Leib		// what is the session identifier?
7213c9d29dSSascha Leib		$sessionId = $_COOKIE['DokuWiki']  ?? '';
73091b5998SSascha Leib		$sessionType = 'dw';
7413c9d29dSSascha Leib		if ($sessionId == '') {
75091b5998SSascha Leib			$sessionId = $_SERVER['REMOTE_ADDR'] ?? '';
76f162e4a9SSascha Leib			if ($sessionId == '127.0.0.1' || $sessionId == '::1') {
77abfc901fSSascha Leib				$sessionId = 'localhost';
78091b5998SSascha Leib			}
79abfc901fSSascha Leib			$sessionType = 'ip';
80091b5998SSascha Leib		}
81091b5998SSascha Leib
82b2e3bd8bSSascha Leib		// clean the page ID
83b2e3bd8bSSascha Leib		$pageId = preg_replace('/[\x00-\x1F]/', "\u{FFFD}", $INFO['id'] ?? '');
84b2e3bd8bSSascha Leib
85*5fbe88f7SSascha Leib		// collect GeoIP information (if available):
86*5fbe88f7SSascha Leib		$geoIp = 'XX'; /* User-defined code for unknown country */
87*5fbe88f7SSascha Leib		try {
88*5fbe88f7SSascha Leib			if (extension_loaded('geoip') && geoip_db_avail(GEOIP_COUNTRY_EDITION)) {
89*5fbe88f7SSascha Leib				$geoIp = geoip_country_code_by_name($_SERVER['REMOTE_ADDR']);
90*5fbe88f7SSascha Leib			} else {
91*5fbe88f7SSascha Leib				Logger::debug('BotMon Plugin: GeoIP module not available');
92*5fbe88f7SSascha Leib			}
93*5fbe88f7SSascha Leib		} catch (Exception $e) {
94*5fbe88f7SSascha Leib			Logger::error('BotMon Plugin: GeoIP Error', $e->getMessage());
95*5fbe88f7SSascha Leib		}
96*5fbe88f7SSascha Leib
97451abfadSSascha Leib		// create the log array:
98cf9f7fe8SSascha Leib		$logArr = Array(
9987d76396SSascha Leib			$_SERVER['REMOTE_ADDR'] ?? '', /* remote IP */
100b2e3bd8bSSascha Leib			$pageId, /* page ID */
101091b5998SSascha Leib			$sessionId, /* Session ID */
102b2e3bd8bSSascha Leib			$sessionType, /* session ID type */
103cf9f7fe8SSascha Leib			$username,
1042f2bc93aSSascha Leib			$_SERVER['HTTP_USER_AGENT'] ?? '', /* User agent */
105451abfadSSascha Leib			$_SERVER['HTTP_REFERER'] ?? '', /* HTTP Referrer */
106451abfadSSascha Leib			substr($conf['lang'],0,2), /* page language */
107*5fbe88f7SSascha Leib			implode(',', array_unique(array_map( function($it) { return substr($it,0,2); }, explode(',',trim($_SERVER['HTTP_ACCEPT_LANGUAGE'], " \t;,*"))))), /* accepted client languages */
108*5fbe88f7SSascha Leib			$geoIp /* GeoIP country code */
109cf9f7fe8SSascha Leib		);
110cf9f7fe8SSascha Leib
111cf9f7fe8SSascha Leib		//* create the log line */
1124cddc661SSascha Leib		$filename = __DIR__ .'/logs/' . gmdate('Y-m-d') . '.srv.txt'; /* use GMT date for filename */
113cf9f7fe8SSascha Leib		$logline = gmdate('Y-m-d H:i:s'); /* use GMT time for log entries */
114cf9f7fe8SSascha Leib		foreach ($logArr as $tab) {
115cf9f7fe8SSascha Leib			$logline .= "\t" . $tab;
116cf9f7fe8SSascha Leib		};
117cf9f7fe8SSascha Leib
118cf9f7fe8SSascha Leib		/* write the log line to the file */
119cf9f7fe8SSascha Leib		$logfile = fopen($filename, 'a');
120cf9f7fe8SSascha Leib		if (!$logfile) die();
121cf9f7fe8SSascha Leib		if (fwrite($logfile, $logline . "\n") === false) {
122cf9f7fe8SSascha Leib			fclose($logfile);
123cf9f7fe8SSascha Leib			die();
1246980370bSSascha Leib		}
125cf9f7fe8SSascha Leib
126cf9f7fe8SSascha Leib		/* Done */
127cf9f7fe8SSascha Leib		fclose($logfile);
128cf9f7fe8SSascha Leib	}
1296980370bSSascha Leib}