www/plugins/auto/couteau_suisse/couteau_suisse/outils/balise_set_fonctions.php

   1 <?php
   2
   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);
   8         if (!$filtre2) {
   9                 $err_b_s_a = array('zbug_erreur_filtre', array('filtre' => $filtre));
  10                 erreur_squelette($err_b_s_a, $p);
  11         } else {
  12                 $nom = interprete_argument_balise(1,$p);
  13                 if (!$nom) {
  14                         $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => $champ));
  15                         erreur_squelette($err_b_s_a, $p);
  16                 } else {
  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]);
  21                         $get = $get($q);
  22                         $filtre2 .= '('.$get->code.','.join(",", $args).')';
  23                         $p->code = "vide(\$Pile['vars'][$nom] = $filtre2)";
  24                 }
  25         }
  26         $p->interdire_scripts = false; // la balise ne renvoie rien
  27         return $p;
  28 }
  29
  30 ?>