5 * Distribue sous licence GPL
9 if (!defined("_ECRIRE_INC_VERSION")) return;
12 * Proposer un chargement par defaut pour les #FORMULAIRE_CONFIGURER_XXX
17 function spip_bonux_formulaire_charger($flux){
18 if ($form = $flux['args']['form']
19 AND strncmp($form,'configurer_',11)==0 // un #FORMULAIRE_CONFIGURER_XXX
20 AND !charger_fonction("charger","formulaires/$form/",true) // sans fonction charger()
21 #AND !$flux['data'] // ne pas ecraser ce que des plugins on peut etre deja remplis (tq _saisies)
24 $flux['data'] = spip_bonux_formulaires_configurer_recense($form);
25 $flux['data']['editable'] = true;
26 if (_request('var_mode')=='configurer' AND autoriser('webmestre')){
27 if (!_AJAX
) var_dump($flux['data']);
28 // reinjecter pour la trace au traitement
29 $flux['data']['_hidden'] = "<input type='hidden' name='var_mode' value='configurer' />";
36 * Proposer un traitement par defaut pour les #FORMULAIRE_CONFIGURER_XXX
41 function spip_bonux_formulaire_traiter($flux){
42 if ($form = $flux['args']['form']
43 AND strncmp($form,'configurer_',11)==0 // un #FORMULAIRE_CONFIGURER_XXX
44 AND !charger_fonction("traiter","formulaires/$form/",true) // sans fonction charger()
47 // charger les valeurs
48 // ce qui permet de prendre en charge une fonction charger() existante
49 // qui prend alors la main sur l'auto detection
50 if ($charger_valeurs = charger_fonction("charger","formulaires/$form/",true))
51 $valeurs = call_user_func_array($charger_valeurs,$flux['args']['args']);
55 'args'=>array('form'=>$form,'args'=>$flux['args']['args'],'je_suis_poste'=>false),
58 // ne pas stocker editable !
59 unset($valeurs['editable']);
61 // recuperer les valeurs postees
63 foreach($valeurs as $k=>$v){
64 if (substr($k,0,1)!=='_')
65 $store[$k] = _request($k);
68 $trace = spip_bonux_configurer_stocker($form,$valeurs,$store);
70 $flux['data'] = array('message_ok'=>_T('config_info_enregistree').$trace,'editable'=>true);
76 * Retrouver les champs d'un formulaire en parcourant son squelette
77 * et en extrayant les balises input, textarea, select
82 function spip_bonux_formulaires_configurer_recense($form){
85 // traiter d'abord le cas fichier yaml de description
89 // sinon cas analyse du squelette
90 if ($f = find_in_path($form.'.' . _EXTENSION_SQUELETTES
, 'formulaires/')
91 AND lire_fichier($f, $contenu)) {
93 for ($i=0;$i<2;$i++
) {
94 // a la seconde iteration, evaluer le fond avec les valeurs deja trouvees
95 // permet de trouver aussi les name="#GET{truc}"
96 if ($i==1) $contenu = recuperer_fond("formulaires/$form",array_merge($valeurs,array('editable'=>' ')));
98 $balises = array_merge(extraire_balises($contenu,'input'),
99 extraire_balises($contenu,'textarea'),
100 extraire_balises($contenu,'select'));
102 foreach($balises as $b) {
103 if ($n = extraire_attribut($b, 'name')
104 AND preg_match(",^([\w\-]+)(\[\w*\])*$,",$n,$r)
105 AND !in_array($n,array('formulaire_action','formulaire_action_args'))
106 AND extraire_attribut($b,'type')!=='submit') {
107 $valeurs[$r[1]] = '';
108 // recuperer les valeurs _meta_xx qui peuvent etre fournies
109 // en input hidden dans le squelette
110 if (strncmp($r[1],'_meta_',6)==0)
111 $valeurs[$r[1]] = extraire_attribut($b,'value');
118 spip_bonux_configurer_lire_meta($form,$valeurs);
123 * Definir la regle de conteneur, en fonction de la presence
125 * _meta_table : nom de la table meta ou stocker (par defaut 'meta')
126 * _meta_casier : nom du casier dans lequel serializer (par defaut xx de formulaire_configurer_xx)
127 * _meta_prefixe : prefixer les meta (alternative au casier) dans la table des meta (par defaur rien)
129 * @param string $form
130 * @param array $valeurs
132 function spip_bonux_definir_configurer_conteneur($form,$valeurs) {
134 // par defaut, dans un casier serialize dans spip_meta (idem CFG)
135 $casier = substr($form,11);
139 // si on indique juste une table, il faut vider les autres proprietes
140 // car par defaut on utilise ni casier ni prefixe dans ce cas
141 if (isset($valeurs['_meta_table'])) {
142 $table = $valeurs['_meta_table'];
143 $casier = (isset($valeurs['_meta_casier'])?
$valeurs['_meta_casier']:'');
144 $prefixe = (isset($valeurs['_meta_prefixe'])?
$valeurs['_meta_prefixe']:'');
147 if(isset($valeurs['_meta_casier']))
148 $casier = $valeurs['_meta_casier'];
149 if(isset($valeurs['_meta_prefixe']))
150 $prefixe = $valeurs['_meta_prefixe'];
153 return array($table,$casier,$prefixe);
158 * @param <type> $form
159 * @param <type> $valeurs
160 * @param <type> $store
162 function spip_bonux_configurer_stocker($form,$valeurs,$store) {
164 list($table,$casier,$prefixe) = spip_bonux_definir_configurer_conteneur($form,$valeurs);
166 // par defaut, dans un casier serialize dans spip_meta (idem CFG)
167 if (!isset($GLOBALS[$table]))
170 // le casier peut etre de la forme casierprincipal/sous/casier
171 // on ecrit donc au bon endroit sans perdre les autres sous casier freres
173 $c = explode('/',$casier);
174 $casier_principal = array_shift($c);
175 $st = isset($GLOBALS[$table][$casier_principal])?
$GLOBALS[$table][$casier_principal]:array();
176 if (is_string($st) AND (count($c) OR is_array($store))) {
177 $st = unserialize($st);
182 while (count($c) AND $cc=reset($c)) {
183 // creer l'entree si elle n'existe pas
184 if (!isset($sc[$cc]))
189 if (is_array($sc) AND count($sc))
190 $sc = array_merge($sc,$store);
193 $store = array($casier_principal => serialize($st));
196 $prefixe = ($prefixe?
$prefixe.'_':'');
197 foreach($store as $k=>$v){
198 ecrire_meta($prefixe.$k, $v, true, $table);
199 if (_request('var_mode')=='configurer' AND autoriser('webmestre')){
200 $trace .= "<br />table $table : ".$prefixe.$k." = $v;";
206 function spip_bonux_configurer_lire_meta($form,&$valeurs) {
207 list($table,$casier,$prefixe) = spip_bonux_definir_configurer_conteneur($form,$valeurs);
209 $prefixe = ($prefixe?
$prefixe.'_':'');
211 $meta = spip_bonux_lire_config("/$table/$prefixe$casier");
215 $meta = spip_bonux_lire_config("/$table");
218 foreach($valeurs as $k=>$v){
219 if (substr($k,0,1)!=='_')
220 $valeurs[$k] = (isset($meta[$prefixe.$k])?
$meta[$prefixe.$k]:'');
225 * Lecture de la configuration
227 * lire_config() permet de recuperer une config depuis le php<br>
228 * memes arguments que la balise (forcement)<br>
229 * $cfg: la config, lire_config('montruc') est un tableau<br>
230 * lire_config('/table/champ') lit le valeur de champ dans la table des meta 'table'<br>
231 * lire_config('montruc/sub') est l'element "sub" de cette config equivalent a lire_config('/meta/montruc/sub')<br>
233 * $unserialize est mis par l'histoire
235 * @param string $cfg la config
236 * @param mixed $def un défaut optionnel
237 * @param boolean $unserialize n'affecte que le dépôt 'meta'
240 function spip_bonux_lire_config($cfg='', $def=null, $unserialize=true) {
241 // lire le stockage sous la forme /table/valeur
242 // ou valeur qui est en fait implicitement /meta/valeur
243 // ou casier/valeur qui est en fait implicitement /meta/casier/valeur
244 if ($cfg AND strpos($cfg,'/')===false){
245 return isset($GLOBALS['meta'][$cfg])?
246 ((!$unserialize OR ($t=unserialize($GLOBALS['meta'][$cfg]))===false)?
$GLOBALS['meta'][$cfg]:$t)
250 // par defaut, sur la table des meta
252 $cfg = explode('/',$cfg);
253 // si le premier argument est vide, c'est une syntaxe /table/ ou un appel vide ''
254 if (!reset($cfg) AND count($cfg)>1) {
256 if (count($cfg)) $table = array_shift($cfg);
257 if (!isset($GLOBALS[$table]))
259 if (!isset($GLOBALS[$table]))
263 $r = $GLOBALS[$table];
265 // si on a demande #CONFIG{/meta,'',0}
267 return $unserialize ?
$r : serialize($r);
269 $deserialize = false; // on ne deserialise qu'une seule fois...
270 while($casier = array_shift($cfg)) {
271 $r = isset($r[$casier])?
$r[$casier]:null;
272 // deserializer tant que c'est necessaire
273 if (!$deserialize AND $r AND is_string($r) AND (count($cfg) OR $unserialize)) {
275 $r = unserialize($r);
279 if (is_null($r)) return $def;
284 if (!function_exists('balise_CONFIG')) {
286 * #CONFIG retourne lire_config()
288 * Le 3eme argument permet de controler la serialisation du resultat
289 * (mais ne sert que pour le depot 'meta') qui doit parfois deserialiser
291 * ex: |in_array{#CONFIG{toto,#ARRAY,1}}.
293 * Ceci n'affecte pas d'autres depots et |in_array{#CONFIG{toto/,#ARRAY}} sera equivalent
294 * #CONFIG{/tablemeta/champ,defaut} lit la valeur de 'champ' dans la table des meta 'tablemeta'
296 * @param Object $p Arbre syntaxique du compilo
299 function balise_CONFIG($p) {
300 if (!$arg = interprete_argument_balise(1,$p)) {
303 $sinon = interprete_argument_balise(2,$p);
304 $unserialize = sinon(interprete_argument_balise(3,$p),"false");
306 $p->code
= 'spip_bonux_lire_config(' . $arg . ',' .
307 ($sinon && $sinon != "''" ?
$sinon : 'null') . ',' . $unserialize . ')';
313 include_spip('inc/config');