xref: /dports/www/tikiwiki/tiki-21.2/lib/parser/parserlib.php

<?php
// (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
//
// All Rights Reserved. See copyright.txt for details and a complete list of authors.
// Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
// $Id$

/**
 * Parser Library
 *
 * \wiki syntax parser for tiki
 *
 * NB: Needs to be kept in utf-8
 *
 * @package		Tiki
 * @subpackage		Parser
 * @author		Robert Plummer
 * @copyright (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
 * 			See copyright.txt for details and a complete list of authors.
 * @licence Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
 * @version		SVN $Rev$
 * @filesource
 * @link		http://dev.tiki.org/Parser
 * @since		8
 * @see WikiParser_Parsable
 */
class ParserLib extends TikiDb_Bridge
{
	// private $makeTocCount = 0; Unused since Tiki 12 or earlier

	//This var is used in both protectSpecialChars and unprotectSpecialChars to simplify the html ouput process. Can be replaced with a const starting with PHP 7
	public $specialChars = [
		'≤REAL_LT≥' => [
			'html' => '<',
			'nonHtml' => '&lt;'
		],
		'≤REAL_GT≥' => [
			'html' => '>',
			'nonHtml' => '&gt;'
		],
		'≤REAL_NBSP≥' => [
			'html' => '&nbsp;',
			'nonHtml' => '&nbsp;'
		],
		/*on post back the page is parsed, which turns & into &amp;
		this is done to prevent that from happening, we are just
		protecting some chars from letting the parser nab them*/
		'≤REAL_AMP≥' => [
			'html' => '& ',
			'nonHtml' => '& '
		],
	];

	/*
	 * Parsing "options". Some of these are real parsing parameters, such as protect_email and security options.
	 * Others (like is_html) define the markup's semantic.
	 *
	 * TODO: Separate real parsing parameters from properties of the parsable markup
	 * TO DO: To ease usage tracking, it may be best to replace $option with individual properties.
	 * Or replace setOptions() with individual setters?
	 */
	public $option = []; // An associative array of (most) parameters (despite the singular)

	function setOptions($option = [])
	{
		global $page, $prefs;

		$this->option = array_merge(
			[
				'is_html' => false,

				/* Determines if "Tiki syntax" is parsed in some circumstances.
				Currently, when is_html is true, but that is probably wrong.
				Overriden by the HTML plugin to force wiki parsing */
				'parse_wiki' => ! isset($prefs['wysiwyg_wiki_parsed']) || $prefs['wysiwyg_wiki_parsed'] === 'y',

				'absolute_links' => false,
				'language' => '',
				'noparseplugins' => false,
				'stripplugins' => false,
				'noheaderinc' => false,
				'page' => $page,
				'print' => false,
				'parseimgonly' => false,
				'preview_mode' => false,
				'suppress_icons' => false,
				'parsetoc' => true,
				'inside_pretty' => false,
				'process_wiki_paragraphs' => true,
				'min_one_paragraph' => false,
				'skipvalidation' => false,
				'ck_editor' => false,
				'namespace' => false,
				'protect_email' => true,
				'exclude_plugins' => [],
				'exclude_all_plugins' => false,
				'include_plugins' => [],
				'typography' => true,
			],
			empty($option) ? [] : (array) $this->option,
			(array)$option
		);
		$this->option['include_plugins'] = array_map('strtolower', $this->option['include_plugins']);
		$this->option['exclude_plugins'] = array_map('strtolower', $this->option['exclude_plugins']);
	}

	function __construct()
	{
		$this->setOptions();
	}
	//*
	function parse_data_raw($data)
	{
		$data = $this->parse_data($data);
		$data = str_replace("tiki-index", "tiki-index_raw", $data);
		return $data;
	}

	// This function handles wiki codes for those special HTML characters
	// that textarea won't leave alone.
	//*
	protected function parse_htmlchar(&$data)
	{
		// cleaning some user input
		// ckeditor parses several times and messes things up, we should only let it parse once
		if (! $this->option['ck_editor']) {
			$data = str_replace('&', '&amp;', $data);
		}

		// oft-used characters (case insensitive)
		$data = preg_replace("/~bs~/i", "&#92;", $data);
		$data = preg_replace("/~hs~/i", "&nbsp;", $data);
		$data = preg_replace("/~amp~/i", "&amp;", $data);
		$data = preg_replace("/~ldq~/i", "&ldquo;", $data);
		$data = preg_replace("/~rdq~/i", "&rdquo;", $data);
		$data = preg_replace("/~lsq~/i", "&lsquo;", $data);
		$data = preg_replace("/~rsq~/i", "&rsquo;", $data);
		$data = preg_replace("/~c~/i", "&copy;", $data);
		$data = preg_replace("/~--~/", "&mdash;", $data);
		$data = preg_replace("/ -- /", " &mdash; ", $data);
		$data = preg_replace("/~lt~/i", "&lt;", $data);
		$data = preg_replace("/~gt~/i", "&gt;", $data);

		// HTML numeric character entities
		$data = preg_replace("/~([0-9]+)~/", "&#$1;", $data);
	}

	// This function handles the protection of html entities so that they are not mangled when
	// parse_htmlchar runs, and as well so they can be properly seen, be it html or non-html
	function protectSpecialChars($data, $is_html = false)
	{
		if ((isset($this->option['is_html']) && $this->option['is_html'] != true) || ! empty($this->option['ck_editor'])) {
			foreach ($this->specialChars as $key => $specialChar) {
				$data = str_replace($specialChar['html'], $key, $data);
			}
		}
		return $data;
	}

	// This function removed the protection of html entities so that they are rendered as expected by the viewer
	function unprotectSpecialChars($data, $is_html = false)
	{
		if (( $is_html != false || ( isset($this->option['is_html']) && $this->option['is_html']))
			|| $this->option['ck_editor']) {
			foreach ($this->specialChars as $key => $specialChar) {
				$data = str_replace($key, $specialChar['html'], $data);
			}
		} else {
			foreach ($this->specialChars as $key => $specialChar) {
				$data = str_replace($key, $specialChar['nonHtml'], $data);
			}
		}

		return $data;
	}

	// Reverses parse_first.
	//*
	function replace_preparse(&$data, &$preparsed, &$noparsed, $is_html = false)
	{
		$data1 = $data;
		$data2 = "";

		// Cook until done.  Handles nested cases.
		while ($data1 != $data2) {
			$data1 = $data;
			if (isset($noparsed["key"]) and count($noparsed["key"]) and count($noparsed["key"]) == count($noparsed["data"])) {
				$data = str_replace($noparsed["key"], $noparsed["data"], $data);
			}

			if (isset($preparsed["key"]) and count($preparsed["key"]) and count($preparsed["key"]) == count($preparsed["data"])) {
				$data = str_replace($preparsed["key"], $preparsed["data"], $data);
			}
			$data2 = $data;
		}

		$data = $this->unprotectSpecialChars($data, $is_html);
	}

	/**
	 * Replace plugins with guid keys and store them in an array
	 *
	 * @param $data	string		data to be cleaned of plugins
	 * @param $noparsed array	output array
	 * @see parserLib::plugins_replace()
	 */
	function plugins_remove(&$data, &$noparsed, $removeCb = null)
	{
		$tikilib = TikiLib::lib('tiki');
		if (isset($removeCb) && ! is_callable($removeCb)) {
			throw new Exception('Invalid callback');
		}
		$matches = WikiParser_PluginMatcher::match($data);		// find the plugins
		foreach ($matches as $match) {							// each plugin
			if (isset($removeCb) && ! $removeCb($match)) {
				continue;
			}
			$plugin = (string) $match;
			$key = '§' . md5($tikilib->genPass()) . '§';				// by replace whole plugin with a guid

			$noparsed['key'][] = $key;
			$noparsed['data'][] = $plugin;
		}
		$data = isset($noparsed['data']) ? str_replace($noparsed['data'], $noparsed['key'], $data) : $data;
	}

	/**
	 * Restore plugins from array
	 *
	 * @param $data	string		data previously processed with plugins_remove()
	 * @param $noparsed array	input array
	 */

	function plugins_replace(&$data, $noparsed, $is_html = false)
	{
		$preparsed = [];	// unused
		$noparsed['data'] = isset($noparsed['data']) ? str_replace('<x>', '', $noparsed['data']) : '';
		$this->replace_preparse($data, $preparsed, $noparsed, $is_html);
	}

	//*
	private function plugin_match(&$data, &$plugins)
	{
		global $pluginskiplist;
		if (! is_array($pluginskiplist)) {
			$pluginskiplist = [];
		}

		$matcher_fake = ["~pp~","~np~","&lt;pre&gt;"];
		$matcher = "/\{([A-Z0-9_]+) *\(|\{([a-z]+)(\s|\})|~pp~|~np~|&lt;[pP][rR][eE]&gt;/";

		$plugins = [];
		preg_match_all($matcher, $data, $tmp, PREG_SET_ORDER);
		foreach ($tmp as $p) {
			if (in_array(TikiLib::strtolower($p[0]), $matcher_fake)
				|| ( isset($p[1]) && ( in_array($p[1], $matcher_fake) || $this->plugin_exists($p[1]) ) )
				|| ( isset($p[2]) && ( in_array($p[2], $matcher_fake) || $this->plugin_exists($p[2]) ) )
			) {
				$plugins = $p;
				break;
			}
		}

		// Check to make sure there was a match.
		if (count($plugins) > 0 && strlen($plugins[0]) > 0) {
			$pos = 0;
			while (in_array($plugins[0], $pluginskiplist)) {
				$pos = strpos($data, $plugins[0], $pos) + 1;
				if (! preg_match($matcher, substr($data, $pos), $plugins)) {
					return;
				}
			}

			// If it is a true plugin
			if ($plugins[0]{0} == "{") {
				$pos = strpos($data, $plugins[0]); // where plugin starts
				$pos_end = $pos + strlen($plugins[0]); // where character after ( is

				// Here we're going to look for the end of the arguments for the plugin.

				$i = $pos_end;
				$last_data = strlen($data);

				// We start with one open curly brace, and one open paren.
				$curlies = 1;

				// If model with (
				if (strlen($plugins[1])) {
					$parens = 1;
					$plugins['type'] = 'long';
				} else {
					$parens = 0;
					$plugins[1] = $plugins[2];
					unset($plugins[3]);
					$plugins['type'] = 'short';
				}

				// While we're not at the end of the string, and we still haven't found both closers
				while ($i < $last_data) {
					$char = substr($data, $i, 1);
					//print "<pre>Data char: $i, $char, $curlies, $parens\n.</pre>\n";
					if ($char == "{") {
						$curlies++;
					} elseif ($char == "(" && $plugins['type'] == 'long') {
						$parens++;
					} elseif ($char == "}") {
						$curlies--;
						if ($plugins['type'] == 'short') {
							$lastParens = $i;
						}
					} elseif ($char == ")"  && $plugins['type'] == 'long') {
						$parens--;
						$lastParens = $i;
					}

					// If we found the end of the match...
					if ($curlies == 0 && $parens == 0) {
						break;
					}

					$i++;
				}

				if ($curlies == 0 && $parens == 0) {
					$plugins[2] = (string) substr($data, $pos_end, $lastParens - $pos_end);
					$plugins[0] = $plugins[0] . (string) substr($data, $pos_end, $i - $pos_end + 1);
					/*
						 print "<pre>Match found: ";
						 print( $plugins[2] );
						 print "</pre>";
					 */
				}

				$plugins['arguments'] = isset($plugins[2]) ? $this->plugin_split_args($plugins[2]) : [];
			} else {
				$plugins[1] = $plugins[0];
				$plugins[2] = "";
			}
		}

		/*
			 print "<pre>Plugin match end:";
			 print_r( $plugins );
			 print "</pre>";
		 */
	}

	//*
	function plugin_split_args($params_string)
	{
		$parser = new WikiParser_PluginArgumentParser;

		return $parser->parse($params_string);
	}

	// get all the plugins of a text- can be limitted only to some
	//*
	function getPlugins($data, $only = null)
	{
		$plugins = [];
		for (;;) {
			$this->plugin_match($data, $plugin);
			if (empty($plugin)) {
				break;
			}
			if (empty($only) || in_array($plugin[1], $only) || in_array(TikiLib::strtoupper($plugin[1]), $only) || in_array(TikiLib::strtolower($plugin[1]), $only)) {
				$plugins[] = $plugin;
			}
			$pos = strpos($data, $plugin[0]);
			$data = substr_replace($data, '', $pos, strlen($plugin[0]));
		}
		return $plugins;
	}

	// Transitional wrapper over WikiParser_Parsable::parse_first()
	// This recursive function handles pre- and no-parse sections and plugins
	function parse_first(&$data, &$preparsed, &$noparsed, $real_start_diff = '0')
	{
		return (new WikiParser_Parsable(''))->parse_first($data, $preparsed, $noparsed, $real_start_diff);
	}

	protected function strip_unparsed_block(& $data, & $noparsed, $protect = false)
	{
		$tikilib = TikiLib::lib('tiki');

		$start = -1;
		while (false !== $start = strpos($data, '~np~', $start + 1)) {
			if (false !== $end = strpos($data, '~/np~', $start)) {
				$content = substr($data, $start + 4, $end - $start - 4);
				if ($protect) {
					$content = $this->protectSpecialChars($content, $this->option['is_html']);
				}
				// ~pp~ type "plugins"
				$key = "§" . md5($tikilib->genPass()) . "§";
				$noparsed["key"][] = preg_quote($key);
				$noparsed["data"][] = $content;

				$data = substr($data, 0, $start) . $key . substr($data, $end + 5);
			}
		}
	}

	//
	// Call 'wikiplugin_.*_description()' from given file
	//
	public function get_plugin_description($name, &$enabled, $area_id = 'editwiki')
	{
		if (( ! $info = $this->plugin_info($name) ) && $this->plugin_exists($name, true)) {
			$enabled = true;

			$func_name = "wikiplugin_{$name}_help";
			if (! function_exists($func_name)) {
				return false;
			}

			$ret = $func_name();
			return $this->parse_data($ret);
		} else {
			$smarty = TikiLib::lib('smarty');
			$enabled = true;

			$ret = $info;

			if (isset($ret['prefs'])) {
				global $prefs;

				// If the plugin defines required preferences, they should all be to 'y'
				foreach ($ret['prefs'] as $pref) {
					if (! isset($prefs[$pref]) || $prefs[$pref] != 'y') {
						$enabled = false;
						return;
					}
				}
			}

			if (isset($ret['documentation']) && ctype_alnum($ret['documentation'])) {
				$ret['documentation'] = "http://doc.tiki.org/{$ret['documentation']}";
			}

			$smarty->assign('area_id', $area_id);
			$smarty->assign('plugin', $ret);
			$smarty->assign('plugin_name', TikiLib::strtoupper($name));
			return $smarty->fetch('tiki-plugin_help.tpl');
		}
	}

	//*
	function plugin_get_list($includeReal = true, $includeAlias = true)
	{
		return WikiPlugin_Negotiator_Wiki::getList($includeReal, $includeAlias);
	}

	//*
	function plugin_exists($name, $include = false)
	{
		$php_name = 'lib/wiki-plugins/wikiplugin_';
		$php_name .= TikiLib::strtolower($name) . '.php';

		$exists = file_exists($php_name);

		if ($include && $exists) {
			include_once $php_name;
		}

		if ($exists) {
			return true;
		} elseif ($info = WikiPlugin_Negotiator_Wiki_Alias::info($name)) {
			// Make sure the underlying implementation exists

			return $this->plugin_exists($info['implementation'], $include);
		}
		return false;
	}

	//*
	function plugin_info($name, $args = [])
	{
		static $known = [];

		if (isset($known[$name]) && $name != 'package') {
			return $known[$name];
		}

		if (! $this->plugin_exists($name, true)) {
			return $known[$name] = false;
		}

		$func_name_info = "wikiplugin_{$name}_info";

		if (! function_exists($func_name_info)) {
			if ($info = WikiPlugin_Negotiator_Wiki_Alias::info($name)) {
				return $known[$name] = $info['description'];
			} else {
				return $known[$name] = false;
			}
		}

		// Support Tiki Packages param overrides for Package plugin
		if ($name == 'package' && ! empty($args['package']) && ! empty($args['plugin'])) {
			$info = $func_name_info();

			$parts = explode('/', $args['package']);
			if ($extensionPackage = \Tiki\Package\ExtensionManager::get($args['package'])) {
				$path = $extensionPackage->getPath() . '/lib/wiki-plugins/' . $args['plugin'] . '.php';
			} else {
				$path = '';
			}

			if (! file_exists($path)) {
				return $known[$name] = $info;
			}

			require_once($path);

			$namespace = $extensionPackage->getBaseNamespace();
			if (!empty($namespace)) {
				$namespace .= '\\PackagePlugins\\';
			}
			$functionname = $namespace . $args['plugin'] . "_info";

			if (! function_exists($functionname)) {
				return $known[$name] = $info;
			}

			$viewinfo = $functionname();
			if (isset($viewinfo['params'])) {
				$combinedparams = $viewinfo['params'] + $info['params'];
			} else {
				$combinedparams = $info['params'];
			}

			$info = $viewinfo + $info;
			$info['params'] = $combinedparams;

			return $known[$name] = $info;
		}

		return $known[$name] = $func_name_info();
	}

	//*
	function plugin_alias_info($name)
	{
		return WikiPlugin_Negotiator_Wiki_Alias::info($name);
	}

	//*
	function plugin_alias_store($name, $data)
	{
		return WikiPlugin_Negotiator_Wiki_Alias::store($name, $data);
	}

	//*
	function plugin_alias_delete($name)
	{
		return WikiPlugin_Negotiator_Wiki_Alias::delete($name);
	}

	//*
	function plugin_enabled($name, & $output)
	{
		if (! $meta = $this->plugin_info($name)) {
			return true; // Legacy plugins always execute
		}

		global $prefs;

		$missing = [];

		if (isset($meta['prefs'])) {
			foreach ($meta['prefs'] as $pref) {
				if ($prefs[$pref] != 'y') {
					$missing[] = $pref;
				}
			}
		}

		if (count($missing) > 0) {
			$output = WikiParser_PluginOutput::disabled($name, $missing);
			return false;
		}

		return true;
	}

	//*
	function plugin_is_inline($name)
	{
		if (! $meta = $this->plugin_info($name)) {
			return true; // Legacy plugins always inline
		}

		global $prefs;

		$inline = false;
		if (isset($meta['inline']) && $meta['inline']) {
			return true;
		}

		$inline_pref = 'wikiplugininline_' . $name;
		if (isset($prefs[ $inline_pref ]) && $prefs[ $inline_pref ] == 'y') {
			return true;
		}

		return false;
	}

	/**
	 * Check if possible to execute a plugin
	 *
	 * @param string $name
	 * @param string $data
	 * @param array $args
	 * @param bool $dont_modify
	 * @return bool|string Boolean true if can execute, string 'rejected' if can't execute and plugin fingerprint if pending
	 */
	//*
	function plugin_can_execute($name, $data = '', $args = [], $dont_modify = false)
	{
		global $prefs;

		// If validation is disabled, anything can execute
		if ($prefs['wiki_validate_plugin'] != 'y') {
			return true;
		}

		$meta = $this->plugin_info($name, $args);

		if (! isset($meta['validate'])) {
			return true;
		}

		$fingerprint = $this->plugin_fingerprint($name, $meta, $data, $args);

		if ($fingerprint === '') {		// only args or body were being validated and they're empty or safe
			return true;
		}

		$val = $this->plugin_fingerprint_check($fingerprint, $dont_modify);
		if (strpos($val, 'accept') === 0) {
			return true;
		} elseif (strpos($val, 'reject') === 0) {
			return 'rejected';
		} else {
			global $tiki_p_plugin_approve, $tiki_p_plugin_preview, $user;
			if (isset($_SERVER['REQUEST_METHOD'])
				&& $_SERVER['REQUEST_METHOD'] == 'POST'
				&& isset($_POST['plugin_fingerprint'])
				&& $_POST['plugin_fingerprint'] == $fingerprint
			) {
				if ($tiki_p_plugin_approve == 'y') {
					if (isset($_POST['plugin_accept'])) {
						$tikilib = TikiLib::lib('tiki');
						$this->plugin_fingerprint_store($fingerprint, 'accept');
						$tikilib->invalidate_cache($this->option['page']);
						return true;
					} elseif (isset($_POST['plugin_reject'])) {
						$tikilib = TikiLib::lib('tiki');
						$this->plugin_fingerprint_store($fingerprint, 'reject');
						$tikilib->invalidate_cache($this->option['page']);
						return 'rejected';
					}
				}

				if ($tiki_p_plugin_preview == 'y'
					&& isset($_POST['plugin_preview']) ) {
					return true;
				}
			}

			return $fingerprint;
		}
	}

	//*
	function plugin_fingerprint_check($fp, $dont_modify = false)
	{
		global $user;
		$tikilib = TikiLib::lib('tiki');
		$limit = date('Y-m-d H:i:s', time() - 15 * 24 * 3600);
		$result = $this->query("SELECT `status`, if (`status`='pending' AND `last_update` < ?, 'old', '') flag FROM `tiki_plugin_security` WHERE `fingerprint` = ?", [ $limit, $fp ]);

		$needUpdate = false;

		if ($row = $result->fetchRow()) {
			$status = $row['status'];
			$flag = $row['flag'];

			if ($status == 'accept' || $status == 'reject') {
				return $status;
			}

			if ($flag == 'old') {
				$needUpdate = true;
			}
		} else {
			$needUpdate = true;
		}

		if ($needUpdate && ! $dont_modify) {
			if ($this->option['page']) {
				$objectType = 'wiki page';
				$objectId = $this->option['page'];
			} else {
				$objectType = '';
				$objectId = '';
			}

			if (! $user) {
				$user = tra('Anonymous');
			}

			$pluginSecurity = $tikilib->table('tiki_plugin_security');
			$pluginSecurity->delete(['fingerprint' => $fp]);
			$pluginSecurity->insert(
				['fingerprint' => $fp, 'status' => 'pending',	'added_by' => $user,	'last_objectType' => $objectType, 'last_objectId' => $objectId]
			);
		}

		return '';
	}

	//*
	function plugin_fingerprint_store($fp, $type)
	{
		global $prefs, $user;
		$tikilib = TikiLib::lib('tiki');
		if ($this->option['page']) {
			$objectType = 'wiki page';
			$objectId = $this->option['page'];
		} else {
			$objectType = '';
			$objectId = '';
		}

		$pluginSecurity = $tikilib->table('tiki_plugin_security');
		$pluginSecurity->delete(['fingerprint' => $fp]);
		$pluginSecurity->insert(
			['fingerprint' => $fp,'status' => $type,'added_by' => $user,'last_objectType' => $objectType,'last_objectId' => $objectId]
		);
	}

	//*
	function plugin_clear_fingerprint($fp)
	{
		$tikilib = TikiLib::lib('tiki');
		$pluginSecurity = $tikilib->table('tiki_plugin_security');
		$pluginSecurity->delete(['fingerprint' => $fp]);
	}

	//*
	function list_plugins_pending_approval()
	{
		$tikilib = TikiLib::lib('tiki');
		return $tikilib->fetchAll("SELECT `fingerprint`, `added_by`, `last_update`, `last_objectType`, `last_objectId` FROM `tiki_plugin_security` WHERE `status` = 'pending' ORDER BY `last_update` DESC");
	}

	/**
	 * Return a list of plugins by status
	 *
	 * @param string|array $statuses
	 * @return array
	 */
	public function listPluginsByStatus($statuses)
	{
		if (! empty($statuses) && ! is_array($statuses)) {
			$statuses = [$statuses];
		}

		$tikiLib = TikiLib::lib('tiki');
		$pluginSecurity = $tikiLib->table('tiki_plugin_security');
		return $pluginSecurity->fetchAll(
			['fingerprint', 'added_by', 'last_update', 'last_objectType', 'last_objectId', 'status'],
			['status' => $pluginSecurity->in($statuses)],
			-1,
			-1,
			['last_update' => 'DESC']
		);
	}

	//*
	function approve_all_pending_plugins()
	{
		global $user;
		$tikilib = TikiLib::lib('tiki');

		$pluginSecurity = $tikilib->table('tiki_plugin_security');
		$pluginSecurity->updateMultiple(['status' => 'accept', 'approval_by' => $user], ['status' => 'pending',]);
	}

	//*
	function approve_selected_pending_plugings($fp)
	{
		global $user;
		$tikilib = TikiLib::lib('tiki');

		$pluginSecurity = $tikilib->table('tiki_plugin_security');
		$pluginSecurity->update(['status' => 'accept', 'approval_by' => $user], ['fingerprint' => $fp]);
	}

	//*
	function plugin_fingerprint($name, $meta, $data, $args)
	{
		$validate = (isset($meta['validate']) ? $meta['validate'] : '');

		$data = $this->unprotectSpecialChars($data, true);

		if ($validate == 'all' || $validate == 'body') {
			// Tiki 6 and ulterior may insert sequences in plugin body to break XSS exploits. The replacement works around removing them to keep fingerprints identical for upgrades from previous versions.
			$validateBody = str_replace('<x>', '', $data);
		} else {
			$validateBody = '';
		}

		if ($validate === 'body' && empty($validateBody)) {
			return '';
		}

		if ($validate == 'all' || $validate == 'arguments') {
			$validateArgs = $args;

			// Remove arguments marked as safe from the fingerprint
			foreach ($meta['params'] as $key => $info) {
				if (isset($validateArgs[$key])
					&& isset($info['safe'])
					&& $info['safe']
				) {
					unset($validateArgs[$key]);
				}
			}
			// Parameter order needs to be stable
			ksort($validateArgs);

			if (empty($validateArgs)) {
				if ($validate === 'arguments') {
					return '';
				}
				$validateArgs = [ '' => '' ];	// maintain compatibility with pre-Tiki 7 fingerprints
			}
		} else {
			$validateArgs = [];
		}

		$bodyLen = str_pad(strlen($validateBody), 6, '0', STR_PAD_RIGHT);
		$serialized = serialize($validateArgs);
		$argsLen = str_pad(strlen($serialized), 6, '0', STR_PAD_RIGHT);

		$bodyHash = md5($validateBody);
		$argsHash = md5($serialized);

		return "$name-$bodyHash-$argsHash-$bodyLen-$argsLen";
	}

	// Transitional wrapper over WikiParser_Parsable::plugin_execute()
	function plugin_execute($name, $data = '', $args = [], $offset = 0, $validationPerformed = false, $option = [])
	{
		return (new WikiParser_Parsable(''))->plugin_execute($name, $data, $args, $offset, $validationPerformed, $option);
	}

	//*
	protected function convert_plugin_for_ckeditor($name, $args, $plugin_result, $data, $info = [])
	{
		$ck_editor_plugin = '{' . (empty($data) ? $name : TikiLib::strtoupper($name) . '(') . ' ';
		$arg_str = '';		// not using http_build_query() as it converts spaces into +
		if (! empty($args)) {
			foreach ($args as $argKey => $argValue) {
				if (is_array($argValue)) {
					if (isset($info['params'][$argKey]['separator'])) {
						$sep = $info['params'][$argKey]['separator'];
					} else {
						 $sep = ',';
					}
					$ck_editor_plugin .= $argKey . '="' . implode($sep, $argValue) . '" ';	// process array
					$arg_str .= $argKey . '=' . implode($sep, $argValue) . '&';
				} else {
					// even though args are now decoded we still need to escape double quotes
					$argValue = addcslashes($argValue, '"');

					$ck_editor_plugin .= $argKey . '="' . $argValue . '" ';
					$arg_str .= $argKey . '=' . $argValue . '&';
				}
			}
		}
		if (substr($ck_editor_plugin, -1) === ' ') {
			$ck_editor_plugin = substr($ck_editor_plugin, 0, -1);
		}
		if (! empty($data)) {
			$ck_editor_plugin .= ')}' . $data . '{' . TikiLib::strtoupper($name) . '}';
		} else {
			$ck_editor_plugin .= '}';
		}
		// work out if I'm a nested plugin and return empty if so
		$stack = debug_backtrace();
		$plugin_nest_level = 0;
		foreach ($stack as $st) {
			if ($st['function'] === 'parse_first') {
				$plugin_nest_level ++;
				if ($plugin_nest_level > 1) {
					return '';
				}
			}
		}
		$arg_str = rtrim($arg_str, '&');
		$icon = isset($info['icon']) ? $info['icon'] : 'img/icons/wiki_plugin_edit.png';

		// some plugins are just too fragile to do wysiwyg, so show the "source" for them ;(
		$excluded = ['tracker', 'trackerlist', 'trackerfilter', 'kaltura', 'toc', 'freetagged', 'draw', 'googlemap',
			'include', 'module', 'list', 'custom_search', 'iframe', 'map', 'calendar', 'file', 'files', 'mouseover', 'sort',
			'slideshow', 'convene', 'redirect', 'galleriffic'];

		$ignore = null;
		$enabled = $this->plugin_enabled($name, $ignore);
		if (in_array($name, $excluded) || ! $enabled) {
			$plugin_result = '&nbsp;&nbsp;&nbsp;&nbsp;' . $ck_editor_plugin;
		} else {
			if (! isset($info['format']) || $info['format'] !== 'html') {
				$oldOptions = $this->option;
				$plugin_result = $this->parse_data($plugin_result, ['is_html' => false, 'suppress_icons' => true, 'ck_editor' => true, 'noparseplugins' => true]);
				$this->setOptions($oldOptions);
				// reset the noparseplugins option, to allow for proper display in CkEditor
				$this->option['noparseplugins'] = false;
			} else {
				$plugin_result = preg_replace('/~[\/]?np~/ms', '', $plugin_result);	// remove no parse tags otherwise they get nested later (bad)
			}

			if (! getCookie('wysiwyg_inline_edit', 'preview', false)) { // remove hrefs and onclicks
				$plugin_result = preg_replace('/\shref\=/i', ' tiki_href=', $plugin_result);
				$plugin_result = preg_replace('/\sonclick\=/i', ' tiki_onclick=', $plugin_result);
				$plugin_result = preg_replace('/<script.*?<\/script>/mi', '', $plugin_result);
				// remove hidden inputs
				$plugin_result = preg_replace('/<input.*?type=[\'"]?hidden[\'"]?.*>/mi', '', $plugin_result);
			}
		}
		if (! in_array($name, ['html'])) {		// remove <p> and <br>s from non-html
			$data = str_replace(['<p>', '</p>', "\t"], '', $data);
			$data = str_replace('<br />', "\n", $data);
		}

		if ($this->contains_html_block($plugin_result)) {
			$elem = 'div';
		} else {
			$elem = 'span';
		}
		$elem_style = 'position:relative;display:inline-block;';
		if (! $enabled) {
			$elem_style .= 'opacity:0.3;';
		}
		if (in_array($name, ['img', 'div']) && preg_match('/<' . $name . '[^>]*style="(.*?)"/i', $plugin_result, $m)) {
			if (count($m)) {
				$elem_style .= $m[1];
			}
		}

		$ret = '~np~<' . $elem . ' contenteditable="false" unselectable="on" class="tiki_plugin" data-plugin="' . $name . '" style="' . $elem_style . '"' .
				' data-syntax="' . htmlentities($ck_editor_plugin, ENT_QUOTES, 'UTF-8') . '"' .
				' data-args="' . htmlentities($arg_str, ENT_QUOTES, 'UTF-8') . '"' .
				' data-body="' . htmlentities($data, ENT_QUOTES, 'UTF-8') . '">' . // not <!--{cke_protected}
				'<img src="' . $icon . '" width="16" height="16" class="plugin_icon" />' .
				$plugin_result . '<!-- end tiki_plugin --></' . $elem . '>~/np~';

		return 	$ret;
	}

	function find_plugins($data, $name = null)
	{
		$parserlib = TikiLib::lib('parser');
		$argumentParser = new WikiParser_PluginArgumentParser;
		$matches = WikiParser_PluginMatcher::match($data);
		$occurrences = [];
		foreach ($matches as $match) {
			$plugin = [
				'name' => $match->getName(),
				'arguments' => $argumentParser->parse($match->getArguments()),
				'body' => $match->getBody(),
			];

			$dummy_output = '';
			if ($parserlib->plugin_enabled($plugin['name'], $dummy_output)) {
				if ($name === null || $plugin['name'] == $name) {
					$occurrences[] = $plugin;
				}
			}
		}
		return $occurrences;
	}

	function process_save_plugins($data, array $context)
	{
		$parserlib = TikiLib::lib('parser');

		$argumentParser = new WikiParser_PluginArgumentParser;

		$matches = WikiParser_PluginMatcher::match($data);

		foreach ($matches as $match) {
			$plugin_name = $match->getName();
			$body = $match->getBody();
			$arguments = $argumentParser->parse($match->getArguments());

			$dummy_output = '';
			if ($parserlib->plugin_enabled($plugin_name, $dummy_output)) {
				$func_name = 'wikiplugin_' . $plugin_name . '_rewrite';

				if (function_exists($func_name)) {
					$parserlib->plugin_apply_filters($plugin_name, $data, $arguments);
					$output = $func_name($body, $arguments, $context);

					if ($output !== false) {
						$match->replaceWith($output);
					}
				}

				if ($plugin_name == 'translationof') {
					$this->add_translationof_relation($data, $arguments, $context['itemId']);
				}
			}
		}

		$matches_text = $matches->getText();

		return $matches_text;
	}

	//*
	protected function plugin_apply_filters($name, & $data, & $args)
	{
		$tikilib = TikiLib::lib('tiki');

		$info = $this->plugin_info($name, $args);

		$default = TikiFilter::get(isset($info['defaultfilter']) ? $info['defaultfilter'] : 'xss');

		// Apply filters on the body
		$filter = isset($info['filter']) ? TikiFilter::get($info['filter']) : $default;
		//$data = TikiLib::htmldecode($data);		// jb 9.0 commented out in fix for html entitles
		$data = $filter->filter($data);

		if (isset($this->option) && (! empty($this->option['is_html']) && (! $this->option['is_html']))) {
			$noparsed = ['data' => [], 'key' => []];
			$this->strip_unparsed_block($data, $noparsed);
			$data = str_replace(['<', '>'], ['&lt;', '&gt;'], $data);
			foreach ($noparsed['data'] as &$instance) {
				$instance = '~np~' . $instance . '~/np~';
			}
			unset($instance);
			$data = str_replace($noparsed['key'], $noparsed['data'], $data);
		}

		// Make sure all arguments are declared
		if (isset($info['params'])) {
			$params = $info['params'];
		}
		$argsCopy = $args;
		if (! isset($info['extraparams']) && isset($params) && is_array($params)) {
			$args = array_intersect_key($args, $params);
		}

		// Apply filters on values individually
		if (! empty($args)) {
			foreach ($args as $argKey => &$argValue) {
				if (! isset($params[$argKey])) {
					continue;// extra params
				}
				$paramInfo = $params[$argKey];
				$filter = isset($paramInfo['filter']) ? TikiFilter::get($paramInfo['filter']) : $default;
				$argValue = TikiLib::htmldecode($argValue);

				if (isset($paramInfo['separator'])) {
					$vals = [];

					$vals = $tikilib->array_apply_filter($tikilib->multi_explode($paramInfo['separator'], $argValue), $filter);

					$argValue = array_values($vals);
				} else {
					$argValue = $filter->filter($argValue);
				}
			}
		}
	}

	//*
	protected function convert_plugin_output($output, $from, $to)
	{
		if (! $output instanceof WikiParser_PluginOutput) {
			if ($from === 'wiki') {
				$output = WikiParser_PluginOutput::wiki($output);
			} elseif ($from === 'html') {
				$output = WikiParser_PluginOutput::html($output);
			}
		}

		if ($to === 'html') {
			return $output->toHtml($this->option);
		} elseif ($to === 'wiki') {
			return $output->toWiki();
		}
	}

	//*
	function plugin_replace_args($content, $rules, $args)
	{
		$patterns = [];
		$replacements = [];

		foreach ($rules as $token => $info) {
			$patterns[] = "%$token%";
			if (isset($info['input']) && ! empty($info['input'])) {
				$token = $info['input'];
			}

			if (isset($args[$token])) {
				$value = $args[$token];
			} else {
				$value = isset($info['default']) ? $info['default'] : '';
			}

			switch (isset($info['encoding']) ? $info['encoding'] : 'none') {
				case 'html':
					$replacements[] = htmlentities($value, ENT_QUOTES, 'UTF-8');
					break;
				case 'url':
					$replacements[] = rawurlencode($value);
					break;
				default:
					$replacements[] = $value;
			}
		}

		return str_replace($patterns, $replacements, $content);
	}

	//*
	function plugin_is_editable($name)
	{
		global $tiki_p_edit, $prefs, $section;
		$info = $this->plugin_info($name);
		// note that for 3.0 the plugin editor only works in wiki pages, but could be extended later
		return $section == 'wiki page' && $info && $tiki_p_edit == 'y' && $prefs['wiki_edit_plugin'] == 'y'
			&& ! $this->plugin_is_inline($name);
	}

	/**
	 * Gets a wiki parseable content and substitutes links for $oldName by
	 * links for $newName.
	 *
	 * @param string wiki parseable content
	 * @param string old page name
	 * @param string new page name
	 * @return string new wiki parseable content with links replaced
	 */
	function replace_links($data, $oldName, $newName)
	{
		global $prefs;
		$quotedOldName = preg_quote($oldName, '/');
		$semanticlib = TikiLib::lib('semantic');

				// FIXME: Affects non-parsed sections
		foreach ($semanticlib->getAllTokens() as $sem) {
			$data = str_replace("($sem($oldName", "($sem($newName", $data);
		}

		if ($prefs['feature_wikiwords'] == 'y') {
			if (strstr($newName, ' ')) {
				$data = preg_replace("/(?<= |\n|\t|\r|\,|\;|^)$quotedOldName(?= |\n|\t|\r|\,|\;|$)/", '((' . $newName . '))', $data);
			} else {
				$data = preg_replace("/(?<= |\n|\t|\r|\,|\;|^)$quotedOldName(?= |\n|\t|\r|\,|\;|$)/", $newName, $data);
			}
		}

		$data = preg_replace("/(?<=\(\()$quotedOldName(?=\)\)|\|)/i", $newName, $data);

		$quotedOldHtmlName = preg_quote(urlencode($oldName), '/');

		$htmlSearch = '/<a class="wiki" href="tiki-index\.php\?page=' . $quotedOldHtmlName . '([^"]*)"/i';
		$htmlReplace = '<a class="wiki" href="tiki-index.php?page=' . urlencode($newName) . '\\1"';
		$data = preg_replace($htmlSearch, $htmlReplace, $data);

		$htmlSearch = '/<a class="wiki" href="' . $quotedOldHtmlName . '"/i';
		$htmlReplace = '<a class="wiki" href="' . urlencode($newName) . '"';
		$data = preg_replace($htmlSearch, $htmlReplace, $data);

		$htmlWantedSearch = '/(' . $quotedOldName . ')?<a class="wiki wikinew" href="tiki-editpage\.php\?page=' . $quotedOldHtmlName . '"[^<]+<\/a>/i';
		$data = preg_replace($htmlWantedSearch, '((' . $newName . '))', $data);

		return $data;
	}

	// Replace hotwords in given line
	//*
	function replace_hotwords($line, $words = null)
	{
		global $prefs;

		if ($prefs['feature_hotwords'] == 'y') {
			$hotw_nw = ($prefs['feature_hotwords_nw'] == 'y') ? "target='_blank'" : '';

			// FIXME: Replacements may fail if the value contains an unescaped metacharacters (which is why the default value contains escape characters). The value should probably be escaped with preg_quote().
			$sep = empty($prefs['feature_hotwords_sep']) ? " \n\t\r\,\;\(\)\.\:\[\]\{\}\!\?\"" : $prefs['feature_hotwords_sep'];

			if (is_null($words)) {
				$words = $this->get_hotwords();
			}
			foreach ($words as $word => $url) {
				$escapedWord = preg_quote($word, '/');

				/* In CVS revisions 1.429 and 1.373.2.40 of tikilib.php, mose added the following magic steps, commenting "fixed the hotwords autolinking in case it is in a description field".
				 * I do not understand what description fields this refers to. I do not know if this is correct and still needed. Step 1 seems to prevent replacements in an HTML tag. Chealer 2017-03-08
				 */

				// Step 1: Insert magic sequences which will neutralize step 2 in some cases.
				$line = preg_replace("/(=(\"|')[^\"']*[$sep'])$escapedWord([$sep][^\"']*(\"|'))/i", "$1:::::$word,:::::$3", $line);

				// Step 2: Add links where the hotword appears (not neutralized)
				$line = preg_replace("/([$sep']|^)$escapedWord($|[$sep])/i", "$1<a class=\"wiki\" href=\"$url\" $hotw_nw>$word</a>$2", $line);

				// Step 3: Remove magic sequences inserted in step 1
				$line = preg_replace("/:::::$escapedWord,:::::/i", "$word", $line);
			}
		}
		return $line;
	}

	// Make plain text URIs in text into clickable hyperlinks
	//	check to see if autolinks is enabled before calling this function ($prefs['feature_autolinks'] == "y")
	//*
	function autolinks($text)
	{
		if ($text) {
			global $prefs;
			static $mail_protect_pattern = '';

			$attrib = '';
			if ($prefs['popupLinks'] == 'y') {
				$attrib .= 'target="_blank" ';
			}
			if ($prefs['feature_wiki_ext_icon'] == 'y') {
				$attrib .= 'class="wiki external" ';
				include_once(__DIR__ . '/../smarty_tiki/function.icon.php');
				$ext_icon = smarty_function_icon(['name' => 'link-external'], TikiLib::lib('smarty')->getEmptyInternalTemplate());
			} else {
				$attrib .= 'class="wiki" ';
				$ext_icon = "";
			}

			// add a space so we can match links starting at the beginning of the first line
			$text = " " . $text;
			$patterns = [];
			$replacements = [];

			// protocol://suffix
			$patterns[] = "#([\n ])([a-z0-9]+?)://([^<, \n\r]+)#i";
			$replacements[] = "\\1<a $attrib href=\"\\2://\\3\">\\2://\\3$ext_icon</a>";

			// www.domain.ext/optionalpath
			$patterns[] = "#([\n ])www\.([a-z0-9\-]+)\.([a-z0-9\-.\~]+)((?:/[^,< \n\r]*)?)#i";
			$replacements[] = "\\1<a $attrib href=\"http://www.\\2.\\3\\4\">www.\\2.\\3\\4$ext_icon</a>";

			// email address (foo@domain.ext)
			$patterns[] = "#([\n ])([a-z0-9\-_.]+?)@([\w\-]+\.([\w\-\.]+\.)*[\w]+)#i";
			if ($this->option['protect_email'] && $this->option['print'] !== 'y' && $prefs['feature_wiki_protect_email'] == 'y') {
				if (! $mail_protect_pattern) {
					$mail_protect_pattern = "\\1" . TikiLib::protect_email("\\2", "\\3");
				}
				$replacements[] = $mail_protect_pattern;
			} else {
				$replacements[] = "\\1<a class='wiki' href=\"mailto:\\2@\\3\">\\2@\\3</a>";
			}

			$patterns[] = "#([\n ])magnet\:\?([^,< \n\r]+)#i";
			$replacements[] = "\\1<a class='wiki' href=\"magnet:?\\2\">magnet:?\\2</a>";

			$text = preg_replace($patterns, $replacements, $text);
			// strip the space we added
			$text = substr($text, 1);
		}

		return $text;

		//		} else {
		//			return $text;
		//		}
	}

	/**
	 * close_blocks - Close out open paragraph, lists, and div's
	 *
	 * During parse_data, information is kept on blocks of text (paragraphs, lists, divs)
	 * that need to be closed out. This function does that, rather than duplicating the
	 * code inline.
	 *
	 * @param	$data			- Output data
	 * @param	$in_paragraph		- TRUE if there is an open paragraph
	 * @param	$listbeg		- array of open list terminators
	 * @param	$divdepth		- array indicating how many div's are open
	 * @param	$close_paragraph	- TRUE if open paragraph should be closed.
	 * @param	$close_lists		- TRUE if open lists should be closed.
	 * @param	$close_divs		- TRUE if open div's should be closed.
	 */
	/* private */
	//*
	function close_blocks(&$data, &$in_paragraph, &$listbeg, &$divdepth, $close_paragraph, $close_lists, $close_divs)
	{

		$closed = 0;	// Set to non-zero if something has been closed out
		// Close the paragraph if inside one.
		if ($close_paragraph && $in_paragraph) {
			$data .= "</p>\n";
			$in_paragraph = 0;
			$closed++;
		}
		// Close open lists
		if ($close_lists) {
			while (count($listbeg)) {
				$data .= array_shift($listbeg);
				$closed++;
			}
		}

		// Close open divs
		if ($close_divs) {
			$temp_max = count($divdepth);
			for ($i = 1; $i <= $temp_max; $i++) {
				$data .= '</div>';
				$closed++;
			}
		}

		return $closed;
	}

	// Transitional wrapper over WikiParser_Parsable::parse()
	//PARSEDATA
	// options defaults : is_html => false, absolute_links => false, language => ''
	//*
	function parse_data($data, $option = [])
	{
		return (new WikiParser_Parsable($data))->parse($option);
	}

	/**
	 * Used as preg_replace_callback methods within in the parse_data() method to escape color style attributes when
	 * generating HTML for the wiki color syntax - e.g. ~~#909:text~~
	 *
	 * @param $matches
	 * @return string
	 */
	protected function colorAttrEscape($matches)
	{
		$matches[1] = trim($matches[1]);
		$matches[3] = trim($matches[3]);

		$esc = new Zend\Escaper\Escaper();
		$color = ! empty($matches[1]) ? 'color:' . str_replace('&#x23;', '#', $esc->escapeHtmlAttr($matches[1])) : '';
		$background = ! empty($matches[3]) ? 'background-color:' . str_replace('&#x23;', '#', $esc->escapeHtmlAttr($matches[3])) : '';
		$semi = ! empty($color) && ! empty($background) ? '; ' : '';
		$text = ! empty($matches[4]) ? $matches[4] : '';
		return '<span style="' . $color . $semi . $background . '">' . $text . '</span>';
	}

	/**
	 *
	 * intended for use within wiki plugins. This option preserves opening and closing whitespace that renders into
	 * annoying <p> tags when parsed, and also respects HTML rendering preferences.
	 *
	 * @param $data string wiki/html to be parsed
	 * @param $optionsOverride array options to override the current defaults
	 * @param $inlineFirstP boolean If the returned data starts with a <p>, this option will force it to display as inline:block
	  *					useful when the returned data is required to display without adding overhead spacing caused by <p>
	 *
	 * @return string parsed data
	 */
	function parse_data_plugin($data, $inlineFirstP = false, $optionsOverride = [])
	{
		$options['is_html'] = ($GLOBALS['prefs']['feature_wiki_allowhtml'] === 'y' && $GLOBALS['info']['is_html'] == true) ? true : false;

		foreach ($optionsOverride as $name => $value) {
			$options[$name] = $value;
		}

		// record initial whitespace
		preg_match('(^\s*)', $data, $bwhite);
		preg_match('(\s*$)', $data, $ewhite);

		// remove all the whitespace
		$data = trim($data);
		$data = $this->parse_data($data, $options);
		// remove whitespace that was added while parsing (yes it does happen)
		$data = trim($data);

		if ($inlineFirstP) {
			$data = preg_replace('/^(\s*?)<p>/', '$1<p style="display:inline-block">', ' ' . $data);
		}

		// add original whitespace back to preserve spacing
		return ($bwhite[0] . $data . $ewhite[0]);
	}

	/** Simpler and faster parse than parse_data()
	 * This is only called from the parse Smarty modifier, for preference definitions.
	 */
	function parse_data_simple($data)
	{
		$data = $this->parse_data_wikilinks($data, true);
		$data = $this->parse_data_externallinks($data, true);
		$data = $this->parse_data_inline_syntax($data);
		if ($this->option['typography'] && ! $this->option['ck_editor']) {
			$data = typography($data, $this->option['language']);
		}

		return $data;
	}

	//*
	protected function parse_data_wikilinks($data, $simple_wiki, $ck_editor = false) //TODO: need a wikilink handler
	{
		global $page_regex, $prefs;

		// definitively put out the protected words ))protectedWord((
		if ($prefs['feature_wikiwords'] == 'y') {
			preg_match_all("/\)\)(\S+?)\(\(/", $data, $matches);
			$noParseWikiLinksK = [];
			$noParseWikiLinksT = [];
			foreach ($matches[0] as $mi => $match) {
				do {
					$randNum = chr(0xff) . rand(0, 1048576) . chr(0xff);
				} while (strstr($data, $randNum));
				$data = str_replace($match, $randNum, $data);
				$noParseWikiLinksK[] = $randNum;
				$noParseWikiLinksT[] = $matches[1][$mi];
			}
		}

		// Links with description
		preg_match_all("/\(([a-z0-9-]+)?\(($page_regex)\|([^\)]*?)\)\)/", $data, $pages);

		$temp_max = count($pages[1]);
		for ($i = 0; $i < $temp_max; $i++) {
			$exactMatch = $pages[0][$i];
			$description = $pages[6][$i];
			$anchor = null;

			if ($description && $description{0} == '#') {
				$temp = $description;
				$anchor = strtok($temp, '|');
				$description = strtok('|');
			}

			$replacement = $this->get_wiki_link_replacement($pages[2][$i], ['description' => $description,'reltype' => $pages[1][$i],'anchor' => $anchor], $ck_editor);

			$data = str_replace($exactMatch, $replacement, $data);
		}

		// Wiki page syntax without description
		preg_match_all("/\(([a-z0-9-]+)?\( *($page_regex) *\)\)/", $data, $pages);

		foreach ($pages[2] as $idx => $page_parse) {
			$exactMatch = $pages[0][$idx];
			$replacement = $this->get_wiki_link_replacement($page_parse, [ 'reltype' => $pages[1][$idx] ], $ck_editor);

			$data = str_replace($exactMatch, $replacement, $data);
		}

		// Links to internal pages
		// If they are parenthesized then don't treat as links
		// Prevent ))PageName(( from being expanded \"\'
		//[A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*
		if ($prefs['feature_wiki'] == 'y' && $prefs['feature_wikiwords'] == 'y') {
			if (! $simple_wiki) {
				// The first part is now mandatory to prevent [Foo|MyPage] from being converted!
				if ($prefs['feature_wikiwords_usedash'] == 'y') {
					preg_match_all("/(?<=[ \n\t\r\,\;]|^)([A-Z][a-z0-9_\-\x80-\xFF]+[A-Z][a-z0-9_\-\x80-\xFF]+[A-Za-z0-9\-_\x80-\xFF]*)(?=$|[ \n\t\r\,\;\.])/", $data, $pages);
				} else {
					preg_match_all("/(?<=[ \n\t\r\,\;]|^)([A-Z][a-z0-9\x80-\xFF]+[A-Z][a-z0-9\x80-\xFF]+[A-Za-z0-9\x80-\xFF]*)(?=$|[ \n\t\r\,\;\.])/", $data, $pages);
				}
				//TODO to have a real utf8 Wikiword where the capitals can be a utf8 capital
				$words = ($prefs['feature_hotwords'] == 'y') ? $this->get_hotwords() : [];
				foreach (array_unique($pages[1]) as $page_parse) {
					if (! array_key_exists($page_parse, $words)) { // If this is not a hotword
						$repl = $this->get_wiki_link_replacement($page_parse, ['plural' => $prefs['feature_wiki_plurals'] == 'y'], $ck_editor);

						$data = preg_replace("/(?<=[ \n\t\r\,\;]|^)$page_parse(?=$|[ \n\t\r\,\;\.])/", "$1" . $repl . "$2", $data);
					}
				}
			}

			// Reinsert ))Words((
			$data = str_replace($noParseWikiLinksK, $noParseWikiLinksT, $data);
		}

		return $data;
	}

	protected function parse_data_externallinks($data, $suppress_icons = false)
	{
		global $prefs;
		$tikilib = TikiLib::lib('tiki');

		// *****
		// This section handles external links of the form [url] and such.
		// *****

		$links = $tikilib->get_links($data);
		$notcachedlinks = $tikilib->get_links_nocache($data);
		$cachedlinks = array_diff($links, $notcachedlinks);
		$tikilib->cache_links($cachedlinks);

		// Note that there're links that are replaced
		foreach ($links as $link) {
			$target = '';
			$class = 'class="wiki"';
			$ext_icon = '';
			$rel = '';

			if ($prefs['popupLinks'] == 'y') {
				$target = 'target="_blank"';
			}
			if (! strstr($link, '://')) {
				$target = '';
			} else {
				$class = 'class="wiki external"';
				if ($prefs['feature_wiki_ext_icon'] == 'y' && ! ($this->option['suppress_icons'] || $suppress_icons)) {
					$smarty = TikiLib::lib('smarty');
					include_once('lib/smarty_tiki/function.icon.php');
					$ext_icon = smarty_function_icon(['name' => 'link-external'], $smarty->getEmptyInternalTemplate());
				}
				$rel = 'external';
				if ($prefs['feature_wiki_ext_rel_nofollow'] == 'y') {
					$rel .= ' nofollow';
				}
			}

			// The (?<!\[) stuff below is to give users an easy way to
			// enter square brackets in their output; things like [[foo]
			// get rendered as [foo]. -rlpowell

			if ($prefs['cachepages'] == 'y' && $tikilib->is_cached($link)) {
				//use of urlencode for using cached versions of dynamic sites
				$cosa = "<a class=\"wikicache\" target=\"_blank\" href=\"tiki-view_cache.php?url=" . urlencode($link) . "\">(cache)</a>";

				$link2 = str_replace("/", "\/", preg_quote($link));
				$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)\|([^\]\|]+)\|([^\]]+)\]/"; //< last param expected here is always nocache
				$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$2 $rel\">$1</a>$ext_icon", $data);
				$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)\|([^\]]+)\]/";//< last param here ($2) is used for relation (rel) attribute (e.g. shadowbox) or nocache
				preg_match($pattern, $data, $matches);
				if (isset($matches[2]) && $matches[2] == 'nocache') {
					$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$1</a>$ext_icon", $data);
				} else {
					$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\" data-box=\"$2\">$1</a>$ext_icon $cosa", $data);
				}
				$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)\]/";
				$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$1</a>$ext_icon $cosa", $data);
				$pattern = "/(?<!\[)\[$link2\]/";
				$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$link</a>$ext_icon $cosa", $data);
			} else {
				$link2 = str_replace("/", "\/", preg_quote($link));
				$link = trim($link);
				$link = str_replace('"', '%22', $link);
				$data = str_replace("|nocache", "", $data);

				$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)\|([^\]]+)\]/";
				$data = preg_replace_callback($pattern, function ($matches) use ($class, $target, $link, $rel, $ext_icon) {
					return "<a $class $target href=\"$link\" rel=\"$rel\" data-box=\"" . str_replace('"', '%22', $matches[1]) . "\">{$matches[1]}</a>$ext_icon";
				}, $data);
				$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)([^\]])*\]/";
				$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$1</a>$ext_icon", $data);
				$pattern = "/(?<!\[)\[$link2\|?\]/";
				$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$link</a>$ext_icon", $data);
			}
		}

		// Handle double square brackets. to display [foo] use [[foo] -rlpowell. Improved by sylvieg to avoid replacing them in [[code]] cases.
		if (empty($this->option['process_double_brackets']) || $this->option['process_double_brackets'] != 'n') {
			$data = preg_replace("/\[\[([^\]]*)\](?!\])/", "[$1]", $data);
			$data = preg_replace("/\[\[([^\]]*)$/", "[$1", $data);
		}

		return $data;
	}

	//*
	protected function parse_data_inline_syntax($line, $words = null, $ck_editor = false)
	{
		global $prefs;

		// Replace monospaced text
		$line = preg_replace("/(^|\s)-\+(.*?)\+-/", "$1<code>$2</code>", $line);
		// Replace bold text
		$line = preg_replace("/__(.*?)__/", "<strong>$1</strong>", $line);
		// Replace italic text
		$line = preg_replace("/\'\'(.*?)\'\'/", "<em>$1</em>", $line);

		if (! $ck_editor) {
			if ($prefs['feature_hotwords'] == 'y') {
				// Replace Hotwords before begin
				$line = $this->replace_hotwords($line, $words);
			}

			// Make plain URLs clickable hyperlinks
			if ($prefs['feature_autolinks'] == 'y') {
				$line = $this->autolinks($line);
			}
		}

		if (! $ck_editor) {
			// Replace definition lists
			$line = preg_replace("/^;([^:]*):([^\/\/].*)/", "<dl><dt>$1</dt><dd>$2</dd></dl>", $line);
			$line = preg_replace("/^;(<a [^<]*<\/a>):([^\/\/].*)/", "<dl><dt>$1</dt><dd>$2</dd></dl>", $line);
		}

		return $line;
	}

	//*
	protected function parse_data_tables($data)
	{
		global $prefs;

		// pretty trackers use pipe for output|template specification, so we need to escape
		$data = preg_replace('/{\$f_(\w+)\|(output|template:.*?)}/i', '{\$f_$1-escapedpipe-$2}', $data);

		/*
		 * Wiki Tables syntax
		 */
		// tables in old style
		if ($prefs['feature_wiki_tables'] != 'new') {
			if (preg_match_all("/\|\|(.*)\|\|/", $data, $tables)) {
				$maxcols = 1;
				$cols = [];
				$temp_max = count($tables[0]);
				for ($i = 0; $i < $temp_max; $i++) {
					$rows = explode('||', $tables[0][$i]);
					$temp_max2 = count($rows);
					for ($j = 0; $j < $temp_max2; $j++) {
						$cols[$i][$j] = explode('|', $rows[$j]);
						if (count($cols[$i][$j]) > $maxcols) {
							$maxcols = count($cols[$i][$j]);
						}
					}
				} // for ($i ...

				$temp_max3 = count($tables[0]);
				for ($i = 0; $i < $temp_max3; $i++) {
					$repl = '<table class="wikitable table table-striped table-hover">';

					$temp_max4 = count($cols[$i]);
					for ($j = 0; $j < $temp_max4; $j++) {
						$ncols = count($cols[$i][$j]);

						if ($ncols == 1 && ! $cols[$i][$j][0]) {
							continue;
						}

						$repl .= '<tr>';

						for ($k = 0; $k < $ncols; $k++) {
							$repl .= '<td class="wikicell" ';

							if ($k == $ncols - 1 && $ncols < $maxcols) {
								$repl .= ' colspan="' . ($maxcols - $k) . '"';
							}

							$repl .= '>' . $cols[$i][$j][$k] . '</td>';
						} // // for ($k ...

						$repl .= '</tr>';
					} // for ($j ...

					$repl .= '</table>';
					$data = str_replace($tables[0][$i], $repl, $data);
				} // for ($i ...
			} // if (preg_match_all("/\|\|(.*)\|\|/", $data, $tables))
		} else {
			// New syntax for tables
			// REWRITE THIS CODE
			if (preg_match_all("/\|\|(.*?)\|\|/s", $data, $tables)) {
				$maxcols = 1;
				$cols = [];
				$temp_max5 = count($tables[0]);
				for ($i = 0; $i < $temp_max5; $i++) {
					$rows = preg_split("/(\n|\<br\/\>)/", $tables[0][$i]);
					$col[$i] = [];
					$temp_max6 = count($rows);
					for ($j = 0; $j < $temp_max6; $j++) {
						$rows[$j] = str_replace('||', '', $rows[$j]);
						$cols[$i][$j] = explode('|', $rows[$j]);
						if (count($cols[$i][$j]) > $maxcols) {
							$maxcols = count($cols[$i][$j]);
						}
					}
				}

				$temp_max7 = count($tables[0]);
				for ($i = 0; $i < $temp_max7; $i++) {
					$repl = '<table class="wikitable table table-striped table-hover">';
					$temp_max8 = count($cols[$i]);
					for ($j = 0; $j < $temp_max8; $j++) {
						$ncols = count($cols[$i][$j]);

						if ($ncols == 1 && ! $cols[$i][$j][0]) {
							continue;
						}

						$repl .= '<tr>';

						for ($k = 0; $k < $ncols; $k++) {
							$repl .= '<td class="wikicell" ';
							if ($k == $ncols - 1 && $ncols < $maxcols) {
								$repl .= ' colspan="' . ($maxcols - $k) . '"';
							}

							$repl .= '>' . $cols[$i][$j][$k] . '</td>';
						}
						$repl .= '</tr>';
					}
					$repl .= '</table>';
					$data = str_replace($tables[0][$i], $repl, $data);
				}
			}
		}

		// unescape the pipes for pretty tracker
		$data = preg_replace('/{\$f_(\w+)-escapedpipe-(output|template:.*?)}/i', '{\$f_$1|$2}', $data);

		return $data;
	}

	//*
	function parse_wiki_argvariable(&$data)
	{
		global $prefs, $user;
		$tikilib = TikiLib::lib('tiki');
		$smarty = TikiLib::lib('smarty');

		if ($prefs['feature_wiki_argvariable'] == 'y' && ! $this->option['ck_editor']) {
			if (preg_match_all("/\\{\\{((\w+)(\\|([^\\}]*))?)\\}\\}/", $data, $args, PREG_SET_ORDER)) {
				$needles = [];
				$replacements = [];

				foreach ($args as $arg) {
					$value = isset($arg[4]) ? $arg[4] : '';
					$name = $arg[2];
					switch ($name) {
						case 'user':
							$value = $user;
							break;
						case 'page':
							$value = $this->option['page'];
							break;
						case 'pageid':
							if ($_REQUEST['page'] != null) {
								$value = $tikilib->get_page_id_from_name($_REQUEST['page']);
								break;
							} else {
								$value = '';
								break;
							}
						case 'domain':
							if ($smarty->getTemplateVars('url_host') != null) {
								$value = $smarty->getTemplateVars('url_host');
								break;
							} else {
								$value = '';
								break;
							}
						case 'domainslash':
							if ($smarty->getTemplateVars('url_host') != null) {
								$value = $smarty->getTemplateVars('url_host') . '/';
								break;
							} else {
								$value = '';
								break;
							}
						case 'domainslash_if_multitiki':
							if (is_file('db/virtuals.inc')) {
								$virtuals = array_map('trim', file('db/virtuals.inc'));
							}
							if ($virtuals && $smarty->getTemplateVars('url_host') != null) {
								$value = $smarty->getTemplateVars('url_host') . '/';
								break;
							} else {
								$value = '';
								break;
							}
						case 'lastVersion':
							$histlib = TikiLib::lib('hist');
							// get_page_history arguments: page name, page contents (set to "false" to save memory), history_offset (none, therefore "0"), max. records (just one for this case);
							$history = $histlib->get_page_history($this->option['page'], false, 0, 1);
							if ($history[0]['version'] != null) {
								$value = $history[0]['version'];
								break;
							} else {
								$value = '';
								break;
							}
						case 'lastAuthor':
							$histlib = TikiLib::lib('hist');

							// get_page_history arguments: page name, page contents (set to "false" to save memory), history_offset (none, therefore "0"), max. records (just one for this case);
							$history = $histlib->get_page_history($this->option['page'], false, 0, 1);
							if ($history[0]['user'] != null) {
								if ($prefs['user_show_realnames'] == 'y') {
									$value = TikiLib::lib('user')->clean_user($history[0]['user']);
									break;
								} else {
									$value = $history[0]['user'];
									break;
								}
							} else {
								$value = '';
								break;
							}
						case 'lastModif':
							$histlib = TikiLib::lib('hist');
							// get_page_history arguments: page name, page contents (set to "false" to save memory), history_offset (none, therefore "0"), max. records (just one for this case);
							$history = $histlib->get_page_history($this->option['page'], false, 0, 1);
							if ($history[0]['lastModif'] != null) {
								$value = $tikilib->get_short_datetime($history[0]['lastModif']);
								break;
							} else {
								$value = '';
								break;
							}
						case 'lastItemVersion':
							$trklib = TikiLib::lib('trk');
							$auto_query_args = ['itemId'];
							if (! empty($_REQUEST['itemId'])) {
								$item_info = $trklib->get_item_info($_REQUEST['itemId']);
								$itemObject = Tracker_Item::fromInfo($item_info);
								if (! $itemObject->canView()) {
									$smarty->assign('errortype', 401);
									$smarty->assign('msg', tra('You do not have permission to view this information from this tracker.'));
									$smarty->display('error.tpl');
									die;
								}
								$fieldId = empty($_REQUEST['fieldId']) ? 0 : $_REQUEST['fieldId'];
								$filter = [];
								if (! empty($_REQUEST['version'])) {
									$filter['version'] = $_REQUEST['version'];
								}
								$offset = empty($_REQUEST['offset']) ? 0 : $_REQUEST['offset'];
								$history = $trklib->get_item_history($item_info, $fieldId, $filter, $offset, $prefs['maxRecords']);

								$value = $history['data'][0]['version'];
								break;
							} else {
								$value = '';
								break;
							}
						case 'lastItemAuthor':
							$trklib = TikiLib::lib('trk');
							$auto_query_args = ['itemId'];
							if (! empty($_REQUEST['itemId'])) {
								$item_info = $trklib->get_item_info($_REQUEST['itemId']);
								$itemObject = Tracker_Item::fromInfo($item_info);
								if (! $itemObject->canView()) {
									$smarty->assign('errortype', 401);
									$smarty->assign('msg', tra('You do not have permission to view this information from this tracker.'));
									$smarty->display('error.tpl');
									die;
								}
								if ($item_info['lastModifBy'] != null) {
									if ($prefs['user_show_realnames'] == 'y') {
										$value = TikiLib::lib('user')->clean_user($item_info['lastModifBy']);
										break;
									} else {
										$value = $item_info['lastModifBy'];
										break;
									}
								}
								break;
							} else {
								$value = '';
								break;
							}
						case 'lastItemModif':
							$trklib = TikiLib::lib('trk');
							$auto_query_args = ['itemId'];
							if (! empty($_REQUEST['itemId'])) {
								$item_info = $trklib->get_item_info($_REQUEST['itemId']);
								$itemObject = Tracker_Item::fromInfo($item_info);
								if (! $itemObject->canView()) {
									$smarty->assign('errortype', 401);
									$smarty->assign('msg', tra('You do not have permission to view this information from this tracker.'));
									$smarty->display('error.tpl');
									die;
								}
								$value = $tikilib->get_short_datetime($item_info['lastModif']);
								break;
							} else {
								$value = '';
								break;
							}
						case 'lastApprover':
							global $prefs, $user;
							$tikilib = TikiLib::lib('tiki');

							if ($prefs['flaggedrev_approval'] == 'y') {
								$flaggedrevisionlib = TikiLib::lib('flaggedrevision');

								if ($flaggedrevisionlib->page_requires_approval($this->option['page'])) {
									if ($version_info = $flaggedrevisionlib->get_version_with($this->option['page'], 'moderation', 'OK')) {
										if ($this->content_to_render === null) {
											$revision_displayed = $version_info['version'];
											$approval = $flaggedrevisionlib->find_approval_information($this->option['page'], $revision_displayed);
										}
									}
								}
							}

							if (! empty($approval['user'])) {
								if ($prefs['user_show_realnames'] == 'y') {
									$value = TikiLib::lib('user')->clean_user($approval['user']);
									break;
								} else {
									$value = $approval['user'];
									break;
								}
							} else {
								$value = '';
								break;
							}
						case 'lastApproval':
							global $prefs, $user;
							$tikilib = TikiLib::lib('tiki');

							if ($prefs['flaggedrev_approval'] == 'y') {
								$flaggedrevisionlib = TikiLib::lib('flaggedrevision');

								if ($flaggedrevisionlib->page_requires_approval($this->option['page'])) {
									if ($version_info = $flaggedrevisionlib->get_version_with($this->option['page'], 'moderation', 'OK')) {
										if ($this->content_to_render === null) {
											$revision_displayed = $version_info['version'];
											$approval = $flaggedrevisionlib->find_approval_information($this->option['page'], $revision_displayed);
										}
									}
								}
							}

							if ($approval['lastModif'] != null) {
								$value = $tikilib->get_short_datetime($approval['lastModif']);
								break;
							} else {
								$value = '';
								break;
							}
						case 'lastApprovedVersion':
							global $prefs, $user;
							$tikilib = TikiLib::lib('tiki');

							if ($prefs['flaggedrev_approval'] == 'y') {
								$flaggedrevisionlib = TikiLib::lib('flaggedrevision');

								if ($flaggedrevisionlib->page_requires_approval($this->option['page'])) {
									$version_info = $flaggedrevisionlib->get_version_with($this->option['page'], 'moderation', 'OK');
								}
							}

							if ($version_info['version'] != null) {
								$value = $version_info['version'];
								break;
							} else {
								$value = '';
								break;
							}
						case 'currentVersion':
							if (isset($_REQUEST['preview'])) {
								$value = (int)$_REQUEST["preview"];
								break;
							} elseif (isset($_REQUEST['version'])) {
								$value = (int)$_REQUEST["version"];
								break;
							} elseif ($prefs['flaggedrev_approval'] == 'y' && ! isset($_REQUEST['latest'])) {
								$flaggedrevisionlib = TikiLib::lib('flaggedrevision');

								if ($flaggedrevisionlib->page_requires_approval($this->option['page'])) {
									$version_info = $flaggedrevisionlib->get_version_with($this->option['page'], 'moderation', 'OK');
								}
								if ($version_info['version'] != null) {
									$value = $version_info['version'];
									break;
								}
							} else {
								$histlib = TikiLib::lib('hist');
								// get_page_history arguments: page name, page contents (set to "false" to save memory), history_offset (none, therefore "0"), max. records (just one for this case);
								$history = $histlib->get_page_history($this->option['page'], false, 0, 1);
								if ($history[0]['version'] != null) {
									$value = $history[0]['version'];
									break;
								} else {
									$value = '';
									break;
								}
							}
						case 'currentVersionApprover':
							global $prefs, $user;
							$tikilib = TikiLib::lib('tiki');

							if ($prefs['flaggedrev_approval'] == 'y') {
								$flaggedrevisionlib = TikiLib::lib('flaggedrevision');
								if ($flaggedrevisionlib->page_requires_approval($this->option['page'])) {
									if ($versions_info = $flaggedrevisionlib->get_versions_with($this->option['page'], 'moderation', 'OK')) {
										if (isset($_REQUEST['preview'])) {
											$revision_displayed = (int)$_REQUEST["preview"];
										} elseif (isset($_REQUEST['version'])) {
											$revision_displayed = (int)$_REQUEST["version"];
										} elseif (isset($_REQUEST['latest'])) {
											$revision_displayed = null;
										} else {
											$versions_info = $flaggedrevisionlib->get_versions_with($this->option['page'], 'moderation', 'OK');
											$revision_displayed = $versions_info[0];
										}

										if ($this->content_to_render === null) {
											$approval = $flaggedrevisionlib->find_approval_information($this->option['page'], $revision_displayed);
										}
									}
								}
							}

							if (! empty($approval['user'])) {
								if ($prefs['user_show_realnames'] == 'y') {
									$value = TikiLib::lib('user')->clean_user($approval['user']);
									break;
								} else {
									$value = $approval['user'];
									break;
								}
							} else {
								$value = '';
								break;
							}
						case 'currentVersionApproval':
							global $prefs, $user;
							$tikilib = TikiLib::lib('tiki');

							if ($prefs['flaggedrev_approval'] == 'y') {
								$flaggedrevisionlib = TikiLib::lib('flaggedrevision');

								if ($flaggedrevisionlib->page_requires_approval($this->option['page'])) {
									if ($versions_info = $flaggedrevisionlib->get_versions_with($this->option['page'], 'moderation', 'OK')) {
										if (isset($_REQUEST['preview'])) {
											$revision_displayed = (int)$_REQUEST["preview"];
										} elseif (isset($_REQUEST['version'])) {
											$revision_displayed = (int)$_REQUEST["version"];
										} elseif (isset($_REQUEST['latest'])) {
											$revision_displayed = null;
										} else {
											$versions_info = $flaggedrevisionlib->get_versions_with($this->option['page'], 'moderation', 'OK');
											$revision_displayed = $versions_info[0];
										}

										if ($this->content_to_render === null) {
											$approval = $flaggedrevisionlib->find_approval_information($this->option['page'], $revision_displayed);
										}
									}
								}
							}

							if ($approval['lastModif'] != null) {
								$value = $tikilib->get_short_datetime($approval['lastModif']);
								break;
							} else {
								$value = '';
								break;
							}
						case 'currentVersionApproved':
							global $prefs, $user;
							$tikilib = TikiLib::lib('tiki');

							if ($prefs['flaggedrev_approval'] == 'y') {
								$flaggedrevisionlib = TikiLib::lib('flaggedrevision');

								if ($flaggedrevisionlib->page_requires_approval($this->option['page'])) {
									//$versions_info = $flaggedrevisionlib->get_versions_with($this->option['page'], 'moderation', 'OK');
									if (isset($_REQUEST['preview'])) {
										$revision_displayed = (int)$_REQUEST["preview"];
									} elseif (isset($_REQUEST['version'])) {
										$revision_displayed = (int)$_REQUEST["version"];
									} elseif (isset($_REQUEST['latest'])) {
										$revision_displayed = null;
									} else {
										$versions_info = $flaggedrevisionlib->get_versions_with($this->option['page'], 'moderation', 'OK');
										$revision_displayed = $versions_info[0];
									}
								}
							}

							if ($revision_displayed != null && $approval = $flaggedrevisionlib->find_approval_information($this->option['page'], $revision_displayed)) {
								$value = tr("yes");
								break;
							} else {
								$value = tr("no");
								break;
							}
						case 'cat':
							if (empty($_GET['cat']) && ! empty($_REQUEST['organicgroup']) && ! empty($this->option['page'])) {
								$utilities = new \Tiki\Package\Extension\Utilities();
								if ($folder = $utilities->getFolderFromObject('wiki page', $this->option['page'])) {
									$ogname = $folder . '_' . $_REQUEST['organicgroup'];
									$cat = TikiLib::lib('categ')->get_category_id($ogname);
									$value = $cat;
								} else {
									$value = '';
								}
							} elseif (! empty($_GET['cat'])) {
								$value = $_GET['cat'];
							} else {
								$value = '';
							}
							break;
						default:
							if (isset($_GET[$name])) {
								$value = $_GET[$name];
							} else {
								$value = '';
								include_once('lib/wiki-plugins/wikiplugin_showpref.php');
								if ($prefs['wikiplugin_showpref'] == 'y' && $showpref = wikiplugin_showpref('', ['pref' => $name])) {
									$value = $showpref;
								}
							}
							break;
					}

					$needles[] = $arg[0];
					$replacements[] = $value;
				}
				$data = str_replace($needles, $replacements, $data);
			}
		}
	}

	//*
	protected function parse_data_dynamic_variables($data, $lang = null)
	{
		global $tiki_p_edit_dynvar, $prefs;

		$enclose = '%';
		if ($prefs['wiki_dynvar_style'] == 'disable') {
			return $data;
		} elseif ($prefs['wiki_dynvar_style'] == 'double') {
			$enclose = '%%';
		}

		// Replace dynamic variables
		// Dynamic variables are similar to dynamic content but they are editable
		// from the page directly, intended for short data, not long text but text
		// will work too
		//     Now won't match HTML-style '%nn' letter codes and some special utf8 situations...
		if (preg_match_all("/[^%]$enclose([^% 0-9A-Z][^% 0-9A-Z][^% ]*){$enclose}[^%]/", $data, $dvars)) {
			// remove repeated elements
			$dvars = array_unique($dvars[1]);
			// Now replace each dynamic variable by a pair composed of the
			// variable value and a text field to edit the variable. Each
			foreach ($dvars as $dvar) {
				$value = $this->get_dynamic_variable($dvar, $lang);
				//replace backslash with html entity to avoid losing backslashes in the preg_replace function below
				$value = str_replace('\\', '&bsol;', $value);
				// Now build 2 divs
				$id = 'dyn_' . $dvar;

				if (isset($tiki_p_edit_dynvar)&& $tiki_p_edit_dynvar == 'y') {
					$span1 = "<span style='display:inline;' id='dyn_" . $dvar . "_display'><a class='dynavar' onclick='javascript:toggle_dynamic_var(\"$dvar\");' title='" . tra('Click to edit dynamic variable', '', true) . ": $dvar'>$value</a></span>";
					$span2 = "<span style='display:none;' id='dyn_" . $dvar . "_edit'><input type='text' class='input-sm' name='dyn_" . $dvar . "' value='" . $value . "' />" . '<input type="submit" class="btn btn-primary btn-sm" name="_dyn_update" value="' . tra('Update variable', '', true) . '"/></span>';
				} else {
					$span1 = "<span class='dynavar' style='display:inline;' id='dyn_" . $dvar . "_display'>$value</span>";
					$span2 = '';
				}
				$html = $span1 . $span2;
				//It's important to replace only once
				$dvar_preg = preg_quote($dvar);
				$data = preg_replace("+$enclose$dvar_preg$enclose+", $html, $data, 1);
				//Further replacements only with the value
				$data = str_replace("$enclose$dvar$enclose", $value, $data);
			}
		}

		return $data;
	}

	//*
	private function get_dynamic_variable($name, $lang = null)
	{
		$tikilib = TikiLib::lib('tiki');
		$result = $tikilib->table('tiki_dynamic_variables')->fetchAll(['data', 'lang'], ['name' => $name]);

		$value = tr('No value assigned');

		foreach ($result as $row) {
			if ($row['lang'] == $lang) {
				// Exact match
				return $row['data'];
			} elseif (empty($row['lang'])) {
				// Universal match, keep in case no exact match
				$value = $row['data'];
			}
		}

		return $value;
	}

	/* This is only called by parse_data(). It does not just deal with TOC-s. */
	protected function parse_data_process_maketoc(&$data, $noparsed)
	{

		global $prefs;
		$tikilib = TikiLib::lib('tiki');

		// $this->makeTocCount++; Unused since Tiki 12 or earlier

		if ($this->option['ck_editor']) {
			$need_maketoc = false ;
		} else {
			$need_maketoc = preg_match('/\{maketoc.*\}/', $data);
		}

		// Wysiwyg or allowhtml mode {maketoc} handling when not in editor mode (i.e. viewing)
		if ($need_maketoc && $this->option['is_html']) {
			// Header needs to start at beginning of line (wysiwyg does not necessary obey)
			$data = $this->unprotectSpecialChars($data, true);
			$data = preg_replace('/<\/([a-z]+)><h([1-6])>/im', "</\\1>\n<h\\2>", $data);
			$data = preg_replace('/^\s+<h([1-6])>/im', "<h\\1>", $data); // headings with leading spaces
			$data = preg_replace('/\/><h([1-6])>/im', "/>\n<h\\1>", $data); // headings after /> tag
			$htmlheadersearch = '/<h([1-6])>\s*([^<]+)\s*<\/h[1-6]>/im';
			preg_match_all($htmlheadersearch, $data, $htmlheaders);
			$nbhh = count($htmlheaders[1]);
			for ($i = 0; $i < $nbhh; $i++) {
				$htmlheaderreplace = '';
				for ($j = 0; $j < $htmlheaders[1][$i]; $j++) {
					$htmlheaderreplace .= '!';
				}
				$htmlheaderreplace .= $htmlheaders[2][$i];
				$data = str_replace($htmlheaders[0][$i], $htmlheaderreplace, $data);
			}
			$data = $this->protectSpecialChars($data, true);
		}

		$need_autonumbering = ( preg_match('/^\!+[\-\+]?#/m', $data) > 0 );

		$anch = [];
		global $anch;
		$pageNum = 1;

		// Now tokenize the expression and process the tokens
		// Use tab and newline as tokenizing characters as well  ////
		$lines = explode("\n", $data);
		if (empty($lines[count($lines) - 1]) && empty($lines[count($lines) - 2])) {
			array_pop($lines);
		}
		$data = '';
		$listbeg = [];
		$divdepth = [];
		$hdr_structure = [];
		$show_title_level = [];
		$last_hdr = [];
		$nb_last_hdr = 0;
		$nb_hdrs = 0;
		$inTable = 0;
		$inPre = 0;
		$inComment = 0;
		$inTOC = 0;
		$inScript = 0;
		$title_text = '';

		// loop: process all lines
		$in_paragraph = 0;
		$in_empty_paragraph = 0;

		foreach ($lines as $line) {
			// Add newlines between lines
			if (isset($current_title_num)) { // Exclude the first line
				$data .= "\n";
			}

			$current_title_num = '';
			$numbering_remove = 0;

			$line = rtrim($line); // Trim off trailing white space
			// Check for titlebars...
			// NOTE: that title bar should start at the beginning of the line and
			//	   be alone on that line to be autoaligned... otherwise, it is an old
			//	   styled title bar...
			if (substr(ltrim($line), 0, 2) == '-=' && substr($line, -2, 2) == '=-') {
				// Close open paragraph and lists, but not div's
				$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);
				//
				$align_len = strlen($line) - strlen(ltrim($line));

				// My textarea size is about 120 space chars.
				//define('TEXTAREA_SZ', 120);

				// NOTE: That strict math formula (split into 3 areas) gives
				//	   bad visual effects...
				// $align = ($align_len < (TEXTAREA_SZ / 3)) ? "left"
				//		: (($align_len > (2 * TEXTAREA_SZ / 3)) ? "right" : "center");
				//
				// Going to introduce some heuristic here :)
				// Visualy (remember that space char is thin) center starts at 25 pos
				// and 'right' from 60 (HALF of full width!) -- thats all :)
				//
				// NOTE: Guess align only if more than 10 spaces before -=title=-
				if ($align_len > 10) {
					$align = ($align_len < 25) ? "left" : (($align_len > 60) ? "right" : "center");

					$align = ' style="text-align: ' . $align . ';"';
				} else {
					$align = '';
				}

				//
				$line = trim($line);
				$line = '<div class="titlebar"' . $align . '>' . substr($line, 2, strlen($line) - 4) . '</div>';
				$data .= $line . "\n";
				// TODO: Case is handled ...  no need to check other conditions
				//	   (it is apriori known that they are all false, moreover sometimes
				//	   check procedure need > O(0) of compexity)
				//	   -- continue to next line...
				//	   MUST replace all remaining parse blocks to the same logic...
				continue;
			}

			// Replace old styled titlebars
			if (strlen($line) != strlen($line = preg_replace("/-=(.+?)=-/", "<div class='titlebar'>$1</div>", $line))) {
				// Close open paragraph, but not lists (why not?) or div's
				$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
				$data .= $line . "\n";

				continue;
			}

			// check if we are inside a ~hc~ block and, if so, ignore
			// monospaced and do not insert <br />
			$lineInLowerCase = TikiLib::strtolower($this->unprotectSpecialChars($line, true));

			$inComment += substr_count($lineInLowerCase, "<!--");
			$inComment -= substr_count($lineInLowerCase, "-->");
			if ($inComment < 0) {	// stop lines containing just --> being detected as comments
				$inComment = 0;
			}

			// check if we are inside a ~pre~ block and, if so, ignore
			// monospaced and do not insert <br />
			$inPre += substr_count($lineInLowerCase, "<pre");
			$inPre -= substr_count($lineInLowerCase, "</pre");

			// check if we are inside a table, if so, ignore monospaced and do
			// not insert <br />

			$inTable += substr_count($lineInLowerCase, "<table");
			$inTable -= substr_count($lineInLowerCase, "</table");

			// check if we are inside an ul TOC list, if so, ignore monospaced and do
			// not insert <br />
			$inTOC += substr_count($lineInLowerCase, "<ul class=\"toc");
			$inTOC -= substr_count($lineInLowerCase, "</ul><!--toc-->");

			// check if we are inside a script not insert <br />
			$inScript += substr_count($lineInLowerCase, "<script ");
			$inScript -= substr_count($lineInLowerCase, "</script>");

			// If the first character is ' ' and we are not in pre then we are in pre
			if ($prefs['feature_wiki_monosp'] == 'y' && substr($line, 0, 1) == ' ' /* The first character is a space (' '). */
				&& $inTable == 0 && $inPre == 0 && $inComment == 0 && ! $this->option['is_html']) {
				// Close open paragraph and lists, but not div's
				$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);

				// make font monospaced
				// For fixed formatting, use ~pp~...~/pp~
				$line = '<tt>' . $line . '</tt>';
			}

			// Replace hotwords and more
			// 08-Jul-2003, by zaufi
			// HotWords will be replace only in ordinal text
			// It looks __really__ goofy in Headers or Titles
			$line = $this->parse_data_inline_syntax($line, null, $this->option['ck_editor']);

			// This line is parseable then we have to see what we have
			if (substr($line, 0, 3) == '---') {
				// This is not a list item --- close open paragraph and lists, but not div's
				$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);
				$line = '<hr />';
			} else {
				$litype = substr($line, 0, 1);
				if (($litype == '*' || $litype == '#') && ! (strlen($line) - count($listbeg) > 4 && preg_match('/^\*+$/', $line))) {
					// Close open paragraph, but not lists or div's
					$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
					$listlevel = $tikilib->how_many_at_start($line, $litype);
					$liclose = '</li>';
					$addremove = 0;
					if ($listlevel < count($listbeg)) {
						while ($listlevel != count($listbeg)) {
							$data .= array_shift($listbeg);
						}
						if (substr(current($listbeg), 0, 5) != '</li>') {
							$liclose = '';
						}
					} elseif ($listlevel > count($listbeg)) {
						$listyle = '';
						while ($listlevel != count($listbeg)) {
							array_unshift($listbeg, ($litype == '*' ? '</ul>' : '</ol>'));
							if ($listlevel == count($listbeg)) {
								$listate = substr($line, $listlevel, 1);
								if (($listate == '+' || $listate == '-') && ! ($litype == '*' && ! strstr(current($listbeg), '</ul>') || $litype == '#' && ! strstr(current($listbeg), '</ol>'))) {
									$thisid = 'id' . microtime() * 1000000;
									if (! $this->option['ck_editor']) {
										$data .= '<br /><a id="flipper' . $thisid . '" class="link" href="javascript:flipWithSign(\'' . $thisid . '\')">[' . ($listate == '-' ? '+' : '-') . ']</a>';
									}
									$listyle = ' id="' . $thisid . '" style="display:' . ($listate == '+' || $this->option['ck_editor'] ? 'block' : 'none') . ';"';
									$addremove = 1;
								}
							}
							$data .= ($litype == '*' ? "<ul$listyle>" : "<ol$listyle>");
						}
						$liclose = '';
					}
					if ($litype == '*' && ! strstr(current($listbeg), '</ul>') || $litype == '#' && ! strstr(current($listbeg), '</ol>')) {
						$data .= array_shift($listbeg);
						$listyle = '';
						$listate = substr($line, $listlevel, 1);
						if (($listate == '+' || $listate == '-')) {
							$thisid = 'id' . microtime() * 1000000;
							if (! $this->option['ck_editor']) {
								$data .= '<br /><a id="flipper' . $thisid . '" class="link" href="javascript:flipWithSign(\'' . $thisid . '\')">[' . ($listate == '-' ? '+' : '-') . ']</a>';
							}
							$listyle = ' id="' . $thisid . '" style="display:' . ($listate == '+' || $this->option['ck_editor'] ? 'block' : 'none') . ';"';
							$addremove = 1;
						}
						$data .= ($litype == '*' ? "<ul$listyle>" : "<ol$listyle>");
						$liclose = '';
						array_unshift($listbeg, ($litype == '*' ? '</li></ul>' : '</li></ol>'));
					}
					$line = $liclose . '<li>' . substr($line, $listlevel + $addremove);
					if (substr(current($listbeg), 0, 5) != '</li>') {
						array_unshift($listbeg, '</li>' . array_shift($listbeg));
					}
				} elseif ($litype == '+') {
					// Close open paragraph, but not list or div's
					$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
					$listlevel = $tikilib->how_many_at_start($line, $litype);
					// Close lists down to requested level
					while ($listlevel < count($listbeg)) {
						$data .= array_shift($listbeg);
					}

					// Must append paragraph for list item of given depth...
					$listlevel = $tikilib->how_many_at_start($line, $litype);
					if (count($listbeg)) {
						if (substr(current($listbeg), 0, 5) != '</li>') {
							array_unshift($listbeg, '</li>' . array_shift($listbeg));
							$liclose = '<li>';
						} else {
							$liclose = '<br />';
						}
					} else {
						$liclose = '';
					}
					$line = $liclose . substr($line, count($listbeg));
				} else {
					// This is not a list item - close open lists,
					// but not paragraph or div's. If we are
					// closing a list, there really shouldn't be a
					// paragraph open anyway.
					$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 0, 1, 0);

					// Get count of (possible) header signs at start
					$hdrlevel = $tikilib->how_many_at_start($line, '!');

					if ($litype == '!' && $hdrlevel > 0 && $hdrlevel <= 6 /* HTML has h1 to h6, but no h7 or above */) { // If the line starts with 1 to 6 exclamation marks ("!")
						/*
						 * Handle headings autonumbering syntax (i.e. !#Text, !!#Text, ...)
						 * Note :
						 *    this needs to be done even if the current header has no '#'
						 *    in order to generate the right numbers when they are not specified for every headers.
						 *    This is the case, for example, when you want to add numbers to headers of level 2 but not to level 1
						 */

						$line_lenght = strlen($line);

						// Generate an array containing the squeleton of maketoc (based on headers levels)
						//   i.e. hdr_structure will contain something lile this :
						//     array( 1, 2, 2.1, 2.1.1, 2.1.2, 2.2, ... , X.Y.Z... )
						//

						$hdr_structure[$nb_hdrs] = [];

						// Generate the number (e.g. 1.2.1.1) of the current title, based on the previous title number :
						//   - if the current title deepest level is lesser than (or equal to)
						//     the deepest level of the previous title : then we increment the last level number,
						//   - else : we simply add new levels with value '1' (only if the previous level number was shown),
						//
						if ($nb_last_hdr > 0 && $hdrlevel <= $nb_last_hdr) {
							$hdr_structure[$nb_hdrs] = array_slice($last_hdr, 0, $hdrlevel);
							if (! empty($show_title_level[$hdrlevel]) || ! $need_autonumbering) {
								//
								// Increment the level number only if :
								//     - the last title of the same level number has a displayed number
								//  or - no title has a displayed number (no autonumbering)
								//
								$hdr_structure[$nb_hdrs][$hdrlevel - 1]++;
							}
						} else {
							if ($nb_last_hdr > 0) {
								$hdr_structure[$nb_hdrs] = $last_hdr;
							}
							for ($h = 0; $h < $hdrlevel - $nb_last_hdr; $h++) {
								$hdr_structure[$nb_hdrs][$h + $nb_last_hdr] = '1';
							}
						}
						$show_title_level[$hdrlevel] = preg_match('/^!+[\+\-]?#/', $line);

						// Update last_hdr info for the next header
						$last_hdr = $hdr_structure[$nb_hdrs];
						$nb_last_hdr = count($last_hdr);

						if (is_array($last_hdr)) {
							$current_title_real_num = implode('.', $last_hdr) . '. ';
						} else {
							$current_title_real_num = $last_hdr . '. ';
						}

						// Update the current title number to hide all parents levels numbers if the parent has no autonumbering
						$hideall = false;
						for ($j = $hdrlevel; $j > 0; $j--) {
							if ($hideall || empty($show_title_level[$j])) {
								unset($hdr_structure[$j - 1]);
								$hideall = true;
							}
						}

						// Store the title number to use only if it has to be shown (if the '#' char is used)
						$current_title_num = '';
						if (isset($show_title_level[$hdrlevel]) && isset($hdr_structure[$nb_hdrs])) {
							$current_title_num = $show_title_level[$hdrlevel] ? implode('.', $hdr_structure[$nb_hdrs]) . '. ' : '';
						}

						$nb_hdrs++;


						// Close open paragraph (lists already closed above)
						$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
						// Close lower level divs if opened
						for (; current($divdepth) >= $hdrlevel; array_shift($divdepth)) {
							$data .= '</div>';
						}

						// Remove possible hotwords replaced :)
						//   Umm, *why*?  Taking this out lets page
						//   links in headers work, which can be nice.
						//   -rlpowell
						// $line = strip_tags($line);

						// OK. Parse headers here...
						$anchor = '';
						$aclose = '';
						$aclose2 = '';
						$addremove = $show_title_level[$hdrlevel] ? 1 : 0; // If needed, also remove '#' sign from title beginning

						// May be special signs present after '!'s?
						$divstate = substr($line, $hdrlevel, 1);
						if (($divstate == '+' || $divstate == '-') && ! $this->option['ck_editor']) {
							// OK. Must insert flipper after HEADER, and then open new div...
							$thisid = 'id' . preg_replace('/[^a-zA-z0-9]/', '', urlencode($this->option['page'])) . $nb_hdrs;
							require_once __DIR__ . '/../setup/cookies.php';
							$state_cookie = getCookie($thisid, "showhide_headings");
							if ($state_cookie === 'o' && $divstate === '-') {
								$divstate = '+';
							} elseif ($state_cookie === 'c' && $divstate === '+') {
								$divstate = '-';
							}
							$aclose = '<a id="flipper' . $thisid . '" class="link" href="#" onclick="flipWithSign(\'' . $thisid . '\');return false;">[' . ($divstate == '-' ? '+' : '-') . ']</a>';
							$aclose2 = '<div id="' . $thisid . '" class="showhide_heading" style="display:' . ($divstate == '+' ? 'block' : 'none') . ';">';
							$headerlib = TikiLib::lib('header');
							$headerlib->add_jq_onready("setheadingstate('$thisid');");
							array_unshift($divdepth, $hdrlevel);
							$addremove += 1;
						}

						// Generate the final title text
						$title_text_base = substr($line, $hdrlevel + $addremove);
						$title_text = $current_title_num . $title_text_base;

						// create stable anchors for all headers
						// use header but replace non-word character sequences
						// with one underscore (for XHTML 1.0 compliance)
						// Workaround pb with plugin replacement and header id
						//  first we remove hash from title_text for headings beginning
						//  with images and HTML tags
						$thisid = preg_replace('/§[a-z0-9]{32}§/', '', $title_text);
						$thisid = preg_replace('#</?[^>]+>#', '', $thisid);
						$thisid = preg_replace('/[^a-zA-Z0-9\:\.\-\_]+/', '_', $thisid);
						$thisid = preg_replace('/^[^a-zA-Z]*/', '', $thisid);
						if (empty($thisid)) {
							$thisid = 'a' . md5($title_text);
						}

						// Add a number to the anchor if it already exists, to avoid duplicated anchors
						if (isset($all_anchors[$thisid])) {
							$all_anchors[$thisid]++;
							$thisid .= '_' . $all_anchors[$thisid];
						} else {
							$all_anchors[$thisid] = 1;
						}

						// Collect TOC entry if any {maketoc} is present on the page
						//if ( $need_maketoc !== false ) {
						$anch[] = [
										'id' => $thisid,
										'hdrlevel' => $hdrlevel,
										'pagenum' => $pageNum,
										'title' => $title_text_base,
										'title_displayed_num' => $current_title_num,
										'title_real_num' => $current_title_real_num
										];
						//}
						global $tiki_p_edit, $section;
						if ($prefs['wiki_edit_section'] === 'y' && $section === 'wiki page' && $tiki_p_edit === 'y' &&
								( $prefs['wiki_edit_section_level'] == 0 || $hdrlevel <= $prefs['wiki_edit_section_level']) &&
								(empty($this->option['print']) || ! $this->option['print']) && ! $this->option['suppress_icons'] ) {
							$smarty = TikiLib::lib('smarty');
							include_once('lib/smarty_tiki/function.icon.php');

							if ($prefs['wiki_edit_icons_toggle'] == 'y' && ! isset($_COOKIE['wiki_plugin_edit_view'])) {
								$iconDisplayStyle = ' style="display:none;"';
							} else {
								$iconDisplayStyle = '';
							}
							$button = '<div class="icon_edit_section"' . $iconDisplayStyle . '><a title="' . tra('Edit Section') . '" href="tiki-editpage.php?';
							if (! empty($this->option['page'])) {
								$button .= 'page=' . urlencode($this->option['page']) . '&amp;';
							}
							$button .= 'hdr=' . $nb_hdrs . '">' . smarty_function_icon(['name' => 'edit'], $smarty->getEmptyInternalTemplate()) . '</a></div>';
						} else {
							$button = '';
						}

						// replace <div> with <h> style attribute
						$do_center = 0;
						$title_text = preg_replace('/<div style="text-align: center;">(.*)<\/div>/', '\1', $title_text, 1, $do_center);

						// prevent widow words on headings - originally from http://davidwalsh.name/prevent-widows-php-javascript
						$title_text = preg_replace('/^\s*(.+\s+\S+)\s+(\S+)\s*$/sumU', '$1&nbsp;$2', $title_text);

						$style = $do_center ? ' style="text-align: center;"' : '';

						if ($prefs['wiki_heading_links'] === 'y') {
							$smarty = TikiLib::lib('smarty');
							$smarty->loadPlugin('smarty_function_icon');
							$headingLink = '<a href="#' . $thisid . '" class="heading-link">' . smarty_function_icon(['name' => 'link'], $smarty->getEmptyInternalTemplate()) . '</a>';
						} else {
							$headingLink = '';
						}

						if ($prefs['feature_wiki_show_hide_before'] == 'y') {
							$line = $button . '<h' . ($hdrlevel) . $style . ' class="showhide_heading" id="' . $thisid . '">' . $aclose . ' ' . $title_text . $headingLink . '</h' . ($hdrlevel) . '>' . $aclose2;
						} else {
							$line = $button . '<h' . ($hdrlevel) . $style . ' class="showhide_heading" id="' . $thisid . '">' . $title_text . $headingLink . '</h' . ($hdrlevel) . '>' . $aclose . $aclose2;
						}
					} elseif (! strcmp($line, $prefs['wiki_page_separator'])) {
						// Close open paragraph, lists, and div's
						$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 1);
						// Leave line unchanged... tiki-index.php will split wiki here
						$line = $prefs['wiki_page_separator'];
						$pageNum += 1;
					} else {
						/** Usual paragraph.
						 *
						 * If the
						 * $prefs['feature_wiki_paragraph_formatting']
						 * is on, then consecutive lines of
						 * text will be gathered into a block
						 * that is surrounded by HTML
						 * paragraph tags. One or more blank
						 * lines, or another special Wiki line
						 * (e.g., heading, titlebar, etc.)
						 * signifies the end of the
						 * paragraph. If the paragraph
						 * formatting feature is off, the
						 * original Tikiwiki behavior is used,
						 * in which each line in the source is
						 * terminated by an explicit line
						 * break (br tag).
						 *
						 * @since Version 1.9
						 */
						if ($inTable == 0 && $inPre == 0 && $inComment == 0 && $inTOC == 0 &&  $inScript == 0
								// Don't put newlines at comments' end!
								&& strpos($line, "-->") !== (strlen($line) - 3)
								&& $this->option['process_wiki_paragraphs']) {
							$tline = trim(str_replace('&nbsp;', '', $this->unprotectSpecialChars($line, true)));

							if ($prefs['feature_wiki_paragraph_formatting'] == 'y') {
								if (count($lines) > 1 || $this->option['min_one_paragraph']) {	// don't apply wiki para if only single line so you can have inline includes
									$contains_block = $this->contains_html_block($tline);
									$contains_br = $this->contains_html_br($tline);

									if (! $contains_block) {	// check inside plugins etc for block elements
										preg_match_all('/\xc2\xa7[^\xc2\xa7]+\xc2\xa7/', $tline, $m);	// noparse guid for plugins
										if (count($m) > 0) {
											$m_count = count($m[0]);
											$nop_ix = false;
											for ($i = 0; $i < $m_count; $i++) {
												//$nop_ix = array_search( $m[0][$i], $noparsed['key'] ); 	// array_search doesn't seem to work here - why? no "keys"?
												foreach ($noparsed['key'] as $k => $s) {
													if ($m[0][$i] == $s) {
														$nop_ix = $k;
														break;
													}
												}
												if ($nop_ix !== false) {
													$nop_str = $noparsed['data'][$nop_ix];
													$contains_block = $this->contains_html_block($nop_str);
													if ($contains_block) {
														break;
													}
												}
											}
										}
									}

									$add_brs = $prefs['feature_wiki_paragraph_formatting_add_br'] === 'y' && ! $this->option['is_html'];
									if ($in_paragraph && ((empty($tline) && ! $in_empty_paragraph) || $contains_block)) {
										// If still in paragraph, on meeting first blank line or end of div or start of div created by plugins; close a paragraph
										$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
									} elseif (! $in_paragraph && ! $contains_block && ! $contains_br && (! empty($tline) || $add_brs)) {
										// If not in paragraph, first non-blank line; start a paragraph; if not start of div created by plugins
										$data .= "<p>";
										$in_paragraph = 1;
										$in_empty_paragraph = empty($tline) && $add_brs;
									} elseif ($in_paragraph && $add_brs && ! $contains_block) {
										// A normal in-paragraph line if not close of div created by plugins
										if (! empty($tline)) {
											$in_empty_paragraph = false;
										}
										$line = "<br />" . $line;
									} // else {
									  // A normal in-paragraph line or a consecutive blank line.
									  // Leave it as is.
									  // }
								}
							} else {
								$line .= "<br />";
							}
						}
					}
				}
			}
			$data .= $line;
		}

		if ($this->option['is_html']) {
			// A paragraph cannot contain paragraphs.
			// The following avoids invalid HTML, but could result in formatting different from that intended. Should a replacement here not at least generate a notice? Chealer 2017-08-14
			$count = 1;
			while ($count == 1) {
				$data = preg_replace("#<p>([^(</p>)]*)<p>([^(</p>)]*)</p>#uims", "<p>$1$2", $data, 1, $count);
			}
			if (is_null($data)) {
				trigger_error('Parsing failed (' . array_flip(get_defined_constants(true)['pcre'])[preg_last_error()] . ')', E_USER_WARNING);
			}
		}

		// Close open paragraph, lists, and div's
		$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 1);

		/*
		 * Replace special "maketoc" plugins
		 *  Valid arguments :
		 *    - type (look of the maketoc),
		 *    - maxdepth (max level displayed),
		 *    - title (replace the default title),
		 *    - showhide (if set to y, add the Show/Hide link)
		 *    - nolinks (if set to y, don't add links on toc entries)
		 *    - nums :
		 *       * 'n' means 'no title autonumbering' in TOC,
		 *       * 'force' means :
		 *	    ~ same as 'y' if autonumbering is used in the page,
		 *	    ~ 'number each toc entry as if they were all autonumbered'
		 *       * any other value means 'same as page's headings autonumbering',
		 *
		 *  (Note that title will be translated if a translation is available)
		 *
		 *  Examples: {maketoc}, {maketoc type=box maxdepth=1 showhide=y}, {maketoc title="Page Content" maxdepth=3}, ...
		 *  Obsolete syntax: {maketoc:box}
		 */
		$new_data = '';
		$search_start = 0;
		if ($need_maketoc) {
			while (($maketoc_start = strpos($data, "{maketoc", $search_start)) !== false) {
				$maketoc_length = strpos($data, "}", $maketoc_start) + 1 - $maketoc_start;
				$maketoc_string = substr($data, $maketoc_start, $maketoc_length);

				// Handle old type definition for type "box" (and preserve environment for the title also)
				if ($maketoc_length > 12 && TikiLib::strtolower(substr($maketoc_string, 8, 4)) == ':box') {
					$maketoc_string = "{maketoc type=box showhide=y title='" . tra('index', $this->option['language'], true) . '"' . substr($maketoc_string, 12);
				}

				$maketoc_string = str_replace('&quot;', '"', $maketoc_string);
				$maketoc_regs = [];

				if ($maketoc_length == 9 || preg_match_all("/([^\s=\(]+)=([^\"\s=\)\}]+|\"[^\"]*\")/", $maketoc_string, $maketoc_regs)) {
					if ($maketoc_start > 0) {
						$new_data .= substr($data, 0, $maketoc_start);
					}

					// Set maketoc default values
					$maketoc_args = [
							'type' => '',
							'maxdepth' => 0, // No limit
							'title' => tra('Table of contents', $this->option['language'], true),
							'showhide' => '',
							'nolinks' => '',
							'nums' => '',
							'levels' => ''
							];

					// Build maketoc arguments list (and remove " chars if they are around the value)
					if (isset($maketoc_regs[1])) {
						$nb_args = count($maketoc_regs[1]);
						for ($a = 0; $a < $nb_args; $a++) {
							$maketoc_args[TikiLib::strtolower($maketoc_regs[1][$a])] = trim($maketoc_regs[2][$a], '"');
						}
					}

					if ($maketoc_args['title'] != '') {
						// Translate maketoc title
						$maketoc_summary = ' summary="' . tra($maketoc_args['title'], $this->option['language'], true) . '"';
						$maketoc_title = "<div id='toctitle'><h3>" . tra($maketoc_args['title'], $this->option['language']) . '</h3>';

						if (isset($maketoc_args['showhide']) && $maketoc_args['showhide'] == 'y') {
							$maketoc_title .= '<a class="link"  href="javascript:toggleToc()">' . '[' . tra('Show/Hide') . ']' . '</a>';
						}
						$maketoc_title .= '</div>';
					} else {
						$maketoc_summary = '';
						$maketoc_title = '';
					}
					if (! empty($maketoc_args['levels'])) {
						$maketoc_args['levels'] = preg_split('/\s*,\s*/', $maketoc_args['levels']);
					}

					// Build maketoc
					switch ($maketoc_args['type']) {
						case 'box':
							$maketoc_header = '';
							$maketoc = "<table id='toc' class='toc'$maketoc_summary>\n<tr><td>$maketoc_title<ul>";
							$maketoc_footer = "</ul></td></tr></table>\n";
							$link_class = 'toclink';
							break;
						default:
							$maketoc = '';
							$maketoc_header = "<div id='toc'>" . $maketoc_title;
							$maketoc_footer = '</div>';
							$link_class = 'link';
					}
					foreach ($anch as $tocentry) {
						if ($maketoc_args['maxdepth'] > 0 && $tocentry['hdrlevel'] > $maketoc_args['maxdepth']) {
							continue;
						}
						if (! empty($maketoc_args['levels']) && ! in_array($tocentry['hdrlevel'], $maketoc_args['levels'])) {
							continue;
						}
						// Generate the toc entry title (with nums)
						if ($maketoc_args['nums'] == 'n') {
							$tocentry_title = '';
						} elseif ($maketoc_args['nums'] == 'force' && ! $need_autonumbering) {
							$tocentry_title = $tocentry['title_real_num'];
						} else {
							$tocentry_title = $tocentry['title_displayed_num'];
						}
						$tocentry_title .= $tocentry['title'];

						// Generate the toc entry link
						$tocentry_link = '#' . $tocentry['id'];
						if ($tocentry['pagenum'] > 1) {
							$tocentry_link = $_SERVER['PHP_SELF'] . '?page=' . $this->option['page'] . '&pagenum=' . $tocentry['pagenum'] . $tocentry_link;
						}
						if ($maketoc_args['nolinks'] != 'y') {
							$tocentry_title = "<a href='$tocentry_link' class='link'>" . $tocentry_title . '</a>';
						}

						if ($maketoc != '') {
							$maketoc .= "\n";
						}
						$shift = $tocentry['hdrlevel'];
						if (! empty($maketoc_args['levels'])) {
							for ($i = 1; $i <= $tocentry['hdrlevel']; ++$i) {
								if (! in_array($i, $maketoc_args['levels'])) {
									--$shift;
								}
							}
						}
						switch ($maketoc_args['type']) {
							case 'box':
								$maketoc .= "<li class='toclevel-" . $shift . "'>" . $tocentry_title . "</li>";
								break;
							default:
								$maketoc .= str_repeat('*', $shift) . $tocentry_title;
						}
					}

					$maketoc = $this->parse_data($maketoc, ['noparseplugins' => true]);

					if (preg_match("/^<ul>/", $maketoc)) {
						$maketoc = preg_replace("/^<ul>/", '<ul class="toc">', $maketoc);
						$maketoc .= '<!--toc-->';
					}

					if ($link_class != 'link') {
						$maketoc = preg_replace("/'link'/", "'$link_class'", $maketoc);
					}

					//patch-ini - Patch taken from http://dev.tiki.org/item5405
					global $TOC_newstring, $TOC_oldstring ;

					$TOC_newstring = $maketoc ; //===== get a copy of the newest TOC before we do anything to it
					if (strpos($maketoc, $TOC_oldstring)) { // larryg - if this MAKETOC contains previous chapter's TOC entries, remove that portion of the string
						$maketoc = substr($maketoc, 0, strpos($maketoc, $TOC_oldstring)) . substr($maketoc, strpos($maketoc, $TOC_oldstring) + strlen($TOC_oldstring)) ;
					}

					//prepare this chapter's TOC entry to be compared with the next chapter's string]
					$head_string = '<li><a href='   ;
					$tail_string = '<!--toc-->' ;
					if (strpos($TOC_newstring, $head_string) && strpos($TOC_newstring, $tail_string)) {
						$TOC_newstring = substr($TOC_newstring, strpos($TOC_newstring, $head_string)) ; // trim unwanted stuff from the beginning of the string
						$TOC_newstring = substr($TOC_newstring, 0, (strpos($TOC_newstring, $tail_string) - 5)) ; // trim the stuff from the tail of the string    </ul></li></ul>
						$TOC_oldstring = $TOC_newstring ;
					}
					//patch-end - Patch taken from http://dev.tiki.org/item5405

					if (! empty($maketoc)) {
						$maketoc = $maketoc_header . $maketoc . $maketoc_footer;
					}
					$new_data .= $maketoc;
					$data = substr($data, $maketoc_start + $maketoc_length);
					$search_start = 0; // Reinitialize search start cursor, since data now begins after the last replaced maketoc
				} else {
					$search_start = $maketoc_start + $maketoc_length;
				}
			}
		}
		$data = $new_data . $data;
		// Add icon to edit the text before the first section (if there is some)
		if ($prefs['wiki_edit_section'] === 'y' && isset($section) && $section === 'wiki page' && $tiki_p_edit === 'y' && (empty($this->option['print']) ||
				! $this->option['print'])  && strpos($data, '<div class="icon_edit_section">') != 0 && ! $this->option['suppress_icons']) {
			$smarty = TikiLib::lib('smarty');
			include_once('lib/smarty_tiki/function.icon.php');
			$button = '<div class="icon_edit_section"><a title="' . tra('Edit Section') . '" href="tiki-editpage.php?';
			if (! empty($this->option['page'])) {
				$button .= 'page=' . urlencode($this->option['page']) . '&amp;';
			}
			$button .= 'hdr=0">' . smarty_function_icon(['name' => 'edit'], $smarty->getEmptyInternalTemplate()) . '</a></div>';
			$data = $button . $data;
		}
	}

	//*
	function contains_html_block($inHtml)
	{
		// detect all block elements as defined on http://www.w3.org/2007/07/xhtml-basic-ref.html
		$block_detect_regexp = '/<[\/]?(?:address|blockquote|div|dl|fieldset|h\d|hr|li|noscript|ol|p|pre|table|ul)/i';
		return  (preg_match($block_detect_regexp, $this->unprotectSpecialChars($inHtml, true)) > 0);
	}

	//*
	function contains_html_br($inHtml)
	{
		$block_detect_regexp = '/<(?:br)/i';
		return  (preg_match($block_detect_regexp, $this->unprotectSpecialChars($inHtml, true)) > 0);
	}

	//*
	function get_wiki_link_replacement($pageLink, $extra = [], $ck_editor = false)
	{
		global $prefs;
		$wikilib = TikiLib::lib('wiki');
		$tikilib = TikiLib::lib('tiki');

		// Fetch all externals once
		static $externals = false;
		if (false === $externals) {
			$externals = $tikilib->fetchMap('SELECT LOWER(`name`), `extwiki` FROM `tiki_extwiki`');
		}

		$displayLink = $pageLink;

		// HTML entities encoding breaks page lookup
		$pageLink = html_entity_decode($pageLink, ENT_COMPAT, 'UTF-8');

		if ($prefs['namespace_enabled'] == 'y' && $prefs['namespace_force_links'] == 'y'
			&& $wikilib->get_namespace($this->option['page'])
			&& ! $wikilib->get_namespace($pageLink) ) {
				$pageLink = $wikilib->get_namespace($this->option['page']) . $prefs['namespace_separator'] . $pageLink;
		}

		$description = null;
		$reltype = null;
		$processPlural = false;
		$anchor = null;

		if (array_key_exists('description', $extra)) {
			$description = $extra['description'];
		}
		if (array_key_exists('reltype', $extra)) {
			$reltype = $extra['reltype'];
		}
		if (array_key_exists('plural', $extra)) {
			$processPlural = (boolean) $extra['plural'];
		}
		if (array_key_exists('anchor', $extra)) {
			$anchor = $extra['anchor'];
		}

		$link = new WikiParser_OutputLink;
		$link->setIdentifier($pageLink);
		$link->setNamespace($this->option['namespace'], $prefs['namespace_separator']);
		$link->setQualifier($reltype);
		$link->setDescription($description);
		$link->setWikiLookup([ $this, 'parser_helper_wiki_info_getter' ]);
		if ($ck_editor) {	// prevent page slug being used in wysiwyg editor, needs the page name
			$link->setWikiLinkBuilder(
				function ($pageLink) {
					return $pageLink;
				}
			);
		} else {
			$link->setWikiLinkBuilder(
				function ($pageLink) {
					$wikilib = TikiLib::lib('wiki');
					return $wikilib->sefurl($pageLink);
				}
			);
		}
		$link->setExternals($externals);
		$link->setHandlePlurals($processPlural);
		$link->setAnchor($anchor);

		if ($prefs['feature_multilingual'] == 'y' && isset($GLOBALS['pageLang'])) {
			$link->setLanguage($GLOBALS['pageLang']);
		}

		return $link->getHtml($ck_editor);
	}

	//*
	function parser_helper_wiki_info_getter($pageName)
	{
		global $prefs;
		$tikilib = TikiLib::lib('tiki');
		$page_info = $tikilib->get_page_info($pageName, false);

		if ($page_info !== false) {
			return $page_info;
		}

		// If page does not exist directly, attempt to find an alias
		if ($prefs['feature_wiki_pagealias'] == 'y') {
			$semanticlib = TikiLib::lib('semantic');

			$toPage = $pageName;
			$tokens = explode(',', $prefs['wiki_pagealias_tokens']);

			$prefixes = explode(',', $prefs["wiki_prefixalias_tokens"]);
			foreach ($prefixes as $p) {
				$p = trim($p);
				if (strlen($p) > 0 && TikiLib::strtolower(substr($pageName, 0, strlen($p))) == TikiLib::strtolower($p)) {
					$toPage = $p;
					$tokens = 'prefixalias';
				}
			}

			$links = $semanticlib->getLinksUsing(
				$tokens,
				[ 'toPage' => $toPage ]
			);

			if (count($links) > 1) {
				// There are multiple aliases for this page. Need to disambiguate.
				//
				// When feature_likePages is set, trying to display the alias itself will
				// display an error page with the list of aliased pages in the "like pages" section.
				// This allows the user to pick the appropriate alias.
				// So, leave the $pageName to the alias.
				//
				// If feature_likePages is not set, then the user will only see that the page does not
				// exist. So it's better to just pick the first one.
				//
				if ($prefs['feature_likePages'] == 'y' || $tokens == 'prefixalias') {
					// Even if there is more then one match, if prefix is being redirected then better
					// to fail than to show possibly wrong page
					return true;
				} else {
					// If feature_likePages is NOT set, then trying to display the first one is fine
					// $pageName is by ref so it does get replaced
					$pageName = $links[0]['fromPage'];
					return $tikilib->get_page_info($pageName);
				}
			} elseif (count($links)) {
				// there is exactly one match
				if ($prefs['feature_wiki_1like_redirection'] == 'y') {
					return true;
				} else {
					$pageName = $links[0]['fromPage'];
					return $tikilib->get_page_info($pageName);
				}
			}
		}
	}
	//*
	function parse_tagged_users($data)
	{
		$count = 1;
		return preg_replace_callback(
			'/(?:^|\s)@(\w+)/i',
			function ($matches) use (&$count) {
				$myUser = substr($matches[0], strpos($matches[0], "@") + 1);
				if ($myUser) {
					$u = TikiLib::lib('user')->get_user_info($myUser);
					if (is_array($u) && $u['userId'] > 0) {
						$v = TikiLib::lib('user')->build_userinfo_tag($myUser, '', 'userlink', 'y', 'mentioned-' . $myUser . '-section-' . $count);
						$count++;
						if ($v) {
							$prefix = ($matches[0][1] == '@') ? $matches[0][0] : '';
							return $prefix . $v;
						}
					}

					return $matches[0];
				}
				return $matches[0];
			},
			$data
		);
	}

	//*
	function parse_smileys($data)
	{
		global $prefs;
		static $patterns;

		if ($prefs['feature_smileys'] == 'y') {
			if (! $patterns) {
				$patterns = [
					// Example of all Tiki Smileys (the old syntax)
					// (:biggrin:) (:confused:) (:cool:) (:cry:) (:eek:) (:evil:) (:exclaim:) (:frown:)
					// (:idea:) (:lol:) (:mad:) (:mrgreen:) (:neutral:) (:question:) (:razz:) (:redface:)
					// (:rolleyes:) (:sad:) (:smile:) (:surprised:) (:twisted:) (:wink:) (:arrow:) (:santa:)

					"/\(:([^:]+):\)/" => "<img alt=\"$1\" src=\"img/smiles/icon_$1.gif\" />",

					// :) :-)
					'/(\s|^):-?\)/' => "$1<img alt=\":-)\" title=\"" . tra('smiling') . "\" src=\"img/smiles/icon_smile.gif\" />",
					// :( :-(
					'/(\s|^):-?\(/' => "$1<img alt=\":-(\" title=\"" . tra('sad') . "\" src=\"img/smiles/icon_sad.gif\" />",
					// :D :-D
					'/(\s|^):-?D/' => "$1<img alt=\":-D\" title=\"" . tra('grinning') . "\" src=\"img/smiles/icon_biggrin.gif\" />",
					// :S :-S :s :-s
					'/(\s|^):-?S/i' => "$1<img alt=\":-S\" title=\"" . tra('confused') . "\" src=\"img/smiles/icon_confused.gif\" />",
					// B) B-) 8-)
					'/(\s|^)(B-?|8-)\)/' => "$1<img alt=\"B-)\" title=\"" . tra('cool') . "\" src=\"img/smiles/icon_cool.gif\" />",
					// :'( :_(
					'/(\s|^):[\'|_]\(/' => "$1<img alt=\":_(\" title=\"" . tra('crying') . "\" src=\"img/smiles/icon_cry.gif\" />",
					// 8-o 8-O =-o =-O
					'/(\s|^)[8=]-O/i' => "$1<img alt=\"8-O\" title=\"" . tra('frightened') . "\" src=\"img/smiles/icon_eek.gif\" />",
					// }:( }:-(
					'/(\s|^)\}:-?\(/' => "$1<img alt=\"}:(\" title=\"" . tra('evil stuff') . "\" src=\"img/smiles/icon_evil.gif\" />",
					// !-) !)
					'/(\s|^)\!-?\)/' => "$1<img alt=\"(!)\" title=\"" . tra('exclamation mark !') . "\" src=\"img/smiles/icon_exclaim.gif\" />",
					// >:( >:-(
					'/(\s|^)\>:-?\(/' => "$1<img alt=\"}:(\" title=\"" . tra('frowning') . "\" src=\"img/smiles/icon_frown.gif\" />",
					// i-)
					'/(\s|^)i-\)/' => "$1<img alt=\"(" . tra('light bulb') . ")\" title=\"" . tra('idea !') . "\" src=\"img/smiles/icon_idea.gif\" />",
					// LOL
					'/(\s|^)LOL(\s|$)/' => "$1<img alt=\"(" . tra('LOL') . ")\" title=\"" . tra('laughing out loud !') . "\" src=\"img/smiles/icon_lol.gif\" />$2",
					// >X( >X[ >:[ >X-( >X-[ >:-[
					'/(\s|^)\>[:X]-?\(/' => "$1<img alt=\">:[\" title=\"" . tra('mad') . "\" src=\"img/smiles/icon_mad.gif\" />",
					// =D =-D
					'/(\s|^)[=]-?D/' => "$1<img alt=\"=D\" title=\"" . tra('Mr. Green laughing') . "\" src=\"img/smiles/icon_mrgreen.gif\" />",
				];
			}

			foreach ($patterns as $p => $r) {
				$data = preg_replace($p, $r, $data);
			}
		}
		return $data;
	}

	//*
	function get_pages($data, $withReltype = false)
	{
		global $page_regex, $prefs;
		$tikilib = TikiLib::lib('tiki');

		$matches = WikiParser_PluginMatcher::match($data);
		foreach ($matches as $match) {
			if ($match->getName() == 'code') {
				$match->replaceWith('');
			}
		}

		$data = $matches->getText();

		$htmlLinks = ["0" => "dummy"];
		$htmlLinksSefurl = ["0" => "dummy"];
		preg_match_all("/\(([a-z0-9-]+)?\( *($page_regex) *\)\)/", $data, $normal);
		preg_match_all("/\(([a-z0-9-]+)?\( *($page_regex) *\|(.+?)\)\)/", $data, $withDesc);
		preg_match_all('/<a class="wiki[^\"]*" href="tiki-index\.php\?page=([^\?&"]+)[^"]*"/', $data, $htmlLinks1);
		preg_match_all('/<a href="tiki-index\.php\?page=([^\?&"]+)[^"]*"/', $data, $htmlLinks2);
		$htmlLinks[1] = array_merge($htmlLinks1[1], $htmlLinks2[1]);
		$htmlLinks[1] = array_filter($htmlLinks[1]);
		preg_match_all('/<a class="wiki[^\"]*" href="([^\?&"]+)[^"]*"/', $data, $htmlLinksSefurl1);
		preg_match_all('/<a href="([^\?&"]+)[^"]*"/', $data, $htmlLinksSefurl2);
		$htmlLinksSefurl[1] = array_merge($htmlLinksSefurl1[1], $htmlLinksSefurl2[1]);
		preg_match_all('/<a class="wiki wikinew" href="tiki-editpage\.php\?page=([^\?&"]+)"/', $data, $htmlWantedLinks);
		// TODO: revise the need to call modified urldecode() (shouldn't be needed after r37568). 20110922
		foreach ($htmlLinks[1] as &$h) {
			$h = $tikilib->urldecode($h);
		}
		foreach ($htmlLinksSefurl[1] as &$h) {
			$h = $tikilib->urldecode($h);
		}
		foreach ($htmlWantedLinks[1] as &$h) {
			$h = $tikilib->urldecode($h);
		}

		// Post process SEFURL for html wiki pages
		if (count($htmlLinksSefurl[1])) {
			// Remove any possible "tiki-index.php" in the SEFURL link list.
			//	Non-sefurl links will be mapped as "tiki-index.php"
			$tikiindex = [];
			foreach ($htmlLinksSefurl[1] as $pageName) {
				if (strpos($pageName, 'tiki-index.php') !== false) {
					$tikiindex[] = $pageName;
				}
			}
			$htmlLinksSefurl[1] = array_diff($htmlLinksSefurl[1], $tikiindex);

			if (count($htmlLinksSefurl[1])) {
				// The case <a href=" ... will catch manually entered links. Only add links to wiki pages
				$pages = $tikilib->get_all_pages();
				$tikiindex = [];
				foreach ($htmlLinksSefurl[1] as $link) {
					// Validate that the link is to a wiki page
					if (! in_array($link, $pages)) {
						// If it's not referring to a wiki page, add it to the removal list
						$tikiindex[] = $link;
					}
				}
				$htmlLinksSefurl[1] = array_diff($htmlLinksSefurl[1], $tikiindex);
			}
		}

		if ($prefs['feature_wikiwords'] == 'y') {
			preg_match_all("/([ \n\t\r\,\;]|^)?([A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*)($|[ \n\t\r\,\;\.])/", $data, $wikiLinks);

			$pageList = array_merge($normal[2], $withDesc[2], $wikiLinks[2], $htmlLinks[1], $htmlLinksSefurl[1], $htmlWantedLinks[1]);
			if ($withReltype) {
				$relList = array_merge(
					$normal[1],
					$withDesc[1],
					count($wikiLinks[2]) ? array_fill(0, count($wikiLinks[2]), null) : [],
					count($htmlLinks[1]) ? array_fill(0, count($htmlLinks[1]), null) : [],
					count($htmlLinksSefurl[1]) ? array_fill(0, count($htmlLinksSefurl[1]), null) : [],
					count($htmlWantedLinks[1]) ? array_fill(0, count($htmlWantedLinks[1]), null) : []
				);
			}
		} else {
			$pageList = array_merge($normal[2], $withDesc[2], $htmlLinks[1], $htmlLinksSefurl[1], $htmlWantedLinks[1]);
			if ($withReltype) {
				$relList = array_merge(
					$normal[1],
					$withDesc[1],
					count($htmlLinks[1]) ? array_fill(0, count($htmlLinks[1]), null) : [],
					count($htmlLinksSefurl[1]) ? array_fill(0, count($htmlLinksSefurl[1]), null) : [],
					count($htmlWantedLinks[1]) ? array_fill(0, count($htmlWantedLinks[1]), null) : []
				);
			}
		}

		if ($withReltype) {
			$complete = [];
			foreach ($pageList as $idx => $name) {
				if (! array_key_exists($name, $complete)) {
					$complete[$name] = [];
				}
				if (! empty($relList[$idx]) && ! in_array($relList[$idx], $complete[$name])) {
					$complete[$name][] = $relList[$idx];
				}
			}

			return $complete;
		} else {
			return array_unique($pageList);
		}
	}

	private function get_hotwords()
	{
		$tikilib = TikiLib::lib('tiki');
		static $cache_hotwords;
		if (isset($cache_hotwords)) {
			return $cache_hotwords;
		}
		$query = "select * from `tiki_hotwords`";
		$result = $tikilib->fetchAll($query, [], -1, -1, false);
		$ret = [];
		foreach ($result as $res) {
			$ret[$res["word"]] = $res["url"];
		}
		$cache_hotwords = $ret;
		return $ret;
	}

	/*
	* When we save a page that contains a TranslationOf plugin, we need to remember
	* that relation, so we later, when the page referenced by this plugin gets translated,
	* we can replace the plugin by a proper link to the translation.
	*/
	public function add_translationof_relation($data, $arguments, $page_being_parsed)
	{
		$relationlib = TikiLib::lib('relation');

		$relationlib->add_relation('tiki.wiki.translationof', 'wiki page', $page_being_parsed, 'wiki page', $arguments['translation_page']);
	}

	/**
	 * Refresh the list of plugins that might require validation
	 *
	 * @param \Psr\Log\LoggerInterface|null $logger
	 */
	public function pluginRefresh($logger = null)
	{
		$headerLib = \TikiLib::lib('header');
		$tempHeaderLib = serialize($headerLib);    // cache headerlib so we can remove all js etc added by plugins

		$access = \TikiLib::lib('access');
		$access->check_feature('wiki_validate_plugin');
		$access->check_permission('tiki_p_plugin_approve');

		$tikiLib = TikiLib::lib('tiki');
		$parserLib = TikiLib::lib('parser');

		// disable redirect plugin etc
		$access->preventRedirect(true);
		$access->preventDisplayError(true);

		$pages = $tikiLib->list_pages();
		foreach ($pages['data'] as $apage) {
			if ($logger instanceof Psr\Log\LoggerInterface) {
				$logger->debug(tr('Processing page: %0, is_html: %1', $apage['pageName'], $apage['is_html']));
			}
			$page = $apage['pageName'];
			$parserLib->setOptions(
				[
					'page' => $page,
					'is_html' => $apage['is_html'],
				]
			);
			$parserLib->parse_first($apage['data'], $pre, $no);
		}

		$access->preventRedirect(false);
		$access->preventDisplayError(false);

		$headerLib = unserialize($tempHeaderLib);
		unset($tempHeaderLib);
	}

	/**
	 * Create a popup with thumbnail file preview
	 *
	 * @param $content
	 * @return string
	 */
	public function searchFilePreview($content)
	{
		global $prefs, $user, $tikipath, $tikidomain;
		if ($prefs['search_file_thumbnail_preview'] !== 'y') {
			return $content;
		}

		preg_match_all('/data-type="file" data-object="(\d+)/', $content, $matchFiles);
		if (! empty($matchFiles[1])) {
			$fileIds = $matchFiles[1];
			$userLib = TikiLib::lib('user');
			$maxWidthPreview = $prefs['fgal_maximum_image_width_preview'];

			foreach ($fileIds as $fileId) {
				$file = \Tiki\FileGallery\File::id($fileId);
				if (! $file->exists()) {
					continue;
				}
				if (! $userLib->user_has_perm_on_object($user, $file->fileId, 'file', 'tiki_p_download_files')) {
					continue;
				}
				$search = 'data-type="file" data-object="' . $fileId . '"';
				if (strpos($file->filetype, 'image') !== false) {
					$appendMaxSize = '';

					if (! empty($maxWidthPreview)) {
						$appendMaxSize = "&amp;x=" . $maxWidthPreview;
					}

					$popup = 'data-type="file" data-object="' . $fileId . '" data-toggle="popover" data-trigger="hover focus" data-content="<img src=\'tiki-download_file.php?fileId=' . $fileId . '&amp;thumbnail' . $appendMaxSize . '\'>" data-html="1" data-width="' . $maxWidthPreview . '"';
					$content = str_replace($search, $popup, $content);
				} else {
					$filePath = $file->getWrapper()->getReadableFile();
					$fileMd5 = $file->getWrapper()->getChecksum();

					$cacheLib = TikiLib::lib('cache');
					$cacheName = $fileMd5;
					$cacheType = 'preview_' . $fileId . '_';

					if (! $cacheLib->isCached($cacheName, $cacheType) && Tiki\Lib\Alchemy\AlchemyLib::isLibraryAvailable()) {
						// This will allow apps executed by Alchemy (like when converting doc to pdf) to have a writable home
						// save existing ENV
						$envHomeDefined = isset($_ENV) && array_key_exists('HOME', $_ENV);
						if ($envHomeDefined) {
							$envHomeCopy = $_ENV['HOME'];
						}

						// set a proper home folder
						$_ENV['HOME'] = $tikipath . DIRECTORY_SEPARATOR . 'temp' . DIRECTORY_SEPARATOR . 'cache' . DIRECTORY_SEPARATOR . $tikidomain;

						$targetFile = 'temp/target_' . $fileId . '.png';

						Tiki\Lib\Alchemy\AlchemyLib::hintMimeTypeByFilePath($filePath, $file->filetype);

						$alchemy = new Tiki\Lib\Alchemy\AlchemyLib();
						$height = 400;
						$width = 200;

						if (! empty($prefs['fgal_maximum_image_width_preview'])) {
							$originalHeight = $height;
							$originalWidth = $width;
							$width = $prefs['fgal_maximum_image_width_preview'];
							$height = (int) $originalHeight * $width / $originalWidth;
						}

						$alchemy->convertToImage($filePath, $targetFile, $height, $width, false);

						// Restore the environment
						if ($envHomeDefined) {
							$_ENV['HOME'] = $envHomeCopy;
						} else {
							unset($_ENV['HOME']);
						}

						if (file_exists($targetFile)) {
							$cacheContent = file_get_contents($targetFile);
							$cacheLib->empty_type_cache($cacheType);
							$cacheLib->cacheItem($cacheName, $cacheContent, $cacheType);
							unlink($targetFile);
						}
					}

					if ($cacheLib->isCached($cacheName, $cacheType)) {
						$popup = 'data-type="file" data-object="' . $fileId . '" data-toggle="popover" data-trigger="hover focus" data-content="<img src=\'tiki-download_file.php?fileId=' . $fileId . '&amp;preview\'>" data-html="1" data-width="' . $maxWidthPreview . '"';
						$content = str_replace($search, $popup, $content);
					}
				}
			}
		}

		return $content;
	}
}