www/ecrire/genie/optimiser.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 include_spip('base/abstract_sql');
  16
  17 // http://doc.spip.org/@genie_optimiser_dist
  18 function genie_optimiser_dist($t) {
  19
  20         optimiser_base_une_table();
  21         optimiser_base();
  22
  23         // la date souhaitee pour le tour suivant = apres-demain a 4h du mat ;
  24         // sachant qu'on a un delai de 48h, on renvoie aujourd'hui a 4h du mat
  25         // avec une periode de flou entre 2h et 6h pour ne pas saturer un hebergeur
  26         // qui aurait beaucoup de sites SPIP
  27         return -(mktime(2,0,0) + rand(0, 3600*4));
  28 }
  29
  30 // heure de reference pour le garbage collector = 24h auparavant
  31 // http://doc.spip.org/@optimiser_base
  32 function optimiser_base($attente = 86400) {
  33         optimiser_base_disparus($attente);
  34 }
  35
  36
  37 // http://doc.spip.org/@optimiser_base_une_table
  38 function optimiser_base_une_table() {
  39
  40         $tables = array();
  41         $result = sql_showbase();
  42
  43         // on n'optimise qu'une seule table a chaque fois,
  44         // pour ne pas vautrer le systeme
  45         // lire http://dev.mysql.com/doc/refman/5.0/fr/optimize-table.html
  46         while ($row = sql_fetch($result))
  47                 $tables[] = array_shift($row);
  48
  49         if ($tables) {
  50                 $table_op = intval($GLOBALS['meta']['optimiser_table']+1) % sizeof($tables);
  51                 ecrire_meta('optimiser_table', $table_op);
  52                 $q = $tables[$table_op];
  53                 spip_log("debut d'optimisation de la table $q");
  54                 if (sql_optimize($q))
  55                         spip_log("fin d'optimisation de la table $q");
  56                 else spip_log("Pas d'optimiseur necessaire");
  57         }
  58 }
  59
  60 // mysql < 4.0 refuse les requetes DELETE multi table
  61 // et elles ont une syntaxe differente entre 4.0 et 4.1
  62 // On passe donc par un SELECT puis DELETE avec IN
  63
  64 // Utilitaire exploitant le SELECT et appliquant DELETE
  65 // L'index du SELECT doit s'appeler "id"
  66
  67 // http://doc.spip.org/@optimiser_sansref
  68 function optimiser_sansref($table, $id, $sel, $and="")
  69 {
  70         $in = array();
  71         while ($row = sql_fetch($sel)) $in[$row['id']]=true;
  72         sql_free($sel);
  73
  74         if ($in) {
  75                 sql_delete($table,  sql_in($id,array_keys($in)) . ($and?" AND $and":""));
  76                 spip_log("Numeros des entrees $id supprimees dans la table $table: $in");
  77         }
  78         return count($in);
  79 }
  80
  81 // Nomenclature des liens morts entre les tables,
  82 // suite a la suppresion d'articles, d'auteurs etc
  83 // Maintenant que MySQL 5 a des Cascades on pourrait faire autrement
  84 // mais on garde la compatibilite avec les versions precedentes.
  85
  86 // http://doc.spip.org/@optimiser_base_disparus
  87 function optimiser_base_disparus($attente = 86400) {
  88
  89         # format = 20060610110141, si on veut forcer une optimisation tout de suite
  90         $mydate = sql_quote(date("Y-m-d H:i:s", time() - $attente));
  91
  92         $n = 0;
  93
  94         //
  95         // Rubriques
  96         //
  97
  98         # les articles qui sont dans une id_rubrique inexistante
  99         # attention on controle id_rubrique>0 pour ne pas tuer les articles
 100         # specialement affectes a une rubrique non-existante (plugin,
 101         # cf. http://trac.rezo.net/trac/spip/ticket/1549 )
 102         $res = sql_select("A.id_article AS id",
 103                         "spip_articles AS A
 104                         LEFT JOIN spip_rubriques AS R
 105                           ON A.id_rubrique=R.id_rubrique",
 106                          "A.id_rubrique > 0
 107                          AND R.id_rubrique IS NULL
 108                          AND A.maj < $mydate");
 109
 110         $n+= optimiser_sansref('spip_articles', 'id_article', $res);
 111
 112         // les articles a la poubelle
 113         sql_delete("spip_articles", "statut='poubelle' AND maj < $mydate");
 114
 115         //
 116         // Auteurs
 117         //
 118
 119         include_spip('action/editer_liens');
 120         // optimiser les liens de tous les auteurs vers des objets effaces
 121         // et depuis des auteurs effaces
 122         $n+= objet_optimiser_liens(array('auteur'=>'*'),'*');
 123
 124         # effacer les auteurs poubelle qui ne sont lies a rien
 125         $res = sql_select("A.id_auteur AS id",
 126                         "spip_auteurs AS A
 127                         LEFT JOIN spip_auteurs_liens AS L
 128                           ON L.id_auteur=A.id_auteur",
 129                         "L.id_auteur IS NULL
 130                         AND A.statut='5poubelle' AND A.maj < $mydate");
 131
 132         $n+= optimiser_sansref('spip_auteurs', 'id_auteur', $res);
 133
 134         # supprimer les auteurs 'nouveau' qui n'ont jamais donne suite
 135         # au mail de confirmation (45 jours pour repondre, ca devrait suffire)
 136         sql_delete("spip_auteurs", "statut='nouveau' AND maj < ". sql_quote(date('Y-m-d', time()-45*24*3600)));
 137
 138
 139         $n = pipeline('optimiser_base_disparus', array(
 140                         'args'=>array(
 141                                 'attente' => $attente,
 142                                 'date' => $mydate),
 143                         'data'=>$n
 144         ));
 145
 146         if (!$n) spip_log("Optimisation des tables: aucun lien mort");
 147 }
 148 ?>