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

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

	function ExecMain($ref)
	{
		# Valider le fichier
		if (!GetFile($ref, $file))
			return "Le fichier $ref est inconnu";

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

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

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

		if (($p2 = strpos($content, '<!-- #EndEditable -->', $p1)) === false)
			return "Erreur 2";

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

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

		return $print_out;
	}

	function GetFile($ref, &$file)
	{
		# FQDM du site
		$site = "http:\/\/www\.interbible\.org\/";

		# Root d'apache
		$root = "/srv/www/htdocs/";

		if (preg_match("/^$site(.*)$/", $ref, $match))
		{
			# Si le chemin se termine par un /
			if ($match[1][strlen($match[1]) - 1] == '/')
			{
				# Essai sur les trois types d'index
				$file = $match[1] .= 'index.php';
				if (!file_exists($file))
				{
					$file = $match[1] .= 'index.html';
					if (!file_exists($file))
					{
						$file = $match[1] .= 'index.htm';
						if (!file_exists($file))
						{
							echo "Erreur avec $site" . $match[1] . $match[2];
							return false;
						}
					}
				}
			}
			else
				$file = $match[1];
		}
		# Erreur
		else
		{
			echo "*** Erreur avec $ref";
			return false;
		}

		# Composer root avec fichier
		$file = $root . $file;

		return true;
	}

?>