Server : Apache System : Linux webd348.cluster026.gra.hosting.ovh.net 5.15.148-ovh-vps-grsec-zfs-classid #1 SMP Thu Feb 8 09:41:04 UTC 2024 x86_64 User : hednacluml ( 122243) PHP Version : 8.3.9 Disable Function : _dyuweyrj4,_dyuweyrj4r,dl Directory : /home/hednacluml/write/ecrire/genie/ |
<?php
/***************************************************************************\
* SPIP, Système de publication pour l'internet *
* *
* Copyright © avec tendresse depuis 2001 *
* Arnaud Martin, Antoine Pitrou, Philippe Rivière, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribué sous licence GNU/GPL. *
\***************************************************************************/
/**
* Gestion des optimisations de la base de données en cron
*
* @package SPIP\Core\Genie\Optimiser
**/
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
include_spip('base/abstract_sql');
include_spip('inc/config');
/**
* Cron d'optimisation de la base de données
*
* Tache appelée régulièrement
*
* @param int $t
* Timestamp de la date de dernier appel de la tâche
* @return int
* Timestamp de la date du prochain appel de la tâche
**/
function genie_optimiser_dist($t) {
optimiser_base_une_table();
optimiser_base();
optimiser_caches_contextes();
// la date souhaitee pour le tour suivant = apres-demain a 4h du mat ;
// sachant qu'on a un delai de 48h, on renvoie aujourd'hui a 4h du mat
// avec une periode de flou entre 2h et 6h pour ne pas saturer un hebergeur
// qui aurait beaucoup de sites SPIP
return -(mktime(2, 0, 0) + random_int(0, 3600 * 4));
}
/**
* Vider les contextes ajax de plus de 48h
*/
function optimiser_caches_contextes() {
sous_repertoire(_DIR_CACHE, 'contextes');
if (is_dir($d = _DIR_CACHE . 'contextes')) {
include_spip('inc/invalideur');
purger_repertoire($d, ['mtime' => time() - 48 * 3600, 'limit' => 10000]);
}
}
/**
* Optimise la base de données
*
* Supprime les relicats d'éléments qui ont disparu
*
* @note
* Heure de référence pour le garbage collector = 24h auparavant
* @param int $attente
* Attente entre 2 exécutions de la tache en secondes
* @return void
**/
function optimiser_base($attente = 86400) {
optimiser_base_disparus($attente);
}
/**
* Lance une requête d'optimisation sur une des tables SQL de la
* base de données.
*
* À chaque appel, une nouvelle table est optimisée (la suivante dans la
* liste par rapport à la dernière fois).
*
* @see sql_optimize()
*
* @global int $GLOBALS ['meta']['optimiser_table']
**/
function optimiser_base_une_table() {
$tables = [];
$result = sql_showbase();
// on n'optimise qu'une seule table a chaque fois,
// pour ne pas vautrer le systeme
// lire http://dev.mysql.com/doc/refman/5.0/fr/optimize-table.html
while ($row = sql_fetch($result)) {
$tables[] = array_shift($row);
}
spip_log('optimiser_base_une_table ' . json_encode($tables, JSON_THROW_ON_ERROR), 'genie' . _LOG_DEBUG);
if ($tables) {
$table_op = intval(lire_config('optimiser_table', 0) + 1) % sizeof($tables);
ecrire_config('optimiser_table', $table_op);
$q = $tables[$table_op];
spip_log("optimiser_base_une_table : debut d'optimisation de la table $q", 'genie' . _LOG_DEBUG);
if (sql_optimize($q)) {
spip_log("optimiser_base_une_table : fin d'optimisation de la table $q", 'genie' . _LOG_DEBUG);
} else {
spip_log("optimiser_base_une_table : Pas d'optimiseur necessaire", 'genie' . _LOG_DEBUG);
}
}
}
/**
* Supprime des enregistrements d'une table SQL dont les ids à supprimer
* se trouvent dans les résultats de ressource SQL transmise, sous la colonne 'id'
*
* @note
* Mysql < 4.0 refuse les requetes DELETE multi table
* et elles ont une syntaxe differente entre 4.0 et 4.1
* On passe donc par un SELECT puis DELETE avec IN
*
* @param string $table
* Nom de la table SQL, exemple : spip_articles
* @param string $id
* Nom de la clé primaire de la table, exemple : id_article
* @param Object $sel
* Ressource SQL issue d'une sélection (sql_select) et contenant une
* colonne 'id' ayant l'identifiant de la clé primaire à supprimer
* @param string $and
* Condition AND à appliquer en plus sur la requête de suppression
* @return int
* Nombre de suppressions
**/
function optimiser_sansref($table, $id, $sel, $and = '') {
$in = [];
while ($row = sql_fetch($sel)) {
$in[$row['id']] = true;
}
sql_free($sel);
if ($in) {
sql_delete($table, sql_in($id, array_keys($in)) . ($and ? " AND $and" : ''));
spip_log("optimiser_sansref: Numeros des entrees $id supprimees dans la table $table: " . implode(', ', array_keys($in)), 'genie' . _LOG_DEBUG);
}
return count($in);
}
/**
* Suppression des liens morts entre tables
*
* Supprime des liens morts entre tables suite à la suppression d'articles,
* d'auteurs, etc...
*
* @note
* Maintenant que MySQL 5 a des Cascades on pourrait faire autrement
* mais on garde la compatibilité avec les versions précédentes.
*
* @pipeline_appel optimiser_base_disparus
*
* @param int $attente
* Attente entre 2 exécutions de la tache en secondes
* @return void
**/
function optimiser_base_disparus($attente = 86400) {
# format = 20060610110141, si on veut forcer une optimisation tout de suite
$mydate = date('Y-m-d H:i:s', time() - $attente);
$mydate_quote = sql_quote($mydate);
$n = 0;
//
// Rubriques
//
# les articles qui sont dans une id_rubrique inexistante
# attention on controle id_rubrique>0 pour ne pas tuer les articles
# specialement affectes a une rubrique non-existante (plugin,
# cf. https://core.spip.net/issues/1549 )
$res = sql_select(
'A.id_article AS id',
'spip_articles AS A
LEFT JOIN spip_rubriques AS R
ON A.id_rubrique=R.id_rubrique',
"A.id_rubrique > 0
AND R.id_rubrique IS NULL
AND A.maj < $mydate_quote"
);
$n += optimiser_sansref('spip_articles', 'id_article', $res);
// les articles a la poubelle
sql_delete('spip_articles', "statut='poubelle' AND maj < $mydate_quote");
//
// Auteurs
//
include_spip('action/editer_liens');
// optimiser les liens de tous les auteurs vers des objets effaces
// et depuis des auteurs effaces
$n += objet_optimiser_liens(['auteur' => '*'], '*');
# effacer les auteurs poubelle qui ne sont lies a rien
$res = sql_select(
'A.id_auteur AS id',
'spip_auteurs AS A
LEFT JOIN spip_auteurs_liens AS L
ON L.id_auteur=A.id_auteur',
"L.id_auteur IS NULL
AND A.statut='5poubelle' AND A.maj < $mydate_quote"
);
$n += optimiser_sansref('spip_auteurs', 'id_auteur', $res);
# supprimer les auteurs 'nouveau' qui n'ont jamais donne suite
# au mail de confirmation (45 jours pour repondre, ca devrait suffire)
if (!defined('_AUTEURS_DELAI_REJET_NOUVEAU')) {
define('_AUTEURS_DELAI_REJET_NOUVEAU', 45 * 24 * 3600);
}
sql_delete('spip_auteurs', "statut='nouveau' AND maj < " . sql_quote(date('Y-m-d', time() - intval(_AUTEURS_DELAI_REJET_NOUVEAU))));
/**
* Permet aux plugins de compléter l'optimisation suite aux éléments disparus
*
* L'index 'data' est un entier indiquant le nombre d'optimisations
* qui ont été réalisées (par exemple le nombre de suppressions faites)
* et qui doit être incrémenté par les fonctions
* utilisant ce pipeline si elles suppriment des éléments.
*
* @pipeline_appel optimiser_base_disparus
*/
$n = pipeline('optimiser_base_disparus', [
'args' => [
'attente' => $attente,
'date' => $mydate
],
'data' => $n
]);
spip_log("optimiser_base_disparus : {$n} lien(s) mort(s)", 'genie' . _LOG_DEBUG);
}