xref: /plugin/botmon/action.php (revision 1c16f1b705f3ac517ed9b89a2a24a5dcfe428c87)
16980370bSSascha Leib<?php
26980370bSSascha Leib
36980370bSSascha Leibuse dokuwiki\Extension\EventHandler;
46980370bSSascha Leibuse dokuwiki\Extension\Event;
56980370bSSascha Leib
66980370bSSascha Leib/**
77bd08c30SSascha Leib * Action Component for the Bot Monitoring Plugin
86980370bSSascha Leib *
96980370bSSascha Leib * @license	GPL 3 (http://www.gnu.org/licenses/gpl.html)
106980370bSSascha Leib * @author	 Sascha Leib <sascha.leib(at)kolmio.com>
116980370bSSascha Leib */
126980370bSSascha Leib
137bd08c30SSascha Leibclass action_plugin_botmon extends DokuWiki_Action_Plugin {
146980370bSSascha Leib
156980370bSSascha Leib	/**
166980370bSSascha Leib	 * Registers a callback functions
176980370bSSascha Leib	 *
186980370bSSascha Leib	 * @param EventHandler $controller DokuWiki's event controller object
196980370bSSascha Leib	 * @return void
206980370bSSascha Leib	 */
216980370bSSascha Leib	public function register(EventHandler $controller) {
226980370bSSascha Leib		$controller->register_hook('TPL_METAHEADER_OUTPUT', 'BEFORE', $this, 'insertHeader');
236980370bSSascha Leib	}
246980370bSSascha Leib
256980370bSSascha Leib	/**
266980370bSSascha Leib	 * Inserts tracking code to the page header
276980370bSSascha Leib	 *
286980370bSSascha Leib	 * @param Event $event event object by reference
296980370bSSascha Leib	 * @return void
306980370bSSascha Leib	 */
316980370bSSascha Leib	public function insertHeader(Event $event, $param) {
326980370bSSascha Leib
336980370bSSascha Leib		global $INFO;
346980370bSSascha Leib
356980370bSSascha Leib		// is there a user logged in?
366980370bSSascha Leib		$username = ( !empty($INFO['userinfo']) && !empty($INFO['userinfo']['name'])
3713c9d29dSSascha Leib					?  $INFO['userinfo']['name'] : '');
386980370bSSascha Leib
396980370bSSascha Leib		// build the tracker code:
407bd08c30SSascha Leib		$code = NL . DOKU_TAB . "document._botmon = {'t0': Date.now()};" . NL;
416980370bSSascha Leib		if ($username) {
427bd08c30SSascha Leib			$code .= DOKU_TAB . 'document._botmon.user = "' . $username . '";'. NL;
436980370bSSascha Leib		}
446980370bSSascha Leib		$code .= DOKU_TAB . "addEventListener('load',function(){" . NL;
456980370bSSascha Leib
466980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "const e=document.createElement('script');" . NL;
476980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "e.async=true;e.defer=true;" . NL;
487bd08c30SSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "e.src='".DOKU_BASE."lib/plugins/botmon/client.js';" . NL;
496980370bSSascha Leib		$code .= DOKU_TAB . DOKU_TAB . "document.getElementsByTagName('head')[0].appendChild(e);" . NL;
50*1c16f1b7SSascha Leib		$code .= DOKU_TAB . "});" . NL . DOKU_TAB;
516980370bSSascha Leib
526980370bSSascha Leib		$event->data['script'][] = [
536980370bSSascha Leib			'_data'   => $code
546980370bSSascha Leib        ];
55cf9f7fe8SSascha Leib
564cddc661SSascha Leib		/* Write out server-side info to a server log: */
57091b5998SSascha Leib
58091b5998SSascha Leib		// what is the session identifier?
5913c9d29dSSascha Leib		$sessionId = $_COOKIE['DokuWiki']  ?? '';
60091b5998SSascha Leib		$sessionType = 'dw';
6113c9d29dSSascha Leib		if ($sessionId == '') {
62091b5998SSascha Leib			$sessionId = $_SERVER['REMOTE_ADDR'] ?? '';
63f162e4a9SSascha Leib			if ($sessionId == '127.0.0.1' || $sessionId == '::1') {
64abfc901fSSascha Leib				$sessionId = 'localhost';
65091b5998SSascha Leib			}
66abfc901fSSascha Leib			$sessionType = 'ip';
67091b5998SSascha Leib		}
68091b5998SSascha Leib
69b2e3bd8bSSascha Leib		// clean the page ID
70b2e3bd8bSSascha Leib		$pageId = preg_replace('/[\x00-\x1F]/', "\u{FFFD}", $INFO['id'] ?? '');
71b2e3bd8bSSascha Leib
72cf9f7fe8SSascha Leib		$logArr = Array(
7387d76396SSascha Leib			$_SERVER['REMOTE_ADDR'] ?? '', /* remote IP */
74b2e3bd8bSSascha Leib			$pageId, /* page ID */
75091b5998SSascha Leib			$sessionId, /* Session ID */
76b2e3bd8bSSascha Leib			$sessionType, /* session ID type */
77cf9f7fe8SSascha Leib			$username,
782f2bc93aSSascha Leib			$_SERVER['HTTP_USER_AGENT'] ?? '', /* User agent */
792f2bc93aSSascha Leib			$_SERVER['HTTP_REFERER'] ?? '' /* HTTP Referrer */
80cf9f7fe8SSascha Leib		);
81cf9f7fe8SSascha Leib
82cf9f7fe8SSascha Leib		//* create the log line */
834cddc661SSascha Leib		$filename = __DIR__ .'/logs/' . gmdate('Y-m-d') . '.srv.txt'; /* use GMT date for filename */
84cf9f7fe8SSascha Leib		$logline = gmdate('Y-m-d H:i:s'); /* use GMT time for log entries */
85cf9f7fe8SSascha Leib		foreach ($logArr as $tab) {
86cf9f7fe8SSascha Leib			$logline .= "\t" . $tab;
87cf9f7fe8SSascha Leib		};
88cf9f7fe8SSascha Leib
89cf9f7fe8SSascha Leib		/* write the log line to the file */
90cf9f7fe8SSascha Leib		$logfile = fopen($filename, 'a');
91cf9f7fe8SSascha Leib		if (!$logfile) die();
92cf9f7fe8SSascha Leib		if (fwrite($logfile, $logline . "\n") === false) {
93cf9f7fe8SSascha Leib			fclose($logfile);
94cf9f7fe8SSascha Leib			die();
956980370bSSascha Leib		}
96cf9f7fe8SSascha Leib
97cf9f7fe8SSascha Leib		/* Done */
98cf9f7fe8SSascha Leib		fclose($logfile);
99cf9f7fe8SSascha Leib
100cf9f7fe8SSascha Leib	}
1016980370bSSascha Leib}