X-Git-Url: https://git.cyclocoop.org/%27.WWW_URL.%27admin/?a=blobdiff_plain;f=www%2Fecrire%2Finc%2Futils.php;fp=www%2Fecrire%2Finc%2Futils.php;h=1a277f5691452d8a11221ac0c44272f71f59a78e;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hp=0000000000000000000000000000000000000000;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c;p=velocampus%2Fweb%2Fwww.git
diff --git a/www/ecrire/inc/utils.php b/www/ecrire/inc/utils.php
new file mode 100644
index 0000000..1a277f5
--- /dev/null
+++ b/www/ecrire/inc/utils.php
@@ -0,0 +1,1854 @@
+ ''.htmlentities($d).'')));
+ exit;
+}
+
+
+//
+// la fonction cherchant un fichier PHP dans le SPIP_PATH
+//
+// http://doc.spip.org/@include_spip
+function include_spip($f, $include = true) {
+ return find_in_path($f . '.php', '', $include);
+}
+
+// un pipeline est lie a une action et une valeur
+// chaque element du pipeline est autorise a modifier la valeur
+//
+// le pipeline execute les elements disponibles pour cette action,
+// les uns apres les autres, et retourne la valeur finale
+//
+// Cf. compose_filtres dans references.php, qui est la
+// version compilee de cette fonctionnalite
+
+// appel unitaire d'une fonction du pipeline
+// utilisee dans le script pipeline precompile
+// on passe $val par reference pour limiter les allocations memoire
+// http://doc.spip.org/@minipipe
+function minipipe($fonc,&$val){
+ // fonction
+ if (function_exists($fonc))
+ $val = call_user_func($fonc, $val);
+
+ // Class::Methode
+ else if (preg_match("/^(\w*)::(\w*)$/S", $fonc, $regs)
+ AND $methode = array($regs[1], $regs[2])
+ AND is_callable($methode))
+ $val = call_user_func($methode, $val);
+ else
+ spip_log("Erreur - '$fonc' non definie !");
+ return $val;
+}
+
+// chargement du pipeline sous la forme d'un fichier php prepare
+// http://doc.spip.org/@pipeline
+function pipeline($action, $val=null) {
+ static $charger;
+
+ // chargement initial des fonctions mises en cache, ou generation du cache
+ if (!$charger) {
+ if (!($ok = @is_readable($charger = _CACHE_PIPELINES))) {
+ include_spip('inc/plugin');
+ // generer les fichiers php precompiles
+ // de chargement des plugins et des pipelines
+ actualise_plugins_actifs();
+ if (!($ok = @is_readable($charger)))
+ spip_log("fichier $charger pas cree");
+ }
+
+ if ($ok)
+ include_once $charger;
+ }
+
+ // appliquer notre fonction si elle existe
+ $fonc = 'execute_pipeline_'.strtolower($action);
+ if (function_exists($fonc)) {
+ $val = $fonc($val);
+ }
+ // plantage ?
+ else {
+ include_spip('inc/plugin');
+ // on passe $action en arg pour creer la fonction meme si le pipe
+ // n'est defini nul part ; vu qu'on est la c'est qu'il existe !
+ actualise_plugins_actifs(strtolower($action));
+ spip_log("fonction $fonc absente : pipeline desactive");
+ }
+
+ // si le flux est une table qui encapsule donnees et autres
+ // on ne ressort du pipe que les donnees
+ // array_key_exists pour php 4.1.0
+ if (is_array($val)
+ AND count($val)==2
+ AND (array_key_exists('data',$val)))
+ $val = $val['data'];
+ return $val;
+}
+
+//
+// Enregistrement des evenements
+//
+// http://doc.spip.org/@spip_log
+function spip_log($message, $logname=NULL, $logdir=NULL, $logsuf=NULL) {
+ $log = charger_fonction('log', 'inc');
+ $log( $message, $logname, $logdir, $logsuf);
+}
+
+// Renvoie le _GET ou le _POST emis par l'utilisateur
+// ou pioche dans $c si c'est un array()
+// http://doc.spip.org/@_request
+function _request($var, $c=false) {
+
+ if (is_array($c))
+ return isset($c[$var]) ? $c[$var] : NULL;
+
+ if (isset($_GET[$var])) $a = $_GET[$var];
+ elseif (isset($_POST[$var])) $a = $_POST[$var];
+ else return NULL;
+
+ // Si on est en ajax et en POST tout a ete encode
+ // via encodeURIComponent, il faut donc repasser
+ // dans le charset local...
+ if (defined('_AJAX')
+ AND _AJAX
+ AND isset($GLOBALS['meta']['charset'])
+ AND $GLOBALS['meta']['charset'] != 'utf-8'
+ AND is_string($a)
+ AND preg_match(',[\x80-\xFF],', $a)) {
+ include_spip('inc/charsets');
+ return importer_charset($a, 'utf-8');
+ }
+
+ return $a;
+}
+
+// Methode set de la fonction _request()
+// Attention au cas ou l'on fait set_request('truc', NULL);
+// http://doc.spip.org/@set_request
+function set_request($var, $val = NULL, $c=false) {
+ if (is_array($c)) {
+ unset($c[$var]);
+ if ($val !== NULL)
+ $c[$var] = $val;
+ return $c;
+ }
+
+ unset($_GET[$var]);
+ unset($_POST[$var]);
+ if ($val !== NULL)
+ $_GET[$var] = $val;
+
+ return false; # n'affecte pas $c
+}
+
+
+/**
+ * Tester si une url est absolue
+ * @param $url
+ * @return bool
+ */
+function tester_url_absolue($url){
+ return preg_match(";^([a-z]+:)?//;Uims",trim($url))?true:false;
+}
+
+//
+// Prend une URL et lui ajoute/retire un parametre.
+// Exemples : [(#SELF|parametre_url{suite,18})] (ajout)
+// [(#SELF|parametre_url{suite,''})] (supprime)
+// [(#SELF|parametre_url{suite})] (prend $suite dans la _request)
+// [(#SELF|parametre_url{suite[],1})] (tableaux valeurs multiples)
+// http://doc.spip.org/@parametre_url
+function parametre_url($url, $c, $v=NULL, $sep='&') {
+
+ // lever l'#ancre
+ if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
+ $url = $r[1];
+ $ancre = $r[2];
+ } else
+ $ancre = '';
+
+ // eclater
+ $url = preg_split(',[?]|&|&,', $url);
+
+ // recuperer la base
+ $a = array_shift($url);
+ if (!$a) $a= './';
+
+ $regexp = ',^(' . str_replace('[]','\[\]',$c) . '[[]?[]]?)(=.*)?$,';
+ $ajouts = array_flip(explode('|',$c));
+ $u = is_array($v) ? $v : rawurlencode($v);
+ // lire les variables et agir
+ foreach ($url as $n => $val) {
+ if (preg_match($regexp, urldecode($val), $r)) {
+ if ($v === NULL) {
+ return $r[2]?substr($r[2],1):'';
+ }
+ // suppression
+ elseif (!$v) {
+ unset($url[$n]);
+ }
+ // Ajout. Pour une variable, remplacer au meme endroit,
+ // pour un tableau ce sera fait dans la prochaine boucle
+ elseif (substr($r[1],-2) != '[]') {
+ $url[$n] = $r[1].'='.$u;
+ unset($ajouts[$r[1]]);
+ }
+ }
+ }
+
+ // traiter les parametres pas encore trouves
+ if ($v === NULL
+ AND $args = func_get_args()
+ AND count($args)==2)
+ return $v;
+ elseif ($v) {
+ foreach($ajouts as $k => $n) {
+ if (!is_array($v))
+ $url[] = $k .'=' . $u;
+ else {
+ $id = (substr($k,-2) == '[]') ? $k : ($k ."[]");
+ foreach ($v as $w) $url[]= $id .'=' . $w;
+ }
+ }
+ }
+
+ // eliminer les vides
+ $url = array_filter($url);
+
+ // recomposer l'adresse
+ if ($url)
+ $a .= '?' . join($sep, $url);
+
+ return $a . $ancre;
+}
+
+// Prend une URL et lui ajoute/retire une ancre apres l'avoir nettoyee
+// pour l'ancre on translitere, vire les non alphanum du debut,
+// et on remplace ceux a l'interieur ou au bout par -
+// http://doc.spip.org/@ancre_url
+function ancre_url($url, $ancre) {
+ include_spip('inc/charsets');
+ // lever l'#ancre
+ if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
+ $url = $r[1];
+ }
+ $ancre = preg_replace(array('/^[^-_a-zA-Z0-9]+/', '/[^-_a-zA-Z0-9]/'), array('', '-'),
+ translitteration($ancre));
+ return $url . (strlen($ancre) ? '#'. $ancre : '');
+}
+
+//
+// pour le nom du cache, les types_urls et self
+//
+// http://doc.spip.org/@nettoyer_uri
+function nettoyer_uri($reset = null)
+{
+ static $done = false;
+ static $propre = '';
+ if (!is_null($reset)) return $propre=$reset;
+ if ($done) return $propre;
+ $done = true;
+
+ $uri1 = $GLOBALS['REQUEST_URI'];
+ do {
+ $uri = $uri1;
+ $uri1 = preg_replace
+ (',([?&])(PHPSESSID|(var_[^=&]*))=[^&]*(&|$),i',
+ '\1', $uri);
+ } while ($uri<>$uri1);
+
+ return $propre = (preg_replace(',[?&]$,', '', $uri1));
+}
+
+//
+// donner l'URL de base d'un lien vers "soi-meme", modulo
+// les trucs inutiles
+//
+// http://doc.spip.org/@self
+function self($amp = '&', $root = false) {
+ $url = nettoyer_uri();
+ if (!$root AND (!defined('_SET_HTML_BASE') OR !_SET_HTML_BASE OR !$GLOBALS['profondeur_url']))
+ $url = preg_replace(',^[^?]*/,', '', $url);
+
+ // ajouter le cas echeant les variables _POST['id_...']
+ foreach ($_POST as $v => $c)
+ if (substr($v,0,3) == 'id_')
+ $url = parametre_url($url, $v, $c, '&');
+
+ // supprimer les variables sans interet
+ if (test_espace_prive()) {
+ $url = preg_replace (',([?&])('
+ .'lang|show_docs|'
+ .'changer_lang|var_lang|action)=[^&]*,i', '\1', $url);
+ $url = preg_replace(',([?&])[&]+,', '\1', $url);
+ $url = preg_replace(',[&]$,', '\1', $url);
+ }
+
+ // eviter les hacks
+ $url = htmlspecialchars($url);
+
+ // & ?
+ if ($amp != '&')
+ $url = str_replace('&', $amp, $url);
+
+ // Si ca demarre par ? ou vide, donner './'
+ $url = preg_replace(',^([?].*)?$,', './\1', $url);
+
+ return $url;
+}
+
+// Indique si on est dans l'espace prive
+// http://doc.spip.org/@test_espace_prive
+function test_espace_prive() {
+ return defined('_ESPACE_PRIVE') ? _ESPACE_PRIVE : false;
+}
+
+/**
+ * Verifie la presence d'un plugin active, identifie par son prefix
+ *
+ *
+ * @param string $plugin
+ * @return bool
+ */
+function test_plugin_actif($plugin){
+ return ($plugin AND defined('_DIR_PLUGIN_'.strtoupper($plugin)))? true:false;
+}
+
+//
+// Traduction des textes de SPIP
+//
+// http://doc.spip.org/@_T
+function _T($texte, $args=array(), $class='') {
+
+ static $traduire=false ;
+
+ if (!$traduire) {
+ $traduire = charger_fonction('traduire', 'inc');
+ include_spip('inc/lang');
+ }
+ $text = $traduire($texte,$GLOBALS['spip_lang']);
+
+ if (!strlen($text))
+ // pour les chaines non traduites, assurer un service minimum
+ $text = str_replace('_', ' ',
+ (($n = strpos($texte,':')) === false ? $texte :
+ substr($texte, $n+1)));
+
+ return _L($text, $args, $class);
+
+}
+
+// Remplacer les variables @....@ par leur valeur dans une chaine de langue.
+// Aussi appelee quand une chaine n'est pas encore dans les fichiers de langue
+// http://doc.spip.org/@_L
+function _L($text, $args=array(), $class=NULL) {
+ $f = $text;
+ if (is_array($args)) {
+ foreach ($args as $name => $value) {
+ if ($class)
+ $value = "$value";
+ $t = str_replace ("@$name@", $value, $text);
+ if ($text !== $t) {unset($args[$name]); $text = $t;}
+ }
+ // Si des variables n'ont pas ete inserees, le signaler
+ // (chaines de langues pas a jour)
+ // NOTE: c'est du debug, gere comme tel pour SPIP >= 2.3
+ ## if ($args) spip_log("$f: variables inutilisees " . join(', ', array_keys($args)));
+ }
+
+ if ($GLOBALS['test_i18n'] AND $class===NULL)
+ return "$text";
+ else
+ return $text;
+}
+
+// Afficher "ecrire/data/" au lieu de "data/" dans les messages
+// ou tmp/ au lieu de ../tmp/
+// http://doc.spip.org/@joli_repertoire
+function joli_repertoire($rep) {
+ $a = substr($rep,0,1);
+ if ($a<>'.' AND $a<>'/')
+ $rep = (_DIR_RESTREINT?'':_DIR_RESTREINT_ABS).$rep;
+ $rep = preg_replace(',(^\.\.\/),', '', $rep);
+ return $rep;
+}
+
+
+//
+// spip_timer : on l'appelle deux fois et on a la difference, affichable
+//
+// http://doc.spip.org/@spip_timer
+function spip_timer($t='rien', $raw = false) {
+ static $time;
+ $a=time(); $b=microtime();
+ // microtime peut contenir les microsecondes et le temps
+ $b=explode(' ',$b);
+ if (count($b)==2) $a = end($b); // plus precis !
+ $b = reset($b);
+ if (!isset($time[$t])) {
+ $time[$t] = $a + $b;
+ } else {
+ $p = ($a + $b - $time[$t]) * 1000;
+ unset($time[$t]);
+# echo "'$p'";exit;
+ if ($raw) return $p;
+ if ($p < 1000)
+ $s = '';
+ else {
+ $s = sprintf("%d ", $x = floor($p/1000));
+ $p -= ($x*1000);
+ }
+ return $s . sprintf("%.3f ms", $p);
+ }
+}
+
+
+// Renvoie False si un fichier n'est pas plus vieux que $duree secondes,
+// sinon renvoie True et le date sauf si ca n'est pas souhaite
+// http://doc.spip.org/@spip_touch
+function spip_touch($fichier, $duree=0, $touch=true) {
+ if ($duree) {
+ clearstatcache();
+ if ((@$f=filemtime($fichier)) AND ($f >= time() - $duree))
+ return false;
+ }
+ if ($touch!==false) {
+ if (!@touch($fichier)) { spip_unlink($fichier); @touch($fichier); };
+ @chmod($fichier, _SPIP_CHMOD & ~0111);
+ }
+ return true;
+}
+
+// Ce declencheur de tache de fond, de l'espace prive (cf inc_presentation)
+// et de l'espace public (cf #SPIP_CRON dans inc_balise), est appelee
+// par un background-image car contrairement a un iframe vide,
+// les navigateurs ne diront pas qu'ils n'ont pas fini de charger,
+// c'est plus rassurant.
+// C'est aussi plus discret qu'un sous un navigateur non graphique.
+
+// http://doc.spip.org/@action_cron
+function action_cron() {
+ include_spip('inc/headers');
+ http_status(204); // No Content
+ header("Connection: close");
+ cron (2);
+}
+
+// cron() : execution des taches de fond
+// Le premier argument indique l'intervalle demande entre deux taches
+// par defaut, 60 secondes (quand il est appele par public.php)
+// il vaut 2 quand il est appele par ?action=cron, voire 0 en urgence
+// On peut lui passer en 2e arg le tableau de taches attendu par inc_genie()
+// Retourne Vrai si un tache a pu etre effectuee
+
+// http://doc.spip.org/@cron
+function cron ($gourmand=false, $taches= array()) {
+ if (!defined(_CRON_DELAI_GOURMAND))
+ define('_CRON_DELAI_GOURMAND',60);
+ if (!defined(_CRON_DELAI))
+ define('_CRON_DELAI',is_int($gourmand) ? $gourmand : 2);
+
+ // Si on est gourmand, ou si le fichier gourmand n'existe pas
+ // ou est trop vieux (> 60 sec), on va voir si un cron est necessaire.
+ // Au passage si on est gourmand on le dit aux autres
+ if (!_CRON_DELAI_GOURMAND
+ OR spip_touch(_DIR_TMP.'cron.lock-gourmand', _CRON_DELAI_GOURMAND, $gourmand)
+ OR ($gourmand!==false)) {
+
+ // Le fichier cron.lock indique la date de la derniere tache
+ // Il permet d'imposer qu'il n'y ait qu'une tache a la fois
+ // et 2 secondes minimum entre chaque:
+ // ca soulage le serveur et ca evite
+ // les conflits sur la base entre taches.
+
+ if (!_CRON_DELAI
+ OR spip_touch(_DIR_TMP.'cron.lock',_CRON_DELAI)) {
+ // Si base inaccessible, laisser tomber.
+ if (!spip_connect()) return false;
+
+ $genie = charger_fonction('genie', 'inc', true);
+ if ($genie) {
+ $genie($taches);
+ // redater a la fin du cron
+ // car il peut prendre plus de 2 secondes.
+ spip_touch(_DIR_TMP.'cron.lock', 0);
+ return true;
+ }
+ }# else spip_log("busy");
+ }
+ return false;
+}
+
+
+// transformation XML des "&" en "&"
+// http://doc.spip.org/@quote_amp
+function quote_amp($u) {
+ return preg_replace(
+ "/&(?![a-z]{0,4}\w{2,3};|#x?[0-9a-f]{2,5};)/i",
+ "&",$u);
+}
+
+// Production d'une balise Script valide
+// http://doc.spip.org/@http_script
+function http_script($script, $src='', $noscript='') {
+ static $done = array();
+
+ if ($src && !isset($done[$src])){
+ $done[$src] = true;
+ $src = find_in_path($src, _JAVASCRIPT);
+ $src = " src='$src'";
+ }
+ else $src = '';
+ if ($script)
+ $script = ("\n");
+ if ($noscript)
+ $noscript = "\n";
+
+ return ($src OR $script OR $noscript)
+ ? "$noscript"
+ : '';
+}
+
+// Transforme n'importe quel champ en une chaine utilisable
+// en PHP ou Javascript en toute securite
+// < ? php $x = '[(#TEXTE|texte_script)]'; ? >
+// http://doc.spip.org/@texte_script
+function texte_script($texte) {
+ return str_replace('\'', '\\\'', str_replace('\\', '\\\\', $texte));
+}
+
+// la fonction _chemin ajoute un repertoire au chemin courant si un repertoire lui est passe en parametre
+// retourne le chemin courant sinon, sous forme de array
+// seul le dossier squelette peut etre modifie en dehors de cette fonction, pour raison historique
+// http://doc.spip.org/@_chemin
+function _chemin($dir_path=NULL){
+ static $path_base = NULL;
+ static $path_full = NULL;
+ if ($path_base==NULL){
+ // Chemin standard depuis l'espace public
+ $path = defined('_SPIP_PATH') ? _SPIP_PATH :
+ _DIR_RACINE.':'.
+ _DIR_RACINE.'squelettes-dist/:'.
+ _DIR_RACINE.'prive/:'.
+ _DIR_RESTREINT.':';
+ // Ajouter squelettes/
+ if (@is_dir(_DIR_RACINE.'squelettes'))
+ $path = _DIR_RACINE.'squelettes/:' . $path;
+ foreach (explode(':', $path) as $dir) {
+ if (strlen($dir) AND substr($dir,-1) != '/')
+ $dir .= "/";
+ $path_base[] = $dir;
+ }
+ $path_full = $path_base;
+ // Et le(s) dossier(s) des squelettes nommes
+ if (strlen($GLOBALS['dossier_squelettes']))
+ foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d)
+ array_unshift($path_full, ($d[0] == '/' ? '' : _DIR_RACINE) . $d . '/');
+ $GLOBALS['path_sig'] = md5(serialize($path_full));
+ }
+ if ($dir_path===NULL) return $path_full;
+
+ if (strlen($dir_path)){
+ $tete = "";
+ if (reset($path_base)==_DIR_RACINE.'squelettes/')
+ $tete = array_shift($path_base);
+ $dirs = array_reverse(explode(':',$dir_path));
+ foreach($dirs as $dir_path){
+ #if ($dir_path{0}!='/')
+ # $dir_path = $dir_path;
+ if (substr($dir_path,-1) != '/')
+ $dir_path .= "/";
+ if (!in_array($dir_path,$path_base))
+ array_unshift($path_base,$dir_path);
+ }
+ if (strlen($tete))
+ array_unshift($path_base,$tete);
+ }
+ $path_full = $path_base;
+ // Et le(s) dossier(s) des squelettes nommes
+ if (strlen($GLOBALS['dossier_squelettes']))
+ foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d)
+ array_unshift($path_full, ($d[0] == '/' ? '' : _DIR_RACINE) . $d . '/');
+
+ $GLOBALS['path_sig'] = md5(serialize($path_full));
+ return $path_full;
+}
+
+// http://doc.spip.org/@creer_chemin
+function creer_chemin() {
+ $path_a = _chemin();
+ static $c = '';
+
+ // on calcule le chemin si le dossier skel a change
+ if ($c != $GLOBALS['dossier_squelettes']) {
+ // assurer le non plantage lors de la montee de version :
+ $c = $GLOBALS['dossier_squelettes'];
+ $path_a = _chemin(''); // forcer un recalcul du chemin
+ }
+ return $path_a;
+}
+
+
+
+// Cherche une image dans les dossiers images
+// definis par _NOM_IMG_PACK et _DIR_IMG_PACK
+// http://doc.spip.org/@chemin_image
+function chemin_image($file){
+ return _DIR_IMG_PACK . $file;
+ #return find_in_path ($file, _NOM_IMG_PACK);
+}
+
+
+// Alias de find_in_path
+// http://doc.spip.org/@chemin
+function chemin($file, $dirname='', $include=false){
+ return find_in_path ($file, $dirname, $include);
+}
+
+
+//
+// chercher un fichier $file dans le SPIP_PATH
+// si on donne un sous-repertoire en 2e arg optionnel, il FAUT le / final
+// si 3e arg vrai, on inclut si ce n'est fait.
+$GLOBALS['path_sig'] = '';
+$GLOBALS['path_files'] = null;
+
+// http://doc.spip.org/@find_in_path
+function find_in_path ($file, $dirname='', $include=false) {
+ static $dirs=array();
+ static $inc = array(); # cf http://trac.rezo.net/trac/spip/changeset/14743
+ static $c = '';
+
+ // on calcule le chemin si le dossier skel a change
+ if ($c != $GLOBALS['dossier_squelettes']){
+ // assurer le non plantage lors de la montee de version :
+ $c = $GLOBALS['dossier_squelettes'];
+ creer_chemin(); // forcer un recalcul du chemin et la mise a jour de path_sig
+ }
+
+ if (isset($GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file])) {
+ if (!$GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file])
+ return false;
+ if ($include AND !isset($inc[$dirname][$file])) {
+ include_once _ROOT_CWD . $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
+ $inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
+ }
+ return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
+ }
+
+ $a = strrpos($file,'/');
+ if ($a !== false) {
+ $dirname .= substr($file, 0, ++$a);
+ $file = substr($file, $a);
+ }
+
+ foreach(creer_chemin() as $dir) {
+ if (!isset($dirs[$a = $dir . $dirname]))
+ $dirs[$a] = (is_dir(_ROOT_CWD . $a) || !$a) ;
+ if ($dirs[$a]) {
+ if (file_exists(_ROOT_CWD . ($a .= $file))) {
+ if ($include AND !isset($inc[$dirname][$file])) {
+ include_once _ROOT_CWD . $a;
+ $inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
+ }
+ if (!defined('_SAUVER_CHEMIN'))
+ define('_SAUVER_CHEMIN',true);
+ return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = $a;
+ }
+ }
+ }
+
+ if (!defined('_SAUVER_CHEMIN'))
+ define('_SAUVER_CHEMIN',true);
+ return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = false;
+}
+
+function clear_path_cache(){
+ $GLOBALS['path_files'] = array();
+ spip_unlink(_CACHE_CHEMIN);
+}
+function load_path_cache(){
+ // charger le path des plugins
+ if (@is_readable(_CACHE_PLUGINS_PATH)){
+ include_once(_CACHE_PLUGINS_PATH);
+ }
+ $GLOBALS['path_files'] = array();
+ // si le visiteur est admin,
+ // on ne recharge pas le cache pour forcer sa mise a jour
+ // le cache de chemin n'est utilise que dans le public
+ if (_DIR_RESTREINT
+ // la session n'est pas encore chargee a ce moment, on ne peut donc pas s'y fier
+ //AND (!isset($GLOBALS['visiteur_session']['statut']) OR $GLOBALS['visiteur_session']['statut']!='0minirezo')
+ // utiliser le cookie est un pis aller qui marche 'en general'
+ // on blinde par un second test au moment de la lecture de la session
+ AND !isset($_COOKIE[$GLOBALS['cookie_prefix'].'_admin'])
+ // et en ignorant ce cache en cas de recalcul explicite
+ AND _request('var_mode')!=='recalcul'
+ ){
+ // on essaye de lire directement sans verrou pour aller plus vite
+ if ($contenu = spip_file_get_contents(_CACHE_CHEMIN)){
+ // mais si semble corrompu on relit avec un verrou
+ if (!$GLOBALS['path_files']=unserialize($contenu)){
+ lire_fichier(_CACHE_CHEMIN,$contenu);
+ if (!$GLOBALS['path_files']=unserialize($contenu))
+ $GLOBALS['path_files'] = array();
+ }
+ }
+ }
+ // pas de sauvegarde du chemin si on est pas dans le public
+ if (!_DIR_RESTREINT)
+ define('_SAUVER_CHEMIN',false);
+}
+
+function save_path_cache(){
+ if (defined('_SAUVER_CHEMIN')
+ AND _SAUVER_CHEMIN)
+ ecrire_fichier(_CACHE_CHEMIN,serialize($GLOBALS['path_files']));
+}
+
+
+/**
+ * Trouve tous les fichiers du path correspondants a un pattern
+ * pour un nom de fichier donne, ne retourne que le premier qui sera trouve
+ * par un find_in_path
+ *
+ * @param string $dir
+ * @param string $pattern
+ * @param bool $recurs
+ * @return array
+ */
+// http://doc.spip.org/@find_all_in_path
+function find_all_in_path($dir,$pattern, $recurs=false){
+ $liste_fichiers=array();
+ $maxfiles = 10000;
+
+ // Parcourir le chemin
+ foreach (creer_chemin() as $d) {
+ $f = $d.$dir;
+ if (@is_dir($f)){
+ $liste = preg_files($f,$pattern,$maxfiles-count($liste_fichiers),$recurs);
+ foreach($liste as $chemin){
+ $nom = basename($chemin);
+ // ne prendre que les fichiers pas deja trouves
+ // car find_in_path prend le premier qu'il trouve,
+ // les autres sont donc masques
+ if (!isset($liste_fichiers[$nom]))
+ $liste_fichiers[$nom] = $chemin;
+ }
+ }
+ }
+ return $liste_fichiers;
+}
+
+// predicat sur les scripts de ecrire qui n'authentifient pas par cookie
+
+// http://doc.spip.org/@autoriser_sans_cookie
+function autoriser_sans_cookie($nom)
+{
+ static $autsanscookie = array('aide_index', 'install', 'admin_repair');
+ $nom = preg_replace('/.php[3]?$/', '', basename($nom));
+ return in_array($nom, $autsanscookie);
+}
+
+// Fonction codant et decodant les URLS des objets SQL mis en page par SPIP
+// $id = numero de la cle primaire si nombre, URL a decoder si pas numerique
+// $entite = surnom de la table SQL (donne acces au nom de cle primaire)
+// $args = query_string a placer apres cle=$id&....
+// $ancre = ancre a mettre a la fin de l'URL a produire
+// $public = produire l'URL publique ou privee (par defaut: selon espace)
+// $type = fichier dans le repertoire ecrire/urls determinant l'apparence
+// @return string : url codee
+// @return string : fonction de decodage
+// http://doc.spip.org/@generer_url_entite
+function generer_url_entite($id='', $entite='', $args='', $ancre='', $public=NULL, $type=NULL)
+{
+ if ($public === NULL) $public = !test_espace_prive();
+
+ if (!$public) {
+ if (!$entite) return '';
+ include_spip('inc/urls');
+ $f = 'generer_url_ecrire_' . $entite;
+ $res = !function_exists($f) ? '' : $f($id, $args, $ancre, ' ');
+ } else {
+ if (is_string($public)) {
+ include_spip('base/connect_sql');
+ $id_type = id_table_objet($entite,$public);
+ return _DIR_RACINE . get_spip_script('./')
+ . "?"._SPIP_PAGE."=$entite&$id_type=$id&connect=$public"
+ . (!$args ? '' : "&$args")
+ . (!$ancre ? '' : "#$ancre");
+ } else {
+ if ($type === NULL) {
+ $type = ($GLOBALS['type_urls'] === 'page'
+ AND $GLOBALS['meta']['type_urls'])
+ ? $GLOBALS['meta']['type_urls']
+ : $GLOBALS['type_urls']; // pour SPIP <2
+ }
+
+ $f = charger_fonction($type, 'urls', true);
+ // si $entite='', on veut la fonction de passage URL ==> id
+ if (!$entite) return $f;
+ // sinon on veut effectuer le passage id ==> URL
+ $res = !$f ? '' : $f(intval($id), $entite, $args, $ancre);
+ }
+ }
+ if ($res) return $res;
+ // Sinon c'est un raccourci ou compat SPIP < 2
+ include_spip('inc/lien');
+ if (!function_exists($f = 'generer_url_' . $entite)) {
+ if (!function_exists($f .= '_dist')) $f = '';
+ }
+ if ($f) {
+ $url = $f($id, $args, $ancre);
+ if (strlen($args))
+ $url .= strstr($url, '?')
+ ? '&'.$args
+ : '?'.$args;
+ return $url;
+ }
+ // On a ete gentil mais la ....
+ spip_log("generer_url_entite: entite $entite ($f) inconnue $type $public");
+ return '';
+}
+
+// Transformer les caracteres utf8 d'une URL (farsi par ex) selon la RFC 1738
+function urlencode_1738($url) {
+ $uri = '';
+ for ($i=0; $i < strlen($url); $i++) {
+ if (ord($a = $url[$i]) > 127)
+ $a = rawurlencode($a);
+ $uri .= $a;
+ }
+ return quote_amp($uri);
+}
+
+// http://doc.spip.org/@generer_url_entite_absolue
+function generer_url_entite_absolue($id='', $entite='', $args='', $ancre='', $connect=NULL)
+{
+ if (!$connect) $connect = true;
+ $h = generer_url_entite($id, $entite, $args, $ancre, $connect);
+ if (!preg_match(',^\w+:,', $h)) {
+ include_spip('inc/filtres_mini');
+ $h = url_absolue($h);
+ }
+ return $h;
+}
+
+// Sur certains serveurs, la valeur 'Off' tient lieu de false dans certaines
+// variables d'environnement comme $_SERVER[HTTPS] ou ini_get(register_globals)
+// http://doc.spip.org/@test_valeur_serveur
+function test_valeur_serveur($truc) {
+ if (!$truc) return false;
+ return (strtolower($truc) !== 'off');
+}
+
+//
+// Fonctions de fabrication des URL des scripts de Spip
+//
+
+// l'URL de base du site, sans se fier a meta(adresse_site) qui
+// peut etre fausse (sites a plusieurs noms d'hotes, deplacements, erreurs)
+// Note : la globale $profondeur_url doit etre initialisee de maniere a
+// indiquer le nombre de sous-repertoires de l'url courante par rapport a la
+// racine de SPIP : par exemple, sur ecrire/ elle vaut 1, sur sedna/ 1, et a
+// la racine 0. Sur url/perso/ elle vaut 2
+// http://doc.spip.org/@url_de_base
+function url_de_base($profondeur=null) {
+
+ static $url = array();
+ if (is_array($profondeur)) return $url = $profondeur;
+ if ($profondeur===false) return $url;
+
+ if (is_null($profondeur)) $profondeur = $GLOBALS['profondeur_url'];
+
+ if (isset($url[$profondeur]))
+ return $url[$profondeur];
+
+ $http = (
+ (isset($_SERVER["SCRIPT_URI"]) AND
+ substr($_SERVER["SCRIPT_URI"],0,5) == 'https')
+ OR (isset($_SERVER['HTTPS']) AND
+ test_valeur_serveur($_SERVER['HTTPS']))
+ ) ? 'https' : 'http';
+ # note : HTTP_HOST contient le :port si necessaire
+ if (!$GLOBALS['REQUEST_URI']){
+ if (isset($_SERVER['REQUEST_URI'])) {
+ $GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
+ } else {
+ $GLOBALS['REQUEST_URI'] = $_SERVER['PHP_SELF'];
+ if ($_SERVER['QUERY_STRING']
+ AND !strpos($_SERVER['REQUEST_URI'], '?'))
+ $GLOBALS['REQUEST_URI'] .= '?'.$_SERVER['QUERY_STRING'];
+ }
+ }
+
+ $url[$profondeur] = url_de_($http,$_SERVER['HTTP_HOST'],$GLOBALS['REQUEST_URI'],$profondeur);
+
+ return $url[$profondeur];
+}
+/**
+ * fonction testable de construction d'une url appelee par url_de_base()
+ * @param string $http
+ * @param string $host
+ * @param string $request
+ * @param int $prof
+ * @return string
+ */
+function url_de_($http,$host,$request,$prof=0){
+ $prof = max($prof,0);
+
+ $myself = ltrim($request,'/');
+ # supprimer la chaine de GET
+ list($myself) = explode('?', $myself);
+ $url = join('/', array_slice(explode('/', $myself), 0, -1-$prof)).'/';
+
+ $url = $http.'://'.rtrim($host,'/').'/'.ltrim($url,'/');
+ return $url;
+}
+
+
+function tester_url_ecrire($nom){
+ // tester si c'est une page en squelette
+ if (find_in_path('prive/exec/' . $nom . '.' . _EXTENSION_SQUELETTES))
+ return 'fond';
+ // attention, il ne faut pas inclure l'exec ici car sinon on modifie l'environnement
+ // par un simple #URL_ECRIRE dans un squelette (cas d'un define en debut d'exec/nom )
+ return (find_in_path("{$nom}.php",'exec/') OR charger_fonction($nom,'exec',true))?$nom:'';
+}
+
+// Pour une redirection, la liste des arguments doit etre separee par "&"
+// Pour du code XHTML, ca doit etre &
+// Bravo au W3C qui n'a pas ete capable de nous eviter ca
+// faute de separer proprement langage et meta-langage
+
+// Attention, X?y=z et "X/?y=z" sont completement differents!
+// http://httpd.apache.org/docs/2.0/mod/mod_dir.html
+
+// http://doc.spip.org/@generer_url_ecrire
+function generer_url_ecrire($script='', $args="", $no_entities=false, $rel=false) {
+ if (!$rel)
+ $rel = url_de_base() . _DIR_RESTREINT_ABS . _SPIP_ECRIRE_SCRIPT;
+ else if (!is_string($rel))
+ $rel = _DIR_RESTREINT ? _DIR_RESTREINT :
+ ('./' . _SPIP_ECRIRE_SCRIPT);
+
+ @list($script, $ancre) = explode('#', $script);
+ if ($script AND ($script<>'accueil' OR $rel))
+ $args = "?exec=$script" . (!$args ? '' : "&$args");
+ elseif ($args)
+ $args ="?$args";
+ if ($ancre) $args .= "#$ancre";
+ return $rel . ($no_entities ? $args : str_replace('&', '&', $args));
+}
+
+// http://doc.spip.org/@generer_url_retour
+function generer_url_retour($script, $args="")
+{
+ return rawurlencode(generer_url_ecrire($script, $args, true, true));
+}
+
+//
+// Adresse des scripts publics (a passer dans inc-urls...)
+//
+
+// Detecter le fichier de base, a la racine, comme etant spip.php ou ''
+// dans le cas de '', un $default = './' peut servir (comme dans urls/page.php)
+// http://doc.spip.org/@get_spip_script
+function get_spip_script($default='') {
+ # cas define('_SPIP_SCRIPT', '');
+ if (_SPIP_SCRIPT)
+ return _SPIP_SCRIPT;
+ else
+ return $default;
+}
+
+// http://doc.spip.org/@generer_url_public
+function generer_url_public($script='', $args="", $no_entities=false, $rel=false, $action='') {
+ // si le script est une action (spip_pass, spip_inscription),
+ // standardiser vers la nouvelle API
+
+ if (!$action) $action = get_spip_script();
+ if ($script)
+ $action = parametre_url($action, _SPIP_PAGE, $script, '&');
+
+ if ($args) {
+ if (is_array($args)) {
+ $r = '';
+ foreach($args as $k => $v) $r .= '&' . $k . '=' . $v;
+ $args = substr($r,1);
+ }
+ $action .=
+ (strpos($action, '?') !== false ? '&' : '?') . $args;
+ }
+ if (!$no_entities)
+ $action = quote_amp($action);
+
+ // ne pas generer une url avec /./?page= en cas d'url absolue et de _SPIP_SCRIPT vide
+ return ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(),'/') . preg_replace(",^/[.]/,","/","/$action"));
+}
+
+// http://doc.spip.org/@generer_url_prive
+function generer_url_prive($script, $args="", $no_entities=false) {
+
+ return generer_url_public($script, $args, $no_entities, false, _DIR_RESTREINT_ABS . 'prive.php');
+}
+
+// Pour les formulaires en methode POST,
+// mettre le nom du script a la fois en input-hidden et dans le champ action:
+// 1) on peut ainsi memoriser le signet comme si c'etait un GET
+// 2) ca suit http://en.wikipedia.org/wiki/Representational_State_Transfer
+
+// http://doc.spip.org/@generer_form_ecrire
+function generer_form_ecrire($script, $corps, $atts='', $submit='') {
+ global $spip_lang_right;
+
+ $script1 = array_shift(explode('&', $script));
+
+ return "