3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2016 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 // Ce fichier regroupe la quasi totalite des definitions de #BALISES de spip
14 // Pour chaque balise, il est possible de surcharger, dans mes_fonctions,
15 // la fonction balise_TOTO_dist par une fonction balise_TOTO() respectant la
17 // elle recoit en entree un objet de classe CHAMP, le modifie et le retourne.
18 // Cette classe est definie dans public/interfaces
20 if (!defined('_ECRIRE_INC_VERSION')) return;
22 // http://doc.spip.org/@interprete_argument_balise
23 function interprete_argument_balise($n,$p) {
24 if (($p->param
) && (!$p->param
[0][0]) && (count($p->param
[0])>$n))
25 return calculer_liste($p->param
[0][$n],
33 // Definition des balises
35 // http://doc.spip.org/@balise_NOM_SITE_SPIP_dist
36 function balise_NOM_SITE_SPIP_dist($p) {
37 $p->code
= "\$GLOBALS['meta']['nom_site']";
38 #$p->interdire_scripts = true;
42 // http://doc.spip.org/@balise_EMAIL_WEBMASTER_dist
43 function balise_EMAIL_WEBMASTER_dist($p) {
44 $p->code
= "\$GLOBALS['meta']['email_webmaster']";
45 #$p->interdire_scripts = true;
49 // http://doc.spip.org/@balise_DESCRIPTIF_SITE_SPIP_dist
50 function balise_DESCRIPTIF_SITE_SPIP_dist($p) {
51 $p->code
= "\$GLOBALS['meta']['descriptif_site']";
52 #$p->interdire_scripts = true;
56 // http://doc.spip.org/@balise_CHARSET_dist
57 function balise_CHARSET_dist($p) {
58 $p->code
= "\$GLOBALS['meta']['charset']";
59 #$p->interdire_scripts = true;
63 // http://doc.spip.org/@balise_LANG_LEFT_dist
64 function balise_LANG_LEFT_dist($p) {
65 $_lang = champ_sql('lang', $p);
66 $p->code
= "lang_dir($_lang, 'left','right')";
67 $p->interdire_scripts
= false;
71 // http://doc.spip.org/@balise_LANG_RIGHT_dist
72 function balise_LANG_RIGHT_dist($p) {
73 $_lang = champ_sql('lang', $p);
74 $p->code
= "lang_dir($_lang, 'right','left')";
75 $p->interdire_scripts
= false;
79 // http://doc.spip.org/@balise_LANG_DIR_dist
80 function balise_LANG_DIR_dist($p) {
81 $_lang = champ_sql('lang', $p);
82 $p->code
= "lang_dir($_lang, 'ltr','rtl')";
83 $p->interdire_scripts
= false;
87 // http://doc.spip.org/@balise_PUCE_dist
88 function balise_PUCE_dist($p) {
89 $p->code
= "definir_puce()";
90 $p->interdire_scripts
= false;
95 // Cette fonction sait aller chercher dans le contexte general
96 // quand #DATE est en dehors des boucles
97 // http://www.spip.net/fr_article1971.html
98 // http://doc.spip.org/@balise_DATE_dist
99 function balise_DATE_dist ($p) {
100 $d = champ_sql('date', $p);
101 # if ($d === "@\$Pile[0]['date']")
102 # $d = "isset(\$Pile[0]['date']) ? $d : time()";
108 // http://www.spip.net/fr_article1971.html
109 // http://doc.spip.org/@balise_DATE_REDAC_dist
110 function balise_DATE_REDAC_dist ($p) {
111 $d = champ_sql('date_redac', $p);
112 # if ($d === "@\$Pile[0]['date_redac']")
113 # $d = "isset(\$Pile[0]['date_redac']) ? $d : time()";
115 $p->interdire_scripts
= false;
120 // http://www.spip.net/fr_article1971.html
121 // http://doc.spip.org/@balise_DATE_MODIF_dist
122 function balise_DATE_MODIF_dist ($p) {
123 $p->code
= champ_sql('date_modif', $p);
124 $p->interdire_scripts
= false;
129 // http://www.spip.net/fr_article1971.html
130 // http://doc.spip.org/@balise_DATE_NOUVEAUTES_dist
131 function balise_DATE_NOUVEAUTES_dist($p) {
132 $p->code
= "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui'
133 AND isset(\$GLOBALS['meta']['dernier_envoi_neuf'])) ?
134 \$GLOBALS['meta']['dernier_envoi_neuf'] :
136 $p->interdire_scripts
= false;
140 // http://doc.spip.org/@balise_DOSSIER_SQUELETTE_dist
141 function balise_DOSSIER_SQUELETTE_dist($p) {
142 $code = substr(addslashes(dirname($p->descr
['sourcefile'])), strlen(_DIR_RACINE
));
143 $p->code
= "_DIR_RACINE . '$code'" .
144 $p->interdire_scripts
= false;
148 // http://doc.spip.org/@balise_SQUELETTE_dist
149 function balise_SQUELETTE_dist($p) {
150 $code = addslashes($p->descr
['sourcefile']);
151 $p->code
= "'$code'" .
152 $p->interdire_scripts
= false;
156 // http://doc.spip.org/@balise_SPIP_VERSION_dist
157 function balise_SPIP_VERSION_dist($p) {
158 $p->code
= "spip_version()";
159 $p->interdire_scripts
= false;
166 * Affiche le nom du site.
168 * Affiche le nom du site ou sinon l'URL ou le titre de l'objet
169 * Utiliser #NOM_SITE* pour avoir le nom du site ou rien.
171 * Cette balise interroge les colonnes 'nom_site' ou 'url_site'
172 * dans la boucle la plus proche.
176 * <a href="#URL_SITE">#NOM_SITE</a>
180 * Pile au niveau de la balise
182 * Pile complétée par le code à générer
184 function balise_NOM_SITE_dist($p) {
186 $p->code
= "supprimer_numero(calculer_url(" .
187 champ_sql('url_site',$p) ."," .
188 champ_sql('nom_site',$p) .
189 ", 'titre', \$connect, false))";
191 $p->code
= champ_sql('nom_site',$p);
193 $p->interdire_scripts
= true;
197 // http://doc.spip.org/@balise_NOTES_dist
198 function balise_NOTES_dist($p) {
199 // Recuperer les notes
200 $p->code
= 'calculer_notes()';
201 #$p->interdire_scripts = true;
205 // http://doc.spip.org/@balise_RECHERCHE_dist
206 function balise_RECHERCHE_dist($p) {
207 $p->code
= 'entites_html(_request("recherche"))';
208 $p->interdire_scripts
= false;
212 // http://doc.spip.org/@balise_COMPTEUR_BOUCLE_dist
213 function balise_COMPTEUR_BOUCLE_dist($p) {
214 $b = $p->nom_boucle ?
$p->nom_boucle
: $p->descr
['id_mere'];
216 $msg = array('zbug_champ_hors_boucle',
217 array('champ' => '#COMPTEUR_BOUCLE')
219 erreur_squelette($msg, $p);
221 $p->code
= "\$Numrows['$b']['compteur_boucle']";
222 $p->boucles
[$b]->cptrows
= true;
223 $p->interdire_scripts
= false;
228 // http://doc.spip.org/@balise_TOTAL_BOUCLE_dist
229 function balise_TOTAL_BOUCLE_dist($p) {
230 $b = $p->nom_boucle ?
$p->nom_boucle
: $p->descr
['id_mere'];
231 if ($b === '' ||
!isset($p->boucles
[$b])) {
232 $msg = array('zbug_champ_hors_boucle',
233 array('champ' => "#$b" . 'TOTAL_BOUCLE')
235 erreur_squelette($msg, $p);
237 $p->code
= "\$Numrows['$b']['total']";
238 $p->boucles
[$b]->numrows
= true;
239 $p->interdire_scripts
= false;
244 // Si on est hors d'une boucle {recherche}, ne pas "prendre" cette balise
245 // http://doc.spip.org/@balise_POINTS_dist
246 function balise_POINTS_dist($p) {
247 return rindex_pile($p, 'points', 'recherche');
250 // http://doc.spip.org/@balise_POPULARITE_ABSOLUE_dist
251 function balise_POPULARITE_ABSOLUE_dist($p) {
253 champ_sql('popularite', $p) .
255 $p->interdire_scripts
= false;
259 // http://doc.spip.org/@balise_POPULARITE_SITE_dist
260 function balise_POPULARITE_SITE_dist($p) {
261 $p->code
= 'ceil($GLOBALS["meta"][\'popularite_total\'])';
262 $p->interdire_scripts
= false;
266 // http://doc.spip.org/@balise_POPULARITE_MAX_dist
267 function balise_POPULARITE_MAX_dist($p) {
268 $p->code
= 'ceil($GLOBALS["meta"][\'popularite_max\'])';
269 $p->interdire_scripts
= false;
273 // http://doc.spip.org/@balise_EXPOSE_dist
274 function balise_EXPOSE_dist($p) {
277 if (($v = interprete_argument_balise(1,$p))!==NULL){
279 if (($v = interprete_argument_balise(2,$p))!==NULL)
283 return calculer_balise_expose($p, $on, $off);
286 // #VALEUR renvoie le champ valeur
287 // #VALEUR{x} renvoie #VALEUR|table_valeur{x}
288 // #VALEUR{a/b} renvoie #VALEUR|table_valeur{a/b}
289 // http://doc.spip.org/@balise_VALEUR_dist
290 function balise_VALEUR_dist($p) {
291 $b = $p->nom_boucle ?
$p->nom_boucle
: $p->id_boucle
;
292 $p->code
= index_pile($p->id_boucle
, 'valeur', $p->boucles
, $b);;
293 if (($v = interprete_argument_balise(1,$p))!==NULL){
294 $p->code
= 'table_valeur('.$p->code
.', '.$v.')';
296 $p->interdire_scripts
= true;
300 // http://doc.spip.org/@calculer_balise_expose
301 function calculer_balise_expose($p, $on, $off)
303 $b = $p->nom_boucle ?
$p->nom_boucle
: $p->id_boucle
;
304 $key = $p->boucles
[$b]->primary
;
305 $type = $p->boucles
[$p->id_boucle
]->primary
;
306 $desc = $p->boucles
[$b]->show
;
307 $connect = sql_quote($p->boucles
[$b]->sql_serveur
);
310 $msg = array('zbug_champ_hors_boucle', array('champ' => '#EXPOSER'));
311 erreur_squelette($msg, $p);
314 // Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite
315 $c = index_pile($p->id_boucle
, $type, $p->boucles
);
317 if (isset($desc['field']['id_parent'])) {
318 $parent = 0; // pour if (!$parent) dans calculer_expose
319 } elseif (isset($desc['field']['id_rubrique'])) {
320 $parent = index_pile($p->id_boucle
, 'id_rubrique', $p->boucles
, $b);
321 } elseif (isset($desc['field']['id_groupe'])) {
322 $parent = index_pile($p->id_boucle
, 'id_groupe', $p->boucles
, $b);
323 } else $parent = "''";
325 $p->code
= "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)";
327 $p->interdire_scripts
= false;
332 // Debut et fin de surlignage auto des mots de la recherche
333 // on insere une balise Span avec une classe sans spec:
334 // c'est transparent s'il n'y a pas de recherche,
335 // sinon elles seront remplacees par les fontions de inc_surligne
337 // http://doc.spip.org/@balise_DEBUT_SURLIGNE_dist
338 function balise_DEBUT_SURLIGNE_dist($p) {
339 include_spip('inc/surligne');
340 $p->code
= "'<!-- " . MARQUEUR_SURLIGNE
. " -->'";
343 // http://doc.spip.org/@balise_FIN_SURLIGNE_dist
344 function balise_FIN_SURLIGNE_dist($p) {
345 include_spip('inc/surligne');
346 $p->code
= "'<!-- " . MARQUEUR_FSURLIGNE
. "-->'";
352 // #INTRODUCTION{longueur}
353 // http://www.spip.net/@introduction
354 // http://doc.spip.org/@balise_INTRODUCTION_dist
355 function balise_INTRODUCTION_dist($p) {
357 $type = $p->type_requete
;
359 $_texte = champ_sql('texte', $p);
360 $_descriptif = ($type == 'articles' OR $type == 'rubriques') ?
champ_sql('descriptif', $p) : "''";
362 if ($type == 'articles') {
363 $_chapo = champ_sql('chapo', $p);
364 $_texte = "(strlen($_descriptif))
366 : $_chapo . \"\\n\\n\" . $_texte";
369 // longueur en parametre, ou valeur par defaut
370 if (($v = interprete_argument_balise(1,$p))!==NULL) {
371 $longueur = 'intval('.$v.')';
387 $f = chercher_filtre('introduction');
388 $p->code
= "$f($_descriptif, $_texte, $longueur, \$connect)";
390 #$p->interdire_scripts = true;
391 $p->etoile
= '*'; // propre est deja fait dans le calcul de l'intro
397 // affiche la langue de l'objet (ou superieure), et a defaut la langue courante
398 // (celle du site ou celle qui a ete passee dans l'URL par le visiteur)
399 // #LANG* n'affiche rien si aucune langue n'est trouvee dans le sql/le contexte
400 // http://doc.spip.org/@balise_LANG_dist
401 function balise_LANG_dist ($p) {
402 $_lang = champ_sql('lang', $p);
404 $p->code
= "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
406 $p->code
= "spip_htmlentities($_lang)";
407 $p->interdire_scripts
= false;
412 // les auteurs d'un objet
413 // http://www.spip.net/fr_article902.html
414 // http://www.spip.net/fr_article911.html
415 // http://doc.spip.org/@balise_LESAUTEURS_dist
416 function balise_LESAUTEURS_dist ($p) {
417 // Cherche le champ 'lesauteurs' dans la pile
418 $_lesauteurs = champ_sql('lesauteurs', $p, false);
420 // Si le champ n'existe pas (cas de spip_articles), on applique
421 // le modele lesauteurs.html en passant id_article dans le contexte;
422 // dans le cas contraire on prend le champ 'lesauteurs'
423 // (cf extension sites/)
425 AND $_lesauteurs != '@$Pile[0][\'lesauteurs\']') {
426 $p->code
= "safehtml($_lesauteurs)";
427 // $p->interdire_scripts = true;
432 $id_table_objet = 'id_article';
435 $b = $p->nom_boucle ?
$p->nom_boucle
: $p->id_boucle
;
436 $connect = $p->boucles
[$b]->sql_serveur
;
437 $type_boucle = $p->boucles
[$b]->type_requete
;
438 $objet = objet_type($type_boucle);
439 $id_table_objet = id_table_objet($type_boucle);
441 $c = memoriser_contexte_compil($p);
443 $p->code
= sprintf(CODE_RECUPERER_FOND
, "'modeles/lesauteurs'",
444 "array('objet'=>'".$objet.
445 "','id_objet' => ".champ_sql($id_table_objet, $p) .
446 ",'$id_table_objet' => ".champ_sql($id_table_objet, $p) .
447 ($objet=='article'?
"":",'id_article' => ".champ_sql('id_article', $p)).
449 "'trim'=>true, 'compil'=>array($c)",
451 $p->interdire_scripts
= false; // securite apposee par recuperer_fond()
460 * affiche le "numero de l'objet" quand on l'a titre '1. Premier article';
461 * ceci est transitoire afin de preparer une migration vers un vrai systeme de
462 * tri des articles dans une rubrique (et plus si affinites)
463 * la balise permet d'extraire le numero masque par |supprimer_numero
464 * la balise recupere le champ declare dans la globale table_titre
465 * ou a defaut le champ 'titre'
467 * si un champ rang existe, il est pris en priorite
469 * http://doc.spip.org/@balise_RANG_dist
474 function balise_RANG_dist($p) {
475 $b = index_boucle($p);
478 'zbug_champ_hors_boucle',
479 array('champ' => '#RANG')
481 erreur_squelette($msg, $p);
483 // chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql)
484 // dans la boucle immediatement englobante uniquement
485 // sinon on compose le champ calcule
486 $_rang = champ_sql('rang', $p, '', false);
488 // si pas trouve de champ sql rang :
490 $boucle = &$p->boucles
[$b];
491 $trouver_table = charger_fonction('trouver_table', 'base');
492 $desc = $trouver_table($boucle->id_table
);
493 $_titre = ''; # où extraire le numero ?
495 if (isset($desc['titre'])) {
498 // Soit on trouve avec la déclaration de la lang AVANT
499 preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m)
500 // Soit on prend depuis le début
501 or preg_match(';^(.*?titre)\s*(,|$);', $t, $m)
503 $m = preg_replace(',as\s+titre$,i', '', $m[1]);
506 if (!preg_match(",\W,", $m)) {
507 $m = $boucle->id_table
. ".$m";
510 $m .= " AS titre_rang";
512 $boucle->select
[] = $m;
513 $_titre = '$Pile[$SP][\'titre_rang\']';
518 // si on n'a rien trouvé, on utilise le champ titre classique
520 $_titre = champ_sql('titre', $p);
523 $_rang = "recuperer_numero($_titre)";
527 $p->interdire_scripts
= false;
535 // http://www.spip.net/fr_article1846.html
536 // http://doc.spip.org/@balise_POPULARITE_dist
537 function balise_POPULARITE_dist ($p) {
538 $_popularite = champ_sql('popularite', $p);
539 $p->code
= "(ceil(min(100, 100 * $_popularite
540 / max(1 , 0 + \$GLOBALS['meta']['popularite_max']))))";
541 $p->interdire_scripts
= false;
546 // Le code produit est trompeur, car les modeles ne fournissent pas Pile[0].
547 // On produit un appel a _request si on ne l'a pas, mais c'est inexact:
548 // l'absence peut etre due a une faute de frappe dans le contexte inclus.
550 define('CODE_PAGINATION',
551 '%s($Numrows["%s"]["grand_total"],
553 isset($Pile[0][%4$s])?$Pile[0][%4$s]:intval(_request(%4$s)),
554 %5$s, %6$s, %7$s, %8$s, array(%9$s))');
556 // http://www.spip.net/fr_article3367.html
557 // http://doc.spip.org/@balise_PAGINATION_dist
558 function balise_PAGINATION_dist($p, $liste='true') {
559 $b = $p->nom_boucle ?
$p->nom_boucle
: $p->descr
['id_mere'];
561 // s'il n'y a pas de nom de boucle, on ne peut pas paginer
563 $msg = array('zbug_champ_hors_boucle',
564 array('champ' => $liste ?
'PAGINATION' : 'ANCRE_PAGINATION')
566 erreur_squelette($msg, $p);
570 // s'il n'y a pas de mode_partie, c'est qu'on se trouve
571 // dans un boucle recursive ou qu'on a oublie le critere {pagination}
572 if (!$p->boucles
[$b]->mode_partie
) {
573 if (!$p->boucles
[$b]->table_optionnelle
) {
574 $msg = array('zbug_pagination_sans_critere',
575 array('champ' => '#PAGINATION')
577 erreur_squelette($msg, $p);
583 // si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
584 // si true, les arguments simples (sans truc=chose) vont degager
585 $_contexte = argumenter_inclure($p->param
, true, $p, $p->boucles
, $p->id_boucle
, false, false);
586 if (count($_contexte)){
587 list($key,$val) = each($_contexte);
588 if (is_numeric($key)){
589 array_shift($_contexte);
590 $__modele = interprete_argument_balise(1,$p);
594 if (count($_contexte)){
595 $code_contexte = implode(',',$_contexte);
600 $connect = $p->boucles
[$b]->sql_serveur
;
601 $pas = $p->boucles
[$b]->total_parties
;
602 $f_pagination = chercher_filtre('pagination');
603 $type = $p->boucles
[$b]->modificateur
['debut_nom'];
604 $modif = ($type[0]!=="'") ?
"'debut'.$type"
605 : ("'debut" .substr($type,1));
607 $p->code
= sprintf(CODE_PAGINATION
, $f_pagination, $b, $type, $modif, $pas, $liste, ((isset($__modele) and $__modele) ?
$__modele : "''"), _q($connect), $code_contexte);
609 $p->boucles
[$b]->numrows
= true;
610 $p->interdire_scripts
= false;
615 // N'afficher que l'ancre de la pagination (au-dessus, par exemple, alors
616 // qu'on mettra les liens en-dessous de la liste paginee)
617 // http://doc.spip.org/@balise_ANCRE_PAGINATION_dist
618 function balise_ANCRE_PAGINATION_dist($p) {
619 if ($f = charger_fonction('PAGINATION', 'balise', true))
620 return $f($p, $liste='false');
621 else return NULL; // ou une erreur ?
624 // equivalent a #TOTAL_BOUCLE sauf pour les boucles paginees, ou elle
625 // indique le nombre total d'articles repondant aux criteres hors pagination
626 // http://doc.spip.org/@balise_GRAND_TOTAL_dist
627 function balise_GRAND_TOTAL_dist($p) {
628 $b = $p->nom_boucle ?
$p->nom_boucle
: $p->descr
['id_mere'];
629 if ($b === '' ||
!isset($p->boucles
[$b])) {
630 $msg = array('zbug_champ_hors_boucle',
631 array('champ' => "#$b" . 'TOTAL_BOUCLE')
633 erreur_squelette($msg, $p);
635 $p->code
= "(isset(\$Numrows['$b']['grand_total'])
636 ? \$Numrows['$b']['grand_total'] : \$Numrows['$b']['total'])";
637 $p->boucles
[$b]->numrows
= true;
638 $p->interdire_scripts
= false;
643 // Reference a l'URL de la page courante
644 // Attention dans un INCLURE() ou une balise dynamique on n'a pas le droit de
645 // mettre en cache #SELF car il peut correspondre a une autre page (attaque XSS)
646 // (Dans ce cas faire <INCLURE{self=#SELF}> pour differencier les caches.)
647 // http://www.spip.net/@self
648 // http://doc.spip.org/@balise_SELF_dist
649 function balise_SELF_dist($p) {
651 $p->interdire_scripts
= false;
656 // #CHEMIN{fichier} -> find_in_path(fichier)
658 // http://doc.spip.org/@balise_CHEMIN_dist
659 function balise_CHEMIN_dist($p) {
660 $arg = interprete_argument_balise(1,$p);
662 $msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN'));
663 erreur_squelette($msg, $p);
665 $p->code
= 'find_in_path(' . $arg .')';
667 #$p->interdire_scripts = true;
671 function balise_CHEMIN_IMAGE_dist($p) {
672 $arg = interprete_argument_balise(1,$p);
674 $msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
675 erreur_squelette($msg, $p);
676 } else $p->code
= 'chemin_image(' . $arg .')';
678 #$p->interdire_scripts = true;
684 * La balise #ENV permet de recuperer
685 * le contexte d'environnement transmis au calcul d'un squelette,
686 * par exemple #ENV{id_rubrique}
688 * La syntaxe #ENV{toto, valeur par defaut}
689 * renverra 'valeur par defaut' si $toto est vide
691 * La recherche de la cle s'appuyant sur la fonction table_valeur
692 * il est possible de demander un sous element d'un tableau
693 * #ENV{toto/sous/element, valeur par defaut} retournera l'equivalent de
694 * #ENV{toto}|table_valeur{sous/element} c'est a dire en quelque sorte
695 * $env['toto']['sous']['element'] s'il existe, sinon la valeur par defaut.
697 * Si le tableau est vide on renvoie '' (utile pour #SESSION)
699 * Enfin, la balise utilisee seule #ENV retourne le tableau complet
700 * de l'environnement. A noter que ce tableau est retourne serialise.
703 * En standard est applique |entites_html, mais si l'etoile est
704 * utilisee pour desactiver les filtres par defaut, par exemple avec
705 * [(#ENV*{toto})] , il *faut* s'assurer de la securite
706 * anti-javascript, par exemple en filtrant avec |safehtml : [(#ENV*{toto}|safehtml)]
710 * Pile ; arbre de syntaxe abstrait positionne au niveau de la balise.
713 * Tableau dans lequel chercher la cle demandee en parametre de la balise.
714 * Par defaut prend dans le contexte du squelette.
717 * Pile completee du code PHP d'execution de la balise
719 function balise_ENV_dist($p, $src = NULL) {
721 // cle du tableau desiree
722 $_nom = interprete_argument_balise(1,$p);
724 $_sinon = interprete_argument_balise(2,$p);
726 // $src est un tableau de donnees sources eventuellement transmis
727 // en absence, on utilise l'environnement du squelette $Pile[0]
730 // cas de #ENV sans argument : on retourne le serialize() du tableau
731 // une belle fonction [(#ENV|affiche_env)] serait pratique
733 $p->code
= '(is_array($a = ('.$src.')) ? serialize($a) : "")';
735 $p->code
= '@serialize($Pile[0])';
742 $p->code
= "sinon(table_valeur($src, (string)$_nom, null), $_sinon)";
744 $p->code
= "table_valeur($src, (string)$_nom, null)";
747 #$p->interdire_scripts = true;
753 * #CONFIG retourne lire_config()
754 * les reglages du site
756 * Par exemple #CONFIG{gerer_trad} donne 'oui' ou 'non' selon le reglage
757 * Le 3eme argument permet de controler la serialisation du resultat
758 * (mais ne sert que pour le depot 'meta') qui doit parfois deserialiser
760 * ex: |in_array{#CONFIG{toto,#ARRAY,1}}.
762 * Ceci n'affecte pas d'autres depots et |in_array{#CONFIG{toto/,#ARRAY}} sera equivalent
763 * #CONFIG{/tablemeta/champ,defaut} lit la valeur de 'champ' dans la table des meta 'tablemeta'
765 * @param Object $p Arbre syntaxique du compilo
768 function balise_CONFIG_dist($p) {
769 if (!$arg = interprete_argument_balise(1,$p)) {
772 $_sinon = interprete_argument_balise(2,$p);
773 $_unserialize = sinon(interprete_argument_balise(3,$p),"false");
775 $p->code
= '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
776 ($_sinon && $_sinon != "''" ?
$_sinon : 'null') . ',' . $_unserialize . "):'')";
782 // http://doc.spip.org/@balise_CONNECT_dist
783 function balise_CONNECT_dist($p) {
784 $p->code
= '($connect ? $connect : NULL)';
785 $p->interdire_scripts
= false;
791 // Cette balise est un tableau des donnees du visiteur (nom, email etc)
792 // Si elle est invoquee, elle leve un drapeau dans le fichier cache, qui
793 // permet a public/cacher d'invalider le cache si le visiteur suivant n'a
794 // pas la meme session
795 // http://doc.spip.org/@balise_SESSION_dist
796 function balise_SESSION_dist($p) {
797 $p->descr
['session'] = true;
799 $f = function_exists('balise_ENV')
803 $p = $f($p, '$GLOBALS["visiteur_session"]');
809 // Ajoute x=y dans la session du visiteur
810 // http://doc.spip.org/@balise_SESSION_SET_dist
811 function balise_SESSION_SET_dist($p) {
812 $_nom = interprete_argument_balise(1,$p);
813 $_val = interprete_argument_balise(2,$p);
814 if (!$_nom OR !$_val) {
815 $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SESSION_SET'));
816 erreur_squelette($err_b_s_a, $p);
817 } else $p->code
= '(include_spip("inc/session") AND session_set('.$_nom.','.$_val.'))';
819 $p->interdire_scripts
= false;
829 // evalue un code php ; a utiliser avec precaution :-)
831 // rq: #EVAL{code} produit eval('return code;')
832 // mais si le code est une expression sans balise, on se dispense
833 // de passer par une construction si compliquee, et le code est
834 // passe tel quel (entre parentheses, et protege par interdire_scripts)
835 // Exemples : #EVAL**{6+9} #EVAL**{_DIR_IMG_PACK} #EVAL{'date("Y-m-d")'}
836 // #EVAL{'str_replace("r","z", "roger")'} (attention les "'" sont interdits)
837 // http://doc.spip.org/@balise_EVAL_dist
838 function balise_EVAL_dist($p) {
839 $php = interprete_argument_balise(1,$p);
841 # optimisation sur les #EVAL{une expression sans #BALISE}
842 # attention au commentaire "// x signes" qui precede
843 if (preg_match(",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
845 $p->code
= /* $r[1]. */'('.$r[2].')';
847 $p->code
= "eval('return '.$php.';')";
849 $msg = array('zbug_balise_sans_argument', array('balise' => ' EVAL'));
850 erreur_squelette($msg, $p);
853 #$p->interdire_scripts = true;
858 // #CHAMP_SQL{x} renvoie la valeur du champ sql 'x'
859 // permet de recuperer par exemple un champ notes dans une table sql externe
860 // (impossible via #NOTES qui est une balise calculee)
861 // ne permet pas de passer une expression pour x qui ne peut etre qu'un texte statique !
862 // http://doc.spip.org/@balise_CHAMP_SQL_dist
863 function balise_CHAMP_SQL_dist($p){
866 AND isset($p->param
[0][1][0])
867 AND $champ = ($p->param
[0][1][0]->texte
))
868 $p->code
= champ_sql($champ, $p);
870 $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => ' CHAMP_SQL'));
871 erreur_squelette($err_b_s_a, $p);
873 #$p->interdire_scripts = true;
877 // #VAL{x} renvoie 'x' (permet d'appliquer un filtre a une chaine)
878 // Attention #VAL{1,2} renvoie '1', indiquer #VAL{'1,2'}
879 // http://doc.spip.org/@balise_VAL_dist
880 function balise_VAL_dist($p){
881 $p->code
= interprete_argument_balise(1,$p);
882 if (!strlen($p->code
))
884 $p->interdire_scripts
= false;
887 // #NOOP est un alias pour regler #948, ne pas documenter
888 // http://doc.spip.org/@balise_NOOP_dist
889 function balise_NOOP_dist($p) { return balise_VAL_dist($p); }
893 // pour les remarques : renvoie toujours ''
895 // http://doc.spip.org/@balise_REM_dist
896 function balise_REM_dist($p) {
898 $p->interdire_scripts
= false;
905 * Compile la balise `#HTTP_HEADER` envoyant des entêtes de retour HTTP
907 * Doit être placée en tête de fichier et ne fonctionne pas dans une
911 * @link http://www.spip.net/4631
914 * #HTTP_HEADER{Content-Type: text/csv; charset=#CHARSET}
918 * Pile au niveau de la balise
920 * Pile complétée par le code à générer
922 function balise_HTTP_HEADER_dist($p) {
924 $header = interprete_argument_balise(1, $p);
926 $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'HTTP_HEADER'));
927 erreur_squelette($err_b_s_a, $p);
929 $p->code
= "'<'.'?php header(' . _q("
933 $p->interdire_scripts
= false;
940 // Filtre a appliquer a l'ensemble de la page une fois calculee
941 // (filtrage fait au niveau du squelette, et sans s'appliquer aux <INCLURE>)
942 // http://doc.spip.org/@balise_FILTRE_dist
943 function balise_FILTRE_dist($p) {
946 foreach ($p->param
as $i => $ignore)
947 $args[] = interprete_argument_balise($i+
1,$p);
949 .'?php header("X-Spip-Filtre: \'.'
950 .join('.\'|\'.', $args)
953 $p->interdire_scripts
= false;
960 // definit la duree de vie ($delais) du squelette
962 // parametre(s) supplementaire(s) :
963 // #CACHE{24*3600, cache-client} autorise gestion du IF_MODIFIED_SINCE
964 // #CACHE{24*3600, statique} ne respecte pas l'invalidation par modif de la base
965 // (mais s'invalide tout de meme a l'expiration du delai)
966 // par defaut cache-client => statique
967 // cf. ecrire/public/cacher.php
968 // http://doc.spip.org/@balise_CACHE_dist
969 function balise_CACHE_dist($p) {
972 $duree = valeur_numerique($p->param
[0][1][0]->texte
);
974 // noter la duree du cache dans un entete proprietaire
976 $code = '\'<'.'?php header("X-Spip-Cache: '
980 // Remplir le header Cache-Control
984 .'?php header("Cache-Control: no-cache, must-revalidate"); ?'
986 .'?php header("Pragma: no-cache"); ?'
989 // recuperer les parametres suivants
991 while (isset($p->param
[0][++
$i])) {
992 $pa = ($p->param
[0][$i][0]->texte
);
994 if ($pa == 'cache-client'
996 $code .= '.\'<'.'?php header("Cache-Control: max-age='
999 // il semble logique, si on cache-client, de ne pas invalider
1003 if ($pa == 'statique'
1005 $code .= '.\'<'.'?php header("X-Spip-Statique: oui"); ?'.'>\'';
1007 } else $code = "''";
1009 $p->interdire_scripts
= false;
1016 * pour permettre aux plugins d'inserer des styles, js ou autre
1017 * dans l'entete sans modification du squelette
1018 * les css doivent etre inserees de preference par #INSERT_HEAD_CSS
1019 * pour en faciliter la surcharge
1021 * on insere ici aussi un morceau de PHP qui verifiera a l'execution que le pipeline insert_head_css a bien ete vu
1022 * et dans le cas contraire l'appelera. Permet de ne pas oublier les css de #INSERT_HEAD_CSS meme si cette balise
1023 * n'est pas presente.
1024 * Il faut mettre ce php avant le insert_head car le compresseur y mets ensuite un php du meme type pour collecter
1025 * CSS et JS, et on ne veut pas qu'il rate les css inserees en fallback par insert_head_css_conditionnel
1027 * http://doc.spip.org/@balise_INSERT_HEAD_dist
1032 function balise_INSERT_HEAD_dist($p) {
1034 .'?php header("X-Spip-Filtre: \'.'
1035 .'\'insert_head_css_conditionnel\''
1036 . " . '\"); ?'.'>'";
1037 $p->code
.= ". pipeline('insert_head','<!-- insert_head -->')";
1038 $p->interdire_scripts
= false;
1043 * homologue de #INSERT_HEAD pour les CSS
1044 * (et par extension pour le js inline qui doit preferentiellement etre insere avant les CSS car bloquant sinon)
1046 * http://doc.spip.org/@balise_INSERT_HEAD_CSS_dist
1051 function balise_INSERT_HEAD_CSS_dist($p) {
1052 $p->code
= "pipeline('insert_head_css','<!-- insert_head_css -->')";
1053 $p->interdire_scripts
= false;
1057 // #INCLURE statique
1058 // l'inclusion est realisee au calcul du squelette, pas au service
1059 // ainsi le produit du squelette peut etre utilise en entree de filtres a suivre
1060 // on peut faire un #INCLURE{fichier} sans squelette
1061 // (Incompatible avec les balises dynamiques)
1062 // http://doc.spip.org/@balise_INCLUDE_dist
1063 function balise_INCLUDE_dist($p) {
1064 if(function_exists('balise_INCLURE'))
1065 return balise_INCLURE($p);
1067 return balise_INCLURE_dist($p);
1069 // http://doc.spip.org/@balise_INCLURE_dist
1070 function balise_INCLURE_dist($p) {
1071 $id_boucle = $p->id_boucle
;
1072 // la lang n'est pas passe de facon automatique par argumenter
1073 // mais le sera pas recuperer_fond, sauf si etoile=>true est passe
1076 $_contexte = argumenter_inclure($p->param
, true, $p, $p->boucles
, $id_boucle, false, false);
1078 // erreur de syntaxe = fond absent
1079 // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
1080 if (!$_contexte) $contexte = array();
1082 if (isset($_contexte['fond'])) {
1084 $f = $_contexte['fond'];
1086 if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) {
1088 unset($_contexte['fond']);
1089 } else spip_log("compilation de #INCLURE a revoir");
1091 // #INCLURE{doublons}
1092 if (isset($_contexte['doublons'])) {
1093 $_contexte['doublons'] = "'doublons' => \$doublons";
1096 // Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
1097 if (isset($_contexte['env'])
1098 ||
isset($_contexte['self'])
1101 unset($_contexte['env']);
1102 } else $flag_env = false;
1104 $_options = array();
1105 if (isset($_contexte['ajax'])) {
1106 $_options[] = preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
1107 unset($_contexte['ajax']);
1109 if ($p->etoile
) $_options[] = "'etoile'=>true";
1110 $_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) .")";
1112 $_l = 'array(' . join(",\n\t", $_contexte) .')';
1113 if ($flag_env) $_l = "array_merge(\$Pile[0],$_l)";
1115 $p->code
= sprintf(CODE_RECUPERER_FOND
, $f, $_l, join(',',$_options),"''");
1117 } elseif (!isset($_contexte[1])) {
1118 $msg = array('zbug_balise_sans_argument', array('balise' => ' INCLURE'));
1119 erreur_squelette($msg, $p);
1120 } else $p->code
= 'charge_scripts(' . $_contexte[1] . ',false)';
1122 $p->interdire_scripts
= false; // la securite est assuree par recuperer_fond
1126 // Inclure un modele : #MODELE{modele, params}
1127 // http://doc.spip.org/@balise_MODELE_dist
1128 function balise_MODELE_dist($p) {
1130 $_contexte = argumenter_inclure($p->param
, true, $p, $p->boucles
, $p->id_boucle
, false);
1132 // erreur de syntaxe = fond absent
1133 // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
1134 if (!$_contexte) $contexte = array();
1136 if (!isset($_contexte[1])) {
1137 $msg = array('zbug_balise_sans_argument', array('balise' => ' MODELE'));
1138 erreur_squelette($msg, $p);
1140 $nom = $_contexte[1];
1141 unset($_contexte[1]);
1143 if (preg_match("/^\s*'[^']*'/s", $nom))
1144 $nom = "'modeles/" . substr($nom,1);
1145 else $nom = "'modeles/' . $nom";
1147 // Incoherence dans la syntaxe du contexte. A revoir.
1148 // Reserver la cle primaire de la boucle courante si elle existe
1149 if (isset($p->boucles
[$p->id_boucle
]->primary
)) {
1150 $primary = $p->boucles
[$p->id_boucle
]->primary
;
1151 if (!strpos($primary,',')) {
1152 $id = champ_sql($primary, $p);
1153 $_contexte[] = "'$primary'=>".$id;
1154 $_contexte[] = "'id'=>".$id;
1157 $_contexte[] = "'recurs'=>(++\$recurs)";
1159 if (isset($p->boucles
[$p->id_boucle
]))
1160 $connect = $p->boucles
[$p->id_boucle
]->sql_serveur
;
1162 $_options = memoriser_contexte_compil($p);
1163 $_options = "'compil'=>array($_options), 'trim'=>true";
1164 if (isset($_contexte['ajax'])){
1165 $_options .= ", ".preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
1166 unset($_contexte['ajax']);
1169 $page = sprintf(CODE_RECUPERER_FOND
, $nom, 'array(' . join(',', $_contexte) .')', $_options, _q($connect));
1171 $p->code
= "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n";
1173 $p->interdire_scripts
= false; // securite assuree par le squelette
1181 // Affecte une variable locale au squelette
1183 // la balise renvoie la valeur
1184 // http://doc.spip.org/@balise_SET_dist
1185 function balise_SET_dist($p){
1186 $_nom = interprete_argument_balise(1,$p);
1187 $_val = interprete_argument_balise(2,$p);
1189 if (!$_nom OR !$_val) {
1190 $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SET'));
1191 erreur_squelette($err_b_s_a, $p);
1193 // affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4
1194 // cf https://bugs.php.net/bug.php?id=65845
1195 else $p->code
= "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
1197 $p->interdire_scripts
= false; // la balise ne renvoie rien
1203 // Recupere une variable locale au squelette
1204 // #GET{nom,defaut} renvoie defaut si la variable nom n'a pas ete affectee
1206 // http://doc.spip.org/@balise_GET_dist
1207 function balise_GET_dist($p) {
1208 $p->interdire_scripts
= false; // le contenu vient de #SET, donc il est de confiance
1209 if (function_exists('balise_ENV'))
1210 return balise_ENV($p, '$Pile["vars"]');
1212 return balise_ENV_dist($p, '$Pile["vars"]');
1217 * Compile la balise #DOUBLONS
1219 * #DOUBLONS{mots} ou #DOUBLONS{mots,famille}
1220 * donne l'etat des doublons (MOTS) a cet endroit
1221 * sous forme de tableau d'id_mot array(1,2,3,...)
1222 * #DOUBLONS tout seul donne la liste brute de tous les doublons
1223 * #DOUBLONS*{mots} donne la chaine brute ",1,2,3,..."
1224 * (changera si la gestion des doublons evolue)
1227 * Pile au niveau de la balise
1229 * Pile complétée par le code à générer
1231 function balise_DOUBLONS_dist($p) {
1232 if ($type = interprete_argument_balise(1,$p)) {
1233 if ($famille = interprete_argument_balise(2,$p))
1234 $type .= '.' . $famille;
1235 $p->code
= '$doublons['.$type.']';
1237 $p->code
= 'array_filter(array_map("intval",explode(",",'
1241 $p->code
= '$doublons';
1243 $p->interdire_scripts
= false;
1251 // pour permettre aux plugins d'inserer des sorties de pipeline dans un squelette
1252 // #PIPELINE{insert_body}
1253 // #PIPELINE{insert_body,flux}
1255 // http://doc.spip.org/@balise_PIPELINE_dist
1256 function balise_PIPELINE_dist($p) {
1257 $_pipe = interprete_argument_balise(1,$p);
1259 $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'PIPELINE'));
1260 erreur_squelette($err_b_s_a, $p);
1262 $_flux = interprete_argument_balise(2,$p);
1263 $_flux = $_flux?
$_flux:"''";
1264 $p->code
= "pipeline( $_pipe , $_flux )";
1265 $p->interdire_scripts
= false;
1272 // une balise qui ne fait rien, pour surcharge par le plugin widgets
1274 // http://doc.spip.org/@balise_EDIT_dist
1275 function balise_EDIT_dist($p) {
1277 $p->interdire_scripts
= false;
1284 // pour recuperer le nombre d'elements affiches par l'intermediaire du filtre
1287 // #TOTAL_UNIQUE afiche le nombre de #BALISE|unique
1288 // #TOTAL_UNIQUE{famille} afiche le nombre de #BALISE|unique{famille}
1290 // http://doc.spip.org/@balise_TOTAL_UNIQUE_dist
1291 function balise_TOTAL_UNIQUE_dist($p) {
1292 $_famille = interprete_argument_balise(1,$p);
1293 $_famille = $_famille ?
$_famille : "''";
1294 $p->code
= "unique('', $_famille, true)";
1300 // pour creer un array php a partir d'arguments calcules
1301 // #ARRAY{key1,val1,key2,val2 ...} retourne array(key1=>val1,...)
1303 // http://doc.spip.org/@balise_ARRAY_dist
1304 function balise_ARRAY_dist($p) {
1308 $_key = interprete_argument_balise($n++
,$p);
1309 $_val = interprete_argument_balise($n++
,$p);
1310 if ($_key AND $_val) $_code[] = "$_key => $_val";
1311 } while ($_key && $_val);
1312 $p->code
= 'array(' . join(', ',$_code).')';
1313 $p->interdire_scripts
= false;
1318 * #LISTE{a,b,c,d,e} cree un array avec les valeurs, sans preciser les cles
1323 function balise_LISTE_dist($p) {
1326 while ($_val = interprete_argument_balise($n++
,$p))
1328 $p->code
= 'array(' . join(', ',$_code).')';
1329 $p->interdire_scripts
= false;
1333 // Appelle la fonction autoriser et renvoie ' ' si OK, '' si niet
1334 // A noter : la priorite des operateurs exige && plutot que AND
1335 // Cette balise cree un cache par session
1336 // http://doc.spip.org/@balise_AUTORISER_dist
1337 function balise_AUTORISER_dist($p) {
1339 $p->descr
['session'] = true; // faire un cache par session
1342 while ($_v = interprete_argument_balise($n++
,$p))
1345 $p->code
= '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(', ',$_code).')?" ":"")';
1346 $p->interdire_scripts
= false;
1350 // Appelle la fonction info_plugin
1351 // Afficher des informations sur les plugins dans le site public
1352 // http://doc.spip.org/@balise_PLUGIN_dist
1353 function balise_PLUGIN_dist($p) {
1354 $plugin = interprete_argument_balise(1,$p);
1355 $plugin = isset($plugin) ?
str_replace('\'', '"', $plugin) : '""';
1356 $type_info = interprete_argument_balise(2,$p);
1357 $type_info = isset($type_info) ?
str_replace('\'', '"', $type_info) : '"est_actif"';
1359 $f = chercher_filtre('info_plugin');
1360 $p->code
= $f.'('.$plugin.', '.$type_info.')';
1364 // Appelle la fonction inc_aider_dist
1365 // http://doc.spip.org/@balise_AIDER_dist
1366 function balise_AIDER_dist($p) {
1367 $_motif = interprete_argument_balise(1,$p);
1368 $s = "'" . addslashes($p->descr
['sourcefile']) . "'";
1369 $aider = charger_fonction('aider','inc');
1370 $p->code
= "((\$aider=charger_fonction('aider','inc'))?\$aider($_motif,$s, \$Pile[0]):'')";
1374 // Insertion du contexte des formulaires charger/verifier/traiter
1375 // avec les hidden de l'url d'action
1376 // http://doc.spip.org/@balise_ACTION_FORMULAIRE
1377 function balise_ACTION_FORMULAIRE($p){
1378 if (!$_url = interprete_argument_balise(1,$p))
1379 $_url = "@\$Pile[0]['action']";
1380 if (!$_form = interprete_argument_balise(2,$p))
1381 $_form = "@\$Pile[0]['form']";
1383 // envoyer le nom du formulaire que l'on traite
1384 // transmettre les eventuels args de la balise formulaire
1385 $p->code
= " '<div>' .
1386 form_hidden($_url) .
1387 '<input name=\'formulaire_action\' type=\'hidden\'
1388 value=\'' . $_form . '\' />' .
1389 '<input name=\'formulaire_action_args\' type=\'hidden\'
1390 value=\'' . @\$Pile[0]['formulaire_args']. '\' />' .
1391 (@\$Pile[0]['_hidden']?@\$Pile[0]['_hidden']:'') .
1394 $p->interdire_scripts
= false;
1400 * Generer un bouton d'action en post, ajaxable
1401 * a utiliser a la place des liens action_auteur, sous la forme
1402 * #BOUTON_ACTION{libelle,url}
1404 * #BOUTON_ACTION{libelle,url,ajax} pour que l'action soit ajax comme un lien class='ajax'
1406 * #BOUTON_ACTION{libelle,url,ajax,message_confirmation} pour utiliser un message de confirmation
1408 * #BOUTON_ACTION{libelle[,url[,ajax[,message_confirmation[,title[,callback]]]]]}
1410 * @param unknown_type $p
1413 function balise_BOUTON_ACTION_dist($p){
1416 for ($k=1;$k<=6;$k++
){
1417 $_a = interprete_argument_balise($k,$p);
1421 // supprimer les args vides
1422 while(end($args)=="''" AND count($args)>2)
1424 $args = implode(",",$args);
1426 $bouton_action = chercher_filtre("bouton_action");
1427 $p->code
= "$bouton_action($args)";
1428 $p->interdire_scripts
= false;
1434 function balise_SLOGAN_SITE_SPIP_dist($p) {
1435 $p->code
= "\$GLOBALS['meta']['slogan_site']";
1436 #$p->interdire_scripts = true;
1441 // Renvoie ' ' si le webmestre souhaite que SPIP genere du code (X)HTML5 sur
1442 // le site public, et '' si le code doit etre strictement compatible HTML4
1443 // http://doc.spip.org/@balise_HTML5_dist
1444 function balise_HTML5_dist($p) {
1445 $p->code
= html5_permis() ?
"' '" : "''";
1446 $p->interdire_scripts
= false;
1453 * #TRI{champ[,libelle]}
1454 * champ prend > ou < pour afficher le lien de changement de sens
1455 * croissant ou decroissant (> < indiquent un sens par une fleche)
1457 * @param unknown_type $p
1458 * @param unknown_type $liste
1461 function balise_TRI_dist($p, $liste='true') {
1462 $b = $p->nom_boucle ?
$p->nom_boucle
: $p->descr
['id_mere'];
1464 // s'il n'y a pas de nom de boucle, on ne peut pas trier
1467 _T('zbug_champ_hors_boucle',
1468 array('champ' => '#TRI')
1473 $boucle = $p->boucles
[$b];
1475 // s'il n'y a pas de tri_champ, c'est qu'on se trouve
1476 // dans un boucle recursive ou qu'on a oublie le critere {tri}
1477 if (!isset($boucle->modificateur
['tri_champ'])) {
1479 _T('zbug_tri_sans_critere',
1480 array('champ' => '#TRI')
1486 $_champ = interprete_argument_balise(1,$p);
1487 // si pas de champ, renvoyer le critere de tri utilise
1489 $p->code
= $boucle->modificateur
['tri_champ'];
1492 // forcer la jointure si besoin, et si le champ est statique
1493 if (preg_match(",^'([\w.]+)'$,i",$_champ,$m)){
1494 index_pile($b, $m[1], $p->boucles
);
1497 $_libelle = interprete_argument_balise(2,$p);
1498 $_libelle = $_libelle?
$_libelle:$_champ;
1500 $_class = interprete_argument_balise(3,$p);
1501 // si champ = ">" c'est un lien vers le tri croissant : de gauche a droite ==> 1
1502 // si champ = "<" c'est un lien vers le tri decroissant : (sens inverse) == -1
1503 $_issens = "in_array($_champ,array('>','<'))";
1504 $_sens = "(strpos('< >',$_champ)-1)";
1506 $_variable = "((\$s=$_issens)?'sens':'tri').".$boucle->modificateur
['tri_nom'];
1507 $_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)";
1508 $_on = "\$s?(".$boucle->modificateur
['tri_sens']."==$_sens".'):('.$boucle->modificateur
['tri_champ']."==$_champ)";
1510 $p->code
= "lien_ou_expose($_url,$_libelle,$_on".($_class?
",$_class":"").")";
1512 $p->interdire_scripts
= false;
1518 * #SAUTER{n} permet de sauter en avant n resultats dans une boucle
1519 * La balise modifie le compteur courant de la boucle, mais pas les autres
1520 * champs qui restent les valeurs de la boucle avant le saut. Il est donc
1521 * preferable d'utiliser la balise juste avant la fermeture </BOUCLE>
1523 * L'argument n doit etre superieur a zero sinon la balise ne fait rien
1528 function balise_SAUTER_dist($p){
1529 $id_boucle = $p->id_boucle
;
1530 $boucle = $p->boucles
[$id_boucle];
1533 $msg = array('zbug_champ_hors_boucle', array('champ' => '#SAUTER'));
1534 erreur_squelette($msg, $p);
1537 $_saut = interprete_argument_balise(1,$p);
1538 $_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
1539 $_total = "\$Numrows['$id_boucle']['total']";
1541 $p->code
= "vide($_compteur=\$iter->skip($_saut,$_total))";
1543 $p->interdire_scripts
= false;
1549 * Savoir si on objet est publie ou non
1554 function balise_PUBLIE_dist($p) {
1555 if (!$_type = interprete_argument_balise(1,$p)){
1556 $_type = _q($p->type_requete
);
1557 $_id = champ_sql($p->boucles
[$p->id_boucle
]->primary
,$p);
1560 $_id = interprete_argument_balise(2,$p);
1562 $connect = $p->boucles
[$p->id_boucle
]->sql_serveur
;
1564 $p->code
= "(objet_test_si_publie(".$_type.",intval(".$_id."),"._q($connect).")?' ':'')";
1565 $p->interdire_scripts
= false;
1571 * generer un fichier statique a partir d'un squelette SPIP
1573 * Le format du fichier sera extrait de la preextension du squelette (typo.css.html, messcripts.js.html)
1574 * ou par l'argument format=css ou format=js passe en argument.
1576 * Si pas de format detectable, on utilise .html, comme pour les squelettes
1578 * <link rel="stylesheet" type="text/css" href="#PRODUIRE{fond=css/macss.css,couleur=ffffff}" />
1579 * la syntaxe de la balise est la meme que celle de #INCLURE
1584 function balise_PRODUIRE_dist($p){
1585 $balise_inclure = charger_fonction('INCLURE','balise');
1586 $p = $balise_inclure($p);
1588 $p->code
= str_replace('recuperer_fond(','produire_fond_statique(',$p->code
);
1594 * Definir la largeur d'ecran dans l'espace prive
1595 * #LARGEUR_ECRAN{pleine_largeur}
1600 function balise_LARGEUR_ECRAN_dist($p){
1601 $_class = interprete_argument_balise(1,$p);
1602 if (!$_class) $_class='null';
1603 $p->code
= "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";