3 function balise_SET__dist($p) {
4 $champ = $p->nom_champ
;
5 preg_match(",^SET_([A-Z_]+)?$,i", $champ, $filtre);
6 $filtre = strtolower($filtre[1]);
7 $filtre2 = chercher_filtre($filtre);
9 $err_b_s_a = array('zbug_erreur_filtre', array('filtre' => $filtre));
10 erreur_squelette($err_b_s_a, $p);
12 $nom = interprete_argument_balise(1,$p);
14 $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => $champ));
15 erreur_squelette($err_b_s_a, $p);
17 $i = 1; $args = array();
18 while(($a = interprete_argument_balise(++
$i,$p)) != NULL) $args[] = $a;
19 $get = function_exists('balise_GET') ?
'balise_GET' : 'balise_GET_dist';
20 $q = $p; $q->param
[0] = array($q->param
[0][0], $q->param
[0][1]);
22 $filtre2 .= '('.$get->code
.','.join(",", $args).')';
23 $p->code
= "vide(\$Pile['vars'][$nom] = $filtre2)";
26 $p->interdire_scripts
= false; // la balise ne renvoie rien