0c10ba24225f62c05973782c093fe2a7a295b49a
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 include_spip('inc/lang');
16 include_spip('public/quete'); // pour quete_chapo et ses dependances
18 // NB: mes_fonctions peut initialiser $dossier_squelettes (old-style)
19 // donc il faut l'inclure "en globals"
20 if ($f = find_in_path('mes_fonctions.php')) {
21 global $dossier_squelettes;
22 include_once(_ROOT_CWD
. $f);
25 if (@is_readable
(_CACHE_PLUGINS_FCT
)) {
26 // chargement optimise precompile
27 include_once(_CACHE_PLUGINS_FCT
);
30 # Determine le squelette associe a une requete
31 # et l'applique sur le contexte, le nom du cache et le serveur
32 # en ayant evacue au prealable le cas de la redirection
33 # Retourne un tableau ainsi construit
34 # 'texte' => la page calculee
35 # 'process_ins' => 'html' ou 'php' si presence d'un '< ?php'
36 # 'invalideurs' => les invalideurs de ce cache
37 # 'entetes' => headers http
38 # 'duree' => duree de vie du cache
39 # 'signal' => contexte (les id_* globales)
41 # En cas d'erreur process_ins est absent et texte est un tableau de 2 chaines
43 // http://doc.spip.org/@public_parametrer_dist
44 function public_parametrer_dist($fond, $contexte='', $cache='', $connect='') {
45 $page = tester_redirection($fond, $contexte, $connect);
46 if ($page) return $page;
48 if (isset($contexte['lang']))
49 $lang = $contexte['lang'];
50 elseif (!isset($lang))
51 $lang = $GLOBALS['meta']['langue_site'];
53 $select = ((!isset($GLOBALS['forcer_lang']) OR !$GLOBALS['forcer_lang']) AND $lang <> $GLOBALS['spip_lang']);
54 if ($select) $select = lang_select($lang);
56 $debug = (isset($GLOBALS['var_mode']) && ($GLOBALS['var_mode'] == 'debug'));
58 $styliser = charger_fonction('styliser', 'public');
59 list($skel,$mime_type, $gram, $sourcefile) =
60 $styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect, _EXTENSION_SQUELETTES
);
64 // sauver le nom de l'eventuel squelette en cours d'execution
65 // (recursion possible a cause des modeles)
67 $courant = @$GLOBALS['debug_objets']['courant'];
68 $GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte;
71 // charger le squelette en specifiant les langages cibles et source
72 // au cas il faudrait le compiler (source posterieure au resultat)
74 $composer = charger_fonction('composer', 'public');
75 $code = $composer($skel, $mime_type, $gram, $sourcefile, $connect);
78 if (!$code) { // squelette inconnu (==='') ou faux (===false)
81 // Preparer l'appel de la fonction principale du squelette
84 spip_timer($a = 'calcul page '.rand(0,1000));
86 // On cree un marqueur de notes unique lie a cette composition
87 // et on enregistre l'etat courant des globales de notes...
88 $notes = charger_fonction('notes', 'inc');
91 // Rajouter d'office ces deux parametres
92 // (mais vaudrait mieux que le compilateur sache le simuler
93 // car ca interdit l'usage de criteres conditionnels dessus).
94 if (!isset($contexte['date'])) {
95 $contexte['date'] = date("Y-m-d H:i:s");
96 $contexte['date_default'] = true;
97 } else $contexte['date'] = normaliser_date($contexte['date'], true);
99 if (!isset($contexte['date_redac'])) {
100 $contexte['date_redac'] = date("Y-m-d H:i:s");
101 $contexte['date_redac_default'] = true;
102 } else $contexte['date_redac'] = normaliser_date($contexte['date_redac'], true);
104 // Passer le nom du cache pour produire sa destruction automatique
105 $page = $fonc(array('cache' => $cache), array($contexte));
107 // Restituer les globales de notes telles qu'elles etaient avant l'appel
108 // Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent*
109 // etre dans son resultat, autrement elles ne seraient pas prises en
110 // compte a chaque calcul d'un texte contenant un modele, mais seulement
111 // quand le modele serait calcule, et on aurait des resultats incoherents)
112 $notes('','depiler');
114 // reinjecter en dynamique la pile des notes
115 // si il y a des inclure dynamiques
116 // si la pile n'est pas vide
117 // la generalisation de cette injection permettrait de corriger le point juste au dessus
118 // en faisant remonter les notes a l'incluant (A tester et valider avant application)
119 $page['notes'] = $notes('','sauver_etat');
121 // spip_log: un joli contexte
123 foreach (array_filter($contexte) as $var => $val) {
124 if (is_array($val)) $val = serialize($val);
125 if (strlen("$val") > 30)
126 $val = substr("$val", 0,27).'..';
127 if (strstr($val,' '))
129 $infos[] = $var.'='.$val;
131 $profile = spip_timer($a);
132 spip_log("calcul ($profile) [$skel] "
134 .' ('.strlen($page['texte']).' octets)');
137 // si c'est ce que demande le debusqueur, lui passer la main
138 $t = strlen($page['texte']) ?
$page['texte'] : " ";
139 $GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
140 $GLOBALS['debug_objets']['courant'] = $courant;
141 $GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
142 if ($GLOBALS['debug_objets']['sourcefile']
143 AND (_request('var_mode_objet') == $fonc)
144 AND (_request('var_mode_affiche') == 'resultat')) {
148 // Si #CACHE{} n'etait pas la, le mettre a $delais
149 if (!isset($page['entetes']['X-Spip-Cache']))
150 $page['entetes']['X-Spip-Cache'] = isset($GLOBALS['delais'])?
$GLOBALS['delais']:36000;
152 $page['contexte'] = $contexte;
153 // faire remonter le fichier source
154 //if ($GLOBALS['var_inclure'])
156 static $var_inclure = false;
157 if ($GLOBALS['var_inclure']){
158 $page['sourcefile'] = $sourcefile;
160 "<div class='inclure_blocs'><h6>".$page['sourcefile']."</h6>".$page['texte']."</div>"
161 . ($var_inclure?
"":"<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>");
165 // Si un modele contenait #SESSION, on note l'info dans $page
166 if (isset($GLOBALS['cache_utilise_session'])) {
167 $page['invalideurs']['session'] = $GLOBALS['cache_utilise_session'];
168 unset($GLOBALS['cache_utilise_session']);
172 if ($select) lang_select();
179 * si le champ chapo commence par '=' c'est une redirection.
180 * avec un eventuel raccourci Spip
181 * si le raccourci a un titre il sera pris comme corps du 302
183 * http://doc.spip.org/@tester_redirection
185 * @param string $fond
186 * @param array $contexte
187 * @param string $connect
190 function tester_redirection($fond, $contexte, $connect)
192 if ($fond == 'article'
193 AND $id_article = intval($contexte['id_article'])) {
194 $m = quete_chapo($id_article, $connect);
196 include_spip('inc/texte');
197 // les navigateurs pataugent si l'URL est vide
198 if ($url = chapo_redirige(substr($m,1), true)){
199 // passer en url absolue car cette redirection pourra
200 // etre utilisee dans un contexte d'url qui change
201 // y compris url arbo
202 if (!preg_match(',^\w+:,', $url)) {
203 include_spip('inc/filtres_mini');
204 $url = url_absolue($url);
206 $url = str_replace('&', '&', $url);
207 return array('texte' => "<"
208 . "?php header('Location: "
213 'process_ins' => 'php');