78c34f7cba4af40517e50932e01b7c6919a4274a
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2012 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
17 * Appliquer les valeurs par defaut pour les options non initialisees
18 * (pour les langues c'est fait)
22 // http://doc.spip.org/@inc_config_dist
23 function inc_config_dist() {
24 actualise_metas(liste_metas());
28 * Expliquer une configuration :
29 * analyser le cfg pour determiner la table, le casier et le sous-casier eventuel
34 function expliquer_config($cfg){
35 // par defaut, sur la table des meta
38 $sous_casier = array();
39 $cfg = explode('/',$cfg);
40 // si le premier argument est vide, c'est une syntaxe /table/ ou un appel vide ''
41 if (!reset($cfg) AND count($cfg)>1) {
43 $table = array_shift($cfg);
44 if (!isset($GLOBALS[$table]))
47 // si on a demande #CONFIG{/meta,'',0}
49 $casier = array_shift($cfg);
54 return array($table,$casier,$sous_casier);
58 * Lecture de la configuration
60 * lire_config() permet de recuperer une config depuis le php<br>
61 * memes arguments que la balise (forcement)<br>
62 * $cfg: la config, lire_config('montruc') est un tableau<br>
63 * lire_config('/table/champ') lit le valeur de champ dans la table des meta 'spip_table'<br>
64 * lire_config('montruc/sub') est l'element "sub" de cette config equivalent a lire_config('/meta/montruc/sub')<br>
66 * lire_config('methode::montruc/sub') delegue la lecture a methode_lire_config_dist via un charger_fonction
67 * permet de brancher CFG ou autre outil externe qui etend les methodes de stockage de config
69 * $unserialize est mis par l'histoire
71 * @param string $cfg la config
72 * @param mixed $def un défaut optionnel
73 * @param boolean $unserialize n'affecte que le dépôt 'meta'
76 function lire_config($cfg='', $def=null, $unserialize=true) {
77 // lire le stockage sous la forme /table/valeur
78 // ou valeur qui est en fait implicitement /meta/valeur
79 // ou casier/valeur qui est en fait implicitement /meta/casier/valeur
81 // traiter en priorite le cas simple et frequent
82 // de lecture direct $GLOBALS['meta']['truc'], si $cfg ne contient ni / ni :
83 if ($cfg AND strpbrk($cfg,'/:')===false){
84 $r = isset($GLOBALS['meta'][$cfg])?
86 // ne pas essayer de deserialiser autre chose qu'une chaine
87 OR !is_string($GLOBALS['meta'][$cfg])
88 // ne pas essayer de deserialiser si ce n'est visiblement pas une chaine serializee
89 OR strpos($GLOBALS['meta'][$cfg],':')===false
90 OR ($t=unserialize($GLOBALS['meta'][$cfg]))===false)?
$GLOBALS['meta'][$cfg]:$t)
95 // Brancher sur methodes externes si besoin
96 if ($cfg AND $p=strpos($cfg,'::')){
97 $methode = substr($cfg,0,$p);
98 $lire_config = charger_fonction($methode, 'lire_config');
99 return $lire_config(substr($cfg,$p+
2),$def,$unserialize);
102 list($table,$casier,$sous_casier) = expliquer_config($cfg);
104 if (!isset($GLOBALS[$table]))
107 $r = $GLOBALS[$table];
109 // si on a demande #CONFIG{/meta,'',0}
111 return $unserialize ?
$r : serialize($r);
113 // casier principal :
114 // le deserializer si demande
117 $r = isset($r[$casier])?
$r[$casier]:null;
118 if (($unserialize OR count($sous_casier)) AND $r AND is_string($r))
119 $r = (($t=unserialize($r))===false?
$r:$t);
121 // aller chercher le sous_casier
122 while(!is_null($r) AND $casier = array_shift($sous_casier))
123 $r = isset($r[$casier])?
$r[$casier]:null;
125 if (is_null($r)) return $def;
130 * metapack est inclue dans lire_config, mais on traite le cas ou il est explicite
131 * metapack:: dans le $cfg de lire_config.
132 * On renvoie simplement sur lire_config
136 * @param bool $unserialize
139 function lire_config_metapack_dist($cfg='', $def=null, $unserialize=true) {
140 return lire_config($cfg, $def, $unserialize);
145 * Ecrire une configuration
148 * @param mixed $store
151 function ecrire_config($cfg,$store) {
152 // Brancher sur methodes externes si besoin
153 if ($cfg AND $p=strpos($cfg,'::')){
154 $methode = substr($cfg,0,$p);
155 $ecrire_config = charger_fonction($methode, 'ecrire_config');
156 return $ecrire_config(substr($cfg,$p+
2),$store);
159 list($table,$casier,$sous_casier) = expliquer_config($cfg);
160 // il faut au moins un casier pour ecrire
161 if (!$casier) return false;
163 // trouvons ou creons le pointeur sur le casier
164 $st = isset($GLOBALS[$table][$casier])?
$GLOBALS[$table][$casier]:null;
165 if (!is_array($st) AND ($sous_casier OR is_array($store))) {
166 $st = unserialize($st);
168 // ne rien creer si c'est une demande d'effacement
175 // si on a affaire a un sous caiser
176 // il faut ecrire au bon endroit sans perdre les autres sous casier freres
177 if ($c = $sous_casier) {
179 $pointeurs = array();
180 while (count($c) AND $cc=array_shift($c)) {
181 // creer l'entree si elle n'existe pas
182 if (!isset($sc[$cc])) {
183 // si on essaye d'effacer une config qui n'existe pas
184 // ne rien creer mais sortir
189 $pointeurs[$cc] = &$sc;
193 // si c'est une demande d'effacement
194 if (is_null($store)){
196 $sous = array_pop($c);
197 // effacer, et remonter pour effacer les parents vides
199 unset($pointeurs[$sous][$sous]);
200 } while ($sous = array_pop($c) AND !count($pointeurs[$sous][$sous]));
202 // si on a vide tous les sous casiers,
203 // et que le casier est vide
204 // vider aussi la meta
205 if (!$sous AND !count($st))
208 // dans tous les autres cas, on ecrase
212 // Maintenant que $st est modifiee
213 // reprenons la comme valeur a stocker dans le casier principal
217 if (is_null($store)) {
218 if (is_null($st) AND !$sous_casier)
219 return false; // la config n'existait deja pas !
220 effacer_meta ($casier, $table);
221 if (!count($GLOBALS[$table])
222 OR count($GLOBALS[$table])==1 AND isset($GLOBALS[$table]['charset'])) {
223 effacer_meta('charset', $table); // enlevons cette meta
224 supprimer_table_meta($table); // supprimons la table (si elle est bien vide)
227 // les meta ne peuvent etre que des chaines : il faut serializer le reste
229 if (!isset($GLOBALS[$table]))
230 installer_table_meta($table);
231 // si ce n'est pas une chaine
232 // il faut serializer
233 if (!is_string($store))
234 $store=serialize($store);
235 ecrire_meta($casier, $store, null, $table);
237 // verifier que lire_config($cfg)==$store ?
243 * metapack est inclue dans ecrire_config, mais on traite le cas ou il est explicite
244 * metapack:: dans le $cfg de ecrire_config.
245 * On renvoie simplement sur ecrire_config
248 * @param mixed $store
251 function ecrire_config_metapack_dist($cfg,$store) {
252 // cas particulier en metapack::
253 // si on ecrit une chaine deja serializee, il faut la reserializer pour la rendre
254 // intacte en sortie ...
255 if (is_string($store) AND strpos($store,':') AND unserialize($store))
256 $store = serialize($store);
257 return ecrire_config($cfg, $store);
261 * Effacer une configuration : revient a ecrire une valeur null
265 function effacer_config($cfg){
266 ecrire_config($cfg, null);
271 function lister_configurer($exclure = array()){
274 // lister les pages de config deja dans les menus
276 foreach($exclure as $id=>$b) {
277 $url = ($b['url'] ?
$b['url'] : $id);
278 if (!$b['url'] or !isset($exclure[$url])) {
279 if (strncmp($url,'configurer_',11)==0) {
281 } elseif($b['url']=='configurer' AND preg_match(',cfg=([a-z0-9_]+),i',$b['args'],$match)) {
282 $deja["configurer_".$match[1]] = $b;
287 $exclure = $exclure +
$deja;
289 $icone_defaut = "images/configuration-16.png";
294 // trouver toutes les pages configurer_xxx de l'espace prive
295 // et construire un tableau des entrees qui ne sont pas dans $deja
296 $pages = find_all_in_path("prive/squelettes/contenu/", "configurer_.*[.]"._EXTENSION_SQUELETTES
.'$');
298 foreach($pages as $page) {
299 $configurer = basename($page,"."._EXTENSION_SQUELETTES
);
300 if (!isset($exclure[$configurer])) {
301 $liste[$configurer] = array(
302 'parent' => 'bando_configuration',
303 'url' => $configurer,
304 'titre' => _T("configurer:{$configurer}_titre"),
305 'icone' => find_in_theme($i="images/{$configurer}-16.png")?
$i:$icone_defaut,
308 $skels[$configurer] = $page;
311 // analyser la liste des $skels pour voir les #FORMULAIRE_CONFIGURER_ inclus
312 foreach($skels as $file) {
313 $forms = array_merge($forms, lister_formulaires_configurer($file));
315 $forms = array_flip($forms);
317 // trouver tous les formulaires/configurer_
318 // et construire un tableau des entrees
319 $pages = find_all_in_path("formulaires/", "configurer_.*[.]"._EXTENSION_SQUELETTES
.'$');
320 foreach($pages as $page) {
321 $configurer = basename($page,"."._EXTENSION_SQUELETTES
);
322 if (!isset($forms[$configurer])
323 AND !isset($liste[$configurer])
324 AND !isset($exclure[$configurer]))
325 $liste[$configurer] = array(
326 'parent' => 'bando_configuration',
327 'url' => 'configurer',
328 'args' => 'cfg='.substr($configurer,11),
329 'titre' => _T("configurer:{$configurer}_titre"),
330 'icone' => find_in_theme($i="images/{$configurer}-16.png")?
$i:$icone_defaut,
339 * Retourne la liste des formulaires de configuration
340 * presents dans le fichier dont l'adresse est donnee
342 * @param string $file adresse du fichier
343 * @return array liste des formulaires trouves
345 function lister_formulaires_configurer($file) {
348 lire_fichier($file, $skel);
349 if (preg_match_all(",#FORMULAIRE_(CONFIGURER_[A-Z0-9_]*),", $skel, $matches,PREG_SET_ORDER
)) {
350 $matches = array_map('end',$matches);
351 $matches = array_map('strtolower',$matches);
352 $forms = array_merge($forms,$matches);
355 // evaluer le fond en lui passant un exec coherent pour que les pipelines le reconnaissent
356 // et reperer les formulaires CVT configurer_xx insereres par les plugins via pipeline
357 $config = basename(substr($file,0,-strlen("."._EXTENSION_SQUELETTES
)));
358 spip_log('Calcul de '."prive/squelettes/contenu/$config");
359 $fond = recuperer_fond("prive/squelettes/contenu/$config", array("exec" => $config));
361 // passer dans le pipeline affiche_milieu pour que les plugins puissent ajouter leur formulaires...
362 // et donc que l'on puisse les referencer aussi !
363 $fond = pipeline('affiche_milieu', array('args'=>array("exec" => $config),'data'=>$fond));
365 // recuperer les noms des formulaires presents.
366 if (is_array($inputs = extraire_balises($fond,"input"))) {
367 foreach($inputs as $i) {
368 if (extraire_attribut($i,'name')=='formulaire_action') {
369 $forms[] = ($c=extraire_attribut($i,'value'));
377 // http://doc.spip.org/@liste_metas
378 function liste_metas()
380 return pipeline('configurer_liste_metas', array(
381 'nom_site' => _T('info_mon_site_spip'),
382 'adresse_site' => preg_replace(",/$,", "", url_de_base()),
383 'descriptif_site' => '',
384 'activer_logos' => 'oui',
385 'activer_logos_survol' => 'non',
386 'articles_surtitre' => 'non',
387 'articles_soustitre' => 'non',
388 'articles_descriptif' => 'non',
389 'articles_chapeau' => 'non',
390 'articles_texte' => 'oui',
391 'articles_ps' => 'non',
392 'articles_redac' => 'non',
393 'post_dates' => 'non',
394 'articles_urlref' => 'non',
395 'articles_redirection' => 'non',
396 'creer_preview' => 'non',
397 'taille_preview' => 150,
398 'articles_modif' => 'non',
400 'rubriques_descriptif' => 'non',
401 'rubriques_texte' => 'oui',
403 'accepter_inscriptions' => 'non',
404 'accepter_visiteurs' => 'non',
405 'prevenir_auteurs' => 'non',
406 'suivi_edito' => 'non',
407 'adresse_suivi' =>'',
408 'adresse_suivi_inscription' =>'',
409 'adresse_neuf' => '',
411 'quoi_de_neuf' => 'non',
412 'preview' => ',0minirezo,1comite,',
414 'syndication_integrale' => 'oui',
415 'charset' => _DEFAULT_CHARSET
,
416 'dir_img' => substr(_DIR_IMG
,strlen(_DIR_RACINE
)),
418 'multi_rubriques' => 'non',
419 'multi_secteurs' => 'non',
420 'gerer_trad' => 'non',
421 'langues_multilingue' => '',
423 'version_html_max' => 'html4',
425 'type_urls' => 'page',
428 'email_webmaster' => '',
429 'auto_compress_http'=>'non',
433 // mets les meta a des valeurs conventionnelles quand elles sont vides
434 // et recalcule les langues
436 // http://doc.spip.org/@actualise_metas
437 function actualise_metas($liste_meta)
440 array('version_installee','adresse_site','alea_ephemere_ancien','alea_ephemere','alea_ephemere_date','langue_site','langues_proposees','date_calcul_rubriques','derniere_modif','optimiser_table','drapeau_edition','creer_preview','taille_preview','creer_htpasswd','creer_htaccess','gd_formats_read','gd_formats',
441 'netpbm_formats','formats_graphiques','image_process','plugin_header','plugin');
442 // verifier le impt=non
443 sql_updateq('spip_meta',array('impt'=>'non'),sql_in('nom',$meta_serveur));
445 while (list($nom, $valeur) = each($liste_meta)) {
446 if (!$GLOBALS['meta'][$nom]) {
447 ecrire_meta($nom, $valeur);
451 include_spip('inc/rubriques');
452 $langues = calculer_langues_utilisees();
453 ecrire_meta('langues_utilisees', $langues);
459 // Gestion des modifs
462 // http://doc.spip.org/@appliquer_modifs_config
463 function appliquer_modifs_config($purger_skel=false) {
465 foreach(liste_metas() as $i => $v) {
466 if (($x =_request($i))!==NULL)
468 elseif (!isset($GLOBALS['meta'][$i]))
473 include_spip('inc/invalideur');
474 purger_repertoire(_DIR_SKELS
);
479 * Mettre a jour l'adresse du site a partir d'une valeur saisie
480 * (ou auto detection si vide)
482 * @param $adresse_site
485 function appliquer_adresse_site($adresse_site){
486 if ($adresse_site!==NULL){
487 if (!strlen($adresse_site)) {$GLOBALS['profondeur_url']=_DIR_RESTREINT?
0:1;$adresse_site = url_de_base();}
488 $adresse_site = preg_replace(",/?\s*$,", "", $adresse_site);
490 if (!preg_match(",^[\w]+://,Uims",$adresse_site))
491 $adresse_site = "http://$adresse_site";
493 ecrire_meta('adresse_site',$adresse_site);
495 return $adresse_site;