xref: /plugin/botmon/action.php (revision a93de874d554b3915acd2e069ef97a4cff9bb90a)
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
245f2c1759SSascha Leib		// insert header data into the page:
256980370bSSascha Leib		$controller->register_hook('TPL_METAHEADER_OUTPUT', 'BEFORE', $this, 'insertHeader');
265f2c1759SSascha Leib
275f2c1759SSascha Leib		// write to the log after the page content was displayed:
285f2c1759SSascha Leib		$controller->register_hook('TPL_CONTENT_DISPLAY', 'AFTER', $this, 'writeServerLog');
295f2c1759SSascha Leib
306980370bSSascha Leib	}
316980370bSSascha Leib
32b148c85eSSascha Leib	/* session information */
33f6a7ebc1SSascha Leib	private $sessionId = null;
34f6a7ebc1SSascha Leib	private $sessionType = '';
355f2c1759SSascha Leib	private $ipAddress = null;
36b148c85eSSascha Leib
376980370bSSascha Leib	/**
386980370bSSascha Leib	 * Inserts tracking code to the page header
396980370bSSascha Leib	 *
406980370bSSascha Leib	 * @param Event $event event object by reference
416980370bSSascha Leib	 * @return void
426980370bSSascha Leib	 */
436980370bSSascha Leib	public function insertHeader(Event $event, $param) {
446980370bSSascha Leib
456980370bSSascha Leib		global $INFO;
466980370bSSascha Leib
47b148c85eSSascha Leib		// populate the session id and type:
48b148c85eSSascha Leib		$this->getSessionInfo();
49b148c85eSSascha Leib
506980370bSSascha Leib		// is there a user logged in?
515f2c1759SSascha Leib		$username = ( !empty($INFO['userinfo']) && !empty($INFO['userinfo']['name']) ?  $INFO['userinfo']['name'] : '');
526980370bSSascha Leib
536980370bSSascha Leib		// build the tracker code:
54b148c85eSSascha Leib		$code = NL . DOKU_TAB . "document._botmon = {'t0': Date.now(), 'session': '" . json_encode($this->sessionId) . "'};" . NL;
556980370bSSascha Leib		if ($username) {
567bd08c30SSascha Leib			$code .= DOKU_TAB . 'document._botmon.user = "' . $username . '";'. NL;
576980370bSSascha Leib		}
586980370bSSascha Leib
595f2c1759SSascha Leib		// add the deferred script loader::
60a3c46a2dSSascha Leib		$code .= DOKU_TAB . "addEventListener('DOMContentLoaded', function(){" . NL;
616980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "const e=document.createElement('script');" . NL;
626980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "e.async=true;e.defer=true;" . NL;
637bd08c30SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "e.src='".DOKU_BASE."lib/plugins/botmon/client.js';" . NL;
646980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "document.getElementsByTagName('head')[0].appendChild(e);" . NL;
651c16f1b7SSascha Leib		$code .= DOKU_TAB . "});" . NL . DOKU_TAB;
666980370bSSascha Leib
675f2c1759SSascha Leib		$event->data['script'][] = ['_data' => $code];
68451abfadSSascha Leib	}
69451abfadSSascha Leib
70451abfadSSascha Leib	/**
71451abfadSSascha Leib	 * Writes data to the server log.
72451abfadSSascha Leib	 *
73451abfadSSascha Leib	 * @return void
74451abfadSSascha Leib	 */
755f2c1759SSascha Leib	public function writeServerLog(Event $event, $param) {
76451abfadSSascha Leib
77451abfadSSascha Leib		global $conf;
78451abfadSSascha Leib		global $INFO;
79091b5998SSascha Leib
805f2c1759SSascha Leib		// is there a user logged in?
815f2c1759SSascha Leib		$username = ( !empty($INFO['userinfo']) && !empty($INFO['userinfo']['name'])
825f2c1759SSascha Leib					?  $INFO['userinfo']['name'] : '');
835f2c1759SSascha Leib
84b2e3bd8bSSascha Leib		// clean the page ID
85b2e3bd8bSSascha Leib		$pageId = preg_replace('/[\x00-\x1F]/', "\u{FFFD}", $INFO['id'] ?? '');
86b2e3bd8bSSascha Leib
87451abfadSSascha Leib		// create the log array:
88cf9f7fe8SSascha Leib		$logArr = Array(
895f2c1759SSascha Leib			$this->ipAddress, /* remote IP */
90b2e3bd8bSSascha Leib			$pageId, /* page ID */
91b148c85eSSascha Leib			$this->sessionId, /* Session ID */
92b148c85eSSascha Leib			$this->sessionType, /* session ID type */
935f2c1759SSascha Leib			$username, /* user name */
942f2bc93aSSascha Leib			$_SERVER['HTTP_USER_AGENT'] ?? '', /* User agent */
95451abfadSSascha Leib			$_SERVER['HTTP_REFERER'] ?? '', /* HTTP Referrer */
96451abfadSSascha Leib			substr($conf['lang'],0,2), /* page language */
97*a93de874SSascha Leib			implode(',', array_unique(array_map( function($it) { return substr(trim($it),0,2); }, explode(',',trim($_SERVER['HTTP_ACCEPT_LANGUAGE'], " \t;,*"))))), /* accepted client languages */
985f2c1759SSascha Leib			$this->getCountryCode() /* GeoIP country code */
99cf9f7fe8SSascha Leib		);
100cf9f7fe8SSascha Leib
101cf9f7fe8SSascha Leib		//* create the log line */
1024cddc661SSascha Leib		$filename = __DIR__ .'/logs/' . gmdate('Y-m-d') . '.srv.txt'; /* use GMT date for filename */
103cf9f7fe8SSascha Leib		$logline = gmdate('Y-m-d H:i:s'); /* use GMT time for log entries */
104cf9f7fe8SSascha Leib		foreach ($logArr as $tab) {
105cf9f7fe8SSascha Leib			$logline .= "\t" . $tab;
106cf9f7fe8SSascha Leib		};
107cf9f7fe8SSascha Leib
108cf9f7fe8SSascha Leib		/* write the log line to the file */
109cf9f7fe8SSascha Leib		$logfile = fopen($filename, 'a');
110cf9f7fe8SSascha Leib		if (!$logfile) die();
111cf9f7fe8SSascha Leib		if (fwrite($logfile, $logline . "\n") === false) {
112cf9f7fe8SSascha Leib			fclose($logfile);
113cf9f7fe8SSascha Leib			die();
1146980370bSSascha Leib		}
115cf9f7fe8SSascha Leib
116cf9f7fe8SSascha Leib		/* Done */
117cf9f7fe8SSascha Leib		fclose($logfile);
118cf9f7fe8SSascha Leib	}
119b148c85eSSascha Leib
1205f2c1759SSascha Leib	private function getCountryCode() {
1215f2c1759SSascha Leib
1227d05fe3bSSascha Leib		$country = ( $this->ipAddress == 'localhost' ? 'local' : 'ZZ' ); // default if no geoip is available!
1235f2c1759SSascha Leib
1245f2c1759SSascha Leib		$lib = $this->getConf('geoiplib'); /* which library to use? (can only be phpgeoip or disabled) */
1255f2c1759SSascha Leib
1265f2c1759SSascha Leib		try {
1275f2c1759SSascha Leib
1285f2c1759SSascha Leib			// use GeoIP module?
1295f2c1759SSascha Leib			if ($lib == 'phpgeoip' && extension_loaded('geoip') && geoip_db_avail(GEOIP_COUNTRY_EDITION)) { // Use PHP GeoIP module
1305f2c1759SSascha Leib				$result = geoip_country_code_by_name($_SERVER['REMOTE_ADDR']);
1315f2c1759SSascha Leib				$country = ($result ? $result : $country);
1325f2c1759SSascha Leib			}
1335f2c1759SSascha Leib		} catch (Exception $e) {
1345f2c1759SSascha Leib			Logger::error('BotMon Plugin: GeoIP Error', $e->getMessage());
1355f2c1759SSascha Leib		}
1365f2c1759SSascha Leib
1375f2c1759SSascha Leib		return $country;
1385f2c1759SSascha Leib	}
1395f2c1759SSascha Leib
140b148c85eSSascha Leib	private function getSessionInfo() {
141b148c85eSSascha Leib
1425f2c1759SSascha Leib		$this->ipAddress = $_SERVER['REMOTE_ADDR'] ?? null;
1435f2c1759SSascha Leib		if ($this->ipAddress == '127.0.0.1' || $this->ipAddress == '::1') $this->ipAddress = 'localhost';
1445f2c1759SSascha Leib
145b148c85eSSascha Leib		// what is the session identifier?
146b148c85eSSascha Leib		if (isset($_SESSION)) {
147b148c85eSSascha Leib			$sesKeys = array_keys($_SESSION); /* DokuWiki Session ID preferred */
148b148c85eSSascha Leib			foreach ($sesKeys as $key) {
149b148c85eSSascha Leib				if (substr($key, 0, 2) == 'DW') {
150b148c85eSSascha Leib					$this->sessionId = $key;
151b148c85eSSascha Leib					$this->sessionType = 'dw';
152b148c85eSSascha Leib					return;
153b148c85eSSascha Leib				}
154b148c85eSSascha Leib			}
155b148c85eSSascha Leib		}
156f6a7ebc1SSascha Leib		if (!$this->sessionId) { /* no DokuWiki Session ID, try PHP session ID */
157b148c85eSSascha Leib			$this->sessionId = session_id();
158b148c85eSSascha Leib			$this->sessionType = 'php';
159b148c85eSSascha Leib		}
1605f2c1759SSascha Leib		if (!$this->sessionId && $this->ipAddress) { /* no PHP session ID, try IP address */
1615f2c1759SSascha Leib			$this->sessionId = $this->ipAddress;
162b148c85eSSascha Leib			$this->sessionType = 'ip';
163b148c85eSSascha Leib		}
164f6a7ebc1SSascha Leib		if (!$this->sessionId) { /* if everything else fails, just us a random ID */
165b148c85eSSascha Leib			$this->sessionId = rand(1000000, 9999999);
166b148c85eSSascha Leib			$this->sessionType = 'rand';
167b148c85eSSascha Leib		}
168b148c85eSSascha Leib	}
1696980370bSSascha Leib}