3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2016 *
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/charsets');
16 include_spip('inc/filtres_mini');
17 include_spip('base/objets');
18 include_spip('public/parametrer'); // charger les fichiers fonctions
21 * Charger un filtre depuis le php :
22 * - on inclue tous les fichiers fonctions des plugins et du skel
23 * - on appelle chercher_filtre
26 * @param string $default
29 function charger_filtre($fonc, $default='filtre_identite_dist') {
30 include_spip('public/parametrer'); // inclure les fichiers fonctions
31 return chercher_filtre($fonc, $default);
34 function filtre_identite_dist($texte){return $texte;}
37 * http://doc.spip.org/@chercher_filtre
40 * @param null $default
43 function chercher_filtre($fonc, $default=NULL) {
44 if (!$fonc) return $default;
45 // Cas des types mime, sans confondre avec les appels de fonction de classe
47 // qui peuvent etre avec un namespace : space\Foo::Bar
48 if (preg_match(',^[\w]+/,',$fonc)){
49 $nom = preg_replace(',\W,','_', $fonc);
50 $f = chercher_filtre($nom);
51 // cas du sous-type MIME sans filtre associe, passer au type:
52 // si filtre_text_plain pas defini, passe a filtre_text
53 if (!$f AND $nom!==$fonc)
54 $f = chercher_filtre(preg_replace(',\W.*$,','', $fonc));
58 array('filtre_'.$fonc, 'filtre_'.$fonc.'_dist', $fonc) as $f){
59 if (isset( $GLOBALS['spip_matrice'][$f]) AND is_string($g = $GLOBALS['spip_matrice'][$f]))
60 find_in_path($g,'', true);
61 if (function_exists($f)
62 OR (preg_match("/^(\w*)::(\w*)$/", $f, $regs)
63 AND is_callable(array($regs[1], $regs[2]))
74 * Fonction générique qui prend en argument l’objet (texte, etc) à modifier
75 * et le nom du filtre. Retrouve les arguments du filtre demandé dans les arguments
76 * transmis à cette fonction, via func_get_args().
78 * @see filtrer() Assez proche
81 * Texte sur lequel appliquer le filtre
82 * @param string $filtre
83 * Nom du filtre a appliquer
84 * @param string $force
85 * La fonction doit-elle retourner le texte ou rien ?
87 * Texte avec le filtre appliqué s'il a été trouvé,
88 * Texte sans le filtre appliqué s'il n'a pas été trouvé et que $force n'a
90 * Chaîne vide si le filtre n'a pas été trouvé et que $force a été fourni.
92 function appliquer_filtre($arg, $filtre, $force=NULL) {
93 $f = chercher_filtre($filtre);
95 if (!$force) return '';
99 $args = func_get_args();
100 array_shift($args); // enlever $arg
101 array_shift($args); // enlever $filtre
102 array_unshift($args, $arg); // remettre $arg
103 return call_user_func_array($f,$args);
106 // http://doc.spip.org/@spip_version
107 function spip_version() {
108 $version = $GLOBALS['spip_version_affichee'];
109 if ($svn_revision = version_svn_courante(_DIR_RACINE
))
110 $version .= ($svn_revision<0 ?
' SVN':'').' ['.abs($svn_revision).']';
116 // Mention de la revision SVN courante de l'espace restreint standard
117 // (numero non garanti pour l'espace public et en cas de mutualisation)
118 // on est negatif si on est sur .svn, et positif si on utilise svn.revision
119 // http://doc.spip.org/@version_svn_courante
120 function version_svn_courante($dir) {
121 if (!$dir) $dir = '.';
123 // version installee par paquet ZIP
124 if (lire_fichier($dir.'/svn.revision', $c)
125 AND preg_match(',Revision: (\d+),', $c, $d))
126 return intval($d[1]);
128 // version installee par SVN
129 if (lire_fichier($dir . '/.svn/entries', $c)
132 ',committed-rev="([0-9]+)",', $c, $r1, PREG_PATTERN_ORDER
)
136 (preg_match(',^\d.*dir[\r\n]+(\d+),ms', $c, $r1) # svn >= 1.4
141 // Bug ou paquet fait main
145 // La matrice est necessaire pour ne filtrer _que_ des fonctions definies dans filtres_images
146 // et laisser passer les fonctions personnelles baptisees image_...
147 $GLOBALS['spip_matrice']['image_graver'] = true;//'inc/filtres_images_mini.php';
148 $GLOBALS['spip_matrice']['image_select'] = true;//'inc/filtres_images_mini.php';
149 $GLOBALS['spip_matrice']['image_reduire'] = true;//'inc/filtres_images_mini.php';
150 $GLOBALS['spip_matrice']['image_reduire_par'] = true;//'inc/filtres_images_mini.php';
151 $GLOBALS['spip_matrice']['image_passe_partout'] = true;//'inc/filtres_images_mini.php';
153 $GLOBALS['spip_matrice']['couleur_html_to_hex'] = 'inc/filtres_images_mini.php';
154 $GLOBALS['spip_matrice']['couleur_foncer'] = 'inc/filtres_images_mini.php';
155 $GLOBALS['spip_matrice']['couleur_eclaircir'] = 'inc/filtres_images_mini.php';
157 // ou pour inclure un script au moment ou l'on cherche le filtre
158 $GLOBALS['spip_matrice']['filtre_image_dist'] = 'inc/filtres_mime.php';
159 $GLOBALS['spip_matrice']['filtre_audio_dist'] = 'inc/filtres_mime.php';
160 $GLOBALS['spip_matrice']['filtre_video_dist'] = 'inc/filtres_mime.php';
161 $GLOBALS['spip_matrice']['filtre_application_dist'] = 'inc/filtres_mime.php';
162 $GLOBALS['spip_matrice']['filtre_message_dist'] = 'inc/filtres_mime.php';
163 $GLOBALS['spip_matrice']['filtre_multipart_dist'] = 'inc/filtres_mime.php';
164 $GLOBALS['spip_matrice']['filtre_text_dist'] = 'inc/filtres_mime.php';
165 $GLOBALS['spip_matrice']['filtre_text_csv_dist'] = 'inc/filtres_mime.php';
166 $GLOBALS['spip_matrice']['filtre_text_html_dist'] = 'inc/filtres_mime.php';
167 $GLOBALS['spip_matrice']['filtre_audio_x_pn_realaudio'] = 'inc/filtres_mime.php';
170 // charge les fonctions graphiques et applique celle demandee
171 // http://doc.spip.org/@filtrer
172 function filtrer($filtre) {
173 if (isset($GLOBALS['spip_matrice'][$filtre]) and is_string($f = $GLOBALS['spip_matrice'][$filtre])){
174 find_in_path($f,'', true);
175 $GLOBALS['spip_matrice'][$filtre] = true;
177 $tous = func_get_args();
178 if (substr($filtre,0,6)=='image_' && $GLOBALS['spip_matrice'][$filtre])
179 return image_filtrer($tous);
180 elseif($f = chercher_filtre($filtre)) {
182 return call_user_func_array($f, $tous);
185 // le filtre n'existe pas, on provoque une erreur
186 $msg = array('zbug_erreur_filtre', array('filtre'=>texte_script($filtre)));
187 erreur_squelette($msg);
194 * [(#CALCUL|set{toto})] enregistre le résultat de #CALCUL
195 * dans la variable toto et renvoie vide
197 * [(#CALCUL|set{toto,1})] enregistre le résultat de #CALCUL
198 * dans la variable toto et renvoie la valeur
201 function filtre_set(&$Pile, $val, $key, $continue = null) {
202 $Pile['vars'][$key] = $val;
203 return $continue ?
$val : '';
207 * [(#TRUC|debug{avant}|calcul|debug{apres}|etc)] affiche
208 * la valeur de #TRUC avant et après le calcul
210 function filtre_debug($val, $key=null) {
212 is_null($key) ?
'' : (var_export($key,true)." = ")
213 ) . var_export($val, true);
215 include_spip('inc/autoriser');
216 if (autoriser('webmestre'))
217 echo "<div class='spip_debug'>\n",$debug,"</div>\n";
219 spip_log($debug, 'debug');
225 // fonction generique d'entree des filtres images
226 // accepte en entree un texte complet, un img-log (produit par #LOGO_XX),
227 // un tag <img ...> complet, ou encore un nom de fichier *local* (passer
228 // le filtre |copie_locale si on veut l'appliquer a un document)
229 // applique le filtre demande a chacune des occurrences
231 // http://doc.spip.org/@image_filtrer
232 function image_filtrer($args){
233 $filtre = array_shift($args); # enlever $filtre
234 $texte = array_shift($args);
235 if (!strlen($texte)) return;
236 find_in_path('filtres_images_mini.php','inc/', true);
237 statut_effacer_images_temporaires(true); // activer la suppression des images temporaires car le compilo finit la chaine par un image_graver
238 // Cas du nom de fichier local
239 if ( strpos(substr($texte,strlen(_DIR_RACINE
)),'..')===FALSE
240 AND !preg_match(',^/|[<>]|\s,S', $texte)
242 file_exists(preg_replace(',[?].*$,','',$texte))
243 OR preg_match(';^(\w{3,7}://);', $texte)
245 array_unshift($args,"<img src='$texte' />");
246 $res = call_user_func_array($filtre, $args);
247 statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
251 // Cas general : trier toutes les images, avec eventuellement leur <span>
253 ',(<([a-z]+) [^<>]*spip_documents[^<>]*>)?\s*(<img\s.*>),UimsS',
254 $texte, $tags, PREG_SET_ORDER
)) {
255 foreach ($tags as $tag) {
256 $class = extraire_attribut($tag[3],'class');
257 if (!$class ||
(strpos($class,'no_image_filtrer')===FALSE)){
258 array_unshift($args,$tag[3]);
259 if ($reduit = call_user_func_array($filtre, $args)) {
260 // En cas de span spip_documents, modifier le style=...width:
262 $w = extraire_attribut($reduit, 'width');
263 if (!$w AND preg_match(",width:\s*(\d+)px,S",extraire_attribut($reduit,'style'),$regs))
265 if ($w AND ($style = extraire_attribut($tag[1], 'style'))){
266 $style = preg_replace(",width:\s*\d+px,S", "width:${w}px", $style);
267 $replace = inserer_attribut($tag[1], 'style', $style);
268 $texte = str_replace($tag[1], $replace, $texte);
271 // traiter aussi un eventuel mouseover
272 if ($mouseover = extraire_attribut($reduit,'onmouseover')){
273 if (preg_match(",this[.]src=['\"]([^'\"]+)['\"],ims", $mouseover, $match)){
274 $srcover = $match[1];
276 array_unshift($args,"<img src='".$match[1]."' />");
277 $srcover_filter = call_user_func_array($filtre, $args);
278 $srcover_filter = extraire_attribut($srcover_filter,'src');
279 $reduit = str_replace($srcover,$srcover_filter,$reduit);
282 $texte = str_replace($tag[3], $reduit, $texte);
288 statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
293 // Retourner taille d'une image
294 // pour les filtres |largeur et |hauteur
296 // http://doc.spip.org/@taille_image
297 function taille_image($img) {
299 static $largeur_img =array(), $hauteur_img= array();
303 $logo = extraire_attribut($img,'src');
305 if (!$logo) $logo = $img;
307 $srcWidth = extraire_attribut($img,'width');
308 $srcHeight = extraire_attribut($img,'height');
311 // ne jamais operer directement sur une image distante pour des raisons de perfo
312 // la copie locale a toutes les chances d'etre la ou de resservir
313 if (preg_match(';^(\w{3,7}://);', $logo)){
314 include_spip('inc/distant');
315 $fichier = copie_locale($logo);
316 $logo = $fichier ? _DIR_RACINE
. $fichier : $logo;
318 if (($p=strpos($logo,'?'))!==FALSE)
319 $logo=substr($logo,0,$p);
322 if (isset($largeur_img[$logo]))
323 $srcWidth = $largeur_img[$logo];
324 if (isset($hauteur_img[$logo]))
325 $srcHeight = $hauteur_img[$logo];
326 if (!$srcWidth OR !$srcHeight){
327 if (file_exists($logo)
328 AND $srcsize = @getimagesize
($logo)){
329 if (!$srcWidth) $largeur_img[$logo] = $srcWidth = $srcsize[0];
330 if (!$srcHeight) $hauteur_img[$logo] = $srcHeight = $srcsize[1];
332 // $logo peut etre une reference a une image temporaire dont a n'a que le log .src
333 // on s'y refere, l'image sera reconstruite en temps utile si necessaire
334 elseif(@file_exists
($f = "$logo.src")
335 AND lire_fichier($f,$valeurs)
336 AND $valeurs=unserialize($valeurs)) {
337 if (!$srcWidth) $largeur_img[$logo] = $srcWidth = $valeurs["largeur_dest"];
338 if (!$srcHeight) $hauteur_img[$logo] = $srcHeight = $valeurs["hauteur_dest"];
341 return array($srcHeight, $srcWidth);
343 // http://doc.spip.org/@largeur
344 function largeur($img) {
346 list ($h,$l) = taille_image($img);
349 // http://doc.spip.org/@hauteur
350 function hauteur($img) {
352 list ($h,$l) = taille_image($img);
357 // Echappement des entites HTML avec correction des entites "brutes"
358 // (generees par les butineurs lorsqu'on rentre des caracteres n'appartenant
359 // pas au charset de la page [iso-8859-1 par defaut])
361 // Attention on limite cette correction aux caracteres "hauts" (en fait > 99
362 // pour aller plus vite que le > 127 qui serait logique), de maniere a
363 // preserver des echappements de caracteres "bas" (par exemple [ ou ")
364 // et au cas particulier de & qui devient &amp; dans les url
365 // http://doc.spip.org/@corriger_entites_html
366 function corriger_entites_html($texte) {
367 if (strpos($texte,'&') === false) return $texte;
368 return preg_replace(',&(#[0-9][0-9][0-9]+;|amp;),iS', '&\1', $texte);
370 // idem mais corriger aussi les &eacute; en é
371 // http://doc.spip.org/@corriger_toutes_entites_html
372 function corriger_toutes_entites_html($texte) {
373 if (strpos($texte,'&') === false) return $texte;
374 return preg_replace(',&(#?[a-z0-9]+;),iS', '&\1', $texte);
377 // http://doc.spip.org/@proteger_amp
378 function proteger_amp($texte){
379 return str_replace('&','&',$texte);
384 * http://doc.spip.org/@entites_html
386 * @param string $texte
389 * corriger toutes les &xx; en &xx;
391 * echapper aussi les simples quotes en '
392 * @return mixed|string
394 function entites_html($texte, $tout=false, $quote=true) {
395 if (!is_string($texte) OR !$texte
396 OR strpbrk($texte, "&\"'<>")==false
398 include_spip('inc/texte');
399 $flags = !defined('PHP_VERSION_ID') OR PHP_VERSION_ID
< 50400 ? ENT_COMPAT
: ENT_COMPAT|ENT_HTML401
;
400 $texte = spip_htmlspecialchars(echappe_retour(echappe_html($texte, '', true), '', 'proteger_amp'), $quote?ENT_QUOTES
:$flags);
402 return corriger_toutes_entites_html($texte);
404 return corriger_entites_html($texte);
407 // Transformer les é dans le charset local
408 // http://doc.spip.org/@filtrer_entites
409 function filtrer_entites($texte) {
410 if (strpos($texte,'&') === false) return $texte;
412 $texte = html2unicode($texte);
413 // remettre le tout dans le charset cible
414 $texte = unicode2charset($texte);
415 // cas particulier des " et ' qu'il faut filtrer aussi
416 // (on le faisait deja avec un ")
417 if (strpos($texte,"&#")!==false)
418 $texte = str_replace(array("'","'",""","""), array("'","'",'"','"'), $texte);
423 * Version securisee de filtrer_entites
427 if (!function_exists('filtre_filtrer_entites_dist')) {
428 function filtre_filtrer_entites_dist($t) {
429 include_spip('inc/texte');
430 return interdire_scripts(filtrer_entites($t));
435 // caracteres de controle - http://www.w3.org/TR/REC-xml/#charsets
436 // http://doc.spip.org/@supprimer_caracteres_illegaux
437 function supprimer_caracteres_illegaux($texte) {
438 static $from = "\x0\x1\x2\x3\x4\x5\x6\x7\x8\xB\xC\xE\xF\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F";
441 if (is_array($texte)) {
442 return array_map('supprimer_caracteres_illegaux', $texte);
445 if (!$to) $to = str_repeat('-', strlen($from));
446 return strtr($texte, $from, $to);
449 // Supprimer caracteres windows et les caracteres de controle ILLEGAUX
450 // http://doc.spip.org/@corriger_caracteres
451 function corriger_caracteres ($texte) {
452 $texte = corriger_caracteres_windows($texte);
453 $texte = supprimer_caracteres_illegaux($texte);
458 * Encode du HTML pour transmission XML
459 * notamment dans les flux RSS
461 * http://doc.spip.org/@texte_backend
466 function texte_backend($texte) {
468 static $apostrophe = array("’", "'"); # n'allouer qu'une fois
470 // si on a des liens ou des images, les passer en absolu
471 $texte = liens_absolus($texte);
473 // echapper les tags > <
474 $texte = preg_replace(',&(gt|lt);,S', '&\1;', $texte);
476 // importer les é
477 $texte = filtrer_entites($texte);
479 // " -> " et tout ce genre de choses
480 $u = $GLOBALS['meta']['pcre_u'];
481 $texte = str_replace(" ", " ", $texte);
482 $texte = preg_replace('/\s{2,}/S'.$u, " ", $texte);
483 // ne pas echapper les sinqle quotes car certains outils de syndication gerent mal
484 $texte = entites_html($texte, false, false);
485 // mais bien echapper les double quotes !
486 $texte = str_replace('"','"',$texte);
488 // verifier le charset
489 $texte = charset2unicode($texte);
491 // Caracteres problematiques en iso-latin 1
492 if ($GLOBALS['meta']['charset'] == 'iso-8859-1') {
493 $texte = str_replace(chr(156), 'œ', $texte);
494 $texte = str_replace(chr(140), 'Œ', $texte);
495 $texte = str_replace(chr(159), 'Ÿ', $texte);
498 // l'apostrophe curly pose probleme a certains lecteure de RSS
499 // et le caractere apostrophe alourdit les squelettes avec PHP
500 // ==> on les remplace par l'entite HTML
501 return str_replace($apostrophe, "'", $texte);
504 // Comme ci-dessus, mais avec addslashes final pour squelettes avec PHP (rss)
506 function texte_backendq($texte) {
507 return addslashes(texte_backend($texte));
510 // Enleve le numero des titres numerotes ("1. Titre" -> "Titre")
511 // http://doc.spip.org/@supprimer_numero
512 function supprimer_numero($texte) {
514 ",^[[:space:]]*([0-9]+)([.)]|".chr(194).'?'.chr(176).")[[:space:]]+,S",
518 // et la fonction inverse
519 // http://doc.spip.org/@recuperer_numero
520 function recuperer_numero($texte) {
522 ",^[[:space:]]*([0-9]+)([.)]|".chr(194).'?'.chr(176).")[[:space:]]+,S",
524 return strval($regs[1]);
529 // Suppression basique et brutale de tous les <...>
530 // http://doc.spip.org/@supprimer_tags
531 function supprimer_tags($texte, $rempl = "") {
532 $texte = preg_replace(",<[^>]*>,US", $rempl, $texte);
533 // ne pas oublier un < final non ferme
534 // mais qui peut aussi etre un simple signe plus petit que
535 $texte = str_replace('<', ' ', $texte);
539 // Convertit les <...> en la version lisible en HTML
540 // http://doc.spip.org/@echapper_tags
541 function echapper_tags($texte, $rempl = "") {
542 $texte = preg_replace("/<([^>]*)>/", "<\\1>", $texte);
546 // Convertit un texte HTML en texte brut
547 // http://doc.spip.org/@textebrut
548 function textebrut($texte) {
549 $u = $GLOBALS['meta']['pcre_u'];
550 $texte = preg_replace('/\s+/S'.$u, " ", $texte);
551 $texte = preg_replace("/<(p|br)( [^>]*)?".">/iS", "\n\n", $texte);
552 $texte = preg_replace("/^\n+/", "", $texte);
553 $texte = preg_replace("/\n+$/", "", $texte);
554 $texte = preg_replace("/\n +/", "\n", $texte);
555 $texte = supprimer_tags($texte);
556 $texte = preg_replace("/( | )+/S", " ", $texte);
557 // nettoyer l'apostrophe curly qui pose probleme a certains rss-readers, lecteurs de mail...
558 $texte = str_replace("’","'",$texte);
562 // Remplace les liens SPIP en liens ouvrant dans une nouvelle fenetre (target=blank)
563 // http://doc.spip.org/@liens_ouvrants
564 function liens_ouvrants ($texte) {
565 return preg_replace(",<a\s+([^>]*https?://[^>]*class=[\"']spip_(out|url)\b[^>]+)>,",
566 "<a \\1 target=\"_blank\">", $texte);
570 * Ajouter un attribut rel="nofollow" sur tous les liens d'un texte
571 * @param string $texte
574 function liens_nofollow($texte) {
575 if (stripos($texte,"<a")===false)
578 if (preg_match_all(",<a\b[^>]*>,UimsS",$texte, $regs, PREG_PATTERN_ORDER
)){
579 foreach($regs[0] as $a){
580 $rel = extraire_attribut($a,"rel");
581 if (strpos($rel,"nofollow")===false){
582 $rel = "nofollow" . ($rel?
" $rel":"");
583 $anofollow = inserer_attribut($a,"rel",$rel);
584 $texte = str_replace($a,$anofollow,$texte);
592 // Transformer les sauts de paragraphe en simples passages a la ligne
593 // http://doc.spip.org/@PtoBR
594 function PtoBR($texte){
595 $u = $GLOBALS['meta']['pcre_u'];
596 $texte = preg_replace("@</p>@iS", "\n", $texte);
597 $texte = preg_replace("@<p\b.*>@UiS", "<br />", $texte);
598 $texte = preg_replace("@^\s*<br />@S".$u, "", $texte);
604 * lignes_longues assure qu'un texte ne vas pas deborder d'un bloc
605 * par la faute d'un mot trop long (souvent des URLs)
606 * Ne devrait plus etre utilise et fait directement en CSS par un style
607 * word-wrap:break-word;
608 * cf http://www.alsacreations.com/tuto/lire/1038-gerer-debordement-contenu-css.html
610 * Pour assurer la compatibilite du filtre, on encapsule le contenu par
611 * un div ou span portant ce style inline.
613 * http://doc.spip.org/@lignes_longues
615 * @param string $texte
618 function lignes_longues($texte) {
619 if (!strlen(trim($texte))) return $texte;
620 include_spip('inc/texte');
621 $tag = preg_match(',</?('._BALISES_BLOCS
.')[>[:space:]],iS', $texte) ?
624 return "<$tag style='word-wrap:break-word;'>$texte</$tag>";
627 // Majuscules y compris accents, en HTML
628 // http://doc.spip.org/@majuscules
629 function majuscules($texte) {
630 if (!strlen($texte)) return '';
633 if ($GLOBALS['spip_lang'] == 'tr') {
634 # remplacer hors des tags et des entites
635 if (preg_match_all(',<[^<>]+>|&[^;]+;,S', $texte, $regs, PREG_SET_ORDER
))
636 foreach ($regs as $n => $match)
637 $texte = str_replace($match[0], "@@SPIP_TURC$n@@", $texte);
639 $texte = str_replace('i', 'İ', $texte);
642 foreach ($regs as $n => $match)
643 $texte = str_replace("@@SPIP_TURC$n@@", $match[0], $texte);
647 return "<span style='text-transform: uppercase;'>$texte</span>";
650 // "127.4 ko" ou "3.1 Mo"
651 // http://doc.spip.org/@taille_en_octets
652 function taille_en_octets ($taille) {
653 if ($taille < 1) return '';
654 if ($taille < 1024) {$taille = _T('taille_octets', array('taille' => $taille));}
655 else if ($taille < 1024*1024) {
656 $taille = _T('taille_ko', array('taille' => round($taille/1024, 1)));
657 } else if ($taille < 1024*1024*1024) {
658 $taille = _T('taille_mo', array('taille' => round($taille/1024/1024, 1)));
660 $taille = _T('taille_go', array('taille' => round($taille/1024/1024/1024, 2)));
666 // Rend une chaine utilisable sans dommage comme attribut HTML
667 // http://doc.spip.org/@attribut_html
668 function attribut_html($texte,$textebrut = true) {
669 $u = $GLOBALS['meta']['pcre_u'];
671 $texte = preg_replace(array(",\n,",",\s(?=\s),msS".$u),array(" ",""),textebrut($texte));
672 $texte = texte_backend($texte);
673 $texte = str_replace(array("'",'"'),array(''', '"'), $texte);
675 return preg_replace(array("/&(amp;|#38;)/","/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/"),array("&","&") , $texte);
678 // Vider les url nulles comme 'http://' ou 'mailto:'
679 // et leur appliquer un htmlspecialchars() + gerer les &
680 // http://doc.spip.org/@vider_url
681 function vider_url($url, $entites = true) {
682 # un message pour abs_url
683 $GLOBALS['mode_abs_url'] = 'url';
685 $r = ",^(?:" . _PROTOCOLES_STD
. '):?/?/?$,iS';
686 return preg_match($r, $url) ?
'': ($entites ?
entites_html($url) : $url);
689 // Extraire une date de n'importe quel champ (a completer...)
690 // http://doc.spip.org/@extraire_date
691 function extraire_date($texte) {
693 if (preg_match(",([1-2][0-9]{3})[^0-9]*(1[0-2]|0?[1-9]),",$texte,$regs))
694 return $regs[1]."-".sprintf("%02d", $regs[2])."-01";
697 // Maquiller une adresse e-mail
698 // http://doc.spip.org/@antispam
699 function antispam($texte) {
700 include_spip('inc/acces');
701 $masque = creer_pass_aleatoire(3);
702 return preg_replace("/@/", " $masque ", $texte);
705 // http://doc.spip.org/@securiser_acces
706 function securiser_acces($id_auteur, $cle, $dir, $op='', $args='')
708 include_spip('inc/acces');
709 if ($op) $dir .= " $op $args";
710 return verifier_low_sec($id_auteur, $cle, $dir);
714 * La fonction sinon retourne le second parametre lorsque
715 * le premier est considere vide, sinon retourne le premier parametre.
717 * En php sinon($a, 'rien') retourne $a ou 'rien' si $a est vide.
718 * En filtre spip |sinon{#TEXTE, rien} : affiche #TEXTE ou "rien" si #TEXTE est vide,
720 * Note : l'utilisation de |sinon en tant que filtre de squelette
721 * est directement compile dans public/references par la fonction filtre_logique()
723 * @param mixed $texte
724 * Contenu de reference a tester
725 * @param mixed $sinon
726 * Contenu a retourner si le contenu de reference est vide
728 * Retourne $texte, sinon $sinon.
730 function sinon ($texte, $sinon='') {
731 if ($texte OR (!is_array($texte) AND strlen($texte)))
737 // |choixsivide{vide,pasvide} affiche pasvide si la chaine n'est pas vide...
738 // http://doc.spip.org/@choixsivide
739 function choixsivide($a, $vide, $pasvide) {
740 return $a ?
$pasvide : $vide;
743 // |choixsiegal{aquoi,oui,non} affiche oui si la chaine est egal a aquoi ...
744 // http://doc.spip.org/@choixsiegal
745 function choixsiegal($a1,$a2,$v,$f) {
746 return ($a1 == $a2) ?
$v : $f;
751 // Date, heure, saisons
754 // on normalise la date, si elle vient du contexte (public/parametrer.php), on force le jour
755 // http://doc.spip.org/@normaliser_date
756 function normaliser_date($date, $forcer_jour = false) {
757 $date = vider_date($date);
759 if (preg_match("/^[0-9]{8,10}$/", $date))
760 $date = date("Y-m-d H:i:s", $date);
761 if (preg_match("#^([12][0-9]{3})([-/]00)?( [-0-9:]+)?$#", $date, $regs))
762 $date = $regs[1]."-00-00".$regs[3];
763 else if (preg_match("#^([12][0-9]{3}[-/][01]?[0-9])([-/]00)?( [-0-9:]+)?$#", $date, $regs))
764 $date = preg_replace("@/@","-",$regs[1])."-00".$regs[3];
766 $date = date("Y-m-d H:i:s", strtotime($date));
769 $date = str_replace('-00', '-01', $date);
774 // http://doc.spip.org/@vider_date
775 function vider_date($letexte) {
776 if (strncmp("0000-00-00", $letexte,10)==0) return '';
777 if (strncmp("0001-01-01", $letexte,10)==0) return '';
778 if (strncmp("1970-01-01", $letexte,10)==0) return ''; // eviter le bug GMT-1
782 // http://doc.spip.org/@recup_heure
783 function recup_heure($date){
785 static $d = array(0,0,0);
786 if (!preg_match('#([0-9]{1,2}):([0-9]{1,2}):([0-9]{1,2})#', $date, $r))
793 // http://doc.spip.org/@heures
794 function heures($numdate) {
795 $date_array = recup_heure($numdate);
797 list($heures, $minutes, $secondes) = $date_array;
801 // http://doc.spip.org/@minutes
802 function minutes($numdate) {
803 $date_array = recup_heure($numdate);
805 list($heures, $minutes, $secondes) = $date_array;
809 // http://doc.spip.org/@secondes
810 function secondes($numdate) {
811 $date_array = recup_heure($numdate);
813 list($heures,$minutes,$secondes) = $date_array;
817 // http://doc.spip.org/@heures_minutes
818 function heures_minutes($numdate) {
819 return _T('date_fmt_heures_minutes', array('h'=> heures($numdate), 'm'=> minutes($numdate)));
822 // http://doc.spip.org/@recup_date
823 function recup_date($numdate, $forcer_jour = true){
824 if (!$numdate) return '';
825 $heures = $minutes = $secondes = 0;
826 if (preg_match('#([0-9]{1,2})/([0-9]{1,2})/([0-9]{4}|[0-9]{1,2})#', $numdate, $regs)) {
831 $annee = 2000 +
$annee;
832 } elseif ($annee<100) {
833 $annee = 1900 +
$annee ;
835 list($heures, $minutes, $secondes) = recup_heure($numdate);
838 elseif (preg_match('#([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})#',$numdate, $regs)) {
842 list($heures, $minutes, $secondes) = recup_heure($numdate);
844 elseif (preg_match('#([0-9]{4})-([0-9]{2})#', $numdate, $regs)){
848 list($heures, $minutes, $secondes) = recup_heure($numdate);
850 elseif (preg_match('#^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$#', $numdate, $regs)){
856 $secondes = $regs[6];
857 } else $annee = $mois = $jour ='';
858 if ($annee > 4000) $annee -= 9000;
859 if (substr($jour, 0, 1) == '0') $jour = substr($jour, 1);
861 if ($forcer_jour AND $jour == '0') $jour = '1';
862 if ($forcer_jour AND $mois == '0') $mois = '1';
863 if ($annee OR $mois OR $jour OR $heures OR $minutes OR $secondes)
864 return array($annee, $mois, $jour, $heures, $minutes, $secondes);
867 // une date pour l'interface : utilise date_relative si le decalage
868 // avec time() est de moins de douze heures, sinon la date complete
869 // http://doc.spip.org/@date_interface
870 function date_interface($date, $decalage_maxi = 43200/* 12*3600 */) {
872 date_relative($date, $decalage_maxi),
877 // http://doc.spip.org/@date_relative
878 function date_relative($date, $decalage_maxi=0,$ref_date=null) {
880 if (is_null($ref_date))
883 $ref_time = strtotime($ref_date);
886 $decal = date("U",$ref_time) - date("U", strtotime($date));
888 if ($decalage_maxi AND ($decal > $decalage_maxi OR $decal < 0))
892 $il_y_a = "date_dans";
893 $decal = -1 * $decal;
895 $il_y_a = "date_il_y_a";
898 if ($decal > 3600 * 24 * 30 * 6)
899 return affdate_court($date);
901 if ($decal > 3600 * 24 * 30) {
902 $mois = floor ($decal / (3600 * 24 * 30));
904 $delai = "$mois "._T("date_un_mois");
906 $delai = "$mois "._T("date_mois");
908 else if ($decal > 3600 * 24 * 7) {
909 $semaines = floor ($decal / (3600 * 24 * 7));
911 $delai = "$semaines "._T("date_une_semaine");
913 $delai = "$semaines "._T("date_semaines");
915 else if ($decal > 3600 * 24) {
916 $jours = floor ($decal / (3600 * 24));
918 return $il_y_a=="date_dans"?
_T("date_demain"):_T("date_hier");
920 $delai = "$jours "._T("date_jours");
922 else if ($decal >= 3600) {
923 $heures = floor ($decal / 3600);
925 $delai = "$heures "._T("date_une_heure");
927 $delai = "$heures "._T("date_heures");
929 else if ($decal >= 60) {
930 $minutes = floor($decal / 60);
932 $delai = "$minutes "._T("date_une_minute");
934 $delai = "$minutes "._T("date_minutes");
936 $secondes = ceil($decal);
938 $delai = "$secondes "._T("date_une_seconde");
940 $delai = "$secondes "._T("date_secondes");
943 return _T($il_y_a, array("delai"=> $delai));
947 // http://doc.spip.org/@date_relativecourt
948 function date_relativecourt($date, $decalage_maxi=0) {
951 $decal = date("U",strtotime(date('Y-m-d'))-strtotime(date('Y-m-d',strtotime($date))));
953 if ($decalage_maxi AND ($decal > $decalage_maxi OR $decal < 0))
956 if ($decal < -24*3600) {
957 $retour = date_relative($date, $decalage_maxi);
959 elseif ($decal < 0) {
960 $retour = _T("date_demain");
962 else if ($decal < (3600 * 24) ) {
963 $retour = _T("date_aujourdhui");
965 else if ($decal < (3600 * 24 *2) ) {
966 $retour = _T("date_hier");
969 $retour = date_relative($date, $decalage_maxi);
978 * Formatage humain de la date $numdate selon le format $vue
979 * http://doc.spip.org/@affdate_base
983 * @param array $options
984 * param : 'abbr' ou 'initiale' permet d'afficher les jours au format court ou initiale
985 * annee_courante : permet de definir l'annee de reference pour l'affichage des dates courtes
986 * @return mixed|string
988 function affdate_base($numdate, $vue, $options = array()) {
989 if (is_string($options))
990 $options = array('param'=>$options);
991 $date_array = recup_date($numdate, false);
992 if (!$date_array) return;
993 list($annee, $mois, $jour, $heures, $minutes, $secondes)= $date_array;
1001 $njour = intval($jour);
1002 if ($jourth = _T('date_jnum'.$jour))
1006 $mois = intval($mois);
1007 if ($mois > 0 AND $mois < 13) {
1008 $nommois = _T('date_mois_'.$mois);
1010 $jourmois = _T('date_de_mois_'.$mois, array('j'=>$jour, 'nommois'=>$nommois));
1012 $jourmois = $nommois;
1013 } else $nommois = '';
1016 $annee = -$annee." "._T('date_avant_jc');
1023 case 'saison_annee':
1027 if (($mois == 3 AND $jour >= 21) OR $mois > 3) $saison = 2;
1028 if (($mois == 6 AND $jour >= 21) OR $mois > 6) $saison = 3;
1029 if (($mois == 9 AND $jour >= 21) OR $mois > 9) $saison = 4;
1030 if (($mois == 12 AND $jour >= 21) OR $mois > 12) $saison = 1;
1032 if($vue == 'saison')
1033 return $saison?
_T('date_saison_'.$saison):'';
1035 return $saison?
trim(_T('date_fmt_saison_annee', array('saison'=>_T('date_saison_'.$saison), 'annee'=>$annee))) :'';
1038 if ($avjc) return $annee;
1039 $a = ((isset($options['annee_courante']) AND $options['annee_courante'])?
$options['annee_courante']:date('Y'));
1040 if ($annee < ($a - 100) OR $annee > ($a +
100)) return $annee;
1041 if ($annee != $a) return _T('date_fmt_mois_annee', array ('mois'=>$mois, 'nommois'=>spip_ucfirst($nommois), 'annee'=>$annee));
1042 return _T('date_fmt_jour_mois', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
1045 if ($avjc) return $annee;
1046 $a = ((isset($options['annee_courante']) AND $options['annee_courante'])?
$options['annee_courante']:date('Y'));
1047 if ($annee < ($a - 100) OR $annee > ($a +
100)) return $annee;
1048 if ($annee != $a) return _T('date_fmt_jour_mois_annee', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
1049 return _T('date_fmt_jour_mois', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
1052 if ($avjc) return $annee;
1054 return _T('date_fmt_jour_mois_annee', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
1056 return trim(_T('date_fmt_mois_annee', array ('mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)));
1061 $param = ((isset($options['param']) AND $options['param']) ?
'_'.$options['param'] : '');
1062 if ($param and $mois) {
1063 return _T('date_mois_'.$mois.$param);
1068 return sprintf("%02s",$mois);
1077 if (!$mois OR !$njour)
1079 $nom = mktime(1,1,1,$mois,$njour,$annee);
1080 $nom = 1+
date('w',$nom);
1081 $param = ((isset($options['param']) AND $options['param']) ?
'_'.$options['param'] : '');
1082 return _T('date_jour_'.$nom.$param);
1085 if ($avjc) return $annee;
1086 return trim(_T('date_fmt_mois_annee', array('mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)));
1091 // Cas d'une vue non definie : retomber sur le format
1092 // de date propose par http://www.php.net/date
1094 return date($vue, strtotime($numdate));
1098 // http://doc.spip.org/@nom_jour
1099 function nom_jour($numdate, $forme = '') {
1100 if(!($forme == 'abbr' OR $forme == 'initiale')) $forme = '';
1101 return affdate_base($numdate, 'nom_jour', $forme);
1104 // http://doc.spip.org/@jour
1105 function jour($numdate) {
1106 return affdate_base($numdate, 'jour');
1109 // http://doc.spip.org/@journum
1110 function journum($numdate) {
1111 return affdate_base($numdate, 'journum');
1114 // http://doc.spip.org/@mois
1115 function mois($numdate) {
1116 return affdate_base($numdate, 'mois');
1119 // http://doc.spip.org/@nom_mois
1120 function nom_mois($numdate, $forme='') {
1121 if(!($forme == 'abbr')) $forme = '';
1122 return affdate_base($numdate, 'nom_mois', $forme);
1125 // http://doc.spip.org/@annee
1126 function annee($numdate) {
1127 return affdate_base($numdate, 'annee');
1130 // http://doc.spip.org/@saison
1131 function saison($numdate) {
1132 return affdate_base($numdate, 'saison');
1135 // http://doc.spip.org/@saison_annee
1136 function saison_annee($numdate) {
1137 return affdate_base($numdate, 'saison_annee');
1140 // http://doc.spip.org/@affdate
1141 function affdate($numdate, $format='entier') {
1142 return affdate_base($numdate, $format);
1145 // http://doc.spip.org/@affdate_court
1146 function affdate_court($numdate, $annee_courante=null) {
1147 return affdate_base($numdate, 'court', array('annee_courante'=>$annee_courante));
1150 // http://doc.spip.org/@affdate_jourcourt
1151 function affdate_jourcourt($numdate, $annee_courante=null) {
1152 return affdate_base($numdate, 'jourcourt', array('annee_courante'=>$annee_courante));
1155 // http://doc.spip.org/@affdate_mois_annee
1156 function affdate_mois_annee($numdate) {
1157 return affdate_base($numdate, 'mois_annee');
1160 // http://doc.spip.org/@affdate_heure
1161 function affdate_heure($numdate) {
1162 $date_array = recup_date($numdate);
1163 if (!$date_array) return;
1164 list($annee, $mois, $jour, $heures, $minutes, $sec)= $date_array;
1165 return _T('date_fmt_jour_heure', array('jour' => affdate($numdate), 'heure' => _T('date_fmt_heures_minutes', array('h'=> $heures, 'm'=> $minutes))));
1169 * Afficher de facon textuelle les dates de debut et fin en fonction des cas
1170 * - Lundi 20 fevrier a 18h
1171 * - Le 20 fevrier de 18h a 20h
1172 * - Du 20 au 23 fevrier
1173 * - Du 20 fevrier au 30 mars
1174 * - Du 20 fevrier 2007 au 30 mars 2008
1175 * $horaire='oui' ou true permet d'afficher l'horaire, toute autre valeur n'indique que le jour
1176 * $forme peut contenir une ou plusieurs valeurs parmi
1177 * - abbr (afficher le nom des jours en abrege)
1178 * - hcal (generer une date au format hcal)
1179 * - jour (forcer l'affichage des jours)
1180 * - annee (forcer l'affichage de l'annee)
1182 * @param string $date_debut
1183 * @param string $date_fin
1184 * @param string $horaire
1185 * @param string $forme
1186 * abbr pour afficher le nom du jour en abrege (Dim. au lieu de Dimanche)
1187 * annee pour forcer l'affichage de l'annee courante
1188 * jour pour forcer l'affichage du nom du jour
1189 * hcal pour avoir un markup microformat abbr
1192 function affdate_debut_fin($date_debut, $date_fin, $horaire = 'oui', $forme=''){
1194 $affdate = "affdate_jourcourt";
1195 if (strpos($forme,'abbr') !==false) $abbr = 'abbr';
1196 if (strpos($forme,'annee')!==false) $affdate = 'affdate';
1197 if (strpos($forme,'jour') !==false) $jour = 'jour';
1199 $dtstart = $dtend = $dtabbr = "";
1200 if (strpos($forme,'hcal')!==false) {
1201 $dtstart = "<abbr class='dtstart' title='".date_iso($date_debut)."'>";
1202 $dtend = "<abbr class='dtend' title='".date_iso($date_fin)."'>";
1203 $dtabbr = "</abbr>";
1206 $date_debut = strtotime($date_debut);
1207 $date_fin = strtotime($date_fin);
1208 $d = date("Y-m-d", $date_debut);
1209 $f = date("Y-m-d", $date_fin);
1210 $h = ($horaire==='oui' OR $horaire===true);
1211 $hd = _T('date_fmt_heures_minutes_court', array('h'=> date("H",$date_debut), 'm'=> date("i",$date_debut)));
1212 $hf = _T('date_fmt_heures_minutes_court', array('h'=> date("H",$date_fin), 'm'=> date("i",$date_fin)));
1216 $nomjour = nom_jour($d,$abbr);
1218 $s = _T('date_fmt_jour',array('nomjour'=>$nomjour,'jour' => $s));
1221 // Lundi 20 fevrier a 18h25
1222 $s = spip_ucfirst(_T('date_fmt_jour_heure',array('jour'=>$s,'heure'=>$hd)));
1223 $s = "$dtstart$s$dtabbr";
1225 // Le <abbr...>lundi 20 fevrier de 18h00</abbr> a <abbr...>20h00</abbr>
1226 if($dtabbr && $dtstart && $dtend)
1227 $s = _T('date_fmt_jour_heure_debut_fin_abbr',array('jour'=>spip_ucfirst($s),'heure_debut'=>$hd,'heure_fin'=>$hf,'dtstart'=>$dtstart,'dtend'=>$dtend,'dtabbr'=>$dtabbr));
1228 // Le lundi 20 fevrier de 18h00 a 20h00
1230 $s = spip_ucfirst(_T('date_fmt_jour_heure_debut_fin',array('jour'=>$s,'heure_debut'=>$hd,'heure_fin'=>$hf)));
1233 if($dtabbr && $dtstart)
1234 $s = $dtstart.spip_ucfirst($s).$dtabbr;
1236 $s = spip_ucfirst($s);
1239 else if ((date("Y-m",$date_debut))==date("Y-m",$date_fin))
1240 { // meme annee et mois, jours differents
1242 $date_debut = jour($d);
1244 $date_debut = affdate_jourcourt($d,date("Y",$date_fin));
1245 $date_fin = $affdate($f);
1247 $nomjour_debut = nom_jour($d,$abbr);
1248 $date_debut = _T('date_fmt_jour',array('nomjour'=>$nomjour_debut,'jour' => $date_debut));
1249 $nomjour_fin = nom_jour($f,$abbr);
1250 $date_fin = _T('date_fmt_jour',array('nomjour'=>$nomjour_fin,'jour' => $date_fin));
1253 $date_debut = _T('date_fmt_jour_heure',array('jour'=>$date_debut,'heure'=>$hd));
1254 $date_fin = _T('date_fmt_jour_heure',array('jour'=>$date_fin,'heure'=>$hf));
1256 $date_debut = $dtstart.$date_debut.$dtabbr;
1257 $date_fin = $dtend.$date_fin.$dtabbr;
1259 $s = _T('date_fmt_periode',array('date_debut' => $date_debut,'date_fin'=>$date_fin));
1262 $date_debut = affdate_jourcourt($d,date("Y",$date_fin));
1263 $date_fin = $affdate($f);
1265 $nomjour_debut = nom_jour($d,$abbr);
1266 $date_debut = _T('date_fmt_jour',array('nomjour'=>$nomjour_debut,'jour' => $date_debut));
1267 $nomjour_fin = nom_jour($f,$abbr);
1268 $date_fin = _T('date_fmt_jour',array('nomjour'=>$nomjour_fin,'jour' => $date_fin));
1271 $date_debut = _T('date_fmt_jour_heure',array('jour'=>$date_debut,'heure'=>$hd));
1272 $date_fin = _T('date_fmt_jour_heure',array('jour'=>$date_fin,'heure'=>$hf));
1275 $date_debut = $dtstart.$date_debut.$dtabbr;
1276 $date_fin=$dtend.$date_fin.$dtabbr;
1277 $s = _T('date_fmt_periode',array('date_debut' => $date_debut,'date_fin'=>$date_fin));
1284 * Alignements en HTML (Old-style, preferer CSS)
1285 * Cette fonction ne cree pas de paragraphe
1287 * http://doc.spip.org/@aligner
1290 * @param string $justif
1293 function aligner($letexte, $justif='') {
1294 $letexte = trim($letexte);
1295 if (!strlen($letexte)) return '';
1297 // Paragrapher rapidement
1298 $letexte = "<div style='text-align:$justif'>"
1304 // http://doc.spip.org/@justifier
1305 function justifier($letexte) { return aligner($letexte,'justify');}
1306 // http://doc.spip.org/@aligner_droite
1307 function aligner_droite($letexte) { return aligner($letexte,'right');}
1308 // http://doc.spip.org/@aligner_gauche
1309 function aligner_gauche($letexte) {return aligner($letexte,'left');}
1310 // http://doc.spip.org/@centrer
1311 function centrer($letexte) {return aligner($letexte,'center');}
1313 // http://doc.spip.org/@style_align
1314 function style_align($bof) {
1315 global $spip_lang_left;
1316 return "text-align: $spip_lang_left";
1323 // http://doc.spip.org/@filtrer_ical
1324 function filtrer_ical($texte) {
1325 #include_spip('inc/charsets');
1326 $texte = html2unicode($texte);
1327 $texte = unicode2charset(charset2unicode($texte, $GLOBALS['meta']['charset'], 1), 'utf-8');
1328 $texte = preg_replace("/\n/", " ", $texte);
1329 $texte = preg_replace("/,/", "\,", $texte);
1334 // http://doc.spip.org/@date_ical
1335 function date_ical($date, $addminutes = 0) {
1336 list($heures, $minutes, $secondes) = recup_heure($date);
1337 list($annee, $mois, $jour) = recup_date($date);
1339 return gmdate("Ymd\THis\Z", mktime($heures, $minutes +
$addminutes, $secondes, $mois, $jour, $annee));
1342 // date_iso retourne la date au format "RFC 3339" / "ISO 8601"
1343 // voir http://www.php.net/manual/fr/ref.datetime.php#datetime.constants
1344 // http://doc.spip.org/@date_iso
1345 function date_iso($date_heure) {
1346 list($annee, $mois, $jour) = recup_date($date_heure);
1347 list($heures, $minutes, $secondes) = recup_heure($date_heure);
1348 $time = @mktime
($heures, $minutes, $secondes, $mois, $jour, $annee);
1349 return gmdate('Y-m-d\TH:i:s\Z', $time);
1352 // date_822 retourne la date au format "RFC 822"
1353 // utilise pour <pubdate> dans certains feeds RSS
1354 // http://doc.spip.org/@date_822
1355 function date_822($date_heure) {
1356 list($annee, $mois, $jour) = recup_date($date_heure);
1357 list($heures, $minutes, $secondes) = recup_heure($date_heure);
1358 $time = mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
1359 return date('r', $time);
1362 // http://doc.spip.org/@date_anneemoisjour
1363 function date_anneemoisjour($d) {
1364 if (!$d) $d = date("Y-m-d");
1365 return substr($d, 0, 4) . substr($d, 5, 2) .substr($d, 8, 2);
1368 // http://doc.spip.org/@date_anneemois
1369 function date_anneemois($d) {
1370 if (!$d) $d = date("Y-m-d");
1371 return substr($d, 0, 4) . substr($d, 5, 2);
1374 // http://doc.spip.org/@date_debut_semaine
1375 function date_debut_semaine($annee, $mois, $jour) {
1376 $w_day = date("w", mktime(0,0,0,$mois, $jour, $annee));
1377 if ($w_day == 0) $w_day = 7; // Gaffe: le dimanche est zero
1378 $debut = $jour-$w_day+
1;
1379 return date("Ymd", mktime(0,0,0,$mois,$debut,$annee));
1382 // http://doc.spip.org/@date_fin_semaine
1383 function date_fin_semaine($annee, $mois, $jour) {
1384 $w_day = date("w", mktime(0,0,0,$mois, $jour, $annee));
1385 if ($w_day == 0) $w_day = 7; // Gaffe: le dimanche est zero
1386 $debut = $jour-$w_day+
1;
1387 return date("Ymd", mktime(0,0,0,$mois,$debut+
6,$annee));
1392 // Recuperation de donnees dans le champ extra
1393 // Ce filtre n'a de sens qu'avec la balise #EXTRA
1395 // http://doc.spip.org/@extra
1396 function extra($letexte, $champ) {
1397 $champs = unserialize($letexte);
1398 return $champs[$champ];
1401 // postautobr : transforme les sauts de ligne en _
1402 // http://doc.spip.org/@post_autobr
1403 function post_autobr($texte, $delim="\n_ ") {
1404 if (!function_exists('echappe_html'))
1405 include_spip('inc/texte_mini');
1406 $texte = str_replace("\r\n", "\r", $texte);
1407 $texte = str_replace("\r", "\n", $texte);
1409 if (preg_match(",\n+$,", $texte, $fin))
1410 $texte = substr($texte, 0, -strlen($fin = $fin[0]));
1414 $texte = echappe_html($texte, '', true);
1416 // echapper les modeles
1417 if (strpos($texte,"<")!==false){
1418 include_spip('inc/lien');
1419 if (defined('_PREG_MODELE')){
1420 $preg_modeles = "@"._PREG_MODELE
."@imsS";
1421 $texte = echappe_html($texte, '', true, $preg_modeles);
1427 while ($t = strpos('-'.$suite, "\n", 1)) {
1428 $debut .= substr($suite, 0, $t-1);
1429 $suite = substr($suite, $t);
1430 $car = substr($suite, 0, 1);
1431 if (($car<>'-') AND ($car<>'_') AND ($car<>"\n") AND ($car<>"|") AND ($car<>"}")
1432 AND !preg_match(',^\s*(\n|</?(quote|div|dl|dt|dd)|$),S',($suite))
1433 AND !preg_match(',</?(quote|div|dl|dt|dd)> *$,iS', $debut)) {
1437 if (preg_match(",^\n+,", $suite, $regs)) {
1439 $suite = substr($suite, strlen($regs[0]));
1442 $texte = $debut.$suite;
1444 $texte = echappe_retour($texte);
1449 define('_EXTRAIRE_MULTI', "@<multi>(.*?)</multi>@sS");
1451 // Extraire et transformer les blocs multi ; on indique la langue courante
1452 // pour ne pas mettre de span@lang=fr si on est deja en fr
1453 // http://doc.spip.org/@extraire_multi
1454 function extraire_multi($letexte, $lang=null, $echappe_span=false) {
1455 if (preg_match_all(_EXTRAIRE_MULTI
, $letexte, $regs, PREG_SET_ORDER
)) {
1456 if (!$lang) $lang = $GLOBALS['spip_lang'];
1458 foreach ($regs as $reg) {
1459 // chercher la version de la langue courante
1460 $trads = extraire_trads($reg[1]);
1461 if ($l = approcher_langue($trads, $lang)) {
1464 include_spip('inc/texte');
1465 // langue absente, prendre la premiere dispo
1466 // mais typographier le texte selon les regles de celle-ci
1467 // Attention aux blocs multi sur plusieurs lignes
1470 $typographie = charger_fonction(lang_typo($l), 'typographie');
1471 $trad = $typographie($trad);
1472 include_spip('inc/texte');
1473 // Tester si on echappe en span ou en div
1474 // il ne faut pas echapper en div si propre produit un seul paragraphe
1475 $trad_propre = preg_replace(",(^<p[^>]*>|</p>$),Uims","",propre($trad));
1476 $mode = preg_match(',</?('._BALISES_BLOCS
.')[>[:space:]],iS', $trad_propre) ?
'div' : 'span';
1477 $trad = code_echappement($trad, 'multi', false, $mode);
1478 $trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
1479 if (lang_dir($l) !== lang_dir($lang))
1480 $trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
1482 $trad = echappe_retour($trad, 'multi');
1484 $letexte = str_replace($reg[0], $trad, $letexte);
1491 // convertit le contenu d'une balise multi en un tableau
1492 // http://doc.spip.org/@extraire_trad
1493 function extraire_trads($bloc) {
1495 // ce reg fait planter l'analyse multi s'il y a de l'{italique} dans le champ
1496 // while (preg_match("/^(.*?)[{\[]([a-z_]+)[}\]]/siS", $bloc, $regs)) {
1497 while (preg_match("/^(.*?)[\[]([a-z_]+)[\]]/siS", $bloc, $regs)) {
1498 $texte = trim($regs[1]);
1499 if ($texte OR $lang)
1500 $trads[$lang] = $texte;
1501 $bloc = substr($bloc, strlen($regs[0]));
1504 $trads[$lang] = $bloc;
1509 // Calculer l'initiale d'un nom
1510 function initiale($nom){
1511 return spip_substr(trim(strtoupper(extraire_multi($nom))),0,1);
1515 // Ce filtre retourne la donnee si c'est la premiere fois qu'il la voit ;
1516 // possibilite de gerer differentes "familles" de donnees |unique{famille}
1517 # |unique{famille,1} affiche le nombre d'elements affiches (preferer toutefois #TOTAL_UNIQUE)
1518 # ameliorations possibles :
1519 # 1) si la donnee est grosse, mettre son md5 comme cle
1520 # 2) purger $mem quand on change de squelette (sinon bug inclusions)
1522 // http://www.spip.net/@unique
1523 // http://doc.spip.org/@unique
1524 function unique($donnee, $famille='', $cpt = false) {
1525 static $mem = array();
1526 // permettre de vider la pile et de la restaurer
1527 // pour le calcul de introduction...
1528 if ($famille=='_spip_raz_'){
1532 } elseif ($famille=='_spip_set_'){
1536 // eviter une notice
1537 if (!isset($mem[$famille])) {
1538 $mem[$famille] = array();
1541 return count($mem[$famille]);
1543 // eviter une notice
1544 if (!isset($mem[$famille][$donnee])) {
1545 $mem[$famille][$donnee] = 0;
1547 if (!($mem[$famille][$donnee]++
)) {
1555 // Exemple [(#COMPTEUR_BOUCLE|alterner{'bleu','vert','rouge'})]
1557 // http://doc.spip.org/@alterner
1558 function alterner($i) {
1559 // recuperer les arguments (attention fonctions un peu space)
1560 $num = func_num_args();
1561 $args = func_get_args();
1563 if($num == 2 && is_array($args[1])) {
1565 array_unshift($args,'');
1566 $num = count($args);
1569 // renvoyer le i-ieme argument, modulo le nombre d'arguments
1570 return $args[(intval($i)-1)%
($num-1)+
1];
1573 // recuperer un attribut d'une balise html
1574 // ($complet demande de retourner $r)
1575 // la regexp est mortelle : cf. tests/filtres/extraire_attribut.php
1576 // Si on a passe un tableau de balises, renvoyer un tableau de resultats
1577 // (dans ce cas l'option $complet n'est pas disponible)
1578 // http://doc.spip.org/@extraire_attribut
1579 function extraire_attribut($balise, $attribut, $complet = false) {
1580 if (is_array($balise)) {
1582 create_function('&$a,$key,$t',
1583 '$a = extraire_attribut($a,$t);'
1589 ',(^.*?<(?:(?>\s*)(?>[\w:.-]+)(?>(?:=(?:"[^"]*"|\'[^\']*\'|[^\'"]\S*))?))*?)(\s+'
1591 .'(?:=\s*("[^"]*"|\'[^\']*\'|[^\'"]\S*))?)()([^>]*>.*),isS',
1594 if ($r[3][0] == '"' ||
$r[3][0] == "'") {
1595 $r[4] = substr($r[3], 1, -1);
1597 } elseif ($r[3]!=='') {
1601 $r[4] = trim($r[2]);
1604 if (strpos($att,"&#")!==false)
1605 $att = str_replace(array("'","'",""","""), array("'","'",'"','"'), $att);
1606 $att = filtrer_entites($att);
1612 return array($att, $r);
1618 * modifier (ou inserer) un attribut html dans une balise
1620 * http://doc.spip.org/@inserer_attribut
1622 * @param string $balise
1623 * @param string $attribut
1624 * @param string $val
1625 * @param bool $proteger
1626 * @param bool $vider
1629 function inserer_attribut($balise, $attribut, $val, $proteger=true, $vider=false) {
1630 // preparer l'attribut
1631 // supprimer les etc mais pas les balises html
1632 // qui ont un sens dans un attribut value d'un input
1633 if ($proteger) $val = attribut_html($val,false);
1635 // echapper les ' pour eviter tout bug
1636 $val = str_replace("'", "'", $val);
1637 if ($vider AND strlen($val)==0)
1640 $insert = " $attribut='$val'";
1642 list($old, $r) = extraire_attribut($balise, $attribut, true);
1644 if ($old !== NULL) {
1645 // Remplacer l'ancien attribut du meme nom
1646 $balise = $r[1].$insert.$r[5];
1649 // preferer une balise " />" (comme <img />)
1650 if (preg_match(',/>,', $balise))
1651 $balise = preg_replace(",\s?/>,S", $insert." />", $balise, 1);
1652 // sinon une balise <a ...> ... </a>
1654 $balise = preg_replace(",\s?>,S", $insert.">", $balise, 1);
1660 // http://doc.spip.org/@vider_attribut
1661 function vider_attribut ($balise, $attribut) {
1662 return inserer_attribut($balise, $attribut, '', false, true);
1667 * Un filtre pour determiner le nom du satut des inscrits
1669 * @param void|int $id
1670 * @param string $mode
1673 function tester_config($id, $mode='') {
1674 include_spip('action/inscrire_auteur');
1675 return tester_statut_inscription($mode, $id);
1679 // Quelques fonctions de calcul arithmetique
1681 // http://doc.spip.org/@plus
1682 function plus($a,$b) {
1685 // http://doc.spip.org/@moins
1686 function moins($a,$b) {
1689 // http://doc.spip.org/@mult
1690 function mult($a,$b) {
1693 // http://doc.spip.org/@div
1694 function div($a,$b) {
1697 // http://doc.spip.org/@modulo
1698 function modulo($nb, $mod, $add=0) {
1699 return ($mod?
$nb%
$mod:0)+
$add;
1704 * Vérifie qu'un nom (d'auteur) ne comporte pas d'autres tags que <multi>
1705 * et ceux volontairement spécifiés dans la constante
1707 * @param string $nom
1708 * Nom (signature) proposé
1710 * - false si pas conforme,
1713 function nom_acceptable($nom) {
1714 if (!is_string($nom)) {
1717 if (!defined('_TAGS_NOM_AUTEUR')) define('_TAGS_NOM_AUTEUR','');
1718 $tags_acceptes = array_unique(explode(',', 'multi,' . _TAGS_NOM_AUTEUR
));
1719 foreach($tags_acceptes as $tag) {
1721 $remp1[] = '<'.trim($tag).'>';
1722 $remp1[] = '</'.trim($tag).'>';
1723 $remp2[] = '\x60'.trim($tag).'\x61';
1724 $remp2[] = '\x60/'.trim($tag).'\x61';
1727 $v_nom = str_replace($remp2, $remp1, supprimer_tags(str_replace($remp1, $remp2, $nom)));
1728 return str_replace('<', '<', $v_nom) == $nom;
1731 // Verifier la conformite d'une ou plusieurs adresses email
1732 // retourne false ou la normalisation de la derniere adresse donnee
1733 // http://doc.spip.org/@email_valide
1734 function email_valide($adresses) {
1735 // eviter d'injecter n'importe quoi dans preg_match
1736 if (!is_string($adresses))
1739 // Si c'est un spammeur autant arreter tout de suite
1740 if (preg_match(",[\n\r].*(MIME|multipart|Content-),i", $adresses)) {
1741 spip_log("Tentative d'injection de mail : $adresses");
1745 foreach (explode(',', $adresses) as $v) {
1746 // nettoyer certains formats
1747 // "Marie Toto <Marie@toto.com>"
1748 $adresse = trim(preg_replace(",^[^<>\"]*<([^<>\"]+)>$,i", "\\1", $v));
1750 if (!preg_match('#^[^()<>@,;:\\"/[:space:]]+(@([-_0-9a-z]+\.)*[-_0-9a-z]+)$#i', $adresse))
1756 // http://doc.spip.org/@afficher_enclosures
1757 function afficher_enclosures($tags) {
1759 foreach (extraire_balises($tags, 'a') as $tag) {
1760 if (extraire_attribut($tag, 'rel') == 'enclosure'
1761 AND $t = extraire_attribut($tag, 'href')) {
1762 $s[] = preg_replace(',>[^<]+</a>,S',
1764 .http_img_pack('attachment-16.png', $t,
1765 'title="'.attribut_html($t).'"')
1769 return join(' ', $s);
1771 // http://doc.spip.org/@afficher_tags
1772 function afficher_tags($tags, $rels='tag,directory') {
1774 foreach (extraire_balises($tags, 'a') as $tag) {
1775 $rel = extraire_attribut($tag, 'rel');
1776 if (strstr(",$rels,", ",$rel,"))
1779 return join(', ', $s);
1782 // Passe un <enclosure url="fichier" length="5588242" type="audio/mpeg"/>
1783 // au format microformat <a rel="enclosure" href="fichier" ...>fichier</a>
1784 // attention length="zz" devient title="zz", pour rester conforme
1785 // http://doc.spip.org/@enclosure2microformat
1786 function enclosure2microformat($e) {
1787 if (!$url = filtrer_entites(extraire_attribut($e, 'url')))
1788 $url = filtrer_entites(extraire_attribut($e, 'href'));
1789 $type = extraire_attribut($e, 'type');
1790 if (!$length = extraire_attribut($e, 'length')) {
1791 # <media:content : longeur dans fileSize. On tente.
1792 $length = extraire_attribut($e, 'fileSize');
1794 $fichier = basename($url);
1795 return '<a rel="enclosure"'
1796 . ($url?
' href="'.spip_htmlspecialchars($url).'"' : '')
1797 . ($type?
' type="'.spip_htmlspecialchars($type).'"' : '')
1798 . ($length?
' title="'.spip_htmlspecialchars($length).'"' : '')
1799 . '>'.$fichier.'</a>';
1801 // La fonction inverse
1802 // http://doc.spip.org/@microformat2enclosure
1803 function microformat2enclosure($tags) {
1804 $enclosures = array();
1805 foreach (extraire_balises($tags, 'a') as $e)
1806 if (extraire_attribut($e, 'rel') == 'enclosure') {
1807 $url = filtrer_entites(extraire_attribut($e, 'href'));
1808 $type = extraire_attribut($e, 'type');
1809 if (!$length = intval(extraire_attribut($e, 'title')))
1810 $length = intval(extraire_attribut($e, 'length')); # vieux data
1811 $fichier = basename($url);
1812 $enclosures[] = '<enclosure'
1813 . ($url?
' url="'.spip_htmlspecialchars($url).'"' : '')
1814 . ($type?
' type="'.spip_htmlspecialchars($type).'"' : '')
1815 . ($length?
' length="'.$length.'"' : '')
1818 return join("\n", $enclosures);
1820 // Creer les elements ATOM <dc:subject> a partir des tags
1821 // http://doc.spip.org/@tags2dcsubject
1822 function tags2dcsubject($tags) {
1824 foreach (extraire_balises($tags, 'a') as $e) {
1825 if (extraire_attribut($e, rel
) == 'tag') {
1826 $subjects .= '<dc:subject>'
1827 . texte_backend(textebrut($e))
1828 . '</dc:subject>'."\n";
1834 // retourne la premiere balise du type demande
1835 // ex: [(#DESCRIPTIF|extraire_balise{img})]
1836 // Si on a passe un tableau de textes, renvoyer un tableau de resultats
1837 // http://doc.spip.org/@extraire_balise
1838 function extraire_balise($texte, $tag='a') {
1839 if (is_array($texte)) {
1841 create_function('&$a,$key,$t', '$a = extraire_balise($a,$t);'),
1847 ",<$tag\b[^>]*(/>|>.*</$tag\b[^>]*>|>),UimsS",
1852 // extraire toutes les balises du type demande, sous forme de tableau
1853 // Si on a passe un tableau de textes, renvoyer un tableau de resultats
1854 // http://doc.spip.org/@extraire_balises
1855 function extraire_balises($texte, $tag='a') {
1856 if (is_array($texte)) {
1858 create_function('&$a,$key,$t', '$a = extraire_balises($a,$t);'),
1864 ",<${tag}\b[^>]*(/>|>.*</${tag}\b[^>]*>|>),UimsS",
1865 $texte, $regs, PREG_PATTERN_ORDER
))
1871 // comme in_array mais renvoie son 3e arg si le 2er arg n'est pas un tableau
1872 // prend ' ' comme representant de vrai et '' de faux
1874 // http://doc.spip.org/@in_any
1875 function in_any($val, $vals, $def='') {
1876 if (!is_array($vals) AND $v=unserialize($vals)) $vals = $v;
1877 return (!is_array($vals) ?
$def : (in_array($val, $vals) ?
' ' : ''));
1880 // valeur_numerique("3*2") => 6
1881 // n'accepte que les *, + et - (a ameliorer si on l'utilise vraiment)
1882 // http://doc.spip.org/@valeur_numerique
1883 function valeur_numerique($expr) {
1885 if (preg_match(',^[0-9]+(\s*[+*-]\s*[0-9]+)*$,S', trim($expr)))
1886 eval("\$a = $expr;");
1890 // http://doc.spip.org/@regledetrois
1891 function regledetrois($a,$b,$c)
1893 return round($a*$b/$c);
1896 // Fournit la suite de Input-Hidden correspondant aux parametres de
1897 // l'URL donnee en argument, compatible avec les types_urls depuis [14447].
1898 // cf. tests/filtres/form_hidden.html
1899 // http://doc.spip.org/@form_hidden
1900 function form_hidden($action) {
1902 $contexte = array();
1903 include_spip('inc/urls');
1904 if ($p = urls_decoder_url($action, '')
1906 $fond = array_shift($p);
1908 $contexte = array_shift($p);
1909 $contexte['page'] = $fond;
1910 $action = preg_replace('/([?]'.preg_quote($fond).'[^&=]*[0-9]+)(&|$)/', '?&', $action);
1913 // defaire ce qu'a injecte urls_decoder_url : a revoir en modifiant la signature de urls_decoder_url
1914 if (defined('_DEFINIR_CONTEXTE_TYPE') AND _DEFINIR_CONTEXTE_TYPE
)
1915 unset($contexte['type']);
1916 if (defined('_DEFINIR_CONTEXTE_TYPE_PAGE') AND _DEFINIR_CONTEXTE_TYPE_PAGE
)
1917 unset($contexte['type-page']);
1919 // on va remplir un tableau de valeurs en prenant bien soin de ne pas
1920 // ecraser les elements de la forme mots[]=1&mots[]=2
1923 // d'abord avec celles de l'url
1924 if (false !== ($p = strpos($action, '?'))) {
1925 foreach(preg_split('/&(amp;)?/S',substr($action,$p+
1)) as $c){
1926 list($var,$val) = explode('=', $c, 2);
1928 $val = rawurldecode($val);
1929 $var = rawurldecode($var); // decoder les [] eventuels
1930 if (preg_match(',\[\]$,S', $var))
1931 $values[] = array($var, $val);
1932 else if (!isset($values[$var]))
1933 $values[$var] = array($var, $val);
1938 // ensuite avec celles du contexte, sans doublonner !
1939 foreach($contexte as $var=>$val)
1940 if (preg_match(',\[\]$,S', $var))
1941 $values[] = array($var, $val);
1942 else if (!isset($values[$var]))
1943 $values[$var] = array($var, $val);
1945 // puis on rassemble le tout
1947 foreach($values as $value) {
1948 list($var,$val) = $value;
1949 $hidden[] = '<input name="'
1950 . entites_html($var)
1954 : ' value="'.entites_html($val).'"'
1956 . ' type="hidden"'."\n/>";
1958 return join("", $hidden);
1961 // http://doc.spip.org/@filtre_bornes_pagination_dist
1962 function filtre_bornes_pagination_dist($courante, $nombre, $max = 10) {
1963 if($max<=0 OR $max>=$nombre)
1964 return array(1, $nombre);
1966 $premiere = max(1, $courante-floor(($max-1)/2));
1967 $derniere = min($nombre, $premiere+
$max-2);
1968 $premiere = $derniere == $nombre ?
$derniere-$max+
1 : $premiere;
1969 return array($premiere, $derniere);
1973 // Ces trois fonctions permettent de simuler les filtres |reset et |end
1974 // pour extraire la premiere ou la derniere valeur d'un tableau ; utile
1975 // pour la pagination (mais peut-etre a refaire plus simplement)
1976 // http://doc.spip.org/@filtre_valeur_tableau
1977 function filtre_valeur_tableau($array, $index) {
1978 if (!is_array($array)
1979 OR !isset($array[$index]))
1981 return $array[$index];
1983 // http://doc.spip.org/@filtre_reset
1984 function filtre_reset($array) {
1985 return !is_array($array) ?
null : reset($array);
1987 // http://doc.spip.org/@filtre_end
1988 function filtre_end($array) {
1989 return !is_array($array) ?
null : end($array);
1992 // http://doc.spip.org/@filtre_push
1993 function filtre_push($array, $val) {
1994 if($array == '' OR !array_push($array, $val)) return '';
1998 // http://doc.spip.org/@filtre_find
1999 function filtre_find($array, $val) {
2000 return (is_array($array) AND in_array($val, $array));
2005 // fonction standard de calcul de la balise #PAGINATION
2006 // on peut la surcharger en definissant filtre_pagination dans mes_fonctions
2009 // http://doc.spip.org/@filtre_pagination_dist
2010 function filtre_pagination_dist($total, $nom, $position, $pas, $liste = true, $modele='', $connect='', $env=array()) {
2011 static $ancres = array();
2012 if ($pas<1) return '';
2013 $ancre = 'pagination'.$nom; // #pagination_articles
2014 $debut = 'debut'.$nom; // 'debut_articles'
2016 // n'afficher l'ancre qu'une fois
2017 if (!isset($ancres[$ancre]))
2018 $bloc_ancre = $ancres[$ancre] = "<a name='".$ancre."' id='".$ancre."'></a>";
2019 else $bloc_ancre = '';
2020 // liste = false : on ne veut que l'ancre
2022 return $ancres[$ancre];
2024 $pagination = array(
2026 'url' => parametre_url(self(),'fragment',''), // nettoyer l'id ahah eventuel
2028 'position' => intval($position),
2030 'nombre_pages' => floor(($total-1)/$pas)+
1,
2031 'page_courante' => floor(intval($position)/$pas)+
1,
2033 'bloc_ancre' => $bloc_ancre
2036 $pagination = array_merge($env,$pagination);
2038 // Pas de pagination
2039 if ($pagination['nombre_pages']<=1)
2042 if ($modele) $modele = '_'.$modele;
2044 return recuperer_fond("modeles/pagination$modele", $pagination, array('trim'=>true), $connect);
2047 // passer les url relatives a la css d'origine en url absolues
2048 // http://doc.spip.org/@urls_absolues_css
2049 function urls_absolues_css($contenu, $source) {
2050 $path = suivre_lien(url_absolue($source),'./');
2052 return preg_replace_callback(
2053 ",url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims",
2054 create_function('$x',
2055 'return "url(\"".suivre_lien("'.$path.'",$x[1])."\")";'
2059 // recuperere le chemin d'une css existante et :
2060 // 1. regarde si une css inversee droite-gauche existe dans le meme repertoire
2061 // 2. sinon la cree (ou la recree) dans _DIR_VAR/cache_css/
2062 // SI on lui donne a manger une feuille nommee _rtl.css il va faire l'inverse
2063 // http://doc.spip.org/@direction_css
2064 function direction_css ($css, $voulue='') {
2065 if (!preg_match(',(_rtl)?\.css$,i', $css, $r)) return $css;
2067 // si on a precise le sens voulu en argument, le prendre en compte
2068 if ($voulue = strtolower($voulue)) {
2069 if ($voulue != 'rtl' AND $voulue != 'ltr')
2070 $voulue = lang_dir($voulue);
2073 $voulue = lang_dir();
2076 $right = $r ?
'left' : 'right'; // 'right' de la css lue en entree
2077 $dir = $r ?
'rtl' : 'ltr';
2078 $ndir = $r ?
'ltr' : 'rtl';
2080 if ($voulue == $dir)
2085 preg_match(",^http:,i",$css)
2086 // ou qui contient un ?
2087 OR (($p=strpos($css,'?'))!==FALSE)) {
2089 $cssf = parse_url($css);
2090 $cssf = $cssf['path'].($cssf['query']?
"?".$cssf['query']:"");
2091 $cssf = preg_replace(',[?:&=],', "_", $cssf);
2096 // 1. regarder d'abord si un fichier avec la bonne direction n'est pas aussi
2097 //propose (rien a faire dans ce cas)
2098 $f = preg_replace(',(_rtl)?\.css$,i', '_'.$ndir.'.css', $css);
2099 if (@file_exists
($f))
2104 $dir_var = sous_repertoire (_DIR_VAR
, 'cache-css');
2106 . preg_replace(',.*/(.*?)(_rtl)?\.css,', '\1', $cssf)
2107 . '.' . substr(md5($cssf), 0,4) . '_' . $ndir . '.css';
2109 // la css peut etre distante (url absolue !)
2111 include_spip('inc/distant');
2112 $contenu = recuperer_page($css);
2113 if (!$contenu) return $css;
2116 if ((@filemtime
($f) > @filemtime
($css))
2117 AND (_VAR_MODE
!= 'recalcul'))
2119 if (!lire_fichier($css, $contenu))
2123 $contenu = str_replace(
2124 array('right', 'left', '@@@@L E F T@@@@'),
2125 array('@@@@L E F T@@@@', 'right', 'left'),
2128 // reperer les @import auxquels il faut propager le direction_css
2129 preg_match_all(",\@import\s*url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims",$contenu,$regs);
2130 $src = array();$src_direction_css = array();$src_faux_abs=array();
2132 foreach($regs[1] as $k=>$import_css){
2133 $css_direction = direction_css("$d/$import_css",$voulue);
2134 // si la css_direction est dans le meme path que la css d'origine, on tronque le path, elle sera passee en absolue
2135 if (substr($css_direction,0,strlen($d)+
1)=="$d/") $css_direction = substr($css_direction,strlen($d)+
1);
2136 // si la css_direction commence par $dir_var on la fait passer pour une absolue
2137 elseif (substr($css_direction,0,strlen($dir_var))==$dir_var) {
2138 $css_direction = substr($css_direction,strlen($dir_var));
2139 $src_faux_abs["/@@@@@@/".$css_direction] = $css_direction;
2140 $css_direction = "/@@@@@@/".$css_direction;
2142 $src[] = $regs[0][$k];
2143 $src_direction_css[] = str_replace($import_css,$css_direction,$regs[0][$k]);
2145 $contenu = str_replace($src,$src_direction_css,$contenu);
2147 $contenu = urls_absolues_css($contenu, $css);
2149 // virer les fausses url absolues que l'on a mis dans les import
2150 if (count($src_faux_abs))
2151 $contenu = str_replace(array_keys($src_faux_abs),$src_faux_abs,$contenu);
2153 if (!ecrire_fichier($f, $contenu))
2159 // recuperere le chemin d'une css existante et :
2160 // cree (ou recree) dans _DIR_VAR/cache_css/ une css dont les url relatives sont passees en url absolues
2161 // http://doc.spip.org/@url_absolue_css
2162 function url_absolue_css ($css) {
2163 if (!preg_match(',\.css$,i', $css, $r)) return $css;
2165 $url_absolue_css = url_absolue($css);
2167 $f = basename($css,'.css');
2168 $f = sous_repertoire (_DIR_VAR
, 'cache-css')
2169 . preg_replace(",(.*?)(_rtl|_ltr)?$,","\\1-urlabs-" . substr(md5("$css-urlabs"), 0,4) . "\\2",$f)
2172 if ((@filemtime
($f) > @filemtime
($css))
2173 AND (_VAR_MODE
!= 'recalcul'))
2176 if ($url_absolue_css==$css){
2177 if (strncmp($GLOBALS['meta']['adresse_site'],$css,$l=strlen($GLOBALS['meta']['adresse_site']))!=0
2178 OR !lire_fichier(_DIR_RACINE
. substr($css,$l), $contenu)){
2179 include_spip('inc/distant');
2180 if (!$contenu = recuperer_page($css))
2184 elseif (!lire_fichier($css, $contenu))
2187 // passer les url relatives a la css d'origine en url absolues
2188 $contenu = urls_absolues_css($contenu, $css);
2191 if (!ecrire_fichier($f, $contenu))
2200 * Le filtre table_valeur
2201 * permet de recuperer la valeur d'une cle donnee
2202 * dans un tableau (ou un objet).
2204 * @param mixed $table
2206 * (ou chaine serialisee de tableau, ce qui permet d'enchainer le filtre)
2208 * @param string $cle
2209 * Cle du tableau (ou parametre public de l'objet)
2210 * Cette cle peut contenir des caracteres / pour selectionner
2211 * des sous elements dans le tableau, tel que "sous/element/ici"
2212 * pour obtenir la valeur de $tableau['sous']['element']['ici']
2214 * @param mixed $defaut
2215 * Valeur par defaut retournee si la cle demandee n'existe pas
2217 * @param bool $conserver_null
2218 * Permet de forcer la fonction à renvoyer la valeur null d'un index
2219 * et non pas $defaut comme cela est fait naturellement par la fonction
2220 * isset. On utilise alors array_key_exists() à la place de isset().
2222 * @return mixed Valeur trouvee ou valeur par defaut.
2224 function table_valeur($table, $cle, $defaut = '', $conserver_null = false) {
2225 foreach (explode('/', $cle) as $k) {
2227 $table = is_string($table) ? @unserialize
($table) : $table;
2229 if (is_object($table)) {
2230 $table = (($k !== "") and isset($table->$k)) ?
$table->$k : $defaut;
2231 } elseif (is_array($table)) {
2232 if ($conserver_null) {
2233 $table = array_key_exists($k, $table) ?
$table[$k] : $defaut;
2235 $table = isset($table[$k]) ?
$table[$k] : $defaut;
2245 // filtre match pour faire des tests avec expression reguliere
2246 // [(#TEXTE|match{^ceci$,Uims})]
2247 // retourne le fragment de chaine qui "matche"
2248 // il est possible de passer en 3eme argument optionnel le numero de parenthese capturante
2249 // accepte egalement la syntaxe #TRUC|match{truc(...)$,1} ou le modificateur n'est pas passe en second argument
2250 // http://doc.spip.org/@match
2251 function match($texte, $expression, $modif="UimsS",$capte=0) {
2252 if (intval($modif) AND $capte==0){
2256 $expression=str_replace("\/","/",$expression);
2257 $expression=str_replace("/","\/",$expression);
2259 if (preg_match('/' . $expression . '/' . $modif,$texte, $r)) {
2260 if (isset($r[$capte]))
2268 // filtre replace pour faire des operations avec expression reguliere
2269 // [(#TEXTE|replace{^ceci$,cela,UimsS})]
2270 // http://doc.spip.org/@replace
2271 function replace($texte, $expression, $replace='', $modif="UimsS") {
2272 $expression=str_replace("\/","/", $expression);
2273 $expression=str_replace("/","\/",$expression);
2274 return preg_replace('/' . $expression . '/' . $modif, $replace, $texte);
2278 // cherche les documents numerotes dans un texte traite par propre()
2279 // et affecte les doublons['documents']
2280 // http://doc.spip.org/@traiter_doublons_documents
2281 // http://doc.spip.org/@traiter_doublons_documents
2282 function traiter_doublons_documents(&$doublons, $letexte) {
2284 // Verifier dans le texte & les notes (pas beau, helas)
2285 $t = $letexte.$GLOBALS['les_notes'];
2287 if (strstr($t, 'spip_document_') // evite le preg_match_all si inutile
2289 ',<[^>]+\sclass=["\']spip_document_([0-9]+)[\s"\'],imsS',
2290 $t, $matches, PREG_PATTERN_ORDER
))
2291 $doublons['documents'] .= "," . join(',', $matches[1]);
2296 // filtre vide qui ne renvoie rien
2297 // http://doc.spip.org/@vide
2298 function vide($texte){
2303 // Filtres pour le modele/emb (embed document)
2306 // A partir d'un #ENV, retourne des <param ...>
2307 // http://doc.spip.org/@env_to_params
2308 function env_to_params ($texte, $ignore_params=array()) {
2309 $ignore_params = array_merge (
2310 array('id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'),
2312 $tableau = unserialize($texte);
2314 foreach ($tableau as $i => $j)
2315 if (is_string($j) AND !in_array($i,$ignore_params))
2316 $texte .= "<param name='".$i."'\n\tvalue='".$j."' />";
2319 // A partir d'un #ENV, retourne des attributs
2320 // http://doc.spip.org/@env_to_attributs
2321 function env_to_attributs ($texte, $ignore_params=array()) {
2322 $ignore_params = array_merge (
2323 array('id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'),
2325 $tableau = unserialize($texte);
2327 foreach ($tableau as $i => $j)
2328 if (is_string($j) AND !in_array($i,$ignore_params))
2329 $texte .= $i."='".$j."' ";
2333 // Concatener des chaines
2334 // #TEXTE|concat{texte1,texte2,...}
2335 // http://doc.spip.org/@concat
2337 $args = func_get_args();
2338 return join('', $args);
2342 // http://doc.spip.org/@charge_scripts
2343 // http://doc.spip.org/@charge_scripts
2344 function charge_scripts($files, $script = true) {
2346 foreach(is_array($files)?
$files:explode("|",$files) as $file) {
2347 if (!is_string($file)) continue;
2349 $file = preg_match(",^\w+$,",$file) ?
"javascript/$file.js" : '';
2350 if ($file) $path = find_in_path($file);
2351 if ($path) $flux .= spip_file_get_contents($path);
2359 * produit une balise img avec un champ alt d'office si vide
2360 * attention le htmlentities et la traduction doivent etre appliques avant.
2362 * http://doc.spip.org/@http_img_pack
2366 * @param string $atts
2367 * @param string $title
2368 * @param array $options
2369 * chemin_image : utiliser chemin_image sur $img fourni, ou non (oui par dafaut)
2370 * utiliser_suffixe_size : utiliser ou non le suffixe de taille dans le nom de fichier de l'image
2371 * sous forme -xx.png (pour les icones essentiellement) (oui par defaut)
2374 function http_img_pack($img, $alt, $atts='', $title='', $options = array()) {
2375 if (!isset($options['chemin_image']) OR $options['chemin_image']==true)
2376 $img = chemin_image($img);
2377 if (stripos($atts, 'width')===false){
2378 // utiliser directement l'info de taille presente dans le nom
2379 if ((!isset($options['utiliser_suffixe_size']) OR $options['utiliser_suffixe_size']==true)
2380 AND preg_match(',-([0-9]+)[.](png|gif)$,',$img,$regs)){
2381 $largeur = $hauteur = intval($regs[1]);
2384 $taille = taille_image($img);
2385 list($hauteur,$largeur) = $taille;
2386 if (!$hauteur OR !$largeur)
2389 $atts.=" width='".$largeur."' height='".$hauteur."'";
2391 return "<img src='$img' alt='" . attribut_html($alt ?
$alt : $title) . "'"
2392 . ($title ?
' title="'.attribut_html($title).'"' : '')
2398 * generer une directive style='background:url()' a partir d'un fichier image
2400 * http://doc.spip.org/@http_style_background
2402 * @param string $img
2403 * @param string $att
2406 function http_style_background($img, $att=''){
2407 return " style='background".($att?
"":"-image").": url(\"".chemin_image($img)."\")" . ($att ?
(' ' . $att) : '') . ";'";
2411 * une fonction pour generer une balise img a partir d'un nom de fichier
2413 * @param string $img
2414 * @param string $alt
2415 * @param string $class
2418 function filtre_balise_img_dist($img,$alt="",$class=""){
2419 return http_img_pack($img, $alt, $class?
" class='".attribut_html($class)."'":'', '', array('chemin_image'=>false,'utiliser_suffixe_size'=>false));
2423 //[(#ENV*|unserialize|foreach)]
2424 // http://doc.spip.org/@filtre_foreach_dist
2425 function filtre_foreach_dist($balise_deserializee, $modele = 'foreach') {
2427 if(is_array($balise_deserializee))
2428 foreach($balise_deserializee as $k => $v) {
2429 $res = recuperer_fond('modeles/'.$modele,
2430 array_merge(array('cle' => $k), (is_array($v) ?
$v : array('valeur' => $v)))
2437 // renvoie la liste des plugins actifs du site
2438 // si le premier parametre est un prefix de cette liste, renvoie vrai, faux sinon
2439 // la valeur du second parametre si celui-ci renvoie a une information connue
2440 // cf liste_plugin_actifs() pour connaitre les informations affichables
2441 // appelee par la balise #PLUGIN
2442 // http://doc.spip.org/@filtre_info_plugin_dist
2443 function filtre_info_plugin_dist($plugin, $type_info) {
2444 include_spip('inc/plugin');
2445 $plugin = strtoupper($plugin);
2446 $plugins_actifs = liste_plugin_actifs();
2449 return serialize(array_keys($plugins_actifs));
2450 elseif (empty($plugins_actifs[$plugin]))
2452 elseif ($type_info == 'est_actif')
2453 return $plugins_actifs[$plugin] ?
1 : 0;
2454 elseif (isset($plugins_actifs[$plugin][$type_info]))
2455 return $plugins_actifs[$plugin][$type_info];
2457 $get_infos = charger_fonction('get_infos','plugins');
2458 // On prend en compte les extensions
2459 if (!is_dir($plugins_actifs[$plugin]['dir_type']))
2460 $dir_plugins = constant($plugins_actifs[$plugin]['dir_type']);
2462 $dir_plugins = $plugins_actifs[$plugin]['dir_type'];
2463 if (!$infos = $get_infos($plugins_actifs[$plugin]['dir'], false, $dir_plugins))
2465 if ($type_info == 'tout')
2468 return strval($infos[$type_info]);
2473 // http://doc.spip.org/@puce_changement_statut
2474 function puce_changement_statut($id_objet, $statut, $id_rubrique, $type, $ajax=false){
2475 $puce_statut = charger_fonction('puce_statut','inc');
2476 return $puce_statut($id_objet, $statut, $id_rubrique, $type, $ajax);
2480 * [(#STATUT|puce_statut{article})] affiche une puce passive
2481 * [(#STATUT|puce_statut{article,#ID_ARTICLE,#ID_RUBRIQUE})] affiche une puce avec changement rapide
2483 * utilisable sur tout objet qui a declare
2484 * @param string $statut
2485 * @param string $objet
2486 * @param int $id_objet
2487 * @param int $id_parent
2490 function filtre_puce_statut_dist($statut,$objet,$id_objet=0,$id_parent=0){
2491 static $puce_statut = null;
2493 $puce_statut = charger_fonction('puce_statut','inc');
2494 return $puce_statut($id_objet, $statut, $id_parent, $objet, false, objet_info($objet,'editable')?_ACTIVER_PUCE_RAPIDE
:false);
2499 * Encoder un contexte pour l'ajax, le signer avec une cle, le crypter
2500 * avec le secret du site, le gziper si possible...
2501 * l'entree peut etre serialisee (le #ENV** des fonds ajax et ajax_stat)
2503 * http://doc.spip.org/@encoder_contexte_ajax
2505 * @param string|array $c
2506 * contexte, peut etre un tableau serialize
2507 * @param string $form
2508 * nom du formulaire eventuel
2509 * @param string $emboite
2510 * contenu a emboiter dans le conteneur ajax
2511 * @param string $ajaxid
2512 * ajaxid pour cibler le bloc et forcer sa mise a jour
2515 function encoder_contexte_ajax($c,$form='', $emboite=NULL, $ajaxid='') {
2517 AND !is_null(@unserialize
($c))) {
2518 $c = unserialize($c);
2521 // supprimer les parametres debut_x
2522 // pour que la pagination ajax ne soit pas plantee
2523 // si on charge la page &debut_x=1 : car alors en cliquant sur l'item 0,
2524 // le debut_x=0 n'existe pas, et on resterait sur 1
2525 foreach ($c as $k => $v) {
2526 if (strpos($k,'debut_') === 0) {
2531 if (!function_exists('calculer_cle_action'))
2532 include_spip("inc/securiser_action");
2535 $cle = calculer_cle_action($form . $c);
2538 // on ne stocke pas les contextes dans des fichiers caches
2539 // par defaut, sauf si cette configuration a ete forcee
2540 // OU que la longueur de l''argument generee est plus long
2541 // que ce que telere Suhosin.
2542 $cache_contextes_ajax = (defined('_CACHE_CONTEXTES_AJAX') AND _CACHE_CONTEXTES_AJAX
);
2543 if (!$cache_contextes_ajax) {
2545 if (function_exists('gzdeflate') && function_exists('gzinflate')) {
2546 $env = gzdeflate($env);
2547 // http://core.spip.org/issues/2667 | https://bugs.php.net/bug.php?id=61287
2548 if (substr(phpversion(),0,5) == '5.4.0' AND !@gzinflate
($env)) {
2549 $cache_contextes_ajax = true;
2550 spip_log("Contextes AJAX forces en fichiers ! Erreur PHP 5.4.0", _LOG_AVERTISSEMENT
);
2554 $env = base64_encode($env);
2555 // tester Suhosin et la valeur maximale des variables en GET...
2556 if ($max_len = @ini_get
('suhosin.get.max_value_length')
2557 and $max_len < ($len = strlen($env))) {
2558 $cache_contextes_ajax = true;
2559 spip_log("Contextes AJAX forces en fichiers !"
2560 . " Cela arrive lorsque la valeur du contexte"
2561 . " depasse la longueur maximale autorisee par Suhosin"
2562 . " ($max_len) dans 'suhosin.get.max_value_length'. Ici : $len."
2563 . " Vous devriez modifier les parametres de Suhosin"
2564 . " pour accepter au moins 1024 caracteres.", _LOG_AVERTISSEMENT
);
2568 if ($cache_contextes_ajax) {
2569 $dir = sous_repertoire(_DIR_CACHE
, 'contextes');
2570 // stocker les contextes sur disque et ne passer qu'un hash dans l'url
2572 ecrire_fichier("$dir/c$md5",$c);
2576 if ($emboite === NULL) return $env;
2577 if (!trim($emboite)) return "";
2578 // toujours encoder l'url source dans le bloc ajax
2580 $r = ' data-origin="'.$r.'"';
2581 $class = 'ajaxbloc';
2582 if ($ajaxid and is_string($ajaxid)) {
2583 // ajaxid est normalement conforme a un nom de classe css
2584 // on ne verifie pas la conformite, mais on passe entites_html par dessus par precaution
2585 $class .= ' ajax-id-' . entites_html($ajaxid);
2587 return "<div class='$class' "."data-ajax-env='$env'$r>\n$emboite</div><!--ajaxbloc-->\n";
2590 // la procedure inverse de encoder_contexte_ajax()
2591 // http://doc.spip.org/@decoder_contexte_ajax
2592 function decoder_contexte_ajax($c,$form='') {
2593 if (!function_exists('calculer_cle_action'))
2594 include_spip("inc/securiser_action");
2595 if (( (defined('_CACHE_CONTEXTES_AJAX') AND _CACHE_CONTEXTES_AJAX
) OR strlen($c)==32)
2596 AND $dir = sous_repertoire(_DIR_CACHE
, 'contextes')
2597 AND lire_fichier("$dir/c$c",$contexte)) {
2600 $c = @base64_decode
($c);
2602 if (function_exists('gzdeflate') && function_exists('gzinflate'))
2603 $c = @gzinflate
($c);
2606 // extraire la signature en debut de contexte
2607 // et la verifier avant de deserializer
2608 // format : signature:donneesserializees
2609 if ($p = strpos($c,":")){
2610 $cle = substr($c,0,$p);
2611 $c = substr($c,$p+
1);
2613 if ($cle == calculer_cle_action($form . $c)) {
2614 $env = @unserialize
($c);
2622 // encrypter/decrypter un message
2623 // http://www.php.net/manual/fr/language.operators.bitwise.php#81358
2624 // http://doc.spip.org/@_xor
2625 function _xor($message, $key=null){
2626 if (is_null($key)) {
2627 if (!function_exists('calculer_cle_action'))
2628 include_spip("inc/securiser_action");
2629 $key = pack("H*", calculer_cle_action('_xor'));
2632 $keylen = strlen($key);
2633 $messagelen = strlen($message);
2634 for($i=0; $i<$messagelen; $i++
)
2635 $message[$i] = ~
($message[$i]^
$key[$i%
$keylen]);
2640 // Les vrai fonctions sont dans le plugin forum, mais on evite ici une erreur du compilateur
2641 // en absence du plugin
2642 function url_reponse_forum($texte){return $texte;}
2643 function url_rss_forum($texte){return $texte;}
2647 * une fonction pour generer des menus avec liens
2648 * ou un <strong class='on'> non clicable lorsque l'item est selectionne
2650 * @param string $url
2651 * @param string $libelle
2654 * etat expose (genere un strong) ou non (genere un lien)
2655 * @param string $class
2656 * @param string $title
2657 * @param string $rel
2658 * @param string $evt
2659 * complement a la balise a pour gerer un evenement javascript, de la forme " onclick='...'"
2662 function lien_ou_expose($url,$libelle=NULL,$on=false,$class="",$title="",$rel="", $evt=''){
2665 $att = "class='on'";
2668 $att = "href='$url'"
2669 .($title?
" title='".attribut_html($title)."'":'')
2670 .($class?
" class='".attribut_html($class)."'":'')
2671 .($rel?
" rel='".attribut_html($rel)."'":'')
2674 if ($libelle === NULL)
2676 return "<$bal $att>$libelle</$bal>";
2681 * Afficher un message "un truc"/"N trucs"
2682 * Les items sont à indiquer comme pour la fonction _T() sous la forme :
2685 * @param int $nb : le nombre
2686 * @param string $chaine_un : l'item de langue si $nb vaut un
2687 * @param string $chaine_plusieurs : l'item de lanque si $nb > 1
2688 * @param string $var : La variable à remplacer par $nb dans l'item de langue (facultatif, défaut "nb")
2689 * @param array $vars : Les autres variables nécessaires aux chaines de langues (facultatif)
2690 * @return string : la chaine de langue finale en utilisant la fonction _T()
2692 function singulier_ou_pluriel($nb,$chaine_un,$chaine_plusieurs,$var='nb',$vars=array()){
2693 if (!$nb=intval($nb)) return "";
2694 if (!is_array($vars)) return "";
2696 if ($nb>1) return _T($chaine_plusieurs, $vars);
2697 else return _T($chaine_un,$vars);
2702 * Fonction de base pour une icone dans un squelette
2703 * structure html : <span><a><img><b>texte</b></span>
2705 * @param string $type
2706 * 'lien' ou 'bouton'
2707 * @param string $lien
2709 * @param string $texte
2710 * texte du lien / alt de l'image
2711 * @param string $fond
2712 * objet avec ou sans son extension et sa taille (article, article-24, article-24.png)
2713 * @param string $fonction
2715 * @param string $class
2716 * classe supplementaire (horizontale, verticale, ajax ...)
2717 * @param string $javascript
2718 * "onclick='...'" par exemple
2721 function prepare_icone_base($type, $lien, $texte, $fond, $fonction="", $class="",$javascript=""){
2722 if (in_array($fonction,array("del","supprimer.gif")))
2723 $class .= ' danger';
2724 elseif ($fonction == "rien.gif")
2726 elseif ($fonction == "delsafe")
2729 // remappage des icone : article-24.png+new => article-new-24.png
2730 if ($icone_renommer = charger_fonction('icone_renommer','inc',true))
2731 list($fond,$fonction) = $icone_renommer($fond,$fonction);
2733 // ajouter le type d'objet dans la class de l'icone
2734 $class .= " " . substr(basename($fond),0,-4);
2736 $alt = attribut_html($texte);
2737 $title = " title=\"$alt\""; // est-ce pertinent de doubler le alt par un title ?
2740 if (strpos($class,"ajax")!==false) {
2742 if (strpos($class,"preload")!==false)
2744 if (strpos($class,"nocache")!==false)
2746 $ajax=" class='$ajax'";
2750 if (preg_match("/-([0-9]{1,3})[.](gif|png)$/i",$fond,$match))
2754 // 2 images pour composer l'icone : le fond (article) en background,
2755 // la fonction (new) en image
2756 $icone = http_img_pack($fonction, $alt, "width='$size' height='$size'\n" .
2757 http_style_background($fond));
2760 $icone = http_img_pack($fond, $alt, "width='$size' height='$size'");
2764 return "<span class='icone s$size $class'>"
2765 . "<a href='$lien'$title$ajax$javascript>"
2771 return bouton_action("$icone<b>$texte</b>",$lien,"icone s$size $class",$javascript,$alt);
2774 function icone_base($lien, $texte, $fond, $fonction="", $class="",$javascript=""){
2775 return prepare_icone_base('lien', $lien, $texte, $fond, $fonction, $class, $javascript);
2777 function filtre_icone_verticale_dist($lien, $texte, $fond, $fonction="", $class="",$javascript=""){
2778 return icone_base($lien,$texte,$fond,$fonction,"verticale $class",$javascript);
2780 function filtre_icone_horizontale_dist($lien, $texte, $fond, $fonction="", $class="",$javascript=""){
2781 return icone_base($lien,$texte,$fond,$fonction,"horizontale $class",$javascript);
2784 function filtre_bouton_action_horizontal_dist($lien, $texte, $fond, $fonction="", $class="",$confirm=""){
2785 return prepare_icone_base('bouton', $lien, $texte, $fond, $fonction, "horizontale $class", $confirm);
2788 * Filtre icone pour compatibilite
2789 * mappe sur icone_base
2791 function filtre_icone_dist($lien, $texte, $fond, $align="", $fonction="", $class="",$javascript=""){
2792 return icone_base($lien,$texte,$fond,$fonction,"verticale $align $class",$javascript);
2797 * filtre explode pour les squelettes permettant d'ecrire
2798 * #GET{truc}|explode{-}
2804 function filtre_explode_dist($a,$b){return explode($b,$a);}
2807 * filtre implode pour les squelettes permettant d'ecrire
2808 * #GET{truc}|implode{-}
2814 function filtre_implode_dist($a,$b){return is_array($a)?
implode($b,$a):$a;}
2817 * Produire les styles prives qui associent item de menu avec icone en background
2820 function bando_images_background(){
2821 include_spip('inc/bandeau');
2822 // recuperer tous les boutons et leurs images
2823 $boutons = definir_barre_boutons(definir_barre_contexte(),true,false);
2826 foreach($boutons as $page => $detail){
2827 if ($detail->icone
AND strlen(trim($detail->icone
)))
2828 $res .="\n.navigation_avec_icones #bando1_$page {background-image:url(".$detail->icone
.");}";
2829 $selecteur = (in_array($page,array('outils_rapides','outils_collaboratifs'))?
"":".navigation_avec_icones ");
2830 if (is_array($detail->sousmenu
))
2831 foreach($detail->sousmenu
as $souspage=>$sousdetail)
2832 if ($sousdetail->icone
AND strlen(trim($sousdetail->icone
)))
2833 $res .="\n$selecteur.bando2_$souspage {background-image:url(".$sousdetail->icone
.");}";
2839 * Generer un bouton_action
2840 * utilise par #BOUTON_ACTION
2842 * @param string $libelle
2843 * @param string $url
2844 * @param string $class
2845 * @param string $confirm
2846 * message de confirmation oui/non avant l'action
2847 * @param string $title
2848 * @param string $callback
2849 * callback js a appeler lors de l'evenement action (apres confirmation eventuelle si $confirm est non vide)
2850 * et avant execution de l'action. Si la callback renvoie false, elle annule le declenchement de l'action
2853 function bouton_action($libelle, $url, $class="", $confirm="", $title="", $callback=""){
2855 $confirm = "confirm(\"" . attribut_html($confirm) . "\")";
2857 $callback = "$confirm?($callback):false";
2859 $callback = $confirm;
2861 $onclick = $callback?
" onclick='return ".addcslashes($callback,"'")."'":"";
2862 $title = $title ?
" title='$title'" : "";
2863 return "<form class='bouton_action_post $class' method='post' action='$url'><div>".form_hidden($url)
2864 ."<button type='submit' class='submit'$title$onclick>$libelle</button></div></form>";
2869 * Proteger les champs passes dans l'url et utiliser dans {tri ...}
2870 * preserver l'espace pour interpreter ensuite num xxx et multi xxx
2874 function tri_protege_champ($t){
2875 return preg_replace(',[^\s\w.+],','',$t);
2879 * Interpreter les multi xxx et num xxx utilise comme tri
2880 * pour la clause order
2881 * 'multi xxx' devient simplement 'multi' qui est calcule dans le select
2883 * @param array $from
2886 function tri_champ_order($t, $from=null){
2887 if(strncmp($t,'multi ',6)==0){
2893 if (strncmp($t,'num ',4)==0)
2894 $champ = substr($t,4);
2895 // enlever les autres espaces non evacues par tri_protege_champ
2896 $champ = preg_replace(',\s,','',$champ);
2898 if (is_array($from)){
2899 $trouver_table = charger_fonction('trouver_table','base');
2900 foreach($from as $idt=>$table_sql){
2901 if ($desc = $trouver_table($table_sql)
2902 AND isset($desc['field'][$champ])){
2903 $champ = "$idt.$champ";
2908 if (strncmp($t,'num ',4)==0)
2915 * Interpreter les multi xxx et num xxx utilise comme tri
2916 * pour la clause select
2917 * 'multi xxx' devient select "...." as multi
2918 * les autres cas ne produisent qu'une chaine vide '' en select
2919 * 'hasard' devient 'rand() AS hasard' dans le select
2924 function tri_champ_select($t){
2925 if(strncmp($t,'multi ',6)==0){
2927 $t = preg_replace(',\s,','',$t);
2928 $t = sql_multi($t,$GLOBALS['spip_lang']);
2931 if(trim($t)=='hasard'){
2932 return 'rand() AS hasard';
2939 * Donner n'importe quelle information sur un objet de maniere generique.
2941 * La fonction va gerer en interne deux cas particuliers les plus utilises :
2942 * l'URL et le titre (qui n'est pas forcemment le champ SQL "titre").
2944 * On peut ensuite personnaliser les autres infos en creant une fonction
2945 * generer_<nom_info>_entite($id_objet, $type_objet, $ligne).
2946 * $ligne correspond a la ligne SQL de tous les champs de l'objet, les fonctions
2947 * de personnalisation n'ont donc pas a refaire de requete.
2949 * @param int $id_objet
2950 * @param string $type_objet
2951 * @param string $info
2952 * @param string $etoile
2955 function generer_info_entite($id_objet, $type_objet, $info, $etoile=""){
2956 global $table_des_traitements;
2957 static $trouver_table=null;
2960 // On verifie qu'on a tout ce qu'il faut
2961 $id_objet = intval($id_objet);
2962 if (!($id_objet and $type_objet and $info))
2965 // si on a deja note que l'objet n'existe pas, ne pas aller plus loin
2966 if (isset($objets[$type_objet]) AND $objets[$type_objet]===false)
2969 // Si on demande l'url, on retourne direct la fonction
2971 return generer_url_entite($id_objet, $type_objet);
2973 // Sinon on va tout chercher dans la table et on garde en memoire
2974 $demande_titre = ($info == 'titre');
2976 // On ne fait la requete que si on a pas deja l'objet ou si on demande le titre mais qu'on ne l'a pas encore
2977 if (!isset($objets[$type_objet][$id_objet])
2979 ($demande_titre AND !isset($objets[$type_objet][$id_objet]['titre']))
2981 if (!$trouver_table)
2982 $trouver_table = charger_fonction('trouver_table','base');
2983 $desc = $trouver_table(table_objet_sql($type_objet));
2985 return $objets[$type_objet] = false;
2987 // Si on demande le titre, on le gere en interne
2989 if ($demande_titre){
2990 // si pas de titre declare mais champ titre, il sera peuple par le select *
2991 $champ_titre = (!empty($desc['titre'])) ?
', ' . $desc['titre']:'';
2993 include_spip('base/abstract_sql');
2994 include_spip('base/connect_sql');
2995 $objets[$type_objet][$id_objet] = sql_fetsel(
2998 id_table_objet($type_objet).' = '.intval($id_objet)
3002 // Si la fonction generer_TRUC_TYPE existe, on l'utilise pour formater $info_generee
3003 if ($generer = charger_fonction("generer_${info}_${type_objet}", '', true))
3004 $info_generee = $generer($id_objet, $objets[$type_objet][$id_objet]);
3005 // Si la fonction generer_TRUC_entite existe, on l'utilise pour formater $info_generee
3006 else if ($generer = charger_fonction("generer_${info}_entite", '', true))
3007 $info_generee = $generer($id_objet, $type_objet, $objets[$type_objet][$id_objet]);
3008 // Sinon on prend directement le champ SQL tel quel
3010 $info_generee = (isset($objets[$type_objet][$id_objet][$info])?
$objets[$type_objet][$id_objet][$info]:'');
3012 // On va ensuite chercher les traitements automatiques a faire
3013 $champ = strtoupper($info);
3014 $traitement = isset($table_des_traitements[$champ]) ?
$table_des_traitements[$champ] : false;
3015 $table_sql = table_objet_sql($type_objet);
3018 AND is_array($traitement)
3019 AND (isset($traitement[$table_sql]) OR isset($traitement[0]))){
3020 include_spip('inc/texte');
3021 $traitement = $traitement[isset($traitement[$table_sql]) ?
$table_sql : 0];
3022 $traitement = str_replace('%s', "'".texte_script($info_generee)."'", $traitement);
3023 // FIXME: $connect et $Pile[0] font souvent partie des traitements.
3024 // on les definit pour eviter des notices, mais ce fonctionnement est a ameliorer !
3025 $connect = ""; $Pile = array(0 => array('id_objet'=>$id_objet,'objet'=>$type_objet));
3026 eval("\$info_generee = $traitement;");
3029 return $info_generee;
3033 * Wrap un texte avec des balises
3034 * wrap('mot','<b>') => '<b>mot</b>'
3035 * @param string $texte
3036 * @param string $wrap
3039 function wrap($texte,$wrap) {
3040 $balises = extraire_balises($wrap);
3041 if (preg_match_all(",<([a-z]\w*)\b[^>]*>,UimsS",$wrap, $regs, PREG_PATTERN_ORDER
)) {
3042 $texte = $wrap . $texte;
3043 $regs = array_reverse($regs[1]);
3044 $wrap = "</".implode("></",$regs).">";
3045 $texte = $texte . $wrap;
3052 * afficher proprement n'importe quoi
3053 * On affiche in fine un pseudo-yaml qui premet de lire humainement les tableaux et de s'y reperer
3055 * Les textes sont retournes avec simplement mise en forme typo
3057 * le $join sert a separer les items d'un tableau, c'est en general un \n ou <br /> selon si on fait du html ou du texte
3058 * les tableaux-listes (qui n'ont que des cles numeriques), sont affiches sous forme de liste separee par des virgules :
3062 * @param string $join
3063 * @param int $indent
3064 * @return array|mixed|string
3066 function filtre_print_dist($u, $join="<br />", $indent=0) {
3072 // caster $u en array si besoin
3078 // toutes les cles sont numeriques ?
3079 // et aucun enfant n'est un tableau
3080 // liste simple separee par des virgules
3081 $numeric_keys = array_map('is_numeric',array_keys($u));
3082 $array_values = array_map('is_array',$u);
3083 $object_values = array_map('is_object',$u);
3084 if (array_sum($numeric_keys)==count($numeric_keys)
3085 AND !array_sum($array_values)
3086 AND !array_sum($object_values)){
3087 return join(", ", array_map('filtre_print_dist', $u));
3090 // sinon on passe a la ligne et on indente
3091 $i_str = str_pad("",$indent," ");
3092 foreach($u as $k => $v){
3093 $out .= $join . $i_str . "$k: " . filtre_print_dist($v,$join,$indent+
2);
3098 // on sait pas quoi faire...
3104 * Renvoyer l'info d'un objet
3105 * telles que definies dans declarer_tables_objets_sql
3107 * @param string $objet
3108 * @param string $info
3111 function objet_info($objet,$info){
3112 $table = table_objet_sql($objet);
3113 $infos = lister_tables_objets_sql($table);
3114 return (isset($infos[$info])?
$infos[$info]:'');
3118 * Filtre pour afficher 'Aucun truc' ou '1 truc' ou 'N trucs'
3119 * avec la bonne chaine de langue en fonction de l'objet utilise
3122 * @return mixed|string
3124 function objet_afficher_nb($nb, $objet){
3126 return _T(objet_info($objet,'info_aucun_objet'));
3128 return _T(objet_info($objet,$nb==1?
'info_1_objet':'info_nb_objets'),array('nb'=>$nb));
3132 * Filtre pour afficher l'img icone d'un objet
3134 * @param string $objet
3135 * @param int $taille
3138 function objet_icone($objet,$taille=24){
3139 $icone = objet_info($objet,'icone_objet')."-".$taille.".png";
3140 $icone = chemin_image($icone);
3141 $balise_img = charger_filtre('balise_img');
3142 return $icone?
$balise_img($icone,_T(objet_info($objet,'texte_objet'))):'';
3146 * Fonction de secours pour inserer le head_css de facon conditionnelle
3148 * Appelée en filtre sur le squelette qui contient #INSERT_HEAD,
3149 * elle vérifie l'absence éventuelle de #INSERT_HEAD_CSS et y suplée si besoin
3150 * pour assurer la compat avec les squelettes qui n'utilisent pas.
3152 * @param string $flux Code HTML
3153 * @return string Code HTML
3155 function insert_head_css_conditionnel($flux){
3156 if (strpos($flux,'<!-- insert_head_css -->')===false
3157 AND $p=strpos($flux,'<!-- insert_head -->')){
3158 // plutot avant le premier js externe (jquery) pour etre non bloquant
3159 if ($p1 = stripos($flux,'<script src=') AND $p1<$p)
3161 $flux = substr_replace($flux,pipeline('insert_head_css','<!-- insert_head_css -->'),$p,0);
3167 * Produire un fichier statique a partir d'un squelette dynamique
3168 * Permet ensuite a apache de le servir en statique sans repasser
3169 * par spip.php a chaque hit sur le fichier
3170 * si le format (css ou js) est passe dans contexte['format'], on l'utilise
3171 * sinon on regarde si le fond finit par .css ou .js
3172 * sinon on utilie "html"
3174 * @param string $fond
3175 * @param array $contexte
3176 * @param array $options
3177 * @param string $connect
3180 function produire_fond_statique($fond, $contexte=array(), $options = array(), $connect=''){
3181 if (isset($contexte['format'])){
3182 $extension = $contexte['format'];
3183 unset($contexte['format']);
3186 $extension = "html";
3187 if (preg_match(',[.](css|js|json)$,',$fond,$m))
3190 // recuperer le contenu produit par le squelette
3191 $options['raw'] = true;
3192 $cache = recuperer_fond($fond,$contexte,$options,$connect);
3194 // calculer le nom de la css
3195 $dir_var = sous_repertoire (_DIR_VAR
, 'cache-'.$extension);
3196 $nom_safe = preg_replace(",\W,",'_',str_replace('.','_',$fond));
3197 $filename = $dir_var . $extension."dyn-$nom_safe-".substr(md5($fond.serialize($contexte).$connect),0,8) .".$extension";
3199 // mettre a jour le fichier si il n'existe pas
3201 // le dernier fichier produit est toujours suffixe par .last
3202 // et recopie sur le fichier cible uniquement si il change
3203 if (!file_exists($filename)
3204 OR !file_exists($filename.".last")
3205 OR (isset($cache['lastmodified']) AND $cache['lastmodified'] AND filemtime($filename.".last")<$cache['lastmodified'])
3206 OR (defined('_VAR_MODE') AND _VAR_MODE
=='recalcul')) {
3207 $contenu = $cache['texte'];
3208 // passer les urls en absolu si c'est une css
3209 if ($extension=="css")
3210 $contenu = urls_absolues_css($contenu, test_espace_prive()?
generer_url_ecrire('accueil'):generer_url_public($fond));
3212 // ne pas insérer de commentaire si c'est du json
3213 if ($extension!="json") {
3214 $comment = "/* #PRODUIRE{fond=$fond";
3215 foreach($contexte as $k=>$v)
3216 $comment .= ",$k=$v";
3217 // pas de date dans le commentaire car sinon ca invalide le md5 et force la maj
3218 // mais on peut mettre un md5 du contenu, ce qui donne un aperu rapide si la feuille a change ou non
3219 $comment .="}\n md5:".md5($contenu)." */\n";
3221 // et ecrire le fichier
3222 ecrire_fichier($filename.".last",$comment.$contenu);
3223 // regarder si on recopie
3224 if (!file_exists($filename)
3225 OR md5_file($filename)!==md5_file($filename.".last")){
3226 @copy
($filename.".last",$filename);
3227 spip_clearstatcache(true,$filename); // eviter que PHP ne reserve le vieux timestamp
3235 * Ajouter un timestamp a une url de fichier
3236 * [(#CHEMIN{monfichier}|timestamp)]
3238 * @param string $fichier
3241 function timestamp($fichier){
3242 if (!$fichier OR !file_exists($fichier)) return $fichier;
3243 $m = filemtime($fichier);
3244 return "$fichier?$m";
3248 * Nettoyer le titre d'un email
3249 * eviter une erreur lorsqu'on utilise |nettoyer_titre_email dans un squelette de mail
3253 function filtre_nettoyer_titre_email_dist($titre){
3254 include_spip('inc/envoyer_mail');
3255 return nettoyer_titre_email($titre);
3259 * Afficher le sélecteur de rubrique
3261 * Il permet de placer un objet dans la hiérarchie des rubriques de SPIP
3263 * @param string $titre
3264 * @param int $id_objet
3265 * @param int $id_parent
3266 * @param string $objet
3267 * @param int $id_secteur
3268 * @param bool $restreint
3269 * @param bool $actionable
3270 * true : fournit le selecteur dans un form directement postable
3271 * @param bool $retour_sans_cadre
3274 function filtre_chercher_rubrique_dist($titre,$id_objet, $id_parent, $objet, $id_secteur, $restreint,$actionable = false, $retour_sans_cadre=false){
3275 include_spip('inc/filtres_ecrire');
3276 return chercher_rubrique($titre,$id_objet, $id_parent, $objet, $id_secteur, $restreint,$actionable, $retour_sans_cadre);
3280 * Rediriger une page suivant une autorisation,
3281 * et ce, n'importe où dans un squelette, même dans les inclusions.
3283 * [(#AUTORISER{non}|sinon_interdire_acces)]
3284 * [(#AUTORISER{non}|sinon_interdire_acces{#URL_PAGE{login}, 401})]
3286 * @param bool $ok Indique si l'on doit rediriger ou pas
3287 * @param string $url Adresse vers laquelle rediriger
3288 * @param int $statut Statut HTML avec lequel on redirigera
3291 function sinon_interdire_acces($ok=false, $url='', $statut=0){
3294 // Vider tous les tampons
3295 $level = @ob_get_level
();
3299 include_spip('inc/headers');
3300 $statut = intval($statut);
3302 // Si aucun argument on essaye de deviner quoi faire par défaut
3303 if (!$url and !$statut){
3304 // Si on est dans l'espace privé, on génère du 403 Forbidden
3305 if (test_espace_prive()){
3307 $echec = charger_fonction('403','exec');
3310 // Sinon dans l'espace public on redirige vers une 404 par défaut, car elle toujours présente normalement
3316 // On suit les directives indiquées dans les deux arguments
3318 // S'il y a un statut
3320 // Dans tous les cas on modifie l'entité avec ce qui est demandé
3321 http_status($statut);
3322 // Si le statut est une erreur et qu'il n'y a pas de redirection on va chercher le squelette du même nom
3323 if ($statut >= 400 and !$url)
3324 echo recuperer_fond("$statut");
3327 // S'il y a une URL, on redirige (si pas de statut, la fonction mettra 302 par défaut)
3328 if ($url) redirige_par_entete($url, '', $statut);
3334 * Assurer le fonctionnement de |compacte meme sans l'extension compresseur
3335 * @param string $source
3336 * @param null|string $format
3339 function filtre_compacte_dist($source, $format = null){
3340 if (function_exists('compacte'))
3341 return compacte($source, $format);