www/ecrire/inc/meta.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2019                                                *
   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 /**
  14  * Gestion des meta de configuration
  15  *
  16  * @package SPIP\Core\Configuration
  17  **/
  18
  19 if (!defined('_ECRIRE_INC_VERSION')) {
  20         return;
  21 }
  22
  23 // Les parametres generaux du site sont dans une table SQL;
  24 // Recopie dans le tableau PHP global meta, car on en a souvent besoin
  25
  26 // duree maximale du cache. Le double pour l'antidater
  27 define('_META_CACHE_TIME', 1 << 24);
  28
  29 // http://code.spip.net/@inc_meta_dist
  30 function inc_meta_dist($table = 'meta') {
  31         // Lire les meta, en cache si present, valide et lisible
  32         // en cas d'install ne pas faire confiance au meta_cache eventuel
  33         $cache = cache_meta($table);
  34
  35         if ((!$exec = _request('exec') or !autoriser_sans_cookie($exec))
  36                 and $new = jeune_fichier($cache, _META_CACHE_TIME)
  37                 and lire_fichier_securise($cache, $meta)
  38                 and $meta = @unserialize($meta)
  39         ) {
  40                 $GLOBALS[$table] = $meta;
  41         }
  42
  43         if (isset($GLOBALS[$table]['touch'])
  44                 and ($GLOBALS[$table]['touch'] < time() - _META_CACHE_TIME)
  45         ) {
  46                 $GLOBALS[$table] = array();
  47         }
  48         // sinon lire en base
  49         if (!$GLOBALS[$table]) {
  50                 $new = !lire_metas($table);
  51         }
  52
  53         // renouveller l'alea general si trop vieux ou sur demande explicite
  54         if ((test_espace_prive() || isset($_GET['renouvelle_alea']))
  55                 and $GLOBALS[$table]
  56                 and (time() > _RENOUVELLE_ALEA + (isset($GLOBALS['meta']['alea_ephemere_date']) ? $GLOBALS['meta']['alea_ephemere_date'] : 0))
  57         ) {
  58                 // si on n'a pas l'acces en ecriture sur le cache,
  59                 // ne pas renouveller l'alea sinon le cache devient faux
  60                 if (supprimer_fichier($cache)) {
  61                         include_spip('inc/acces');
  62                         renouvelle_alea();
  63                         $new = false;
  64                 } else {
  65                         spip_log("impossible d'ecrire dans " . $cache);
  66                 }
  67         }
  68         // et refaire le cache si on a du lire en base
  69         if (!$new) {
  70                 touch_meta(false, $table);
  71         }
  72 }
  73
  74 // fonctions aussi appelees a l'install ==> spip_query en premiere requete
  75 // pour eviter l'erreur fatale (serveur non encore configure)
  76
  77 // http://code.spip.net/@lire_metas
  78 function lire_metas($table = 'meta') {
  79
  80         if ($result = spip_query("SELECT nom,valeur FROM spip_$table")) {
  81                 include_spip('base/abstract_sql');
  82                 $GLOBALS[$table] = array();
  83                 while ($row = sql_fetch($result)) {
  84                         $GLOBALS[$table][$row['nom']] = $row['valeur'];
  85                 }
  86                 sql_free($result);
  87
  88                 if (!isset($GLOBALS[$table]['charset'])
  89                         or !$GLOBALS[$table]['charset']
  90                         or $GLOBALS[$table]['charset'] == '_DEFAULT_CHARSET' // hum, correction d'un bug ayant abime quelques install
  91                 ) {
  92                         ecrire_meta('charset', _DEFAULT_CHARSET, null, $table);
  93                 }
  94
  95                 // noter cette table de configuration dans les meta de SPIP
  96                 if ($table !== 'meta') {
  97                         $liste = array();
  98                         if (isset($GLOBALS['meta']['tables_config'])) {
  99                                 $liste = unserialize($GLOBALS['meta']['tables_config']);
 100                         }
 101                         if (!$liste) {
 102                                 $liste = array();
 103                         }
 104                         if (!in_array($table, $liste)) {
 105                                 $liste[] = $table;
 106                                 ecrire_meta('tables_config', serialize($liste));
 107                         }
 108                 }
 109         }
 110
 111         return isset($GLOBALS[$table]) ? $GLOBALS[$table] : null;
 112 }
 113
 114
 115 /**
 116  * Mettre en cache la liste des meta, sauf les valeurs sensibles
 117  * pour qu'elles ne soient pas visibiles dans un fichier (souvent en 777)
 118  *
 119  * @param bool|int $antidate
 120  *      Date de modification du fichier à appliquer si indiqué (timestamp)
 121  * @param string $table
 122  *      Table SQL d'enregistrement des meta.
 123  **/
 124 function touch_meta($antidate = false, $table = 'meta') {
 125         $file = cache_meta($table);
 126         if (!$antidate or !@touch($file, $antidate)) {
 127                 $r = $GLOBALS[$table];
 128                 unset($r['alea_ephemere']);
 129                 unset($r['alea_ephemere_ancien']);
 130                 // le secret du site est utilise pour encoder les contextes ajax que l'on considere fiables
 131                 // mais le sortir deu cache meta implique une requete sql des qu'on a un form dynamique
 132                 // meme si son squelette est en cache
 133                 //unset($r['secret_du_site']);
 134                 if ($antidate) {
 135                         $r['touch'] = $antidate;
 136                 }
 137                 ecrire_fichier_securise($file, serialize($r));
 138         }
 139 }
 140
 141 /**
 142  * Supprime une meta
 143  *
 144  * @see ecrire_config()
 145  * @see effacer_config()
 146  * @see lire_config()
 147  *
 148  * @param string $nom
 149  *     Nom de la meta
 150  * @param string $table
 151  *     Table SQL d'enregistrement de la meta.
 152  **/
 153 function effacer_meta($nom, $table = 'meta') {
 154         // section critique sur le cache:
 155         // l'invalider avant et apres la MAJ de la BD
 156         // c'est un peu moins bien qu'un vrai verrou mais ca suffira
 157         // et utiliser une statique pour eviter des acces disques a repetition
 158         static $touch = array();
 159         $antidate = time() - (_META_CACHE_TIME << 4);
 160         if (!isset($touch[$table])) {
 161                 touch_meta($antidate, $table);
 162         }
 163         sql_delete('spip_' . $table, "nom='$nom'", '', 'continue');
 164         unset($GLOBALS[$table][$nom]);
 165         if (!isset($touch[$table])) {
 166                 touch_meta($antidate, $table);
 167                 $touch[$table] = false;
 168         }
 169 }
 170
 171 /**
 172  * Met à jour ou crée une meta avec la clé et la valeur indiquée
 173  *
 174  * @see ecrire_config()
 175  * @see effacer_config()
 176  * @see lire_config()
 177  *
 178  * @param string $nom
 179  *     Nom de la meta
 180  * @param string $valeur
 181  *     Valeur à enregistrer
 182  * @param bool|null $importable
 183  *     Cette meta s'importe-elle avec une restauration de sauvegarde ?
 184  * @param string $table
 185  *     Table SQL d'enregistrement de la meta.
 186  **/
 187 function ecrire_meta($nom, $valeur, $importable = null, $table = 'meta') {
 188
 189         static $touch = array();
 190         if (!$nom) {
 191                 return;
 192         }
 193         include_spip('base/abstract_sql');
 194         $res = sql_select("*", 'spip_' . $table, "nom=" . sql_quote($nom), '', '', '', '', '', 'continue');
 195         // table pas encore installee, travailler en php seulement
 196         if (!$res) {
 197                 $GLOBALS[$table][$nom] = $valeur;
 198
 199                 return;
 200         }
 201         $row = sql_fetch($res);
 202         sql_free($res);
 203
 204         // ne pas invalider le cache si affectation a l'identique
 205         // (tant pis si impt aurait du changer)
 206         if ($row and $valeur == $row['valeur']
 207                 and isset($GLOBALS[$table][$nom])
 208                 and $GLOBALS[$table][$nom] == $valeur
 209         ) {
 210                 return;
 211         }
 212
 213         $GLOBALS[$table][$nom] = $valeur;
 214         // cf effacer pour comprendre le double touch
 215         $antidate = time() - (_META_CACHE_TIME << 1);
 216         if (!isset($touch[$table])) {
 217                 touch_meta($antidate, $table);
 218         }
 219         $r = array('nom' => sql_quote($nom, '', 'text'), 'valeur' => sql_quote($valeur, '', 'text'));
 220         // Gaffe aux tables sans impt (vieilles versions de SPIP notamment)
 221         // ici on utilise pas sql_updateq et sql_insertq pour ne pas provoquer trop tot
 222         // de lecture des descriptions des tables
 223         if ($importable and isset($row['impt'])) {
 224                 $r['impt'] = sql_quote($importable, '', 'text');
 225         }
 226         if ($row) {
 227                 sql_update('spip_' . $table, $r, "nom=" . sql_quote($nom));
 228         } else {
 229                 sql_insert('spip_' . $table, "(" . join(',', array_keys($r)) . ")", "(" . join(',', array_values($r)) . ")");
 230         }
 231         if (!isset($touch[$table])) {
 232                 touch_meta($antidate, $table);
 233                 $touch[$table] = false;
 234         }
 235 }
 236
 237 /**
 238  * Retourne le nom du fichier cache d'une table SQL de meta
 239  *
 240  * @param string $table
 241  *     Table SQL d'enregistrement des meta.
 242  * @return string
 243  *     Nom du fichier cache
 244  **/
 245 function cache_meta($table = 'meta') {
 246         return ($table == 'meta') ? _FILE_META : (_DIR_CACHE . $table . '.php');
 247 }
 248
 249 /**
 250  * Installer une table de configuration supplementaire
 251  *
 252  * @param string $table
 253  */
 254 function installer_table_meta($table) {
 255         $trouver_table = charger_fonction('trouver_table', 'base');
 256         if (!$trouver_table("spip_$table")) {
 257                 include_spip('base/auxiliaires');
 258                 include_spip('base/create');
 259                 creer_ou_upgrader_table("spip_$table", $GLOBALS['tables_auxiliaires']['spip_meta'], false, false);
 260                 $trouver_table('');
 261         }
 262         lire_metas($table);
 263 }
 264
 265 /**
 266  * Supprimer une table de configuration supplémentaire
 267  *
 268  * Si $force=true, on ne verifie pas qu'elle est bien vide
 269  *
 270  * @param string $table
 271  * @param bool $force
 272  */
 273 function supprimer_table_meta($table, $force = false) {
 274         if ($table == 'meta') {
 275                 return;
 276         } // interdit !
 277
 278         if ($force or !sql_countsel("spip_$table")) {
 279                 unset($GLOBALS[$table]);
 280                 sql_drop_table("spip_$table");
 281                 // vider le cache des tables
 282                 $trouver_table = charger_fonction('trouver_table', 'base');
 283                 $trouver_table('');
 284         }
 285 }