| New file |
|---|
| 0,0 → 1,291 |
|---|
| <?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 fois |
| if (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'URLs |
| if (@file_exists("inc-urls.php3")) |
| include_local("inc-urls.php3"); |
| else |
| include_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 supplementaires |
| |
| function 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 lisible |
| if (!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 erreur |
| |
| if (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 squelette |
| if ($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 base |
| if ($delais>0) { |
| include_ecrire('inc_invalideur.php3'); |
| maj_invalideurs($cache, $page['invalideurs'], $delais); |
| } |
| |
| // Retourner la structure de la page |
| |
| return $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 historique |
| if (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; |
| |
| // Inclusion |
| if ($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 cache |
| if ($delais > 0 AND $GLOBALS['var_mode'] != 'debug' |
| AND !count($_POST)) |
| ecrire_fichier($chemin_cache, $signal.$page['texte']); |
| |
| return $page; |
| } |
| ?> |