www/ecrire/inc/meta.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2016                                                *
   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 // Les parametres generaux du site sont dans une table SQL;
  16 // Recopie dans le tableau PHP global meta, car on en a souvent besoin
  17
  18 // duree maximale du cache. Le double pour l'antidater
  19 define('_META_CACHE_TIME', 1<<24);
  20
  21 // http://doc.spip.org/@inc_meta_dist
  22 function inc_meta_dist($table='meta')
  23 {
  24         // Lire les meta, en cache si present, valide et lisible
  25         // en cas d'install ne pas faire confiance au meta_cache eventuel
  26         $cache = cache_meta($table);
  27
  28         if ((_request('exec')!=='install' OR !test_espace_prive())
  29         AND $new = jeune_fichier($cache, _META_CACHE_TIME)
  30         AND lire_fichier_securise($cache, $meta)
  31         AND $meta = @unserialize($meta))
  32                 $GLOBALS[$table] = $meta;
  33
  34         if (isset($GLOBALS[$table]['touch'])
  35         AND ($GLOBALS[$table]['touch']<time()-_META_CACHE_TIME))
  36                 $GLOBALS[$table] = array();
  37         // sinon lire en base
  38         if (!$GLOBALS[$table]) $new = !lire_metas($table);
  39
  40         // renouveller l'alea general si trop vieux ou sur demande explicite
  41         if ((test_espace_prive() || isset($_GET['renouvelle_alea']))
  42         AND $GLOBALS[$table]
  43         AND (time() > _RENOUVELLE_ALEA + $GLOBALS['meta']['alea_ephemere_date'])) {
  44                 // si on n'a pas l'acces en ecriture sur le cache,
  45                 // ne pas renouveller l'alea sinon le cache devient faux
  46                 if (supprimer_fichier($cache)) {
  47                         include_spip('inc/acces');
  48                         renouvelle_alea();
  49                         $new = false;
  50                 } else spip_log("impossible d'ecrire dans " . $cache);
  51         }
  52         // et refaire le cache si on a du lire en base
  53         if (!$new) touch_meta(false, $table);
  54 }
  55
  56 // fonctions aussi appelees a l'install ==> spip_query en premiere requete
  57 // pour eviter l'erreur fatale (serveur non encore configure)
  58
  59 // http://doc.spip.org/@lire_metas
  60 function lire_metas($table='meta') {
  61
  62         if ($result = spip_query("SELECT nom,valeur FROM spip_$table")) {
  63                 include_spip('base/abstract_sql');
  64                 $GLOBALS[$table] = array();
  65                 while ($row = sql_fetch($result))
  66                         $GLOBALS[$table][$row['nom']] = $row['valeur'];
  67         sql_free($result);
  68
  69                 if (!$GLOBALS[$table]['charset']
  70                   OR $GLOBALS[$table]['charset']=='_DEFAULT_CHARSET' // hum, correction d'un bug ayant abime quelques install
  71                 )
  72                         ecrire_meta('charset', _DEFAULT_CHARSET, NULL, $table);
  73
  74                 // noter cette table de configuration dans les meta de SPIP
  75                 if ($table!=='meta') {
  76                         $liste = unserialize($GLOBALS['meta']['tables_config']);
  77                         if (!$liste)
  78                                 $liste = array();
  79                         if (!in_array($table, $liste)) {
  80                                 $liste[] = $table;
  81                                 ecrire_meta('tables_config', serialize($liste));
  82                         }
  83                 }
  84         }
  85         return $GLOBALS[$table];
  86 }
  87
  88 // Mettre en cache la liste des meta, sauf les valeurs sensibles
  89 // pour qu'elles ne soient pas visibiles dans un fichier.souvent en 777
  90 // http://doc.spip.org/@touch_meta
  91 function touch_meta($antidate= false, $table='meta'){
  92         $file = cache_meta($table);
  93         if (!$antidate OR !@touch($file, $antidate)) {
  94                 $r = $GLOBALS[$table];
  95                 unset($r['alea_ephemere']);
  96                 unset($r['alea_ephemere_ancien']);
  97                 // le secret du site est utilise pour encoder les contextes ajax que l'on considere fiables
  98                 // mais le sortir deu cache meta implique une requete sql des qu'on a un form dynamique
  99                 // meme si son squelette est en cache
 100                 //unset($r['secret_du_site']);
 101                 if ($antidate) $r['touch']= $antidate;
 102                 ecrire_fichier_securise($file, serialize($r));
 103         }
 104 }
 105
 106 // http://doc.spip.org/@effacer_meta
 107 function effacer_meta($nom, $table='meta') {
 108         // section critique sur le cache:
 109         // l'invalider avant et apres la MAJ de la BD
 110         // c'est un peu moins bien qu'un vrai verrou mais ca suffira
 111         // et utiliser une statique pour eviter des acces disques a repetition
 112         static $touch = array();
 113         $antidate = time() - (_META_CACHE_TIME<<4);
 114         if (!isset($touch[$table])) {touch_meta($antidate, $table);}
 115         sql_delete('spip_' . $table, "nom='$nom'");
 116         unset($GLOBALS[$table][$nom]);
 117         if (!isset($touch[$table])) {touch_meta($antidate, $table); $touch[$table] = false;}
 118 }
 119
 120 // http://doc.spip.org/@ecrire_meta
 121 function ecrire_meta($nom, $valeur, $importable = NULL, $table='meta') {
 122
 123         static $touch = array();
 124         if (!$nom) return;
 125         include_spip('base/abstract_sql');
 126         $res = sql_select("*",'spip_' . $table,"nom=" . sql_quote($nom),'','','','','','continue');
 127         // table pas encore installee, travailler en php seulement
 128         if (!$res) {
 129                 $GLOBALS[$table][$nom] = $valeur;
 130                 return;
 131         }
 132         $row = sql_fetch($res);
 133     sql_free($res);
 134
 135         // ne pas invalider le cache si affectation a l'identique
 136         // (tant pis si impt aurait du changer)
 137         if ($row AND $valeur == $row['valeur'] AND $GLOBALS[$table][$nom] == $valeur) return;
 138
 139         $GLOBALS[$table][$nom] = $valeur;
 140         // cf effacer pour comprendre le double touch
 141         $antidate = time() - (_META_CACHE_TIME<<1);
 142         if (!isset($touch[$table])) {touch_meta($antidate, $table);}
 143         $r = array('nom' => $nom, 'valeur' => $valeur);
 144         // Gaffe aux tables sans impt (vieilles versions de SPIP notamment)
 145         if ($importable AND isset($row['impt'])) $r['impt'] = $importable;
 146         if ($row) {
 147                 sql_updateq('spip_' . $table, $r,"nom=" . sql_quote($nom));
 148         } else {
 149                 sql_insertq('spip_' . $table, $r);
 150         }
 151         if (!isset($touch[$table])) {touch_meta($antidate, $table); $touch[$table] = false;}
 152 }
 153
 154 function cache_meta($table='meta')
 155 {
 156         return ($table=='meta') ? _FILE_META : (_DIR_CACHE . $table . '.php');
 157 }
 158
 159 /**
 160  * Une fonction pour installer une table de configuration supplementaire
 161  * @param string $table
 162  */
 163 function installer_table_meta($table) {
 164         $trouver_table = charger_fonction('trouver_table','base');
 165         if (!$trouver_table("spip_$table")) {
 166                 include_spip('base/auxiliaires');
 167                 include_spip('base/create');
 168                 creer_ou_upgrader_table("spip_$table", $GLOBALS['tables_auxiliaires']['spip_meta'], false, false);
 169                 $trouver_table('');
 170         }
 171         lire_metas($table);
 172 }
 173
 174 /**
 175  * Une fonction pour supprimer une table de configuration supplementaire
 176  * si $force=true, on ne verifie pas qu'elle est bien vide
 177  *
 178  * @param string $table
 179  * @param bool $force
 180  */
 181 function supprimer_table_meta($table, $force=false) {
 182         if ($table=='meta') return; // interdit !
 183
 184         if ($force OR !sql_countsel("spip_$table")) {
 185                 unset($GLOBALS[$table]);
 186                 sql_drop_table("spip_$table");
 187                 // vider le cache des tables
 188                 $trouver_table = charger_fonction('trouver_table','base');
 189                 $trouver_table('');
 190         }
 191 }
 192 ?>