X-Git-Url: http://git.cyclocoop.org/?p=velocampus%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fecrire%2Fpublic%2Fparametrer.php;fp=www%2Fecrire%2Fpublic%2Fparametrer.php;h=0c10ba24225f62c05973782c093fe2a7a295b49a;hp=0000000000000000000000000000000000000000;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c

diff --git a/www/ecrire/public/parametrer.php b/www/ecrire/public/parametrer.php
new file mode 100644
index 0000000..0c10ba2
--- /dev/null
+++ b/www/ecrire/public/parametrer.php
@@ -0,0 +1,220 @@
+<?php
+
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2011                                                *
+ *  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.   *
+\***************************************************************************/
+
+if (!defined('_ECRIRE_INC_VERSION')) return;
+
+include_spip('inc/lang');
+include_spip('public/quete'); // pour quete_chapo et ses dependances
+
+// NB: mes_fonctions peut initialiser $dossier_squelettes (old-style)
+// donc il faut l'inclure "en globals"
+if ($f = find_in_path('mes_fonctions.php')) {
+	global $dossier_squelettes;
+	include_once(_ROOT_CWD . $f);
+}
+
+if (@is_readable(_CACHE_PLUGINS_FCT)) {
+	// chargement optimise precompile
+	include_once(_CACHE_PLUGINS_FCT);
+}
+
+# Determine le squelette associe a une requete 
+# et l'applique sur le contexte, le nom du cache et le serveur
+# en ayant evacue au prealable le cas de la redirection
+# Retourne un tableau ainsi construit
+# 'texte' => la page calculee
+# 'process_ins' => 'html' ou 'php' si presence d'un '< ?php'
+# 'invalideurs' => les invalideurs de ce cache
+# 'entetes' => headers http
+# 'duree' => duree de vie du cache
+# 'signal' => contexte (les id_* globales)
+
+# En cas d'erreur process_ins est absent et texte est un tableau de 2 chaines
+
+// http://doc.spip.org/@public_parametrer_dist
+function public_parametrer_dist($fond, $contexte='', $cache='', $connect='')  {
+	$page = tester_redirection($fond, $contexte, $connect);
+	if ($page) return $page;
+
+	if (isset($contexte['lang']))
+		$lang = $contexte['lang'];
+	elseif (!isset($lang))
+		$lang = $GLOBALS['meta']['langue_site'];
+
+	$select = ((!isset($GLOBALS['forcer_lang']) OR !$GLOBALS['forcer_lang']) AND $lang <> $GLOBALS['spip_lang']);
+	if ($select) $select = lang_select($lang);
+
+	$debug = (isset($GLOBALS['var_mode']) && ($GLOBALS['var_mode'] == 'debug'));
+
+	$styliser = charger_fonction('styliser', 'public');
+	list($skel,$mime_type, $gram, $sourcefile) =
+		$styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect, _EXTENSION_SQUELETTES);
+
+	if ($skel) {
+
+		// sauver le nom de l'eventuel squelette en cours d'execution
+		// (recursion possible a cause des modeles)
+		if ($debug) {
+			$courant = @$GLOBALS['debug_objets']['courant'];
+			$GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte;
+		}
+
+		// charger le squelette en specifiant les langages cibles et source
+		// au cas il faudrait le compiler (source posterieure au resultat)
+
+		$composer = charger_fonction('composer', 'public');
+		$code = $composer($skel, $mime_type, $gram, $sourcefile, $connect);
+	} else $code = '';
+
+	if (!$code) { // squelette inconnu (==='') ou faux (===false)
+		$page = $code;
+	} else {
+	// Preparer l'appel de la fonction principale du squelette 
+
+		list($fonc) = $code;
+		spip_timer($a = 'calcul page '.rand(0,1000));
+
+		// On cree un marqueur de notes unique lie a cette composition
+		// et on enregistre l'etat courant des globales de notes...
+		$notes = charger_fonction('notes', 'inc');
+		$notes('','empiler');
+
+		// Rajouter d'office ces deux parametres
+		// (mais vaudrait mieux que le compilateur sache le simuler
+		// car ca interdit l'usage de criteres conditionnels dessus).
+		if (!isset($contexte['date'])) {
+			$contexte['date'] = date("Y-m-d H:i:s");
+			$contexte['date_default'] = true;
+		} else $contexte['date'] = normaliser_date($contexte['date'], true);
+
+		if (!isset($contexte['date_redac'])) {
+			$contexte['date_redac'] = date("Y-m-d H:i:s");
+			$contexte['date_redac_default'] = true;
+		} else $contexte['date_redac'] = normaliser_date($contexte['date_redac'], true);
+
+	// Passer le nom du cache pour produire sa destruction automatique
+		$page = $fonc(array('cache' => $cache), array($contexte));
+
+	// Restituer les globales de notes telles qu'elles etaient avant l'appel
+	// Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent*
+	// etre dans son resultat, autrement elles ne seraient pas prises en
+	// compte a chaque calcul d'un texte contenant un modele, mais seulement
+	// quand le modele serait calcule, et on aurait des resultats incoherents)
+		$notes('','depiler');
+
+		// reinjecter en dynamique la pile des notes
+		// si il y a des inclure dynamiques
+		// si la pile n'est pas vide
+		// la generalisation de cette injection permettrait de corriger le point juste au dessus
+		// en faisant remonter les notes a l'incluant (A tester et valider avant application)
+		$page['notes'] = $notes('','sauver_etat');
+
+		// spip_log: un joli contexte
+		$infos = array();
+		foreach (array_filter($contexte) as $var => $val) {
+			if (is_array($val)) $val = serialize($val);
+			if (strlen("$val") > 30)
+				$val = substr("$val", 0,27).'..';
+			if (strstr($val,' '))
+				$val = "'$val'";
+			$infos[] = $var.'='.$val;
+		}
+		$profile = spip_timer($a);
+		spip_log("calcul ($profile) [$skel] "
+			. join(', ', $infos)
+			.' ('.strlen($page['texte']).' octets)');
+
+		if ($debug) {
+		// si c'est ce que demande le debusqueur, lui passer la main
+			$t = strlen($page['texte']) ? $page['texte'] : " ";
+			$GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
+			$GLOBALS['debug_objets']['courant'] = $courant;
+			$GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
+			if ($GLOBALS['debug_objets']['sourcefile']
+			AND (_request('var_mode_objet') == $fonc)
+			AND (_request('var_mode_affiche') == 'resultat')) {
+				erreur_squelette();
+			}
+		}
+		// Si #CACHE{} n'etait pas la, le mettre a $delais
+		if (!isset($page['entetes']['X-Spip-Cache']))
+			$page['entetes']['X-Spip-Cache'] = isset($GLOBALS['delais'])?$GLOBALS['delais']:36000;
+
+		$page['contexte'] = $contexte;
+		// faire remonter le fichier source
+		//if ($GLOBALS['var_inclure'])
+
+		static $var_inclure = false;
+		if ($GLOBALS['var_inclure']){
+			$page['sourcefile'] = $sourcefile;
+			$page['texte'] =
+				"<div class='inclure_blocs'><h6>".$page['sourcefile']."</h6>".$page['texte']."</div>"
+				. ($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>");
+			$var_inclure = true;
+		}
+
+		// Si un modele contenait #SESSION, on note l'info dans $page
+		if (isset($GLOBALS['cache_utilise_session'])) {
+			$page['invalideurs']['session'] = $GLOBALS['cache_utilise_session'];
+			unset($GLOBALS['cache_utilise_session']);
+		}
+	}
+
+	if ($select) lang_select();
+
+	return $page;
+}
+
+
+/**
+ * si le champ chapo commence par '=' c'est une redirection.
+ * avec un eventuel raccourci Spip
+ * si le raccourci a un titre il sera pris comme corps du 302
+ *
+ * http://doc.spip.org/@tester_redirection
+ *
+ * @param string $fond
+ * @param array $contexte
+ * @param string $connect
+ * @return array|bool
+ */
+function tester_redirection($fond, $contexte, $connect)
+{
+	if ($fond == 'article'
+	AND $id_article = intval($contexte['id_article'])) {
+		$m = quete_chapo($id_article, $connect);
+		if ($m[0]=='=') {
+			include_spip('inc/texte');
+			// les navigateurs pataugent si l'URL est vide
+			if ($url = chapo_redirige(substr($m,1), true)){
+				// passer en url absolue car cette redirection pourra
+				// etre utilisee dans un contexte d'url qui change
+				// y compris url arbo
+				if (!preg_match(',^\w+:,', $url)) {
+					include_spip('inc/filtres_mini');
+					$url = url_absolue($url);
+				}
+				$url = str_replace('&amp;', '&', $url);
+				return array('texte' => "<"
+				. "?php header('Location: "
+				. texte_script($url)
+				. "'); echo '"
+				.  addslashes($url)
+				. "'.\"\n\"?" . ">",
+					'process_ins' => 'php');
+			}
+		}
+	}
+	return false;
+}
+
+?>