+<?php\r
+\r
+function balise_SET__dist($p) {\r
+ $champ = $p->nom_champ;\r
+ preg_match(",^SET_([A-Z_]+)?$,i", $champ, $filtre);\r
+ $filtre = strtolower($filtre[1]);\r
+ $filtre2 = chercher_filtre($filtre);\r
+ if (!$filtre2) {\r
+ $err_b_s_a = array('zbug_erreur_filtre', array('filtre' => $filtre));\r
+ erreur_squelette($err_b_s_a, $p);\r
+ } else {\r
+ $nom = interprete_argument_balise(1,$p);\r
+ if (!$nom) {\r
+ $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => $champ));\r
+ erreur_squelette($err_b_s_a, $p);\r
+ } else {\r
+ $i = 1; $args = array();\r
+ while(($a = interprete_argument_balise(++$i,$p)) != NULL) $args[] = $a;\r
+ $get = function_exists('balise_GET') ? 'balise_GET' : 'balise_GET_dist';\r
+ $q = $p; $q->param[0] = array($q->param[0][0], $q->param[0][1]);\r
+ $get = $get($q);\r
+ $filtre2 .= '('.$get->code.','.join(",", $args).')';\r
+ $p->code = "vide(\$Pile['vars'][$nom] = $filtre2)";\r
+ }\r
+ }\r
+ $p->interdire_scripts = false; // la balise ne renvoie rien\r
+ return $p;\r
+}\r
+\r
+?>
\ No newline at end of file