Go to most recent revision | Blame | Last modification | View Log | RSS feed
<?php/***************************************************************************\* SPIP, Systeme de publication pour l'internet ** ** Copyright (c) 2001-2005 ** Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James ** ** Ce programme est un logiciel libre distribue sous licence GNU/GPL. ** Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *\***************************************************************************///// Ce fichier ne sera execute qu'une foisif (defined("_ECRIRE_INC_TIDY")) return;define("_ECRIRE_INC_TIDY", "1");function version_tidy() {static $version = -1;if ($version == -1) {$version = 0;if (function_exists('tidy_parse_string')) {$version = 1;if (function_exists('tidy_get_body')) {$version = 2;}}}return $version;}function echappe_xhtml ($letexte) { // oui, c'est dingue... on echappe le mathml$regexp_echap_math = "/<(math|textarea)((.*?))<\/$1>/si";$source = "xhtml";if (preg_match_all($regexp_echap_math, $letexte, $regs, PREG_SET_ORDER))foreach ($regs as $reg) {$num_echap++;$les_echap[$num_echap] = $reg[0];$letexte = str_replace($reg[0],"@@SPIP_$source$num_echap@@", $letexte);}return array($letexte, $les_echap);}function xhtml($buffer) {$buffer = traite_xhtml($buffer);/** ici commence la petite usine a gaz des traitements d'erreurs de tidy **/## NB: seul tidy en ligne de commande sait gerer ses erreurs,// Conserver une liste des URLs en erreur tidylire_fichier($f = _DIR_SESSIONS.'w3c-go-home.txt', $liste);$url = "http://".$_SERVER['HTTP_HOST'].nettoyer_uri();if (defined('_erreur_tidy')) {if (defined('_calcul_tidy')) {spip_log("Erreur tidy : $url\n"._erreur_tidy, 'tidy');if (strpos($liste, "- $url -\n") === false) {$liste = substr($liste, - 8*1024); # anti-explosionsecrire_fichier($f, $liste."- $url -\n");}}$GLOBALS['xhtml_error'] = _erreur_tidy;// Na, na na nere, tidy a plante !header("X-SPIP-Message: tidy/W3C could not repair this page");}else # pas d'erreur{// Nettoyer la liste des URLs pourries, si maintenant on est correctif (defined('_calcul_tidy')) {if (($liste2 = str_replace("- $url -\n", '', $liste)) != $liste)ecrire_fichier($f, $liste2);}// Faire la pub parce qu'on est contentheader("X-SPIP-Message: tidy/W3C has verified this page");# tres perilleux, et totalement inutile a ce stade (mais fonctionnel si on veut)# if (defined('_TIDY_COMMAND'))# entetes_xhtml();}// Ajouter un bouton d'admin "Analyser"$GLOBALS['xhtml_check'] = 'http://validator.w3.org/check?uri='. urlencode("http://" . $_SERVER['HTTP_HOST'] . nettoyer_uri());/** fin de l'usine a gaz **/return $buffer;}function traite_xhtml ($buffer) {// Seuls les charsets iso-latin et utf-8 sont concernes$charset = lire_meta('charset');if ($charset == "iso-8859-1")$enc_char = "latin1";else if ($charset == "utf-8")$enc_char = "utf8";else {spip_log("erreur inc_tidy : charset=$charset", 'tidy');return $buffer;}if (defined('_TIDY_COMMAND')) {// Si l'on a defini un chemin pour tidyHTML// en ligne de commande// (pour les sites qui n'ont pas tidyPHP)list($buffer, $les_echap) = echappe_xhtml($buffer); # math et textarea$cache = _DIR_CACHE.creer_repertoire(_DIR_CACHE,'tidy');$nomfich = $cache.'tidy'.md5($buffer);if (!file_exists($nomfich)) {define ('_calcul_tidy', 1);$tmp = "$nomfich.".@getmypid().".tmp";ecrire_fichier($tmp, $buffer, true); # ecrire meme en mode preview// Experimental : on peut definir ses propres options tidyif (!defined('_TIDY_OPTIONS'))$options = "--output-xhtml true"; # a.k.a. -asxhtmlelse$options = _TIDY_OPTIONS;$c = _TIDY_COMMAND." --tidy-mark false"." --quote-nbsp false"." --show-body-only false"." --indent true"." --wrap false"." --add-xml-decl false"." --char-encoding $enc_char"." ".$options." -m $tmp"." 2>&1";spip_log(nettoyer_uri(), 'tidy');spip_timer('tidy');exec($c, $verbose, $exit_code);spip_log ($c.' ('.spip_timer('tidy').')', 'tidy');if ($exit_code == 2) {define ('_erreur_tidy', join("\n", $verbose));# un fichier .err accompagne le cache, qu'on s'en souvienne# au prochain hit (gestion d'erreur)spip_touch("$nomfich.err");} else {@unlink("$nomfich.err");}rename($tmp,$nomfich);}if (lire_fichier($nomfich, $tidy)AND strlen(trim($tidy)) > 0) {// purger le petit cache toutes les 5 minutes (300s)spip_touch($nomfich); # rester vivantif (spip_touch($cache.'purger_tidy', 300, true)) {if ($h = @opendir($cache)) {while (($f = readdir($h)) !== false) {if (preg_match(',^tidy[^.]*$,', $f)AND time() - filemtime("$cache$f") > 300) {@unlink("$cache$f");@unlink("$cache$f.err");}}}}$tidy = preg_replace (",<[?]xml.*>,U", "", $tidy);if (@file_exists("$nomfich.err")) {define ('_erreur_tidy', 1);}return $tidy;} else {define ('_erreur_tidy', 1);return $buffer;}}### tout ce qui suit est non teste, et probablement non fonctionnelelse if (version_tidy() == "1") {include_ecrire("inc_texte.php3");list($buffer, $les_echap) = echappe_xhtml($buffer); # math et textareatidy_set_encoding ($enc_char);tidy_setopt('wrap', 0);tidy_setopt('indent-spaces', 4);tidy_setopt('output-xhtml', true);tidy_setopt('add-xml-decl', false);tidy_setopt('indent', 5);tidy_setopt('show-body-only', false);tidy_setopt('quote-nbsp', false);tidy_parse_string($buffer);tidy_clean_repair();$tidy = tidy_get_output();if ($les_echap) {include_ecrire("inc_texte.php3");$tidy = echappe_retour($tidy, $les_echap, "xhtml");}// En Latin1, tidy ajoute une declaration XML// (malgre add-xml-decl a false) ; il faut le supprimer// pour eviter interpretation PHP provoquant une erreur$tidy = ereg_replace ("\<\?xml([^\>]*)\>", "", $tidy);# pas de gestion d'erreur ?return $tidy;}else if (version_tidy() == "2") {include_ecrire("inc_texte.php3");list($buffer, $les_echap) = echappe_xhtml($buffer); # math et textarea$config = array('wrap' => 0,'indent-spaces' => 4,'output-xhtml' => true,'add-xml-decl' => false,'indent' => 0,'show-body-only' => false,'quote-nbsp' => false);$tidy = tidy_parse_string($buffer, $config, $enc_char);tidy_clean_repair($tidy);if ($les_echap) {include_ecrire("inc_texte.php3");$tidy = echappe_retour($tidy, $les_echap, "xhtml");}$tidy = ereg_replace ("\<\?xml([^\>]*)\>", "", $tidy);# pas de gestion d'erreur ?return $tidy;}else {define ('_erreur_tidy', 1);return $buffer;}}## desactive pour le moment... complications dans tous les sens et gros risque d'erreurfunction entetes_xhtml() {// Si Mozilla et tidy actif, passer en "application/xhtml+xml"// extremement risque: Mozilla passe en mode debugueur strict// mais permet d'afficher du MathML directement dans le texte// (et sauf erreur, c'est la bonne facon de declarer du xhtml)if (strpos($_SERVER['HTTP_ACCEPT'], "application/xhtml+xml")) {@header("Content-Type: application/xhtml+xml; charset=".lire_meta('charset'));} else {@header("Content-Type: text/html; charset=".lire_meta('charset'));echo '<'.'?xml version="1.0" encoding="'. lire_meta('charset').'"?'.">\n";}}?>