www/ecrire/inc/config.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2012                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   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 \***************************************************************************/
  12
  13 if (!defined('_ECRIRE_INC_VERSION')) return;
  14
  15
  16 /**
  17  * Appliquer les valeurs par defaut pour les options non initialisees
  18  * (pour les langues c'est fait)
  19  *
  20  * @return null
  21  */
  22 // http://doc.spip.org/@inc_config_dist
  23 function inc_config_dist() {
  24         actualise_metas(liste_metas());
  25 }
  26
  27 /**
  28  * Expliquer une configuration :
  29  * analyser le cfg pour determiner la table, le casier et le sous-casier eventuel
  30  *
  31  * @param string $cfg
  32  * @return array
  33  */
  34 function expliquer_config($cfg){
  35         // par defaut, sur la table des meta
  36         $table = 'meta';
  37         $casier = null;
  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) {
  42                 array_shift($cfg);
  43                 $table = array_shift($cfg);
  44                 if (!isset($GLOBALS[$table]))
  45                         lire_metas($table);
  46         }
  47         // si on a demande #CONFIG{/meta,'',0}
  48         if (count($cfg))
  49                 $casier = array_shift($cfg);
  50
  51         if (count($cfg))
  52                 $sous_casier = $cfg;
  53
  54         return array($table,$casier,$sous_casier);
  55 }
  56
  57 /**
  58  * Lecture de la configuration
  59  *
  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>
  65  *
  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
  68  *
  69  * $unserialize est mis par l'histoire
  70  *
  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'
  74  * @return string
  75  */
  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
  80
  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])?
  85                   ((!$unserialize
  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)
  91                   :$def;
  92                 return $r;
  93         }
  94
  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);
 100         }
 101
 102         list($table,$casier,$sous_casier) = expliquer_config($cfg);
 103
 104         if (!isset($GLOBALS[$table]))
 105                         return $def;
 106
 107         $r = $GLOBALS[$table];
 108
 109         // si on a demande #CONFIG{/meta,'',0}
 110         if (!$casier)
 111                 return $unserialize ? $r : serialize($r);
 112
 113         // casier principal :
 114         // le deserializer si demande
 115         // ou si on a besoin
 116         // d'un sous casier
 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);
 120
 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;
 124
 125         if (is_null($r)) return $def;
 126         return $r;
 127 }
 128
 129 /**
 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
 133  *
 134  * @param string $cfg
 135  * @param mixed $def
 136  * @param bool $unserialize
 137  * @return mixed
 138  */
 139 function lire_config_metapack_dist($cfg='', $def=null, $unserialize=true) {
 140         return lire_config($cfg, $def, $unserialize);
 141 }
 142
 143
 144 /**
 145  * Ecrire une configuration
 146  *
 147  * @param string $cfg
 148  * @param mixed $store
 149  * @return bool
 150  */
 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);
 157         }
 158
 159         list($table,$casier,$sous_casier) = expliquer_config($cfg);
 160         // il faut au moins un casier pour ecrire
 161         if (!$casier) return false;
 162
 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);
 167                 if ($st===false) {
 168                         // ne rien creer si c'est une demande d'effacement
 169                         if (is_null($store))
 170                                 return false;
 171                         $st=array();
 172                 }
 173         }
 174
 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) {
 178                 $sc = &$st;
 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
 185                                 if (is_null($store))
 186                                         return false;
 187                                 $sc[$cc] = array();
 188                         }
 189                         $pointeurs[$cc] = &$sc;
 190                         $sc = &$sc[$cc];
 191                 }
 192
 193                 // si c'est une demande d'effacement
 194                 if (is_null($store)){
 195                         $c = $sous_casier;
 196                         $sous = array_pop($c);
 197                         // effacer, et remonter pour effacer les parents vides
 198                         do {
 199                                 unset($pointeurs[$sous][$sous]);
 200                         } while ($sous = array_pop($c) AND !count($pointeurs[$sous][$sous]));
 201
 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))
 206                                 $st = null;
 207                 }
 208                 // dans tous les autres cas, on ecrase
 209                 else
 210                         $sc = $store;
 211
 212                 // Maintenant que $st est modifiee
 213                 // reprenons la comme valeur a stocker dans le casier principal
 214                 $store = $st;
 215         }
 216
 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)
 225                 }
 226         }
 227         // les meta ne peuvent etre que des chaines : il faut serializer le reste
 228         else {
 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);
 236         }
 237         // verifier que lire_config($cfg)==$store ?
 238         return true;
 239 }
 240
 241
 242 /**
 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
 246  *
 247  * @param string $cfg
 248  * @param mixed $store
 249  * @return bool
 250  */
 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);
 258 }
 259
 260 /**
 261  * Effacer une configuration : revient a ecrire une valeur null
 262  * @param string $cfg
 263  * @return bool
 264  */
 265 function effacer_config($cfg){
 266         ecrire_config($cfg, null);
 267         return true;
 268 }
 269
 270
 271 function lister_configurer($exclure = array()){
 272         return array();
 273
 274         // lister les pages de config deja dans les menus
 275         $deja = array();
 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) {
 280                                 $deja[$url] = $b;
 281                         } elseif($b['url']=='configurer' AND preg_match(',cfg=([a-z0-9_]+),i',$b['args'],$match)) {
 282                                 $deja["configurer_".$match[1]] = $b;
 283                         }
 284                 }
 285
 286         }
 287         $exclure = $exclure + $deja;
 288
 289         $icone_defaut = "images/configuration-16.png";
 290         $liste = array();
 291         $skels = array();
 292         $forms = array();
 293
 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.'$');
 297
 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,
 306                         );
 307                 }
 308                 $skels[$configurer] = $page;
 309         }
 310
 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));
 314         }
 315         $forms = array_flip($forms);
 316
 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,
 331                         );
 332         }
 333
 334         return $liste;
 335 }
 336
 337
 338 /**
 339  * Retourne la liste des formulaires de configuration
 340  * presents dans le fichier dont l'adresse est donnee
 341  *
 342  * @param string $file adresse du fichier
 343  * @return array liste des formulaires trouves
 344 **/
 345 function lister_formulaires_configurer($file) {
 346         $forms = array();
 347
 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);
 353         }
 354
 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));
 360
 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));
 364
 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'));
 370                         }
 371                 }
 372         }
 373         return $forms;
 374 }
 375
 376
 377 // http://doc.spip.org/@liste_metas
 378 function liste_metas()
 379 {
 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',
 399
 400                 'rubriques_descriptif' => 'non',
 401                 'rubriques_texte' => 'oui',
 402
 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' => '',
 410                 'jours_neuf' => '',
 411                 'quoi_de_neuf' => 'non',
 412                 'preview' => ',0minirezo,1comite,',
 413
 414                 'syndication_integrale' => 'oui',
 415                 'charset' => _DEFAULT_CHARSET,
 416                 'dir_img' => substr(_DIR_IMG,strlen(_DIR_RACINE)),
 417
 418                 'multi_rubriques' => 'non',
 419                 'multi_secteurs' => 'non',
 420                 'gerer_trad' => 'non',
 421                 'langues_multilingue' => '',
 422
 423                 'version_html_max' => 'html4',
 424
 425                 'type_urls' => 'page',
 426
 427                 'email_envoi' => '',
 428                 'email_webmaster' => '',
 429                 'auto_compress_http'=>'non',
 430         ));
 431 }
 432
 433 // mets les meta a des valeurs conventionnelles quand elles sont vides
 434 // et recalcule les langues
 435
 436 // http://doc.spip.org/@actualise_metas
 437 function actualise_metas($liste_meta)
 438 {
 439         $meta_serveur =
 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));
 444
 445         while (list($nom, $valeur) = each($liste_meta)) {
 446                 if (!$GLOBALS['meta'][$nom]) {
 447                         ecrire_meta($nom, $valeur);
 448                 }
 449         }
 450
 451         include_spip('inc/rubriques');
 452         $langues = calculer_langues_utilisees();
 453         ecrire_meta('langues_utilisees', $langues);
 454 }
 455
 456
 457
 458 //
 459 // Gestion des modifs
 460 //
 461
 462 // http://doc.spip.org/@appliquer_modifs_config
 463 function appliquer_modifs_config($purger_skel=false) {
 464
 465         foreach(liste_metas() as $i => $v) {
 466                 if (($x =_request($i))!==NULL)
 467                         ecrire_meta($i, $x);
 468                 elseif  (!isset($GLOBALS['meta'][$i]))
 469                         ecrire_meta($i, $v);
 470         }
 471
 472         if ($purger_skel) {
 473                 include_spip('inc/invalideur');
 474                 purger_repertoire(_DIR_SKELS);
 475         }
 476 }
 477
 478 /**
 479  * Mettre a jour l'adresse du site a partir d'une valeur saisie
 480  * (ou auto detection si vide)
 481  *
 482  * @param  $adresse_site
 483  * @return void
 484  */
 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);
 489
 490                 if (!preg_match(",^[\w]+://,Uims",$adresse_site))
 491                         $adresse_site = "http://$adresse_site";
 492
 493                 ecrire_meta('adresse_site',$adresse_site);
 494         }
 495         return $adresse_site;
 496 }
 497
 498 ?>