X-Git-Url: http://git.cyclocoop.org/?a=blobdiff_plain;ds=sidebyside;f=www%2Fplugins%2Fauto%2Fcouteau_suisse%2Fcouteau_suisse%2Foutils%2Fbalise_set_fonctions.php;fp=www%2Fplugins%2Fauto%2Fcouteau_suisse%2Fcouteau_suisse%2Foutils%2Fbalise_set_fonctions.php;h=622cacc1320d285973e9ad3de5d7e4ee2ae300c6;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hp=0000000000000000000000000000000000000000;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c;p=velocampus%2Fweb%2Fwww.git

diff --git a/www/plugins/auto/couteau_suisse/couteau_suisse/outils/balise_set_fonctions.php b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/balise_set_fonctions.php
new file mode 100644
index 0000000..622cacc
--- /dev/null
+++ b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/balise_set_fonctions.php
@@ -0,0 +1,30 @@
+<?php
+
+function balise_SET__dist($p) {
+	$champ = $p->nom_champ;
+	preg_match(",^SET_([A-Z_]+)?$,i", $champ, $filtre);
+	$filtre = strtolower($filtre[1]);
+	$filtre2 = chercher_filtre($filtre);
+	if (!$filtre2) {
+		$err_b_s_a = array('zbug_erreur_filtre', array('filtre' => $filtre));
+		erreur_squelette($err_b_s_a, $p);
+	} else {
+		$nom = interprete_argument_balise(1,$p);
+		if (!$nom) {
+			$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => $champ));
+			erreur_squelette($err_b_s_a, $p);
+		} else {
+			$i = 1; $args = array();
+			while(($a = interprete_argument_balise(++$i,$p)) != NULL) $args[] = $a;
+			$get = function_exists('balise_GET') ? 'balise_GET' : 'balise_GET_dist';
+			$q = $p; $q->param[0] = array($q->param[0][0], $q->param[0][1]);
+			$get = $get($q);
+			$filtre2 .= '('.$get->code.','.join(",", $args).')';
+			$p->code = "vide(\$Pile['vars'][$nom] = $filtre2)";
+		}
+	}
+	$p->interdire_scripts = false; // la balise ne renvoie rien
+	return $p;
+}
+
+?>
\ No newline at end of file