<?
	# Programme de version imprimable d'un article par HTTP_REFERER

	define('PATTERN_WWW_SITE', 'http:\/\/(www\.)interbible.org\/');
	define('ROOT_DIRECTORY', '/srv/www/htdocs/');
	define('TEMPLATE_LOCATION', ROOT_DIRECTORY . 'Templates/imprimer.html');

	if (isset($_SERVER['HTTP_REFERER']))
	{
		$ref = $_SERVER['HTTP_REFERER'];

		# Libérer les ancres
		if (($pos = strpos($ret, '#')) !== false)
			$ref = substr($ret, 0, $pos);

		echo ExecMain($ref);
	}

	function ExecMain($ref)
	{
		# Détection UTF-8 (1)
		$utf = false;

		# Chercher le gabarit
		if (($template = GetTemplate()) === false)
			return 'Le gabarit est manquant';

		# Valider le fichier
		if (($ret = GetFile($ref)) === false)
			return "Le fichier $ref est inconnu";

		$file = $ret['complete'];

		# Ouvrir
		if (($h = fopen($file, 'rb')) === false)
			return "Ne peut ouvrir le fichier $ref";

		# Lire le contenu en entier
		$content = fread($h, filesize($file));

		# Détection UTF-8 (2)
		if (preg_match('/UTF-8/', $content))
			$utf = true;

		# Trouver la zone éditable
		if (($p1 = strpos($content, '<!-- #BeginEditable "texte" -->')) === false)
			return "Debut de la zone éditable inconnu.";

		if (($p2 = strpos($content, '<!-- #EndEditable -->', $p1)) === false)
			return "Fin de la zone éditable inconnu.";

		$print_out = substr($content, $p1, $p2 - $p1);

		RootPaths($ret, $print_out);
		DotPaths($ret, $print_out);

		$ref = 'Référence : ' . $ref;

		# Détection UTF-8 (3)
		if ($utf)
			$ref = utf8_encode($ref);
	
		$template = str_replace('{TEMPLATE_TXT}', $print_out, $template);
		$template = str_replace('{TEMPLATE_REF}', $ref, $template);

		# Détection UTF-8 (4)
		if ($utf)
			return str_replace('ISO-8859-1', 'UTF-8', $template);

		return $template;
	}

	function GetFile($ref)
	{
		$ret = array('complete'=>'', 'path'=>'', 'file'=>'');

		# FQDM du site
		$site = PATTERN_WWW_SITE;

		# Root d'apache
		$root = ROOT_DIRECTORY;

		if (preg_match("/^$site(.*)$/", $ref, $match))
		{
			# Si le chemin se termine par un /
			if (strrpos($match[2], '/') == strlen($match[2]) - 1)
			{
				# Essai sur les trois types d'index
				$ret['path'] = $match[2];
				$ret['file'] = 'index.php';

				if (!file_exists($root . $ret['path'] . $ret['file']))
				{
					$ret['file'] = 'index.html';

					if (!file_exists($root . $ret['path'] . $ret['file']))
					{
						$ret['file'] = 'index.htm';

						if (!file_exists($root . $ret['path'] . $ret['file']))
						{
							echo "Erreur avec $site" . $match[2] . $match[3];
							return false;
						}
					}
				}
			}
			else
			{
				$pos = strrpos($match[2], '/');
				$ret['path'] = substr($match[2], 0, $pos);
				$ret['file'] = substr($match[2], $pos);
				$file = $match[2];
			}
		}
		# Erreur
		else
		{
			echo "*** Erreur avec $ref";
			return false;
		}

		# Composer root avec fichier
		$ret['complete'] = $root . $ret['path'] . $ret['file'];
		

		return $ret;
	}

	function GetTemplate()
	{
		$temp = TEMPLATE_LOCATION;

		# Ouvrir
		if (($h = fopen($temp, 'rb')) === false)
			return false;

		# Lire le contenu en entier
		return fread($h, filesize($temp));
	}

	function RootPaths($ret, &$p)
	{
		# Bypass http
		$p = str_replace('http:', '__HTTP__', $p);

		# Bypass mailto
		$p = str_replace('mailto:', '__MAILTO__', $p);

		# Bypass javascript
		$p = str_replace('javascript:', '__JS__', $p);

		# les src
		$p = preg_replace('/(<img\W+src *= *")([a-zA-Z0-9])/', '$1'. $ret['path'].'/$2', $p);

		# les href
		$p = preg_replace('/(<a\W+href= *" *)([a-zA-Z0-9])/', '$1'. $ret['path'].'/$2', $p);

		# Rétablir mjavascript
		$p = str_replace('__JS__', 'javascript:', $p);

		# Rétablir mailto
		$p = str_replace('__MAILTO__', 'mailto:', $p);

		# Rétablir http
		$p = str_replace('__HTTP__', 'http:', $p);
	}

	function DotPaths($ret, &$p)
	{
		$ex = explode('/', $ret['path']);
		$no = count($ex);

		$dots = $from = $path = '';
		$dots_array = $path_array = $real_dots = array();

		for ($i=0; $i<$no; $i++)
		{
			$dots .= '../';
			$dots_array[$no-1-$i] = $dots;
			$path .= '/' . $ex[$i];
			$path_array[$i] = $path . '/';
		}

		$dots_array[$no] = '';
		$path_array[-1] = '';

		for ($i=0; $i<$no; $i++)
			$p = str_replace($dots_array[$i], $path_array[$i-1], $p);
	}