3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
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;
15 include_spip('base/abstract_sql');
17 // http://doc.spip.org/@genie_optimiser_dist
18 function genie_optimiser_dist($t) {
20 optimiser_base_une_table();
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));
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);
37 // http://doc.spip.org/@optimiser_base_une_table
38 function optimiser_base_une_table() {
41 $result = sql_showbase();
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);
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");
55 spip_log("fin d'optimisation de la table $q");
56 else spip_log("Pas d'optimiseur necessaire");
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
64 // Utilitaire exploitant le SELECT et appliquant DELETE
65 // L'index du SELECT doit s'appeler "id"
67 // http://doc.spip.org/@optimiser_sansref
68 function optimiser_sansref($table, $id, $sel, $and="")
71 while ($row = sql_fetch($sel)) $in[$row['id']]=true;
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");
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.
86 // http://doc.spip.org/@optimiser_base_disparus
87 function optimiser_base_disparus($attente = 86400) {
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));
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",
104 LEFT JOIN spip_rubriques AS R
105 ON A.id_rubrique=R.id_rubrique",
107 AND R.id_rubrique IS NULL
108 AND A.maj < $mydate");
110 $n+
= optimiser_sansref('spip_articles', 'id_article', $res);
112 // les articles a la poubelle
113 sql_delete("spip_articles", "statut='poubelle' AND maj < $mydate");
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'=>'*'),'*');
124 # effacer les auteurs poubelle qui ne sont lies a rien
125 $res = sql_select("A.id_auteur AS id",
127 LEFT JOIN spip_auteurs_liens AS L
128 ON L.id_auteur=A.id_auteur",
130 AND A.statut='5poubelle' AND A.maj < $mydate");
132 $n+
= optimiser_sansref('spip_auteurs', 'id_auteur', $res);
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)));
139 $n = pipeline('optimiser_base_disparus', array(
141 'attente' => $attente,
146 if (!$n) spip_log("Optimisation des tables: aucun lien mort");