dépôts / velocampus / web / www.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[SPIP] ~2.1.12 -->2.1.25
[velocampus/web/www.git] / www / ecrire / inc / filtres.php
1 <?php
2
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
5 * *
6 * Copyright (c) 2001-2014 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
8 * *
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 \***************************************************************************/
12
13 if (!defined('_ECRIRE_INC_VERSION')) return;
14
15 include_spip('inc/charsets');
16 include_spip('inc/filtres_mini');
17
18 /**
19 * Charger un filtre depuis le php :
20 * - on inclue tous les fichiers fonctions des plugins et du skel
21 * - on appelle chercher_filtre
22 */
23 function charger_filtre($fonc, $default=NULL) {
24 include_spip('public/parametrer'); // inclure les fichiers fonctions
25 return chercher_filtre($fonc, $default);
26 }
27
28 // http://adoc.spip.org/@chercher_filtre
29 function chercher_filtre($fonc, $default=NULL) {
30 // Cas MIME = type/subtype
31 // sans confondre avec les appels de fonction de classe Foo::Bar
32 // qui peuvent etre avec un namespace : space\Foo::Bar
33 if (strpos($fonc, '/')){
34 $f = preg_replace(',\W,','_', $fonc);
35 if ($f = chercher_filtre($f)) return $f;
36 // cas du sous-type MIME sans filtre associe, passer au type:
37 // si filtre_text_plain pas defini, passe a filtre_text
38 $fonc = preg_replace(',\W.*$,','', $fonc);
39 }
40 if (!$fonc) return $default;
41 foreach (
42 array('filtre_'.$fonc, 'filtre_'.$fonc.'_dist', $fonc) as $f){
43 if (is_string($g = $GLOBALS['spip_matrice'][$f]))
44 find_in_path($g,'', true);
45 if (function_exists($f)
46 OR (preg_match("/^(\w*)::(\w*)$/", $f, $regs)
47 AND is_callable(array($regs[1], $regs[2]))
48 )) {
49 return $f;
50 }
51 }
52 return $default;
53 }
54
55 // http://doc.spip.org/@appliquer_filtre
56 function appliquer_filtre($arg, $filtre) {
57 $f = chercher_filtre($filtre);
58 if (!$f)
59 return ''; // ou faut-il retourner $arg inchange == filtre_identite?
60
61 $args = func_get_args();
62 array_shift($args); // enlever $arg
63 array_shift($args); // enlever $filtre
64 array_unshift($args, $arg); // remettre $arg
65 return call_user_func_array($f,$args);
66 }
67
68 // http://doc.spip.org/@spip_version
69 function spip_version() {
70 $version = $GLOBALS['spip_version_affichee'];
71 if ($svn_revision = version_svn_courante(_DIR_RACINE))
72 $version .= ($svn_revision<0 ? ' SVN':'').' ['.abs($svn_revision).']';
73 return $version;
74 }
75
76
77 //
78 // Mention de la revision SVN courante de l'espace restreint standard
79 // (numero non garanti pour l'espace public et en cas de mutualisation)
80 // on est negatif si on est sur .svn, et positif si on utilise svn.revision
81 // http://doc.spip.org/@version_svn_courante
82 function version_svn_courante($dir) {
83 if (!$dir) $dir = '.';
84
85 // version installee par paquet ZIP
86 if (lire_fichier($dir.'/svn.revision', $c)
87 AND preg_match(',Revision: (\d+),', $c, $d))
88 return intval($d[1]);
89
90 // version installee par SVN
91 if (lire_fichier($dir . '/.svn/entries', $c)
92 AND (
93 (preg_match_all(
94 ',committed-rev="([0-9]+)",', $c, $r1, PREG_PATTERN_ORDER)
95 AND $v = max($r1[1])
96 )
97 OR
98 (preg_match(',^\d.*dir[\r\n]+(\d+),ms', $c, $r1) # svn >= 1.4
99 AND $v = $r1[1]
100 )))
101 return -$v;
102
103 // Bug ou paquet fait main
104 return 0;
105 }
106
107 // La matrice est necessaire pour ne filtrer _que_ des fonctions definies dans filtres_images
108 // et laisser passer les fonctions personnelles baptisees image_...
109 $GLOBALS['spip_matrice']['image_graver'] = 'inc/filtres_images_mini.php';
110 $GLOBALS['spip_matrice']['image_select'] = 'inc/filtres_images_mini.php';
111 $GLOBALS['spip_matrice']['image_reduire'] = 'inc/filtres_images_mini.php';
112 $GLOBALS['spip_matrice']['image_reduire_par'] = 'inc/filtres_images_mini.php';
113 $GLOBALS['spip_matrice']['image_passe_partout'] = 'inc/filtres_images_mini.php';
114
115 $GLOBALS['spip_matrice']['couleur_html_to_hex'] = 'inc/filtres_images_mini.php';
116 $GLOBALS['spip_matrice']['couleur_foncer'] = 'inc/filtres_images_mini.php';
117 $GLOBALS['spip_matrice']['couleur_eclaircir'] = 'inc/filtres_images_mini.php';
118
119 // ou pour inclure un script au moment ou l'on cherche le filtre
120 $GLOBALS['spip_matrice']['filtre_image_dist'] = 'inc/filtres_mime.php';
121 $GLOBALS['spip_matrice']['filtre_audio_dist'] = 'inc/filtres_mime.php';
122 $GLOBALS['spip_matrice']['filtre_video_dist'] = 'inc/filtres_mime.php';
123 $GLOBALS['spip_matrice']['filtre_application_dist'] = 'inc/filtres_mime.php';
124 $GLOBALS['spip_matrice']['filtre_message_dist'] = 'inc/filtres_mime.php';
125 $GLOBALS['spip_matrice']['filtre_multipart_dist'] = 'inc/filtres_mime.php';
126 $GLOBALS['spip_matrice']['filtre_text_dist'] = 'inc/filtres_mime.php';
127 $GLOBALS['spip_matrice']['filtre_text_csv_dist'] = 'inc/filtres_mime.php';
128 $GLOBALS['spip_matrice']['filtre_text_html_dist'] = 'inc/filtres_mime.php';
129 $GLOBALS['spip_matrice']['filtre_audio_x_pn_realaudio'] = 'inc/filtres_mime.php';
130
131
132 // charge les fonctions graphiques et applique celle demandee
133 // http://doc.spip.org/@filtrer
134 function filtrer($filtre) {
135 include_spip('public/parametrer'); // charger les fichiers fonctions
136 if (is_string($f = $GLOBALS['spip_matrice'][$filtre]))
137 find_in_path($f,'', true);
138 $tous = func_get_args();
139 if (substr($filtre,0,6)=='image_' && $GLOBALS['spip_matrice'][$filtre])
140 return image_filtrer($tous);
141 elseif($f = chercher_filtre($filtre)) {
142 array_shift($tous);
143 return call_user_func_array($f, $tous);
144 }
145 else {
146 // le filtre n'existe pas, on provoque une erreur
147 $msg = array('zbug_erreur_filtre', array('filtre'=>texte_script($filtre)));
148 erreur_squelette($msg);
149 return '';
150 }
151 }
152
153 // fonction generique d'entree des filtres images
154 // accepte en entree un texte complet, un img-log (produit par #LOGO_XX),
155 // un tag <img ...> complet, ou encore un nom de fichier *local* (passer
156 // le filtre |copie_locale si on veut l'appliquer a un document)
157 // applique le filtre demande a chacune des occurrences
158
159 // http://doc.spip.org/@image_filtrer
160 function image_filtrer($args){
161 $filtre = array_shift($args); # enlever $filtre
162 $texte = array_shift($args);
163 if (!strlen($texte)) return;
164 find_in_path('filtres_images_mini.php','inc/', true);
165 statut_effacer_images_temporaires(true); // activer la suppression des images temporaires car le compilo finit la chaine par un image_graver
166 // Cas du nom de fichier local
167 if ( strpos(substr($texte,strlen(_DIR_RACINE)),'..')===FALSE
168 AND !preg_match(',^/|[<>]|\s,S', $texte)
169 AND (
170 file_exists(preg_replace(',[?].*$,','',$texte))
171 OR preg_match(';^(\w{3,7}://);', $texte)
172 )) {
173 array_unshift($args,"<img src='$texte' />");
174 $res = call_user_func_array($filtre, $args);
175 statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
176 return $res;
177 }
178
179 // Cas general : trier toutes les images, avec eventuellement leur <span>
180 if (preg_match_all(
181 ',(<([a-z]+) [^<>]*spip_documents[^<>]*>)?\s*(<img\s.*>),UimsS',
182 $texte, $tags, PREG_SET_ORDER)) {
183 foreach ($tags as $tag) {
184 $class = extraire_attribut($tag[3],'class');
185 if (!$class || (strpos($class,'no_image_filtrer')===FALSE)){
186 array_unshift($args,$tag[3]);
187 if ($reduit = call_user_func_array($filtre, $args)) {
188 // En cas de span spip_documents, modifier le style=...width:
189 if($tag[1]){
190 $w = extraire_attribut($reduit, 'width');
191 if (!$w AND preg_match(",width:\s*(\d+)px,S",extraire_attribut($reduit,'style'),$regs))
192 $w = $regs[1];
193 if ($w AND ($style = extraire_attribut($tag[1], 'style'))){
194 $style = preg_replace(",width:\s*\d+px,S", "width:${w}px", $style);
195 $replace = inserer_attribut($tag[1], 'style', $style);
196 $texte = str_replace($tag[1], $replace, $texte);
197 }
198 }
199 // traiter aussi un eventuel mouseover
200 if ($mouseover = extraire_attribut($reduit,'onmouseover')){
201 if (preg_match(",this[.]src=['\"]([^'\"]+)['\"],ims", $mouseover, $match)){
202 $srcover = $match[1];
203 array_shift($args);
204 array_unshift($args,"<img src='".$match[1]."' />");
205 $srcover_filter = call_user_func_array($filtre, $args);
206 $srcover_filter = extraire_attribut($srcover_filter,'src');
207 $reduit = str_replace($srcover,$srcover_filter,$reduit);
208 }
209 }
210 $texte = str_replace($tag[3], $reduit, $texte);
211 }
212 array_shift($args);
213 }
214 }
215 }
216 statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
217 return $texte;
218 }
219
220 // pour les feuilles de style CSS du prive
221 function filtre_background_image_dist ($img, $couleur, $pos="") {
222 if (!function_exists("imagecreatetruecolor")
223 OR !include_spip('filtres/images_transforme')
224 OR !function_exists('image_sepia')
225 OR !function_exists('image_aplatir')
226 )
227 return "background-color: #$couleur;";
228 return "background: url(".url_absolue(extraire_attribut(image_aplatir(image_sepia($img, $couleur),"gif","cccccc", 64, true), "src")).") $pos;";
229 }
230
231 //
232 // Retourner taille d'une image
233 // pour les filtres |largeur et |hauteur
234 //
235 // http://doc.spip.org/@taille_image
236 function taille_image($img) {
237
238 static $largeur_img =array(), $hauteur_img= array();
239 $srcWidth = 0;
240 $srcHeight = 0;
241
242 $logo = extraire_attribut($img,'src');
243
244 if (!$logo) $logo = $img;
245 else {
246 $srcWidth = extraire_attribut($img,'width');
247 $srcHeight = extraire_attribut($img,'height');
248 }
249
250 // ne jamais operer directement sur une image distante pour des raisons de perfo
251 // la copie locale a toutes les chances d'etre la ou de resservir
252 if (preg_match(';^(\w{3,7}://);', $logo)){
253 include_spip('inc/distant');
254 $fichier = copie_locale($logo);
255 $logo = $fichier ? _DIR_RACINE . $fichier : $logo;
256 }
257 if (($p=strpos($logo,'?'))!==FALSE)
258 $logo=substr($logo,0,$p);
259
260 $srcsize = false;
261 if (isset($largeur_img[$logo]))
262 $srcWidth = $largeur_img[$logo];
263 if (isset($hauteur_img[$logo]))
264 $srcHeight = $hauteur_img[$logo];
265 if (!$srcWidth OR !$srcHeight){
266 if ($srcsize = @getimagesize($logo)){
267 if (!$srcWidth) $largeur_img[$logo] = $srcWidth = $srcsize[0];
268 if (!$srcHeight) $hauteur_img[$logo] = $srcHeight = $srcsize[1];
269 }
270 // $logo peut etre une reference a une image temporaire dont a n'a que le log .src
271 // on s'y refere, l'image sera reconstruite en temps utile si necessaire
272 elseif(@file_exists($f = "$logo.src")
273 AND lire_fichier($f,$valeurs)
274 AND $valeurs=unserialize($valeurs)) {
275 if (!$srcWidth) $largeur_img[$mem] = $srcWidth = $valeurs["largeur_dest"];
276 if (!$srcHeight) $hauteur_img[$mem] = $srcHeight = $valeurs["hauteur_dest"];
277 }
278 }
279 return array($srcHeight, $srcWidth);
280 }
281 // http://doc.spip.org/@largeur
282 function largeur($img) {
283 if (!$img) return;
284 list ($h,$l) = taille_image($img);
285 return $l;
286 }
287 // http://doc.spip.org/@hauteur
288 function hauteur($img) {
289 if (!$img) return;
290 list ($h,$l) = taille_image($img);
291 return $h;
292 }
293
294
295 // Echappement des entites HTML avec correction des entites "brutes"
296 // (generees par les butineurs lorsqu'on rentre des caracteres n'appartenant
297 // pas au charset de la page [iso-8859-1 par defaut])
298 //
299 // Attention on limite cette correction aux caracteres "hauts" (en fait > 99
300 // pour aller plus vite que le > 127 qui serait logique), de maniere a
301 // preserver des echappements de caracteres "bas" (par exemple [ ou ")
302 // et au cas particulier de &amp; qui devient &amp;amp; dans les url
303 // http://doc.spip.org/@corriger_entites_html
304 function corriger_entites_html($texte) {
305 if (strpos($texte,'&amp;') === false) return $texte;
306 return preg_replace(',&amp;(#[0-9][0-9][0-9]+;|amp;),iS', '&\1', $texte);
307 }
308 // idem mais corriger aussi les &amp;eacute; en &eacute;
309 // http://doc.spip.org/@corriger_toutes_entites_html
310 function corriger_toutes_entites_html($texte) {
311 if (strpos($texte,'&amp;') === false) return $texte;
312 return preg_replace(',&amp;(#?[a-z0-9]+;),iS', '&\1', $texte);
313 }
314
315 // http://doc.spip.org/@proteger_amp
316 function proteger_amp($texte){
317 return str_replace('&','&amp;',$texte);
318 }
319 // http://doc.spip.org/@entites_html
320 function entites_html($texte, $tout=false) {
321 if (!is_string($texte) OR !$texte
322 OR !preg_match(",[&\"'<>],S", $texte) # strpbrk($texte, "&\"'<>")!==false
323 ) return $texte;
324 include_spip('inc/texte');
325 $texte = htmlspecialchars(echappe_retour(echappe_html($texte,'',true),'','proteger_amp'));
326 if ($tout)
327 return corriger_toutes_entites_html($texte);
328 else
329 return corriger_entites_html($texte);
330 }
331
332 // Transformer les &eacute; dans le charset local
333 // http://doc.spip.org/@filtrer_entites
334 function filtrer_entites($texte) {
335 if (strpos($texte,'&') === false) return $texte;
336 // filtrer
337 $texte = html2unicode($texte);
338 // remettre le tout dans le charset cible
339 return unicode2charset($texte);
340 }
341
342 // caracteres de controle - http://www.w3.org/TR/REC-xml/#charsets
343 // http://doc.spip.org/@supprimer_caracteres_illegaux
344 function supprimer_caracteres_illegaux($texte) {
345 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";
346 static $to = null;
347
348 if (is_array($texte)) {
349 return array_map('supprimer_caracteres_illegaux', $texte);
350 }
351 if (!$to) $to = str_repeat('-', strlen($from));
352 return strtr($texte, $from, $to);
353 }
354
355 // Supprimer caracteres windows et les caracteres de controle ILLEGAUX
356 // http://doc.spip.org/@corriger_caracteres
357 function corriger_caracteres ($texte) {
358 $texte = corriger_caracteres_windows($texte);
359 $texte = supprimer_caracteres_illegaux($texte);
360 return $texte;
361 }
362
363 // Encode du HTML pour transmission XML
364 // http://doc.spip.org/@texte_backend
365 function texte_backend($texte) {
366
367 static $apostrophe = array("&#8217;", "'"); # n'allouer qu'une fois
368
369 // si on a des liens ou des images, les passer en absolu
370 $texte = liens_absolus($texte);
371
372 // echapper les tags &gt; &lt;
373 $texte = preg_replace(',&(gt|lt);,S', '&amp;\1;', $texte);
374
375 // importer les &eacute;
376 $texte = filtrer_entites($texte);
377
378 // " -> &quot; et tout ce genre de choses
379 $u = $GLOBALS['meta']['pcre_u'];
380 $texte = str_replace("&nbsp;", " ", $texte);
381 $texte = preg_replace('/\s{2,}/S'.$u, " ", $texte);
382 $texte = entites_html($texte);
383
384 // verifier le charset
385 $texte = charset2unicode($texte);
386
387 // Caracteres problematiques en iso-latin 1
388 if ($GLOBALS['meta']['charset'] == 'iso-8859-1') {
389 $texte = str_replace(chr(156), '&#156;', $texte);
390 $texte = str_replace(chr(140), '&#140;', $texte);
391 $texte = str_replace(chr(159), '&#159;', $texte);
392 }
393
394 // l'apostrophe curly pose probleme a certains lecteure de RSS
395 // et le caractere apostrophe alourdit les squelettes avec PHP
396 // ==> on les remplace par l'entite HTML
397 return str_replace($apostrophe, "'", $texte);
398 }
399
400 // Comme ci-dessus, mais avec addslashes final pour squelettes avec PHP (rss)
401
402 function texte_backendq($texte) {
403 return addslashes(texte_backend($texte));
404 }
405
406 // Enleve le numero des titres numerotes ("1. Titre" -> "Titre")
407 // http://doc.spip.org/@supprimer_numero
408 function supprimer_numero($texte) {
409 return preg_replace(
410 ",^[[:space:]]*([0-9]+)([.)]|".chr(194).'?'.chr(176).")[[:space:]]+,S",
411 "", $texte);
412 }
413
414 // et la fonction inverse
415 // http://doc.spip.org/@recuperer_numero
416 function recuperer_numero($texte) {
417 if (preg_match(
418 ",^[[:space:]]*([0-9]+)([.)]|".chr(194).'?'.chr(176).")[[:space:]]+,S",
419 $texte, $regs))
420 return intval($regs[1]);
421 else
422 return '';
423 }
424
425 // Suppression basique et brutale de tous les <...>
426 // http://doc.spip.org/@supprimer_tags
427 function supprimer_tags($texte, $rempl = "") {
428 $texte = preg_replace(",<[^>]*>,US", $rempl, $texte);
429 // ne pas oublier un < final non ferme
430 // mais qui peut aussi etre un simple signe plus petit que
431 $texte = str_replace('<', ' ', $texte);
432 return $texte;
433 }
434
435 // Convertit les <...> en la version lisible en HTML
436 // http://doc.spip.org/@echapper_tags
437 function echapper_tags($texte, $rempl = "") {
438 $texte = preg_replace("/<([^>]*)>/", "&lt;\\1&gt;", $texte);
439 return $texte;
440 }
441
442 // Convertit un texte HTML en texte brut
443 // http://doc.spip.org/@textebrut
444 function textebrut($texte) {
445 $u = $GLOBALS['meta']['pcre_u'];
446 $texte = preg_replace('/\s+/S'.$u, " ", $texte);
447 $texte = preg_replace("/<(p|br)( [^>]*)?".">/iS", "\n\n", $texte);
448 $texte = preg_replace("/^\n+/", "", $texte);
449 $texte = preg_replace("/\n+$/", "", $texte);
450 $texte = preg_replace("/\n +/", "\n", $texte);
451 $texte = supprimer_tags($texte);
452 $texte = preg_replace("/(&nbsp;| )+/S", " ", $texte);
453 // nettoyer l'apostrophe curly qui pose probleme a certains rss-readers, lecteurs de mail...
454 $texte = str_replace("&#8217;","'",$texte);
455 return $texte;
456 }
457
458 // Remplace les liens SPIP en liens ouvrant dans une nouvelle fenetre (target=blank)
459 // http://doc.spip.org/@liens_ouvrants
460 function liens_ouvrants ($texte) {
461 return preg_replace(",<a ([^>]*https?://[^>]*class=[\"']spip_(out|url)\b[^>]+)>,",
462 "<a \\1 target=\"_blank\">", $texte);
463 }
464
465 // Transformer les sauts de paragraphe en simples passages a la ligne
466 // http://doc.spip.org/@PtoBR
467 function PtoBR($texte){
468 $u = $GLOBALS['meta']['pcre_u'];
469 $texte = preg_replace("@</p>@iS", "\n", $texte);
470 $texte = preg_replace("@<p\b.*>@UiS", "<br />", $texte);
471 $texte = preg_replace("@^\s*<br />@S".$u, "", $texte);
472 return $texte;
473 }
474
475 // Couper les "mots" de plus de $l caracteres (souvent des URLs)
476 // en mettant des espaces (par defaut, soft hyphen &#173: = &shy;)
477 // http://doc.spip.org/@lignes_longues
478 function lignes_longues($texte, $l = 70, $espace='&#173;') {
479 if ($l<1) return $texte;
480 if (!preg_match("/[\w,\/.]{".$l."}/UmsS", $texte))
481 return $texte;
482 // Passer en utf-8 pour ne pas avoir de coupes trop courtes avec les &#xxxx;
483 // qui prennent 7 caracteres
484 #include_spip('inc/charsets');
485 $texte = str_replace("&nbsp;","<&nbsp>",$texte);
486 $texte = html2unicode($texte, true);
487 $texte = str_replace("<&nbsp>","&nbsp;",$texte);
488 $texte = unicode_to_utf_8(charset2unicode(
489 $texte, $GLOBALS['meta']['charset'], true));
490
491 // echapper les tags (on ne veut pas casser les a href=...)
492 $tags = array();
493 if (preg_match_all('/<.+>|&(?:amp;)?#x?[0-9]+;|&(?:amp;)?[a-zA-Z1-4]{2,6};/UumsS', $texte, $t, PREG_SET_ORDER)) {
494 foreach ($t as $n => $tag) {
495 $tags[$n] = $tag[0];
496 $texte = str_replace($tag[0], "<---$n--->", $texte);
497 }
498 }
499 // casser les mots longs qui restent
500 // note : on pourrait preferer couper sur les / , etc.
501 if (preg_match_all("/[\w,\/.]{".$l."}/UmsS", $texte, $longs, PREG_SET_ORDER)) {
502 foreach ($longs as $long) {
503 $texte = str_replace($long[0], $long[0].$espace, $texte);
504 }
505 }
506
507 // retablir les tags
508 if (preg_match_all('/<---[\s0-9]+--->/UumsS', $texte, $t, PREG_SET_ORDER)) {
509 foreach ($t as $tag) {
510 $n = intval(preg_replace(',[^0-9]+,U','',$tag[0]));
511 $texte = str_replace($tag[0], $tags[$n], $texte);
512 }
513 }
514
515 return importer_charset($texte, 'utf-8');
516 }
517
518 // Majuscules y compris accents, en HTML
519 // http://doc.spip.org/@majuscules
520 function majuscules($texte) {
521 if (!strlen($texte)) return '';
522
523 // Cas du turc
524 if ($GLOBALS['spip_lang'] == 'tr') {
525 # remplacer hors des tags et des entites
526 if (preg_match_all(',<[^<>]+>|&[^;]+;,S', $texte, $regs, PREG_SET_ORDER))
527 foreach ($regs as $n => $match)
528 $texte = str_replace($match[0], "@@SPIP_TURC$n@@", $texte);
529
530 $texte = str_replace('i', '&#304;', $texte);
531
532 if ($regs)
533 foreach ($regs as $n => $match)
534 $texte = str_replace("@@SPIP_TURC$n@@", $match[0], $texte);
535 }
536
537 // Cas general
538 return "<span style='text-transform: uppercase;'>$texte</span>";
539 }
540
541 // "127.4 ko" ou "3.1 Mo"
542 // http://doc.spip.org/@taille_en_octets
543 function taille_en_octets ($taille) {
544 if ($taille < 1) return '';
545 if ($taille < 1024) {$taille = _T('taille_octets', array('taille' => $taille));}
546 else if ($taille < 1024*1024) {
547 $taille = _T('taille_ko', array('taille' => ((floor($taille / 102.4))/10)));
548 } else {
549 $taille = _T('taille_mo', array('taille' => ((floor(($taille / 1024) / 102.4))/10)));
550 }
551 return $taille;
552 }
553
554
555 // Rend une chaine utilisable sans dommage comme attribut HTML
556 // http://doc.spip.org/@attribut_html
557 function attribut_html($texte,$textebrut = true) {
558 $u = $GLOBALS['meta']['pcre_u'];
559 if ($textebrut)
560 $texte = preg_replace(array(",\n,",",\s(?=\s),msS".$u),array(" ",""),textebrut($texte));
561 $texte = texte_backend($texte);
562 $texte = str_replace(array("'",'"'),array('&#39;', '&#34;'), $texte);
563
564 return preg_replace(array("/&(amp;|#38;)/","/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/"),array("&","&#38;") , $texte);
565 }
566
567 // Vider les url nulles comme 'http://' ou 'mailto:'
568 // et leur appliquer un htmlspecialchars() + gerer les &amp;
569 // http://doc.spip.org/@vider_url
570 function vider_url($url, $entites = true) {
571 # un message pour abs_url
572 $GLOBALS['mode_abs_url'] = 'url';
573 $url = trim($url);
574 $r = ",^(?:" . _PROTOCOLES_STD . '):?/?/?$,iS';
575 return preg_match($r, $url) ?'': ($entites ? entites_html($url) : $url);
576 }
577
578 // Extraire une date de n'importe quel champ (a completer...)
579 // http://doc.spip.org/@extraire_date
580 function extraire_date($texte) {
581 // format = 2001-08
582 if (preg_match(",([1-2][0-9]{3})[^0-9]*(1[0-2]|0?[1-9]),",$texte,$regs))
583 return $regs[1]."-".sprintf("%02d", $regs[2])."-01";
584 }
585
586 // Maquiller une adresse e-mail
587 // http://doc.spip.org/@antispam
588 function antispam($texte) {
589 include_spip('inc/acces');
590 $masque = creer_pass_aleatoire(3);
591 return preg_replace("/@/", " $masque ", $texte);
592 }
593
594 // http://doc.spip.org/@securiser_acces
595 function securiser_acces($id_auteur, $cle, $dir, $op='', $args='')
596 {
597 include_spip('inc/acces');
598 if ($op) $dir .= " $op $args";
599 return verifier_low_sec($id_auteur, $cle, $dir);
600 }
601
602 // sinon{texte, rien} : affiche "rien" si la chaine est vide,
603 // affiche la chaine si non vide ;
604 // attention c'est compile directement dans inc/references
605 // http://doc.spip.org/@sinon
606 function sinon ($texte, $sinon='') {
607 if ($texte OR (!is_array($texte) AND strlen($texte)))
608 return $texte;
609 else
610 return $sinon;
611 }
612
613 // |choixsivide{vide,pasvide} affiche pasvide si la chaine n'est pas vide...
614 // http://doc.spip.org/@choixsivide
615 function choixsivide($a, $vide, $pasvide) {
616 return $a ? $pasvide : $vide;
617 }
618
619 // |choixsiegal{aquoi,oui,non} affiche oui si la chaine est egal a aquoi ...
620 // http://doc.spip.org/@choixsiegal
621 function choixsiegal($a1,$a2,$v,$f) {
622 return ($a1 == $a2) ? $v : $f;
623 }
624
625
626 //
627 // Date, heure, saisons
628 //
629
630 // on normalise la date, si elle vient du contexte (public/parametrer.php), on force le jour
631 // http://doc.spip.org/@normaliser_date
632 function normaliser_date($date, $forcer_jour = false) {
633 $date = vider_date($date);
634 if ($date) {
635 if (preg_match("/^[0-9]{8,10}$/", $date))
636 $date = date("Y-m-d H:i:s", $date);
637 if (preg_match("#^([12][0-9]{3})([-/]00)?( [-0-9:]+)?$#", $date, $regs))
638 $date = $regs[1]."-00-00".$regs[3];
639 else if (preg_match("#^([12][0-9]{3}[-/][01]?[0-9])([-/]00)?( [-0-9:]+)?$#", $date, $regs))
640 $date = preg_replace("@/@","-",$regs[1])."-00".$regs[3];
641 else
642 $date = date("Y-m-d H:i:s", strtotime($date));
643
644 if ($forcer_jour)
645 $date = str_replace('-00', '-01', $date);
646 }
647 return $date;
648 }
649
650 // http://doc.spip.org/@vider_date
651 function vider_date($letexte) {
652 if (strncmp("0000-00-00", $letexte,10)==0) return '';
653 if (strncmp("0001-01-01", $letexte,10)==0) return '';
654 if (strncmp("1970-01-01", $letexte,10)==0) return ''; // eviter le bug GMT-1
655 return $letexte;
656 }
657
658 // http://doc.spip.org/@recup_heure
659 function recup_heure($date){
660
661 static $d = array(0,0,0);
662 if (!preg_match('#([0-9]{1,2}):([0-9]{1,2}):([0-9]{1,2})#', $date, $r))
663 return $d;
664
665 array_shift($r);
666 return $r;
667 }
668
669 // http://doc.spip.org/@heures
670 function heures($numdate) {
671 $date_array = recup_heure($numdate);
672 if ($date_array)
673 list($heures, $minutes, $secondes) = $date_array;
674 return $heures;
675 }
676
677 // http://doc.spip.org/@minutes
678 function minutes($numdate) {
679 $date_array = recup_heure($numdate);
680 if ($date_array)
681 list($heures, $minutes, $secondes) = $date_array;
682 return $minutes;
683 }
684
685 // http://doc.spip.org/@secondes
686 function secondes($numdate) {
687 $date_array = recup_heure($numdate);
688 if ($date_array)
689 list($heures,$minutes,$secondes) = $date_array;
690 return $secondes;
691 }
692
693 // http://doc.spip.org/@heures_minutes
694 function heures_minutes($numdate) {
695 return _T('date_fmt_heures_minutes', array('h'=> heures($numdate), 'm'=> minutes($numdate)));
696 }
697
698 // http://doc.spip.org/@recup_date
699 function recup_date($numdate, $forcer_jour = true){
700 if (!$numdate) return '';
701 $heures = $minutes = $secondes = 0;
702 if (preg_match('#([0-9]{1,2})/([0-9]{1,2})/([0-9]{4}|[0-9]{1,2})#', $numdate, $regs)) {
703 $jour = $regs[1];
704 $mois = $regs[2];
705 $annee = $regs[3];
706 if ($annee < 90){
707 $annee = 2000 + $annee;
708 } elseif ($annee<100) {
709 $annee = 1900 + $annee ;
710 }
711 list($heures, $minutes, $secondes) = recup_heure($numdate);
712
713 }
714 elseif (preg_match('#([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})#',$numdate, $regs)) {
715 $annee = $regs[1];
716 $mois = $regs[2];
717 $jour = $regs[3];
718 list($heures, $minutes, $secondes) = recup_heure($numdate);
719 }
720 elseif (preg_match('#([0-9]{4})-([0-9]{2})#', $numdate, $regs)){
721 $annee = $regs[1];
722 $mois = $regs[2];
723 $jour ='';
724 list($heures, $minutes, $secondes) = recup_heure($numdate);
725 }
726 elseif (preg_match('#^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$#', $numdate, $regs)){
727 $annee = $regs[1];
728 $mois = $regs[2];
729 $jour = $regs[3];
730 $heures = $regs[4];
731 $minutes = $regs[5];
732 $secondes = $regs[6];
733 } else $annee = $mois = $jour ='';
734 if ($annee > 4000) $annee -= 9000;
735 if (substr($jour, 0, 1) == '0') $jour = substr($jour, 1);
736
737 if ($forcer_jour AND $jour == '0') $jour = '1';
738 if ($forcer_jour AND $mois == '0') $mois = '1';
739 if ($annee OR $mois OR $jour OR $heures OR $minutes OR $secondes)
740 return array($annee, $mois, $jour, $heures, $minutes, $secondes);
741 }
742
743 // une date pour l'interface : utilise date_relative si le decalage
744 // avec time() est de moins de douze heures, sinon la date complete
745 // http://doc.spip.org/@date_interface
746 function date_interface($date, $decalage_maxi = 43200/* 12*3600 */) {
747 return sinon(
748 date_relative($date, $decalage_maxi),
749 affdate_heure($date)
750 );
751 }
752
753 // http://doc.spip.org/@date_relative
754 function date_relative($date, $decalage_maxi=0,$ref_date=null) {
755
756 if (is_null($ref_date))
757 $ref_time = time();
758 else
759 $ref_time = strtotime($ref_date);
760
761 if (!$date) return;
762 $decal = date("U",$ref_time) - date("U", strtotime($date));
763
764 if ($decalage_maxi AND ($decal > $decalage_maxi OR $decal < 0))
765 return '';
766
767 if ($decal < 0) {
768 $il_y_a = "date_dans";
769 $decal = -1 * $decal;
770 } else {
771 $il_y_a = "date_il_y_a";
772 }
773
774 if ($decal > 3600 * 24 * 30 * 6)
775 return affdate_court($date);
776
777 if ($decal > 3600 * 24 * 30) {
778 $mois = floor ($decal / (3600 * 24 * 30));
779 if ($mois < 2)
780 $delai = "$mois "._T("date_un_mois");
781 else
782 $delai = "$mois "._T("date_mois");
783 }
784 else if ($decal > 3600 * 24 * 7) {
785 $semaines = floor ($decal / (3600 * 24 * 7));
786 if ($semaines < 2)
787 $delai = "$semaines "._T("date_une_semaine");
788 else
789 $delai = "$semaines "._T("date_semaines");
790 }
791 else if ($decal > 3600 * 24) {
792 $jours = floor ($decal / (3600 * 24));
793 if ($jours < 2)
794 return $il_y_a=="date_dans"?_T("date_demain"):_T("date_hier");
795 else
796 $delai = "$jours "._T("date_jours");
797 }
798 else if ($decal >= 3600) {
799 $heures = floor ($decal / 3600);
800 if ($heures < 2)
801 $delai = "$heures "._T("date_une_heure");
802 else
803 $delai = "$heures "._T("date_heures");
804 }
805 else if ($decal >= 60) {
806 $minutes = floor($decal / 60);
807 if ($minutes < 2)
808 $delai = "$minutes "._T("date_une_minute");
809 else
810 $delai = "$minutes "._T("date_minutes");
811 } else {
812 $secondes = ceil($decal);
813 if ($secondes < 2)
814 $delai = "$secondes "._T("date_une_seconde");
815 else
816 $delai = "$secondes "._T("date_secondes");
817 }
818
819 return _T($il_y_a, array("delai"=> $delai));
820 }
821
822
823 // http://doc.spip.org/@date_relativecourt
824 function date_relativecourt($date, $decalage_maxi=0) {
825
826 if (!$date) return;
827 $decal = date("U",strtotime(date('Y-m-d'))-strtotime(date('Y-m-d',strtotime($date))));
828
829 if ($decalage_maxi AND ($decal > $decalage_maxi OR $decal < 0))
830 return '';
831
832 if ($decal < -24*3600) {
833 $retour = date_relative($date, $decalage_maxi);
834 }
835 elseif ($decal < 0) {
836 $retour = _T("date_demain");
837 }
838 else if ($decal < (3600 * 24) ) {
839 $retour = _T("date_aujourdhui");
840 }
841 else if ($decal < (3600 * 24 *2) ) {
842 $retour = _T("date_hier");
843 }
844 else {
845 $retour = date_relative($date, $decalage_maxi);
846 }
847
848
849
850 return $retour;
851 }
852
853 // http://doc.spip.org/@affdate_base
854 function affdate_base($numdate, $vue, $param = '') {
855 global $spip_lang;
856 $date_array = recup_date($numdate, false);
857 if (!$date_array) return;
858 list($annee, $mois, $jour, $heures, $minutes, $secondes)= $date_array;
859
860 // 1er, 21st, etc.
861 $journum = $jour;
862
863 if ($jour == 0) {
864 $jour = '';
865 } else {
866 $njour = intval($jour);
867 if ($jourth = _T('date_jnum'.$jour))
868 $jour = $jourth;
869 }
870
871 $mois = intval($mois);
872 if ($mois > 0 AND $mois < 13) {
873 $nommois = _T('date_mois_'.$mois);
874 if ($jour)
875 $jourmois = _T('date_de_mois_'.$mois, array('j'=>$jour, 'nommois'=>$nommois));
876 else
877 $jourmois = $nommois;
878 } else $nommois = '';
879
880 if ($annee < 0) {
881 $annee = -$annee." "._T('date_avant_jc');
882 $avjc = true;
883 }
884 else $avjc = false;
885
886 switch ($vue) {
887 case 'saison':
888 if ($mois > 0){
889 $saison = 1;
890 if (($mois == 3 AND $jour >= 21) OR $mois > 3) $saison = 2;
891 if (($mois == 6 AND $jour >= 21) OR $mois > 6) $saison = 3;
892 if (($mois == 9 AND $jour >= 21) OR $mois > 9) $saison = 4;
893 if (($mois == 12 AND $jour >= 21) OR $mois > 12) $saison = 1;
894 }
895 return _T('date_saison_'.$saison);
896
897 case 'court':
898 if ($avjc) return $annee;
899 $a = date('Y');
900 if ($annee < ($a - 100) OR $annee > ($a + 100)) return $annee;
901 if ($annee != $a) return _T('date_fmt_mois_annee', array ('mois'=>$mois, 'nommois'=>ucfirst($nommois), 'annee'=>$annee));
902 return _T('date_fmt_jour_mois', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
903
904 case 'jourcourt':
905 if ($avjc) return $annee;
906 $a = date('Y');
907 if ($annee < ($a - 100) OR $annee > ($a + 100)) return $annee;
908 if ($annee != $a) return _T('date_fmt_jour_mois_annee', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
909 return _T('date_fmt_jour_mois', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
910
911 case 'entier':
912 if ($avjc) return $annee;
913 if ($jour)
914 return _T('date_fmt_jour_mois_annee', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
915 elseif ($mois)
916 return trim(_T('date_fmt_mois_annee', array ('mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)));
917 else
918 return $annee;
919
920 case 'nom_mois':
921 return $nommois;
922
923 case 'mois':
924 return sprintf("%02s",$mois);
925
926 case 'jour':
927 return $jour;
928
929 case 'journum':
930 return $journum;
931
932 case 'nom_jour':
933 if (!$mois OR !$njour)
934 return '';
935 $nom = mktime(1,1,1,$mois,$njour,$annee);
936 $nom = 1+date('w',$nom);
937 $param = $param ? '_'.$param : '';
938 return _T('date_jour_'.$nom.$param);
939
940 case 'mois_annee':
941 if ($avjc) return $annee;
942 return trim(_T('date_fmt_mois_annee', array('mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)));
943
944 case 'annee':
945 return $annee;
946
947 // Cas d'une vue non definie : retomber sur le format
948 // de date propose par http://www.php.net/date
949 default:
950 return date($vue, strtotime($numdate));
951 }
952 }
953
954 // http://doc.spip.org/@nom_jour
955 function nom_jour($numdate, $forme = '') {
956 if(!($forme == 'abbr' OR $forme == 'initiale')) $forme = '';
957 return affdate_base($numdate, 'nom_jour', $forme);
958 }
959
960 // http://doc.spip.org/@jour
961 function jour($numdate) {
962 return affdate_base($numdate, 'jour');
963 }
964
965 // http://doc.spip.org/@journum
966 function journum($numdate) {
967 return affdate_base($numdate, 'journum');
968 }
969
970 // http://doc.spip.org/@mois
971 function mois($numdate) {
972 return affdate_base($numdate, 'mois');
973 }
974
975 // http://doc.spip.org/@nom_mois
976 function nom_mois($numdate) {
977 return affdate_base($numdate, 'nom_mois');
978 }
979
980 // http://doc.spip.org/@annee
981 function annee($numdate) {
982 return affdate_base($numdate, 'annee');
983 }
984
985 // http://doc.spip.org/@saison
986 function saison($numdate) {
987 return affdate_base($numdate, 'saison');
988 }
989
990 // http://doc.spip.org/@affdate
991 function affdate($numdate, $format='entier') {
992 return affdate_base($numdate, $format);
993 }
994
995 // http://doc.spip.org/@affdate_court
996 function affdate_court($numdate) {
997 return affdate_base($numdate, 'court');
998 }
999
1000 // http://doc.spip.org/@affdate_jourcourt
1001 function affdate_jourcourt($numdate) {
1002 return affdate_base($numdate, 'jourcourt');
1003 }
1004
1005 // http://doc.spip.org/@affdate_mois_annee
1006 function affdate_mois_annee($numdate) {
1007 return affdate_base($numdate, 'mois_annee');
1008 }
1009
1010 // http://doc.spip.org/@affdate_heure
1011 function affdate_heure($numdate) {
1012 $date_array = recup_date($numdate);
1013 if (!$date_array) return;
1014 list($annee, $mois, $jour, $heures, $minutes, $sec)= $date_array;
1015 return _T('date_fmt_jour_heure', array('jour' => affdate($numdate), 'heure' => _T('date_fmt_heures_minutes', array('h'=> $heures, 'm'=> $minutes))));
1016 }
1017
1018
1019 //
1020 // Alignements en HTML (Old-style, preferer CSS)
1021 //
1022
1023 // Cette fonction cree le paragraphe s'il n'existe pas (texte sur un seul para)
1024 // http://doc.spip.org/@aligner
1025 function aligner($letexte, $justif='') {
1026 $letexte = trim($letexte);
1027 if (!strlen($letexte)) return '';
1028
1029 // Paragrapher proprement
1030 $letexte = paragrapher($letexte, true);
1031
1032 // Inserer les alignements
1033 if ($justif)
1034 $letexte = str_replace(
1035 '<p class="spip">', '<p class="spip" align="'.$justif.'">',
1036 $letexte);
1037
1038 return $letexte;
1039 }
1040
1041 // http://doc.spip.org/@justifier
1042 function justifier($letexte) {
1043 return aligner($letexte,'justify');
1044 }
1045
1046 // http://doc.spip.org/@aligner_droite
1047 function aligner_droite($letexte) {
1048 return aligner($letexte,'right');
1049 }
1050
1051 // http://doc.spip.org/@aligner_gauche
1052 function aligner_gauche($letexte) {
1053 return aligner($letexte,'left');
1054 }
1055
1056 // http://doc.spip.org/@centrer
1057 function centrer($letexte) {
1058 return aligner($letexte,'center');
1059 }
1060
1061 // http://doc.spip.org/@style_align
1062 function style_align($bof) {
1063 global $spip_lang_left;
1064 return "text-align: $spip_lang_left";
1065 }
1066
1067 //
1068 // Export iCal
1069 //
1070
1071 // http://doc.spip.org/@filtrer_ical
1072 function filtrer_ical($texte) {
1073 #include_spip('inc/charsets');
1074 $texte = html2unicode($texte);
1075 $texte = unicode2charset(charset2unicode($texte, $GLOBALS['meta']['charset'], 1), 'utf-8');
1076 $texte = preg_replace("/\n/", " ", $texte);
1077 $texte = preg_replace("/,/", "\,", $texte);
1078
1079 return $texte;
1080 }
1081
1082 // http://doc.spip.org/@date_ical
1083 function date_ical($date, $addminutes = 0) {
1084 list($heures, $minutes, $secondes) = recup_heure($date);
1085 list($annee, $mois, $jour) = recup_date($date);
1086 return date("Ymd\THis",
1087 mktime($heures, $minutes+$addminutes,$secondes,$mois,$jour,$annee));
1088 }
1089
1090 // date_iso retourne la date au format "RFC 3339" / "ISO 8601"
1091 // voir http://www.php.net/manual/fr/ref.datetime.php#datetime.constants
1092 // http://doc.spip.org/@date_iso
1093 function date_iso($date_heure) {
1094 list($annee, $mois, $jour) = recup_date($date_heure);
1095 list($heures, $minutes, $secondes) = recup_heure($date_heure);
1096 $time = @mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
1097 return gmdate('Y-m-d\TH:i:s\Z', $time);
1098 }
1099
1100 // date_822 retourne la date au format "RFC 822"
1101 // utilise pour <pubdate> dans certains feeds RSS
1102 // http://doc.spip.org/@date_822
1103 function date_822($date_heure) {
1104 list($annee, $mois, $jour) = recup_date($date_heure);
1105 list($heures, $minutes, $secondes) = recup_heure($date_heure);
1106 $time = mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
1107 return date('r', $time);
1108 }
1109
1110 // http://doc.spip.org/@date_anneemoisjour
1111 function date_anneemoisjour($d) {
1112 if (!$d) $d = date("Y-m-d");
1113 return substr($d, 0, 4) . substr($d, 5, 2) .substr($d, 8, 2);
1114 }
1115
1116 // http://doc.spip.org/@date_anneemois
1117 function date_anneemois($d) {
1118 if (!$d) $d = date("Y-m-d");
1119 return substr($d, 0, 4) . substr($d, 5, 2);
1120 }
1121
1122 // http://doc.spip.org/@date_debut_semaine
1123 function date_debut_semaine($annee, $mois, $jour) {
1124 $w_day = date("w", mktime(0,0,0,$mois, $jour, $annee));
1125 if ($w_day == 0) $w_day = 7; // Gaffe: le dimanche est zero
1126 $debut = $jour-$w_day+1;
1127 return date("Ymd", mktime(0,0,0,$mois,$debut,$annee));
1128 }
1129
1130 // http://doc.spip.org/@date_fin_semaine
1131 function date_fin_semaine($annee, $mois, $jour) {
1132 $w_day = date("w", mktime(0,0,0,$mois, $jour, $annee));
1133 if ($w_day == 0) $w_day = 7; // Gaffe: le dimanche est zero
1134 $debut = $jour-$w_day+1;
1135 return date("Ymd", mktime(0,0,0,$mois,$debut+6,$annee));
1136 }
1137
1138 // http://doc.spip.org/@agenda_connu
1139 function agenda_connu($type)
1140 {
1141 return in_array($type, array('jour','mois','semaine','periode', 'trimestre')) ? ' ' : '';
1142 }
1143
1144
1145 // Cette fonction memorise dans un tableau indexe par son 5e arg
1146 // un evenement decrit par les 4 autres (date, descriptif, titre, URL).
1147 // Appellee avec une date nulle, elle renvoie le tableau construit.
1148 // l'indexation par le 5e arg autorise plusieurs calendriers dans une page
1149
1150 // http://doc.spip.org/@agenda_memo
1151 function agenda_memo($date=0 , $descriptif='', $titre='', $url='', $cal='')
1152 {
1153 static $agenda = array();
1154 if (!$date) return $agenda;
1155 $idate = date_ical($date);
1156 $cal = trim($cal); // func_get_args (filtre alterner) rajoute \n !!!!
1157 $agenda[$cal][(date_anneemoisjour($date))][] = array(
1158 'CATEGORIES' => $cal,
1159 'DTSTART' => $idate,
1160 'DTEND' => $idate,
1161 'DESCRIPTION' => texte_script($descriptif),
1162 'SUMMARY' => texte_script($titre),
1163 'URL' => $url);
1164 // toujours retourner vide pour qu'il ne se passe rien
1165 return "";
1166 }
1167
1168 // Cette fonction recoit:
1169 // - un nombre d'evenements,
1170 // - une chaine a afficher si ce nombre est nul,
1171 // - un type de calendrier
1172 // -- et une suite de noms N.
1173 // Elle demande a la fonction precedente son tableau
1174 // et affiche selon le type les elements indexes par N dans ce tableau.
1175 // Si le suite de noms est vide, tout le tableau est pris
1176 // Ces noms N sont aussi des classes CSS utilisees par http_calendrier_init
1177 // Cette fonction recupere aussi par _request les parametres
1178 // jour, mois, annee, echelle, partie_cal (a ameliorer)
1179
1180 // http://doc.spip.org/@agenda_affiche
1181 function agenda_affiche($i)
1182 {
1183 $args = func_get_args();
1184 // date (ou nombre d'evenements qu'on pourrait alors afficher)
1185 $nb = array_shift($args);
1186 $evt = array_shift($args);
1187 $type = array_shift($args);
1188 if ($nb) {
1189 $agenda = agenda_memo(0);
1190 $evt = array();
1191 foreach (($args ? $args : array_keys($agenda)) as $k) {
1192 if (is_array($agenda[$k]))
1193 foreach($agenda[$k] as $d => $v) {
1194 $evt[$d] = $evt[$d] ? (array_merge($evt[$d], $v)) : $v;
1195 }
1196 }
1197 }
1198 return agenda_periode($type, $nb, $evt);
1199 }
1200
1201 function agenda_periode($type, $nb, $avec, $sans='')
1202 {
1203 include_spip('inc/agenda');
1204 $start = agenda_controle();
1205 if ($start<0) $start = time();
1206 $mindate = date("Ymd", $start);
1207
1208 if ($type != 'periode')
1209 $evt = array($sans, $avec);
1210 else {
1211 $min = substr($mindate,6,2);
1212 $max = !(is_array($avec) AND $avec) ? time() : strtotime(max(array_keys($avec)));
1213 $max = $min + (($max - $start) / (3600 * 24));
1214 if ($max < 31) $max = 0;
1215 $evt = array($sans, $avec, $min, $max);
1216 $type = 'mois';
1217 }
1218 $ancre = _request('ancre');
1219 $s = self('&') . (preg_match('/^[\w-]+$/', $ancre) ? "#$ancre" : '');
1220 return http_calendrier_init($start, $type, _request('echelle'), _request('partie_cal'), $s, $evt);
1221 }
1222
1223
1224 // Controle la coherence des 3 nombres d'une date et retourne le temps Unix,
1225 // sinon retourne un code d'erreur, toujours negatif
1226 function agenda_controle($date='date', $jour='jour', $mois='mois', $annee='annee')
1227 {
1228 $jour = _request($jour);
1229 $mois = _request($mois);
1230 $annee = _request($annee);
1231
1232 if (!($jour||$mois||$anne)) {
1233 if ($date = recup_date(_request($date))) {
1234 list($annee, $mois, $jour ) = $date;
1235 } else return -1;
1236 }
1237 if (!$d = mktime(0,0,0, $mois, $jour, $annee)) return -2;
1238 if ($jour != date("d", $d)) return -3;
1239 if ($mois != date("m", $d)) return -4;
1240 if ($annee != date("Y", $d)) return -5;
1241 return $d;
1242 }
1243
1244 //
1245 // Recuperation de donnees dans le champ extra
1246 // Ce filtre n'a de sens qu'avec la balise #EXTRA
1247 //
1248 // http://doc.spip.org/@extra
1249 function extra($letexte, $champ) {
1250 $champs = unserialize($letexte);
1251 return $champs[$champ];
1252 }
1253
1254 // postautobr : transforme les sauts de ligne en _
1255 // http://doc.spip.org/@post_autobr
1256 function post_autobr($texte, $delim="\n_ ") {
1257 $texte = str_replace("\r\n", "\r", $texte);
1258 $texte = str_replace("\r", "\n", $texte);
1259
1260 if (preg_match(",\n+$,", $texte, $fin))
1261 $texte = substr($texte, 0, -strlen($fin = $fin[0]));
1262 else
1263 $fin = '';
1264
1265 $texte = echappe_html($texte, '', true);
1266
1267
1268 $debut = '';
1269 $suite = $texte;
1270 while ($t = strpos('-'.$suite, "\n", 1)) {
1271 $debut .= substr($suite, 0, $t-1);
1272 $suite = substr($suite, $t);
1273 $car = substr($suite, 0, 1);
1274 if (($car<>'-') AND ($car<>'_') AND ($car<>"\n") AND ($car<>"|") AND ($car<>"}")
1275 AND !preg_match(',^\s*(\n|</?(quote|div)|$),S',($suite))
1276 AND !preg_match(',</?(quote|div)> *$,iS', $debut)) {
1277 $debut .= $delim;
1278 } else
1279 $debut .= "\n";
1280 if (preg_match(",^\n+,", $suite, $regs)) {
1281 $debut.=$regs[0];
1282 $suite = substr($suite, strlen($regs[0]));
1283 }
1284 }
1285 $texte = $debut.$suite;
1286
1287 $texte = echappe_retour($texte);
1288 return $texte.$fin;
1289 }
1290
1291
1292 //
1293 // Gestion des blocs multilingues
1294 //
1295
1296 define('_EXTRAIRE_MULTI', "@<multi>(.*?)</multi>@sS");
1297 // Extraire et transformer les blocs multi ; on indique la langue courante
1298 // pour ne pas mettre de span@lang=fr si on est deja en fr
1299 // http://doc.spip.org/@extraire_multi
1300 function extraire_multi($letexte, $lang=null, $echappe_span=false) {
1301 if (strpos($letexte, '<multi>') === false) return $letexte; // perf
1302 if (preg_match_all(_EXTRAIRE_MULTI, $letexte, $regs, PREG_SET_ORDER)) {
1303 if (!$lang) $lang = $GLOBALS['spip_lang'];
1304
1305 foreach ($regs as $reg) {
1306 // chercher la version de la langue courante
1307 $trads = extraire_trads($reg[1]);
1308 if ($l = approcher_langue($trads, $lang)) {
1309 $trad = $trads[$l];
1310 } else {
1311 include_spip('inc/texte');
1312 // langue absente, prendre la premiere dispo
1313 // mais typographier le texte selon les regles de celle-ci
1314 // Attention aux blocs multi sur plusieurs lignes
1315 $l = key($trads);
1316 $trad = $trads[$l];
1317 $typographie = charger_fonction(lang_typo($l), 'typographie');
1318 $trad = traiter_retours_chariots($typographie($trad));
1319 $trad = explode("\n", $trad);
1320 foreach($trad as $i => $ligne) {
1321 if (strlen($ligne)) {
1322 $ligne = code_echappement($ligne, 'multi');
1323 $ligne = str_replace("'", '"', inserer_attribut($ligne, 'lang', $l));
1324 if (lang_dir($l) !== lang_dir($lang))
1325 $ligne = str_replace("'", '"', inserer_attribut($ligne, 'dir', lang_dir($l)));
1326 $trad[$i] = $ligne;
1327 }
1328 }
1329 $trad = join("\n", $trad);
1330 if (!$echappe_span)
1331 $trad = echappe_retour($trad, 'multi');
1332 }
1333 $letexte = str_replace($reg[0], $trad, $letexte);
1334 }
1335 }
1336
1337 return $letexte;
1338 }
1339
1340
1341
1342 //
1343 // Selection dans un tableau dont les index sont des noms de langues
1344 // de la valeur associee a la langue en cours
1345 // si absente, retourne le premier
1346 // remarque : on pourrait aussi appeler un service de traduction externe
1347 // ou permettre de choisir une langue "plus proche",
1348 // par exemple le francais pour l'espagnol, l'anglais pour l'allemand, etc.
1349
1350
1351 function multi_trad ($trads, $lang='') {
1352 $k = multi_trads($trads, $lang);
1353 return $k ? $trads[$k] : array_shift($trads);
1354 }
1355
1356 // idem, mais retourne l'index
1357
1358 function multi_trads ($trads, $lang='') {
1359
1360 if (!$lang) $lang = $GLOBALS['spip_lang'];
1361
1362 if (isset($trads[$lang])) {
1363 return $lang;
1364
1365 } // cas des langues xx_yy
1366 else if (preg_match(',^([a-z]+)_,', $lang, $regs) AND isset($trads[$regs[1]])) {
1367 return $regs[1];
1368 }
1369 else return '';
1370 }
1371
1372 // convertit le contenu d'une balise multi en un tableau
1373 // http://doc.spip.org/@extraire_trad
1374 function extraire_trads($bloc) {
1375 $lang = '';
1376 // ce reg fait planter l'analyse multi s'il y a de l'{italique} dans le champ
1377 // while (preg_match("/^(.*?)[{\[]([a-z_]+)[}\]]/siS", $bloc, $regs)) {
1378 while (preg_match("/^(.*?)[\[]([a-z_]+)[\]]/siS", $bloc, $regs)) {
1379 $texte = trim($regs[1]);
1380 if ($texte OR $lang)
1381 $trads[$lang] = $texte;
1382 $bloc = substr($bloc, strlen($regs[0]));
1383 $lang = $regs[2];
1384 }
1385 $trads[$lang] = $bloc;
1386
1387 return $trads;
1388 }
1389
1390 //
1391 // Ce filtre retourne la donnee si c'est la premiere fois qu'il la voit ;
1392 // possibilite de gerer differentes "familles" de donnees |unique{famille}
1393 # |unique{famille,1} affiche le nombre d'elements affiches (preferer toutefois #TOTAL_UNIQUE)
1394 # ameliorations possibles :
1395 # 1) si la donnee est grosse, mettre son md5 comme cle
1396 # 2) purger $mem quand on change de squelette (sinon bug inclusions)
1397 //
1398 // http://www.spip.net/@unique
1399 // http://doc.spip.org/@unique
1400 function unique($donnee, $famille='', $cpt = false) {
1401 static $mem;
1402 // permettre de vider la pile et de la restaurer
1403 // pour le calcul de introduction...
1404 if ($famille=='_spip_raz_'){
1405 $tmp = $mem;
1406 $mem = array();
1407 return $tmp;
1408 } elseif ($famille=='_spip_set_'){
1409 $mem = $donnee;
1410 return;
1411 }
1412
1413 if ($cpt)
1414 return count($mem[$famille]);
1415 if (!($mem[$famille][$donnee]++))
1416 return $donnee;
1417 }
1418
1419 //
1420 // Filtre |alterner
1421 //
1422 // Exemple [(#COMPTEUR_BOUCLE|alterner{'bleu','vert','rouge'})]
1423 //
1424 // http://doc.spip.org/@alterner
1425 function alterner($i) {
1426 // recuperer les arguments (attention fonctions un peu space)
1427 $num = func_num_args();
1428 $args = func_get_args();
1429
1430 if($num == 2 && is_array($args[1])) {
1431 $args = $args[1];
1432 array_unshift($args,'');
1433 $num = count($args);
1434 }
1435
1436 // renvoyer le i-ieme argument, modulo le nombre d'arguments
1437 return $args[(intval($i)-1)%($num-1)+1];
1438 }
1439
1440 // recuperer un attribut d'une balise html
1441 // ($complet demande de retourner $r)
1442 // la regexp est mortelle : cf. tests/filtres/extraire_attribut.php
1443 // Si on a passe un tableau de balises, renvoyer un tableau de resultats
1444 // (dans ce cas l'option $complet n'est pas disponible)
1445 // http://doc.spip.org/@extraire_attribut
1446 function extraire_attribut($balise, $attribut, $complet = false) {
1447 if (is_array($balise)) {
1448 array_walk($balise,
1449 create_function('&$a,$key,$t',
1450 '$a = extraire_attribut($a,$t);'
1451 ),
1452 $attribut);
1453 return $balise;
1454 }
1455 if (preg_match(
1456 ',(^.*?<(?:(?>\s*)(?>[\w:.-]+)(?>(?:=(?:"[^"]*"|\'[^\']*\'|[^\'"]\S*))?))*?)(\s+'
1457 .$attribut
1458 .'(?:=\s*("[^"]*"|\'[^\']*\'|[^\'"]\S*))?)()([^>]*>.*),isS',
1459
1460 $balise, $r)) {
1461 if ($r[3][0] == '"' || $r[3][0] == "'") {
1462 $r[4] = substr($r[3], 1, -1);
1463 $r[3] = $r[3][0];
1464 } elseif ($r[3]!=='') {
1465 $r[4] = $r[3];
1466 $r[3] = '';
1467 } else {
1468 $r[4] = trim($r[2]);
1469 }
1470 $att = filtrer_entites(str_replace("&#39;", "'", $r[4]));
1471 }
1472 else
1473 $att = NULL;
1474
1475 if ($complet)
1476 return array($att, $r);
1477 else
1478 return $att;
1479 }
1480
1481 // modifier (ou inserer) un attribut html dans une balise
1482 // http://doc.spip.org/@inserer_attribut
1483 function inserer_attribut($balise, $attribut, $val, $proteger=true, $vider=false) {
1484 // preparer l'attribut
1485 // supprimer les &nbsp; etc mais pas les balises html
1486 // qui ont un sens dans un attribut value d'un input
1487 if ($proteger) $val = attribut_html($val,false);
1488
1489 // echapper les ' pour eviter tout bug
1490 $val = str_replace("'", "&#39;", $val);
1491 if ($vider AND strlen($val)==0)
1492 $insert = '';
1493 else
1494 $insert = " $attribut='$val'";
1495
1496 list($old, $r) = extraire_attribut($balise, $attribut, true);
1497
1498 if ($old !== NULL) {
1499 // Remplacer l'ancien attribut du meme nom
1500 $balise = $r[1].$insert.$r[5];
1501 }
1502 else {
1503 // preferer une balise " />" (comme <img />)
1504 if (preg_match(',/>,', $balise))
1505 $balise = preg_replace(",\s?/>,S", $insert." />", $balise, 1);
1506 // sinon une balise <a ...> ... </a>
1507 else
1508 $balise = preg_replace(",\s?>,S", $insert.">", $balise, 1);
1509 }
1510
1511 return $balise;
1512 }
1513
1514 // http://doc.spip.org/@vider_attribut
1515 function vider_attribut ($balise, $attribut) {
1516 return inserer_attribut($balise, $attribut, '', false, true);
1517 }
1518
1519 // http://doc.spip.org/@tester_config
1520 function tester_config($id, $mode='') {
1521 include_spip('inc/autoriser');
1522 if ($mode)
1523 return autoriser('inscrireauteur', $mode, $id) ? $mode : '';
1524 elseif (
1525 autoriser('inscrireauteur', $mode = "1comite", $id)
1526 OR autoriser('inscrireauteur', $mode = "6forum", $id))
1527 return $mode;
1528
1529 return '';
1530 }
1531
1532 //
1533 // Un filtre qui, etant donne un #PARAMETRES_FORUM, retourne un URL de suivi rss
1534 // dudit forum
1535 // Attention applique a un #PARAMETRES_FORUM complexe (id_article=x&id_forum=y)
1536 // ca retourne un url de suivi du thread y (que le thread existe ou non)
1537 // http://doc.spip.org/@url_rss_forum
1538 function url_rss_forum($param) {
1539 if (!preg_match(',.*(id_(\w*?))=([0-9]+),S', $param, $regs)) return '';
1540 list(,$k,$t,$v) = $regs;
1541 if ($t == 'forum') $k = 'id_' . ($t = 'thread');
1542 return generer_url_public("rss_forum_$t", array($k => $v));
1543 }
1544
1545 //
1546 // Un filtre applique a #PARAMETRES_FORUM, qui donne l'adresse de la page
1547 // de reponse
1548 //
1549 // http://doc.spip.org/@url_reponse_forum
1550 function url_reponse_forum($parametres) {
1551 if (!$parametres) return '';
1552 return generer_url_public('forum', $parametres);
1553 }
1554
1555 //
1556 // Quelques fonctions de calcul arithmetique
1557 //
1558 // http://doc.spip.org/@plus
1559 function plus($a,$b) {
1560 return $a+$b;
1561 }
1562 // http://doc.spip.org/@moins
1563 function moins($a,$b) {
1564 return $a-$b;
1565 }
1566 // http://doc.spip.org/@mult
1567 function mult($a,$b) {
1568 return $a*$b;
1569 }
1570 // http://doc.spip.org/@div
1571 function div($a,$b) {
1572 return $b?$a/$b:0;
1573 }
1574 // http://doc.spip.org/@modulo
1575 function modulo($nb, $mod, $add=0) {
1576 return ($mod?$nb%$mod:0)+$add;
1577 }
1578
1579 /**
1580 * Vérifie qu'un nom (d'auteur) ne comporte pas d'autres tags que <multi>
1581 * et ceux volontairement spécifiés dans la constante
1582 *
1583 * @param string $nom
1584 * Nom (signature) proposé
1585 * @return bool
1586 * - false si pas conforme,
1587 * - true sinon
1588 **/
1589 function nom_acceptable($nom) {
1590 if (!is_string($nom)) {
1591 return false;
1592 }
1593 if (!defined('_TAGS_NOM_AUTEUR')) define('_TAGS_NOM_AUTEUR','');
1594 $tags_acceptes = array_unique(explode(',', 'multi,' . _TAGS_NOM_AUTEUR));
1595 foreach($tags_acceptes as $tag) {
1596 if (strlen($tag)) {
1597 $remp1[] = '<'.trim($tag).'>';
1598 $remp1[] = '</'.trim($tag).'>';
1599 $remp2[] = '\x60'.trim($tag).'\x61';
1600 $remp2[] = '\x60/'.trim($tag).'\x61';
1601 }
1602 }
1603 $v_nom = str_replace($remp2, $remp1, supprimer_tags(str_replace($remp1, $remp2, $nom)));
1604 return str_replace('&lt;', '<', $v_nom) == $nom;
1605 }
1606
1607 // Verifier la conformite d'une ou plusieurs adresses email
1608 // retourne false ou la normalisation de la derniere adresse donnee
1609 // http://doc.spip.org/@email_valide
1610 function email_valide($adresses) {
1611 // eviter d'injecter n'importe quoi dans preg_match
1612 if (!is_string($adresses))
1613 return false;
1614
1615 // Si c'est un spammeur autant arreter tout de suite
1616 if (preg_match(",[\n\r].*(MIME|multipart|Content-),i", $adresses)) {
1617 spip_log("Tentative d'injection de mail : $adresses");
1618 return false;
1619 }
1620
1621 foreach (explode(',', $adresses) as $v) {
1622 // nettoyer certains formats
1623 // "Marie Toto <Marie@toto.com>"
1624 $adresse = trim(preg_replace(",^[^<>\"]*<([^<>\"]+)>$,i", "\\1", $v));
1625 // RFC 822
1626 if (!preg_match('#^[^()<>@,;:\\"/[:space:]]+(@([-_0-9a-z]+\.)*[-_0-9a-z]+)$#i', $adresse))
1627 return false;
1628 }
1629 return $adresse;
1630 }
1631
1632 // http://doc.spip.org/@afficher_enclosures
1633 function afficher_enclosures($tags) {
1634 $s = array();
1635 foreach (extraire_balises($tags, 'a') as $tag) {
1636 if (extraire_attribut($tag, 'rel') == 'enclosure'
1637 AND $t = extraire_attribut($tag, 'href')) {
1638 $s[] = preg_replace(',>[^<]+</a>,S',
1639 '>'
1640 .http_img_pack('attachment.gif', $t,
1641 'height="15" width="15" title="'.attribut_html($t).'"')
1642 .'</a>', $tag);
1643 }
1644 }
1645 return join('&nbsp;', $s);
1646 }
1647 // http://doc.spip.org/@afficher_tags
1648 function afficher_tags($tags, $rels='tag,directory') {
1649 $s = array();
1650 foreach (extraire_balises($tags, 'a') as $tag) {
1651 $rel = extraire_attribut($tag, 'rel');
1652 if (strstr(",$rels,", ",$rel,"))
1653 $s[] = $tag;
1654 }
1655 return join(', ', $s);
1656 }
1657
1658 // Passe un <enclosure url="fichier" length="5588242" type="audio/mpeg"/>
1659 // au format microformat <a rel="enclosure" href="fichier" ...>fichier</a>
1660 // attention length="zz" devient title="zz", pour rester conforme
1661 // http://doc.spip.org/@enclosure2microformat
1662 function enclosure2microformat($e) {
1663 if (!$url = filtrer_entites(extraire_attribut($e, 'url')))
1664 $url = filtrer_entites(extraire_attribut($e, 'href'));
1665 $type = extraire_attribut($e, 'type');
1666 $length = extraire_attribut($e, 'length');
1667 $fichier = basename($url);
1668 return '<a rel="enclosure"'
1669 . ($url? ' href="'.htmlspecialchars($url).'"' : '')
1670 . ($type? ' type="'.htmlspecialchars($type).'"' : '')
1671 . ($length? ' title="'.htmlspecialchars($length).'"' : '')
1672 . '>'.$fichier.'</a>';
1673 }
1674 // La fonction inverse
1675 // http://doc.spip.org/@microformat2enclosure
1676 function microformat2enclosure($tags) {
1677 $enclosures = array();
1678 foreach (extraire_balises($tags, 'a') as $e)
1679 if (extraire_attribut($e, 'rel') == 'enclosure') {
1680 $url = filtrer_entites(extraire_attribut($e, 'href'));
1681 $type = extraire_attribut($e, 'type');
1682 if (!$length = intval(extraire_attribut($e, 'title')))
1683 $length = intval(extraire_attribut($e, 'length')); # vieux data
1684 $fichier = basename($url);
1685 $enclosures[] = '<enclosure'
1686 . ($url? ' url="'.htmlspecialchars($url).'"' : '')
1687 . ($type? ' type="'.htmlspecialchars($type).'"' : '')
1688 . ($length? ' length="'.$length.'"' : '')
1689 . ' />';
1690 }
1691 return join("\n", $enclosures);
1692 }
1693 // Creer les elements ATOM <dc:subject> a partir des tags
1694 // http://doc.spip.org/@tags2dcsubject
1695 function tags2dcsubject($tags) {
1696 $subjects = '';
1697 foreach (extraire_balises($tags, 'a') as $e) {
1698 if (extraire_attribut($e, rel) == 'tag') {
1699 $subjects .= '<dc:subject>'
1700 . texte_backend(textebrut($e))
1701 . '</dc:subject>'."\n";
1702 }
1703 }
1704 return $subjects;
1705 }
1706 // fabrique un bouton de type $t de Name $n, de Value $v et autres attributs $a
1707 // http://doc.spip.org/@boutonne
1708 function boutonne($t, $n, $v, $a='') {
1709 return "\n<input type='$t'"
1710 . (!$n ? '' : " name='$n'")
1711 . " value=\"$v\" $a />";
1712 }
1713
1714 // retourne la premiere balise du type demande
1715 // ex: [(#DESCRIPTIF|extraire_balise{img})]
1716 // Si on a passe un tableau de textes, renvoyer un tableau de resultats
1717 // http://doc.spip.org/@extraire_balise
1718 function extraire_balise($texte, $tag='a') {
1719 if (is_array($texte)) {
1720 array_walk($texte,
1721 create_function('&$a,$key,$t', '$a = extraire_balise($a,$t);'),
1722 $tag);
1723 return $texte;
1724 }
1725
1726 if (preg_match(
1727 ",<$tag\b[^>]*(/>|>.*</$tag\b[^>]*>|>),UimsS",
1728 $texte, $regs))
1729 return $regs[0];
1730 }
1731
1732 // extraire toutes les balises du type demande, sous forme de tableau
1733 // Si on a passe un tableau de textes, renvoyer un tableau de resultats
1734 // http://doc.spip.org/@extraire_balises
1735 function extraire_balises($texte, $tag='a') {
1736 if (is_array($texte)) {
1737 array_walk($texte,
1738 create_function('&$a,$key,$t', '$a = extraire_balises($a,$t);'),
1739 $tag);
1740 return $texte;
1741 }
1742
1743 if (preg_match_all(
1744 ",<${tag}\b[^>]*(/>|>.*</${tag}\b[^>]*>|>),UimsS",
1745 $texte, $regs, PREG_PATTERN_ORDER))
1746 return $regs[0];
1747 else
1748 return array();
1749 }
1750
1751 // comme in_array mais renvoie son 3e arg si le 2er arg n'est pas un tableau
1752 // prend ' ' comme representant de vrai et '' de faux
1753
1754 // http://doc.spip.org/@in_any
1755 function in_any($val, $vals, $def='') {
1756 return (!is_array($vals) ? $def : (in_array($val, $vals) ? ' ' : ''));
1757 }
1758
1759 // valeur_numerique("3*2") => 6
1760 // n'accepte que les *, + et - (a ameliorer si on l'utilise vraiment)
1761 // http://doc.spip.org/@valeur_numerique
1762 function valeur_numerique($expr) {
1763 if (preg_match(',^[0-9]+(\s*[+*-]\s*[0-9]+)*$,S', trim($expr)))
1764 eval("\$a = $expr;");
1765 return intval($a);
1766 }
1767
1768 // http://doc.spip.org/@regledetrois
1769 function regledetrois($a,$b,$c)
1770 {
1771 return round($a*$b/$c);
1772 }
1773 // Fournit la suite de Input-Hidden correspondant aux parametres de
1774 // l'URL donnee en argument, compatible avec les types_urls depuis [14447].
1775 // cf. tests/filtres/form_hidden.html
1776 // http://doc.spip.org/@form_hidden
1777 function form_hidden($action) {
1778
1779 $fond = ''; // inutilise mais necessaire
1780 $contexte = array();
1781 if (
1782 ($renommer = generer_url_entite() OR $renommer = charger_fonction('page','urls'))
1783 AND $p = $renommer($action, $fond, $contexte)
1784 AND $p[3]) {
1785 $contexte = $p[0];
1786 $contexte['page'] = $p[3];
1787 $action = preg_replace('/([?]'.$p[3].'[^&=]*[0-9]+)(&|$)/', '?&', $action);
1788 }
1789
1790 // on va remplir un tableau de valeurs en prenant bien soin de ne pas
1791 // ecraser les elements de la forme mots[]=1&mots[]=2
1792 $values = array();
1793
1794 // d'abord avec celles de l'url
1795 if (false !== ($p = strpos($action, '?'))) {
1796 foreach(preg_split('/&(amp;)?/S',substr($action,$p+1)) as $c){
1797 list($var,$val) = explode('=', $c, 2);
1798 if ($var) {
1799 $val = rawurldecode($val);
1800 $var = rawurldecode($var); // decoder les [] eventuels
1801 if (preg_match(',\[\]$,S', $var))
1802 $values[] = array($var, $val);
1803 else if (!isset($values[$var]))
1804 $values[$var] = array($var, $val);
1805 }
1806 }
1807 }
1808
1809 // ensuite avec celles du contexte, sans doublonner !
1810 foreach($contexte as $var=>$val)
1811 if (preg_match(',\[\]$,S', $var))
1812 $values[] = array($var, $val);
1813 else if (!isset($values[$var]))
1814 $values[$var] = array($var, $val);
1815
1816 // puis on rassemble le tout
1817 $hidden = array();
1818 foreach($values as $value) {
1819 list($var,$val) = $value;
1820 $hidden[] = '<input name="'
1821 . entites_html($var)
1822 .'"'
1823 . (is_null($val)
1824 ? ''
1825 : ' value="'.str_replace("'","&#39;",entites_html($val)).'"'
1826 )
1827 . ' type="hidden" />';
1828 }
1829 return join("\n", $hidden);
1830 }
1831
1832
1833 // http://doc.spip.org/@filtre_bornes_pagination_dist
1834 function filtre_bornes_pagination_dist($courante, $nombre, $max = 10) {
1835 if($max<=0 OR $max>=$nombre)
1836 return array(1, $nombre);
1837
1838 $premiere = max(1, $courante-floor(($max-1)/2));
1839 $derniere = min($nombre, $premiere+$max-2);
1840 $premiere = $derniere == $nombre ? $derniere-$max+1 : $premiere;
1841 return array($premiere, $derniere);
1842 }
1843
1844
1845 // Ces trois fonctions permettent de simuler les filtres |reset et |end
1846 // pour extraire la premiere ou la derniere valeur d'un tableau ; utile
1847 // pour la pagination (mais peut-etre a refaire plus simplement)
1848 // http://doc.spip.org/@filtre_valeur_tableau
1849 function filtre_valeur_tableau($array, $index) {
1850 if (!is_array($array)
1851 OR !isset($array[$index]))
1852 return null;
1853 return $array[$index];
1854 }
1855 // http://doc.spip.org/@filtre_reset
1856 function filtre_reset($array) {
1857 return !is_array($array) ? null : reset($array);
1858 }
1859 // http://doc.spip.org/@filtre_end
1860 function filtre_end($array) {
1861 return !is_array($array) ? null : end($array);
1862 }
1863
1864 // http://doc.spip.org/@filtre_push
1865 function filtre_push($array, $val) {
1866 if($array == '' OR !array_push($array, $val)) return '';
1867 return $array;
1868 }
1869
1870 // http://doc.spip.org/@filtre_find
1871 function filtre_find($array, $val) {
1872 return (is_array($array) AND in_array($val, $array));
1873 }
1874
1875
1876 //
1877 // fonction standard de calcul de la balise #PAGINATION
1878 // on peut la surcharger en definissant filtre_pagination dans mes_fonctions
1879 //
1880
1881 // http://doc.spip.org/@filtre_pagination_dist
1882 function filtre_pagination_dist($total, $nom, $position, $pas, $liste = true, $modele='', $connect='', $env=array()) {
1883 static $ancres = array();
1884 if ($pas<1) return '';
1885 $ancre = 'pagination'.$nom; // #pagination_articles
1886 $debut = 'debut'.$nom; // 'debut_articles'
1887
1888 // n'afficher l'ancre qu'une fois
1889 if (!isset($ancres[$ancre]))
1890 $bloc_ancre = $ancres[$ancre] = "<a name='$ancre' id='$ancre'></a>";
1891 else $bloc_ancre = '';
1892 // liste = false : on ne veut que l'ancre
1893 if (!$liste)
1894 return $ancres[$ancre];
1895
1896 $position = min($position,$total);
1897 $pagination = array(
1898 'debut' => $debut,
1899 'url' => parametre_url(self(),'fragment',''), // nettoyer l'id ahah eventuel
1900 'total' => $total,
1901 'position' => intval($position),
1902 'pas' => $pas,
1903 'nombre_pages' => floor(($total-1)/$pas)+1,
1904 'page_courante' => floor(intval($position)/$pas)+1,
1905 'ancre' => $ancre,
1906 'bloc_ancre' => $bloc_ancre
1907 );
1908 if (is_array($env))
1909 $pagination = array_merge($env,$pagination);
1910
1911 // Pas de pagination
1912 if ($pagination['nombre_pages']<=1)
1913 return '';
1914
1915 if ($modele) $modele = '_'.$modele;
1916
1917 return recuperer_fond("modeles/pagination$modele", $pagination, array('trim'=>true), $connect);
1918 }
1919
1920 // passer les url relatives a la css d'origine en url absolues
1921 // http://doc.spip.org/@urls_absolues_css
1922 function urls_absolues_css($contenu, $source) {
1923 $path = suivre_lien(url_absolue($source),'./');
1924
1925 $contenu = preg_replace_callback(
1926 ",url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims",
1927 create_function('$x',
1928 'return "url(\"".suivre_lien("'.$path.'",$x[1])."\")";'
1929 ), $contenu);
1930
1931 // les directives filter ... progid:DXImageTransform.Microsoft.AlphaImageLoader(src=...,..)
1932 // de IEx prennent des urls relatives a la page, et non a la css
1933 // ne pas y toucher.
1934 /*
1935 $contenu = preg_replace_callback(
1936 ";\(\s*src=['\"]?([^'\"/][^:]*)['\"]?\s*(,|\));Uims",
1937 create_function('$x',
1938 'return "(src=\"".suivre_lien("'.$path.'",$x[1])."\"".$x[2];'
1939 ), $contenu);
1940 */
1941 return $contenu;
1942 }
1943
1944 // recuperere le chemin d'une css existante et :
1945 // 1. regarde si une css inversee droite-gauche existe dans le meme repertoire
1946 // 2. sinon la cree (ou la recree) dans _DIR_VAR/cache_css/
1947 // SI on lui donne a manger une feuille nommee _rtl.css il va faire l'inverse
1948 // http://doc.spip.org/@direction_css
1949 function direction_css ($css, $voulue='') {
1950 if (!preg_match(',(_rtl)?\.css$,i', $css, $r)) return $css;
1951
1952 // si on a precise le sens voulu en argument, le prendre en compte
1953 if ($voulue = strtolower($voulue)) {
1954 if ($voulue != 'rtl' AND $voulue != 'ltr')
1955 $voulue = lang_dir($voulue);
1956 }
1957 else
1958 $voulue = lang_dir();
1959
1960 $r = count($r) > 1;
1961 $right = $r ? 'left' : 'right'; // 'right' de la css lue en entree
1962 $dir = $r ? 'rtl' : 'ltr';
1963 $ndir = $r ? 'ltr' : 'rtl';
1964
1965 if ($voulue == $dir)
1966 return $css;
1967
1968 if (
1969 // url absolue
1970 preg_match(",^http:,i",$css)
1971 // ou qui contient un ?
1972 OR (($p=strpos($css,'?'))!==FALSE)) {
1973 $distant = true;
1974 $cssf = parse_url($css);
1975 $cssf = $cssf['path'].($cssf['query']?"?".$cssf['query']:"");
1976 $cssf = preg_replace(',[\W],', "_", $cssf);
1977 }
1978 else {
1979 $distant = false;
1980 $cssf = $css;
1981 // 1. regarder d'abord si un fichier avec la bonne direction n'est pas aussi
1982 //propose (rien a faire dans ce cas)
1983 $f = preg_replace(',(_rtl)?\.css$,i', '_'.$ndir.'.css', $css);
1984 if (@file_exists($f))
1985 return $f;
1986 }
1987
1988 // 2.
1989 $dir_var = sous_repertoire (_DIR_VAR, 'cache-css');
1990 $f = $dir_var
1991 . preg_replace(',.*/(.*?)(_rtl)?\.css,', '\1', $cssf)
1992 . '.' . substr(md5($cssf), 0,4) . '_' . $ndir . '.css';
1993
1994 // la css peut etre distante (url absolue !)
1995 if ($distant){
1996 include_spip('inc/distant');
1997 $contenu = recuperer_page($css);
1998 if (!$contenu) return $css;
1999 }
2000 else {
2001 if ((@filemtime($f) > @filemtime($css))
2002 AND ($GLOBALS['var_mode'] != 'recalcul'))
2003 return $f;
2004 if (!lire_fichier($css, $contenu))
2005 return $css;
2006 }
2007
2008 $contenu = str_replace(
2009 array('right', 'left', '@@@@L E F T@@@@'),
2010 array('@@@@L E F T@@@@', 'right', 'left'),
2011 $contenu);
2012
2013 // reperer les @import auxquels il faut propager le direction_css
2014 preg_match_all(",\@import\s*url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims",$contenu,$regs);
2015 $src = array();$src_direction_css = array();$src_faux_abs=array();
2016 $d = dirname($css);
2017 foreach($regs[1] as $k=>$import_css){
2018 $css_direction = direction_css("$d/$import_css",$voulue);
2019 // si la css_direction est dans le meme path que la css d'origine, on tronque le path, elle sera passee en absolue
2020 if (substr($css_direction,0,strlen($d)+1)=="$d/") $css_direction = substr($css_direction,strlen($d)+1);
2021 // si la css_direction commence par $dir_var on la fait passer pour une absolue
2022 elseif (substr($css_direction,0,strlen($dir_var))==$dir_var) {
2023 $css_direction = substr($css_direction,strlen($dir_var));
2024 $src_faux_abs["/@@@@@@/".$css_direction] = $css_direction;
2025 $css_direction = "/@@@@@@/".$css_direction;
2026 }
2027 $src[] = $regs[0][$k];
2028 $src_direction_css[] = str_replace($import_css,$css_direction,$regs[0][$k]);
2029 }
2030 $contenu = str_replace($src,$src_direction_css,$contenu);
2031
2032 $contenu = urls_absolues_css($contenu, $css);
2033
2034 // virer les fausses url absolues que l'on a mis dans les import
2035 if (count($src_faux_abs))
2036 $contenu = str_replace(array_keys($src_faux_abs),$src_faux_abs,$contenu);
2037
2038 if (!ecrire_fichier($f, $contenu))
2039 return $css;
2040
2041 return $f;
2042 }
2043
2044 // recuperere le chemin d'une css existante et :
2045 // cree (ou recree) dans _DIR_VAR/cache_css/ une css dont les url relatives sont passees en url absolues
2046 // http://doc.spip.org/@url_absolue_css
2047 function url_absolue_css ($css) {
2048 if (!preg_match(',\.css$,i', $css, $r)) return $css;
2049
2050 $url_absolue_css = url_absolue($css);
2051
2052 $f = basename($css,'.css');
2053 $f = sous_repertoire (_DIR_VAR, 'cache-css')
2054 . preg_replace(",(.*?)(_rtl|_ltr)?$,","\\1-urlabs-" . substr(md5("$css-urlabs"), 0,4) . "\\2",$f)
2055 . '.css';
2056
2057 if ((@filemtime($f) > @filemtime($css))
2058 AND ($GLOBALS['var_mode'] != 'recalcul'))
2059 return $f;
2060
2061 if ($url_absolue_css==$css){
2062 if (strncmp($GLOBALS['meta']['adresse_site'],$css,$l=strlen($GLOBALS['meta']['adresse_site']))!=0
2063 OR !lire_fichier(_DIR_RACINE . substr($css,$l), $contenu)){
2064 include_spip('inc/distant');
2065 if (!$contenu = recuperer_page($css))
2066 return $css;
2067 }
2068 }
2069 elseif (!lire_fichier($css, $contenu))
2070 return $css;
2071
2072 // passer les url relatives a la css d'origine en url absolues
2073 $contenu = urls_absolues_css($contenu, $css);
2074
2075 // ecrire la css
2076 if (!ecrire_fichier($f, $contenu))
2077 return $css;
2078
2079 return $f;
2080 }
2081
2082
2083 // filtre table_valeur
2084 // permet de recuperer la valeur d'un tableau pour une cle donnee
2085 // prend en entree un tableau serialise ou non (ce qui permet d'enchainer le filtre)
2086 // http://doc.spip.org/@table_valeur
2087 function table_valeur($table,$cle,$defaut=''){
2088 $table= is_string($table)?unserialize($table):$table;
2089 $table= is_array($table)?$table:array();
2090 return isset($table[$cle])?$table[$cle]:$defaut;
2091 }
2092
2093 // filtre match pour faire des tests avec expression reguliere
2094 // [(#TEXTE|match{^ceci$,Uims})]
2095 // retourne le fragment de chaine qui "matche"
2096 // il est possible de passer en 3eme argument optionnel le numero de parenthese capturante
2097 // accepte egalement la syntaxe #TRUC|match{truc(...)$,1} ou le modificateur n'est pas passe en second argument
2098 // http://doc.spip.org/@match
2099 function match($texte, $expression, $modif="UimsS",$capte=0) {
2100 if (intval($modif) AND $capte==0){
2101 $capte = $modif;
2102 $modif = "UimsS";
2103 }
2104 $expression=str_replace("\/","/",$expression);
2105 $expression=str_replace("/","\/",$expression);
2106
2107 if (preg_match('/' . $expression . '/' . $modif,$texte, $r)) {
2108 if (isset($r[$capte]))
2109 return $r[$capte];
2110 else
2111 return true;
2112 }
2113 return false;
2114 }
2115
2116 // filtre replace pour faire des operations avec expression reguliere
2117 // [(#TEXTE|replace{^ceci$,cela,UimsS})]
2118 // http://doc.spip.org/@replace
2119 function replace($texte, $expression, $replace='', $modif="UimsS") {
2120 $expression=str_replace("\/","/", $expression);
2121 $expression=str_replace("/","\/",$expression);
2122 return preg_replace('/' . $expression . '/' . $modif, $replace, $texte);
2123 }
2124
2125
2126 // cherche les documents numerotes dans un texte traite par propre()
2127 // et affecte les doublons['documents']
2128 // http://doc.spip.org/@traiter_doublons_documents
2129 // http://doc.spip.org/@traiter_doublons_documents
2130 function traiter_doublons_documents(&$doublons, $letexte) {
2131
2132 // Verifier dans le texte & les notes (pas beau, helas)
2133 $t = $letexte.$GLOBALS['les_notes'];
2134
2135 if (strstr($t, 'spip_document_') // evite le preg_match_all si inutile
2136 AND preg_match_all(
2137 ',<[^>]+\sclass=["\']spip_document_([0-9]+)[\s"\'],imsS',
2138 $t, $matches, PREG_PATTERN_ORDER))
2139 $doublons['documents'] .= "," . join(',', $matches[1]);
2140
2141 return $letexte;
2142 }
2143
2144 // filtre vide qui ne renvoie rien
2145 // http://doc.spip.org/@vide
2146 function vide($texte){
2147 return "";
2148 }
2149
2150 //
2151 // Filtres pour le modele/emb (embed document)
2152 //
2153
2154 // A partir d'un #ENV, retourne des <param ...>
2155 // http://doc.spip.org/@env_to_params
2156 function env_to_params ($texte, $ignore_params=array()) {
2157 $ignore_params = array_merge (
2158 array('id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'),
2159 $ignore_params);
2160 $tableau = unserialize($texte);
2161 $texte = "";
2162 foreach ($tableau as $i => $j)
2163 if (is_string($j) AND !in_array($i,$ignore_params))
2164 $texte .= "<param name='".$i."'\n\tvalue='".$j."' />";
2165 return $texte;
2166 }
2167 // A partir d'un #ENV, retourne des attributs
2168 // http://doc.spip.org/@env_to_attributs
2169 function env_to_attributs ($texte, $ignore_params=array()) {
2170 $ignore_params = array_merge (
2171 array('id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'),
2172 $ignore_params);
2173 $tableau = unserialize($texte);
2174 $texte = "";
2175 foreach ($tableau as $i => $j)
2176 if (is_string($j) AND !in_array($i,$ignore_params))
2177 $texte .= $i."='".$j."' ";
2178 return $texte;
2179 }
2180
2181 // Inserer jQuery
2182 // et au passage verifier qu'on ne doublonne pas #INSERT_HEAD
2183 // http://doc.spip.org/@f_jQuery
2184 function f_jQuery ($texte) {
2185 static $doublon=0;
2186 if ($doublon++) {
2187 erreur_squelette(array('double_occurrence', array('balise' => "INSERT_HEAD")));
2188 } else {
2189 $x = '';
2190 foreach (array_unique(pipeline('jquery_plugins',
2191 array(
2192 'javascript/jquery.js',
2193 'javascript/jquery.form.js',
2194 'javascript/ajaxCallback.js',
2195 'javascript/jquery.cookie.js'
2196 ))) as $script)
2197 if ($script = find_in_path($script))
2198 $x .= "\n<script src=\"$script\" type=\"text/javascript\"></script>\n";
2199 $texte = $x.$texte;
2200 }
2201 return $texte;
2202 }
2203
2204 /**
2205 * fonction appelee par #INSERT_HEAD_CSS et #INSERT_HEAD pour la compatibilite
2206 * @staticvar <type> $done
2207 * @return <type>
2208 */
2209 function insert_head_css(){
2210 static $done = false;
2211 if ($done) return '';
2212 $done = true;
2213 return pipeline('insert_head_css','');
2214 }
2215
2216
2217 // Concatener des chaines
2218 // #TEXTE|concat{texte1,texte2,...}
2219 // http://doc.spip.org/@concat
2220 function concat(){
2221 $args = func_get_args();
2222 return join('', $args);
2223 }
2224
2225
2226 // http://doc.spip.org/@charge_scripts
2227 function charge_scripts($scripts) {
2228 $flux = "";
2229 $args = is_array($scripts)?$scripts:explode("|",$scripts);
2230 foreach($args as $script) {
2231 if(preg_match(",^\w+$,",$script)) {
2232 $path = find_in_path("javascript/$script.js");
2233 if($path) $flux .= spip_file_get_contents($path);
2234 }
2235 }
2236 return $flux;
2237 }
2238
2239
2240
2241
2242 // produit une balise img avec un champ alt d'office si vide
2243 // attention le htmlentities et la traduction doivent etre appliques avant.
2244
2245 // http://doc.spip.org/@http_wrapper
2246 function http_wrapper($img){
2247 if (strpos($img,'/')===FALSE) // on ne prefixe par _NOM_IMG_PACK que si c'est un nom de fichier sans chemin
2248 $f = chemin_image($img);
2249 else { // sinon, le path a ete fourni
2250 $f = $img;
2251 }
2252 return $f;
2253 }
2254
2255 // http://doc.spip.org/@http_img_pack
2256 function http_img_pack($img, $alt, $atts='', $title='') {
2257
2258 $img = http_wrapper($img);
2259 if (strpos($atts, 'width')===FALSE){
2260 // utiliser directement l'info de taille presente dans le nom
2261 if (preg_match(',-([0-9]+)[.](png|gif)$,',$img,$regs)){
2262 $size = array(intval($regs[1]),intval($regs[1]));
2263 }
2264 else
2265 $size = @getimagesize($img);
2266 $atts.=" width='".$size[0]."' height='".$size[1]."'";
2267 }
2268 return "<img src='" . $img
2269 . ("'\nalt=\"" .
2270 str_replace('"','', textebrut($alt ? $alt : ($title ? $title : '')))
2271 . '" ')
2272 . ($title ? "title=\"$title\" " : '')
2273 . $atts
2274 . " />";
2275 }
2276
2277 // http://doc.spip.org/@http_style_background
2278 function http_style_background($img, $att='')
2279 {
2280 return " style='background: url(\"".http_wrapper($img)."\")" .
2281 ($att ? (' ' . $att) : '') . ";'";
2282 }
2283
2284 //[(#ENV*|unserialize|foreach)]
2285 // http://doc.spip.org/@filtre_foreach_dist
2286 function filtre_foreach_dist($balise_deserializee, $modele = 'foreach') {
2287 $texte = '';
2288 if(is_array($balise_deserializee))
2289 foreach($balise_deserializee as $k => $v) {
2290 $res = recuperer_fond('modeles/'.$modele,
2291 array_merge(array('cle' => $k), (is_array($v) ? $v : array('valeur' => $v)))
2292 );
2293 $texte .= $res;
2294 }
2295 return $texte;
2296 }
2297
2298 // renvoie la liste des plugins actifs du site
2299 // si le premier parametre est un prefix de cette liste, renvoie vrai, faux sinon
2300 // la valeur du second parametre si celui-ci renvoie a une information connue
2301 // cf liste_plugin_actifs() pour connaitre les informations affichables
2302 // appelee par la balise #PLUGIN
2303 // http://doc.spip.org/@filtre_info_plugin_dist
2304 function filtre_info_plugin_dist($plugin, $type_info) {
2305 include_spip('inc/plugin');
2306 $plugin = strtoupper($plugin);
2307 $plugins_actifs = liste_plugin_actifs();
2308
2309 if (!$plugin)
2310 return serialize(array_keys($plugins_actifs));
2311 elseif (empty($plugins_actifs[$plugin]))
2312 return '';
2313 elseif ($type_info == 'est_actif')
2314 return $plugins_actifs[$plugin] ? 1 : 0;
2315 elseif (isset($plugins_actifs[$plugin][$type_info]))
2316 return $plugins_actifs[$plugin][$type_info];
2317 else {
2318 $get_infos = charger_fonction('get_infos','plugins');
2319 // On prend en compte les extensions
2320 if (!is_dir($plugins_actifs[$plugin]['dir_type']))
2321 $dir_plugins = constant($plugins_actifs[$plugin]['dir_type']);
2322 else
2323 $dir_plugins = $plugins_actifs[$plugin]['dir_type'];
2324 if (!$infos = $get_infos($plugins_actifs[$plugin]['dir'], false, $dir_plugins))
2325 return '';
2326 if ($type_info == 'tout')
2327 return $infos;
2328 else
2329 return strval($infos[$type_info]);
2330 }
2331 }
2332
2333
2334 // http://doc.spip.org/@chercher_rubrique
2335 function chercher_rubrique($msg,$id, $id_parent, $type, $id_secteur, $restreint,$actionable = false, $retour_sans_cadre=false){
2336 global $spip_lang_right;
2337 include_spip('inc/autoriser');
2338 if (intval($id) && !autoriser('modifier', $type, $id))
2339 return "";
2340 if (!sql_countsel('spip_rubriques'))
2341 return "";
2342 $chercher_rubrique = charger_fonction('chercher_rubrique', 'inc');
2343 $form = $chercher_rubrique($id_parent, $type, $restreint, ($type=='rubrique')?$id:0);
2344
2345 if ($id_parent == 0) $logo = "racine-site-24.gif";
2346 elseif ($id_secteur == $id_parent) $logo = "secteur-24.gif";
2347 else $logo = "rubrique-24.gif";
2348
2349 $confirm = "";
2350 if ($type=='rubrique') {
2351 // si c'est une rubrique-secteur contenant des breves, demander la
2352 // confirmation du deplacement
2353 $contient_breves = sql_countsel('spip_breves', "id_rubrique=$id");
2354
2355 if ($contient_breves > 0) {
2356 $scb = ($contient_breves>1? 's':'');
2357 $scb = _T('avis_deplacement_rubrique',
2358 array('contient_breves' => $contient_breves,
2359 'scb' => $scb));
2360 $confirm .= "\n<div class='confirmer_deplacement verdana2'><div class='choix'><input type='checkbox' name='confirme_deplace' value='oui' id='confirme-deplace' /><label for='confirme-deplace'>" . $scb . "</label></div></div>\n";
2361 } else
2362 $confirm .= "<input type='hidden' name='confirme_deplace' value='oui' />\n";
2363 }
2364 $form .= $confirm;
2365 if ($actionable){
2366 if (strpos($form,'<select')!==false) {
2367 $form .= "<div style='text-align: $spip_lang_right;'>"
2368 . '<input type="submit" value="'._T('bouton_choisir').'"/>'
2369 . "</div>";
2370 }
2371 $form = "<input type='hidden' name='editer_$type' value='oui' />\n" . $form;
2372 $form = generer_action_auteur("editer_$type", $id, self(), $form, " method='post' class='submit_plongeur'");
2373 }
2374
2375 if ($retour_sans_cadre)
2376 return $form;
2377
2378 include_spip('inc/presentation');
2379 return debut_cadre_couleur($logo, true, "", $msg) . $form .fin_cadre_couleur(true);
2380
2381 }
2382
2383
2384 // http://doc.spip.org/@puce_changement_statut
2385 function puce_changement_statut($id_objet, $statut, $id_rubrique, $type, $ajax=false){
2386 $puce_statut = charger_fonction('puce_statut','inc');
2387 return $puce_statut($id_objet, $statut, $id_rubrique, $type, $ajax=false);
2388 }
2389
2390 // Encoder un contexte pour l'ajax, le signer avec une cle, le crypter
2391 // avec le secret du site, le gziper si possible...
2392 // l'entree peut etre serialisee (le #ENV** des fonds ajax et ajax_stat)
2393 // http://doc.spip.org/@encoder_contexte_ajax
2394 function encoder_contexte_ajax($c,$form='', $emboite=NULL) {
2395 if (is_string($c)
2396 AND !is_null(@unserialize($c)))
2397 $c = unserialize($c);
2398
2399 // supprimer les parametres debut_x
2400 // pour que la pagination ajax ne soit pas plantee
2401 // si on charge la page &debut_x=1 : car alors en cliquant sur l'item 0,
2402 // le debut_x=0 n'existe pas, et on resterait sur 1
2403 foreach ($c as $k => $v)
2404 if (strpos($k,'debut_') === 0)
2405 unset($c[$k]);
2406
2407 include_spip("inc/securiser_action");
2408 $cle = calculer_cle_action($form.(is_array($c)?serialize($c):$c));
2409 $c = serialize(array($c,$cle));
2410
2411 if ((defined('_CACHE_CONTEXTES_AJAX') AND _CACHE_CONTEXTES_AJAX)
2412 AND $dir = sous_repertoire(_DIR_CACHE, 'contextes')) {
2413 // stocker les contextes sur disque et ne passer qu'un hash dans l'url
2414 $md5 = md5($c);
2415 ecrire_fichier("$dir/c$md5",$c);
2416 $c = $md5;
2417 } else {
2418 if (function_exists('gzdeflate') && function_exists('gzinflate'))
2419 $c = gzdeflate($c);
2420 $c = _xor($c);
2421 $c = base64_encode($c);
2422 }
2423
2424 if ($emboite === NULL) return $c;
2425 return !trim($emboite) ? '' :
2426 "<div class='ajaxbloc env-$c'>\n$emboite</div><!-- ajaxbloc -->\n";
2427 }
2428
2429 // la procedure inverse de encoder_contexte_ajax()
2430 // http://doc.spip.org/@decoder_contexte_ajax
2431 function decoder_contexte_ajax($c,$form='') {
2432 include_spip("inc/securiser_action");
2433 if (( (defined('_CACHE_CONTEXTES_AJAX') AND _CACHE_CONTEXTES_AJAX) OR strlen($c)==32)
2434 AND $dir = sous_repertoire(_DIR_CACHE, 'contextes')
2435 AND lire_fichier("$dir/c$c",$contexte)) {
2436 $c = $contexte;
2437 } else {
2438 $c = @base64_decode($c);
2439 $c = _xor($c);
2440 if (function_exists('gzdeflate') && function_exists('gzinflate'))
2441 $c = @gzinflate($c);
2442 }
2443 list($env, $cle) = @unserialize($c);
2444
2445 if ($cle == calculer_cle_action($form.(is_array($env)?serialize($env):$env)))
2446 return $env;
2447 return false;
2448 }
2449
2450 // encrypter/decrypter un message
2451 // http://www.php.net/manual/fr/language.operators.bitwise.php#81358
2452 // http://doc.spip.org/@_xor
2453 function _xor($message, $key=null){
2454 if (is_null($key)) {
2455 include_spip("inc/securiser_action");
2456 $key = pack("H*", calculer_cle_action('_xor'));
2457 }
2458
2459 $keylen = strlen($key);
2460 $messagelen = strlen($message);
2461 for($i=0; $i<$messagelen; $i++)
2462 $message[$i] = ~($message[$i]^$key[$i%$keylen]);
2463
2464 return $message;
2465 }
2466
2467
2468
2469 /**
2470 * une fonction pour generer des menus avec liens
2471 * ou un <strong class='on'> non clicable lorsque l'item est selectionne
2472 *
2473 * @param string $url
2474 * @param string $libelle
2475 * le texte du lien
2476 * @param bool $on
2477 * etat expose (genere un strong) ou non (genere un lien)
2478 * @param string $class
2479 * @param string $title
2480 * @param string $rel
2481 * @param string $evt
2482 * complement a la balise a pour gerer un evenement javascript, de la forme " onclick='...'"
2483 * @return string
2484 */
2485 function lien_ou_expose($url,$libelle,$on=false,$class="",$title="",$rel="", $evt=''){
2486 if ($on) {
2487 $bal = "strong";
2488 $att = "class='on'";
2489 } else {
2490 $bal = 'a';
2491 $att = "href='$url'"
2492 .($title?" title='".attribut_html($title)."'":'')
2493 .($class?" class='".attribut_html($class)."'":'')
2494 .($rel?" rel='".attribut_html($rel)."'":'')
2495 .$evt;
2496 }
2497
2498 return "<$bal $att>$libelle</$bal>";
2499 }
2500
2501
2502 /**
2503 * une fonction pour generer une balise img a partir d'un nom de fichier
2504 *
2505 * @param string $img
2506 * @param string $alt
2507 * @param string $class
2508 * @return string
2509 */
2510 function filtre_balise_img_dist($img,$alt="",$class=""){
2511 $taille = taille_image($img);
2512 list($hauteur,$largeur) = $taille;
2513 if (!$hauteur OR !$largeur)
2514 return "";
2515 return
2516 "<img src='$img' width='$largeur' height='$hauteur'"
2517 ." alt='".attribut_html($alt)."'"
2518 .($class?" class='".attribut_html($class)."'":'')
2519 .' />';
2520 }
2521
2522
2523 /**
2524 * Afficher un message "un truc"/"N trucs"
2525 *
2526 * @param int $nb
2527 * @return string
2528 */
2529 function singulier_ou_pluriel($nb,$chaine_un,$chaine_plusieurs,$var='nb'){
2530 if (!$nb=intval($nb)) return "";
2531 if ($nb>1) return _T($chaine_plusieurs, array($var => $nb));
2532 else return _T($chaine_un);
2533 }
2534
2535
2536 /**
2537 * un filtre icone mappe sur icone_inline, qui cree une icone a gauche par defaut
2538 * le code de icone_inline est grandement reproduit ici car les liens ajax portent simplement une class ajax
2539 * lorsque les interfaces sont en squelette, alors que l'implementation d'ajax de des scripts php
2540 * est plus complexe
2541 *
2542 * @param string $lien
2543 * @param string $texte
2544 * @param string $fond
2545 * @param string $align
2546 * @param string $fonction
2547 * @return string
2548 */
2549 function filtre_icone_dist($lien, $texte, $fond, $align="", $fonction="", $class="",$javascript=""){
2550 if ($icone_renommer = charger_fonction('icone_renommer','inc',true))
2551 list($fond,$fonction) = $icone_renommer($fond,$fonction);
2552
2553 $align = $align?$align:$GLOBALS['spip_lang_left'];
2554 global $spip_display;
2555
2556 if ($fonction == "del") {
2557 $style = 'icone36 danger';
2558 } else {
2559 $style = 'icone36';
2560 if (strlen($fonction) < 3) $fonction = "rien.gif";
2561 }
2562 $style .= " " . substr(basename($fond),0,-4);
2563
2564 if ($spip_display == 1){
2565 $hauteur = 20;
2566 $largeur = 100;
2567 $title = $alt = "";
2568 }
2569 else if ($spip_display == 3){
2570 $hauteur = 30;
2571 $largeur = 30;
2572 $title = "\ntitle=\"$texte\"";
2573 $alt = $texte;
2574 }
2575 else {
2576 $hauteur = 70;
2577 $largeur = 100;
2578 $title = '';
2579 $alt = $texte;
2580 }
2581
2582 $size = 24;
2583 if (preg_match("/-([0-9]{1,3})[.](gif|png)$/i",$fond,$match))
2584 $size = $match[1];
2585 if ($spip_display != 1 AND $spip_display != 4){
2586 if ($fonction != "rien.gif"){
2587 $icone = http_img_pack($fonction, $alt, "$title width='$size' height='$size'\n" .
2588 http_style_background($fond, "no-repeat center center"));
2589 }
2590 else {
2591 $icone = http_img_pack($fond, $alt, "$title width='$size' height='$size'");
2592 }
2593 } else $icone = '';
2594
2595 // cas d'ajax_action_auteur: faut defaire le boulot
2596 // (il faudrait fusionner avec le cas $javascript)
2597 if (preg_match(",^<a\shref='([^']*)'([^>]*)>(.*)</a>$,i",$lien,$r))
2598 list($x,$lien,$atts,$texte)= $r;
2599 else $atts = '';
2600
2601 if ($align && $align!='center') $align = "float: $align; ";
2602
2603 $icone = "<a style='$align' class='$style $class'"
2604 . $atts
2605 . $javascript
2606 . "\nhref='"
2607 . $lien
2608 . "'>"
2609 . $icone
2610 . (($spip_display == 3) ? '' : "<span>$texte</span>")
2611 . "</a>\n";
2612
2613 if ($align <> 'center') return $icone;
2614 $style = " style='text-align:center;'";
2615 return "<div$style>$icone</div>";
2616 }
2617
2618
2619 /**
2620 * filtre explode pour les squelettes permettant d'ecrire
2621 * #GET{truc}|explode{-}
2622 *
2623 * @param strong $a
2624 * @param string $b
2625 * @return array
2626 */
2627 function filtre_explode_dist($a,$b){return explode($b,$a);}
2628
2629 /**
2630 * filtre implode pour les squelettes permettant d'ecrire
2631 * #GET{truc}|implode{-}
2632 *
2633 * @param array $a
2634 * @param string $b
2635 * @return string
2636 */
2637 function filtre_implode_dist($a,$b){return is_array($a)?implode($b,$a):$a;}
2638
2639 /*
2640 * Deux verrues pour que le pipeline de revisions soit correct
2641 * elles vont sauter quand ca passera en plugin
2642 */
2643 function premiere_revision($x) {
2644 include_spip('inc/revisions');
2645 return enregistrer_premiere_revision($x);
2646 }
2647 function nouvelle_revision($x) {
2648 include_spip('inc/revisions');
2649 return enregistrer_nouvelle_revision($x);
2650 }
2651
2652 /**
2653 * Generer un bouton_action
2654 * utilise par #BOUTON_ACTION
2655 *
2656 * @param string $libelle
2657 * @param string $url
2658 * @param string $class
2659 * @param string $confirm
2660 * @param string $title
2661 * @return string
2662 */
2663 function bouton_action($libelle, $url, $class="", $confirm="", $title=""){
2664 $onclick = $confirm?" onclick='return confirm(\"" . attribut_html($confirm) . "\");'":"";
2665 $title = $title ? " title='$title'" : "";
2666
2667 return "<form class='bouton_action_post $class' method='post' action='$url'><div>".form_hidden($url)
2668 ."<button type='submit' class='submit'$title$onclick>$libelle</button></div></form>";
2669 }
2670
2671
2672 ?>
Site oueb de Vélocampus Nantes