Rev 4 | Go to most recent revision | Blame | Compare with Previous | 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("_INC_CALCUL")) return;define("_INC_CALCUL", "1");//// Ce fichier calcule une page en executant un squelette.//include_ecrire("inc_meta.php3");include_ecrire("inc_index.php3");include_ecrire("inc_texte.php3");include_ecrire("inc_filtres.php3");include_ecrire("inc_lang.php3");include_ecrire("inc_documents.php3");include_ecrire("inc_abstract_sql.php3");include_ecrire("inc_forum.php3");include_ecrire("inc_debug_sql.php3");include_local("inc-calcul-outils.php3");// NB: Ce fichier peut initialiser $dossier_squelettes (old-style)if ($f = find_in_path("mes_fonctions.php3"))include_local ($f);// Gestionnaire d'URLsif (@file_exists("inc-urls.php3"))include_local("inc-urls.php3");elseinclude_local("inc-urls-".$GLOBALS['type_urls'].".php3");// Le squelette compile est-il trop vieux ?function squelette_obsolete($skel, $squelette) {return (($GLOBALS['var_mode'] AND $GLOBALS['var_mode']<>'calcul')OR !@file_exists($skel)OR (@filemtime($squelette) > ($date = @filemtime($skel)))OR (@filemtime('mes_fonctions.php3') > $date)OR (@filemtime(_FILE_OPTIONS) > $date));}# Charge un squelette (au besoin le compile)# et retoune le nom de sa fonction principale, ou '' s'il est indefini# Charge egalement un fichier homonyme de celui du squelette# mais de suffixe '_fonctions.php3' pouvant contenir:# - des filtres# - des fonctions de traduction de balise, de critere et de boucle# - des declaration de tables SQL supplementairesfunction charger_squelette ($squelette) {$ext = $GLOBALS['extension_squelette'];$nom = $ext . '_' . md5($squelette);$sourcefile = $squelette . ".$ext";// le squelette est-il deja en memoire (INCLURE a repetition)if (function_exists($nom))return $nom;$phpfile = _DIR_CACHE . 'skel_' . $nom . '.php';// le squelette est-il deja compile et perenne ?if (!squelette_obsolete($phpfile, $sourcefile)AND lire_fichier ($phpfile, $contenu,array('critique' => 'oui', 'phpcheck' => 'oui')))eval('?'.'>'.$contenu);// sinon, charger le compilateur et verifier que le source est lisibleif (!function_exists($nom)) {include_local("inc-compilo.php3");lire_fichier ($sourcefile, $skel);}// Le fichier suivant peut contenir entre autres:// 1. les filtres utilises par le squelette// 2. des ajouts au compilateur// Le point 1 exige qu'il soit lu dans tous les cas.// Le point 2 exige qu'il soit lu apres inc-compilo// (car celui-ci initialise $tables_principales) mais avant la compil$f = $squelette . '_fonctions.php3';if (@file_exists($f)) include($f);if (function_exists($nom)) return $nom;$skel_code = calculer_squelette($skel, $nom, $ext, $sourcefile);// Tester si le compilateur renvoie une erreurif (is_array($skel_code))erreur_squelette($skel_code[0], $skel_code[1]);else {if ($GLOBALS['var_mode'] == 'debug') {include_ecrire("inc_debug_sql.php3");debug_dumpfile ($skel_code, $nom, 'code');}eval('?'.'>'.$skel_code);if (function_exists($nom)) {ecrire_fichier ($phpfile, $skel_code);return $nom;} else {erreur_squelette($sourcefile, _L('Erreur de compilation'));}}}# Provoque la recherche du squelette $fond d'une $lang donnee,# et l'applique sur un $contexte pour un certain $cache.# Retourne un tableau de 3 elements:# 'texte' => la page calculee# 'process_ins' => 'html' ou 'php' si presence d'un '< ?php'# 'invalideurs' => les invalideurs (cf inc-calcul-squel)# En cas d'erreur process_ins est absent et texte est un tableau de 2 chaines# La recherche est assuree par la fonction chercher_squelette,# definie dans inc-chercher, fichier non charge si elle est deja definie# (typiquement dans mes_fonctions.php3)function cherche_page ($cache, $contexte, $fond) {global $delais;if (!function_exists('chercher_squelette'))include_local("inc-chercher-squelette.php3");// Choisir entre $fond-dist.html, $fond=7.html, etc?$id_rubrique_fond = 0;// Chercher le fond qui va servir de squeletteif ($r = sql_rubrique_fond($contexte))list($id_rubrique_fond, $lang) = $r;if (!$lang)$lang = lire_meta('langue_site');// Si inc-urls ou un appel dynamique veut fixer la langue, la recuperer$lang = $contexte['lang'];if (!$GLOBALS['forcer_lang'])lang_select($lang);$skel = chercher_squelette($fond,$id_rubrique_fond,$GLOBALS['spip_lang']);// Charger le squelette et recuperer sa fonction principale// (compilation automatique au besoin) et calculer$page = array();if ($skel) {if ($fonc = charger_squelette($skel))$page = $fonc(array('cache' => $cache), array($contexte));// Passer la main au debuggueur)if ($GLOBALS['var_mode'] == 'debug'){include_ecrire("inc_debug_sql.php3");debug_dumpfile ($page['texte'], $fonc, 'resultat');}}// Entrer les invalideurs dans la baseif ($delais>0) {include_ecrire('inc_invalideur.php3');maj_invalideurs($cache, $page['invalideurs'], $delais);}// Retourner la structure de la pagereturn $page;}//// Contexte : lors du calcul d'une page spip etablit le contexte a partir// des variables $_GET et $_POST, et leur ajoute la date// Note : pour hacker le contexte depuis le fichier d'appel (article.php3),// il est recommande de modifier $_GET['toto'] (meme si la page est// appelee avec la methode POST).//function calculer_contexte() {global $_GET, $_POST;foreach($_GET as $var => $val) {if (strpos($var, 'var_') !== 0)$contexte[$var] = $val;}foreach($_POST as $var => $val) {if (strpos($var, 'var_') !== 0)$contexte[$var] = $val;}if ($GLOBALS['date'])$contexte['date'] = $contexte['date_redac'] = normaliser_date($GLOBALS['date']);else$contexte['date'] = $contexte['date_redac'] = date("Y-m-d H:i:s");return $contexte;}function calculer_page_globale($cache, $contexte_local, $fond) {// Gestion des URLs personnalises - sale mais historiqueif (function_exists("recuperer_parametres_url")) {global $contexte;$contexte = $contexte_local;recuperer_parametres_url($fond, nettoyer_uri());// remettre les globales pour le bouton "Modifier cet article"if (is_array($contexte))foreach ($contexte as $var=>$val)if (substr($var,0,3) == 'id_')$GLOBALS[$var] = $val;$contexte_local = $contexte;}// si le champ chapo commence par '=' c'est une redirection.if ($id_article = intval($contexte['id_article'])) {if ($art = sql_chapo($id_article)) {$chapo = $art['chapo'];if (substr($chapo, 0, 1) == '=') {include_ecrire('inc_texte.php3');list(,$url) = extraire_lien(array('','','',substr($chapo, 1)));if ($url) { // sinon les navigateurs pataugent$url = texte_script(str_replace('&', '&', $url));$page = array('texte' => "<"."?php header('Location: $url'); ?" . ">",'process_ins' => 'php');}}}}// Go to work !if (!$page)$page = cherche_page($cache, $contexte_local, $fond);$signal = array();foreach(array('id_parent', 'id_rubrique', 'id_article', 'id_auteur','id_breve', 'id_forum', 'id_secteur', 'id_syndic', 'id_syndic_article','id_mot', 'id_groupe', 'id_document') as $val) {if ($contexte_local[$val])$signal['contexte'][$val] = intval($contexte_local[$val]);}$page['signal'] = $signal;return $page;}function calculer_page($chemin_cache, $elements, $delais, $inclusion=false) {global $_POST;// Inclusionif ($inclusion) {$contexte_inclus = $elements['contexte'];$page = cherche_page($chemin_cache,$contexte_inclus, $elements['fond']);}else {$page = calculer_page_globale($chemin_cache,$elements['contexte'],$elements['fond']);}$page['signal']['process_ins'] = $page['process_ins'];$signal = "<!-- ".str_replace("\n", " ",serialize($page['signal']))." -->\n";// Enregistrer le fichier cacheif ($delais > 0 AND $GLOBALS['var_mode'] != 'debug'AND !count($_POST))ecrire_fichier($chemin_cache, $signal.$page['texte']);return $page;}?>