Le génie d’optimisation des révisions n’était plus trouvé depuis c35079b30a : il y a un piège. Pour utiliser la balise `<genie>` il faut que la fonction soit préfixée du préfixe de plugin !

Je conserve temporairement l’ancien fichier (aucazou). On pourra le supprimer plus tard. (cherry picked from commit 9b85cd399a)
2 years ago · f481d8ed2b
2 changed files with 125 additions and 84 deletions
--- a/genie/optimiser_revisions.php
+++ b/genie/optimiser_revisions.php
@ -11,6 +11,9 @@

 /**
 * @plugin Revisions pour SPIP
+ * 
+ * @deprecated 4.0 Utiliser genie/revisions_optimiser_revisions.php
+ * 
 * @license GPL
 * @package SPIP\Revisions\Genie
 */
@ -19,98 +22,20 @@ if (!defined('_ECRIRE_INC_VERSION')) {
 	return;
 }

-include_spip('base/abstract_sql');
+include_spip('genie/revisions_optimiser_revisions');

 /**
 * Tâche Cron d'optimisation des révisions
 *
+ * @deprecated 4.0
+ * @uses genie_revisions_optimiser_revisions_dist()
+ * 
 * @param int $last
 *     Timestamp de la dernière exécution de cette tâche
 * @return int
 *     Positif : la tâche a été effectuée
 */
 function genie_optimiser_revisions_dist($last) {
-
-	optimiser_base_revisions();
-	optimiser_tables_revision();
-	anonymiser_base_revisions();
-
-	return 1;
-}
-
-/**
- * Supprimer les révisions des objets disparus
- */
-function optimiser_base_revisions() {
-	/**
-	 * On commence par récupérer la liste des types d'objet ayant au moins une révision
-	 */
-	$objets_revises = sql_select('objet', 'spip_versions', 'id_version=1', 'objet');
-
-	/**
-	 * Pour chaque objet, on va contruire un tableau des identifiants disparus
-	 * On supprimera ensuite les occurences dans spip_versions et spip_versions_fragments
-	 */
-	while ($objet = sql_fetch($objets_revises)) {
-		$in = array();
-		$table = table_objet_sql($objet['objet']);
-		$id_table_objet = id_table_objet($objet['objet']);
-		$res = sql_select(
-			'A.id_objet AS id_objet, A.objet AS objet',
-			"spip_versions AS A LEFT JOIN $table AS R
-				ON R.$id_table_objet=A.id_objet AND A.objet=" . sql_quote($objet['objet']),
-			"R.$id_table_objet IS NULL AND A.objet=" . sql_quote($objet['objet']) . ' AND A.id_objet > 0',
-			'A.id_objet',
-			'A.id_objet'
-		);
-
-		while ($row = sql_fetch($res)) {
-			$in[$row['id_objet']] = true;
-		}
-		sql_free($res);
-
-		/**
-		 * Si on a un array
-		 * On supprime toute occurence des objets disparus dans :
-		 * -* spip_versions
-		 * -* spip_versions_fragments
-		 */
-		if ($in) {
-			foreach (array('spip_versions', 'spip_versions_fragments') as $table) {
-				sql_delete($table, sql_in('id_objet', array_keys($in)) . ' AND objet=' . sql_quote($objet['objet']));
-			}
-		}
-	}
-}
-
-/**
- * Optimisation des tables spip_versions et spip_versions_fragments
- */
-function optimiser_tables_revision() {
-	foreach (array('spip_versions', 'spip_versions_fragments') as $table) {
-		spip_log("debut d'optimisation de la table $table");
-		if (sql_optimize($table)) {
-			spip_log("fin d'optimisation de la table $table");
-		} else {
-			spip_log("Pas d'optimiseur necessaire pour $table");
-		}
-	}
-}
-
-
-/**
- * Dans l'historique des révisions, hash à intervalle régulier les ip
-**/
-function anonymiser_base_revisions() {
-	if (defined('_CNIL_PERIODE') and _CNIL_PERIODE) {
-		$critere_cnil = 'date<"'.date('Y-m-d', time()-_CNIL_PERIODE).'"'
-			. ' AND (id_auteur LIKE "%.%" OR id_auteur LIKE "%:%")'; # ipv4 ou ipv6
-
-		$c = sql_countsel('spip_versions', $critere_cnil);
-		if ($c>0) {
-			spip_log("CNIL: masquer IP de $c versions anciennes", 'revisions');
-			sql_update('spip_versions', array('id_auteur' => 'MD5(id_auteur)'), $critere_cnil);
-			return $c;
-		}
-	}
+	$revisions_optimiser_revisions = charger_fonction('revisions_optimiser_revisions', 'genie');
+	return $revisions_optimiser_revisions($last);
 }
--- a/genie/revisions_optimiser_revisions.php
+++ b/genie/revisions_optimiser_revisions.php
@ -0,0 +1,116 @@
+<?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.     *
+ *  Pour plus de détails voir le fichier COPYING.txt ou l'aide en ligne.   *
+\***************************************************************************/
+
+/**
+ * @plugin Revisions pour SPIP
+ * @license GPL
+ * @package SPIP\Revisions\Genie
+ */
+
+if (!defined('_ECRIRE_INC_VERSION')) {
+	return;
+}
+
+include_spip('base/abstract_sql');
+
+/**
+ * Tâche Cron d'optimisation des révisions
+ *
+ * @param int $last
+ *     Timestamp de la dernière exécution de cette tâche
+ * @return int
+ *     Positif : la tâche a été effectuée
+ */
+function genie_revisions_optimiser_revisions_dist($last) {
+
+	optimiser_base_revisions();
+	optimiser_tables_revision();
+	anonymiser_base_revisions();
+
+	return 1;
+}
+
+/**
+ * Supprimer les révisions des objets disparus
+ */
+function optimiser_base_revisions() {
+	/**
+	 * On commence par récupérer la liste des types d'objet ayant au moins une révision
+	 */
+	$objets_revises = sql_select('objet', 'spip_versions', 'id_version=1', 'objet');
+
+	/**
+	 * Pour chaque objet, on va contruire un tableau des identifiants disparus
+	 * On supprimera ensuite les occurences dans spip_versions et spip_versions_fragments
+	 */
+	while ($objet = sql_fetch($objets_revises)) {
+		$in = array();
+		$table = table_objet_sql($objet['objet']);
+		$id_table_objet = id_table_objet($objet['objet']);
+		$res = sql_select(
+			'A.id_objet AS id_objet, A.objet AS objet',
+			"spip_versions AS A LEFT JOIN $table AS R
+				ON R.$id_table_objet=A.id_objet AND A.objet=" . sql_quote($objet['objet']),
+			"R.$id_table_objet IS NULL AND A.objet=" . sql_quote($objet['objet']) . ' AND A.id_objet > 0',
+			'A.id_objet',
+			'A.id_objet'
+		);
+
+		while ($row = sql_fetch($res)) {
+			$in[$row['id_objet']] = true;
+		}
+		sql_free($res);
+
+		/**
+		 * Si on a un array
+		 * On supprime toute occurence des objets disparus dans :
+		 * -* spip_versions
+		 * -* spip_versions_fragments
+		 */
+		if ($in) {
+			foreach (array('spip_versions', 'spip_versions_fragments') as $table) {
+				sql_delete($table, sql_in('id_objet', array_keys($in)) . ' AND objet=' . sql_quote($objet['objet']));
+			}
+		}
+	}
+}
+
+/**
+ * Optimisation des tables spip_versions et spip_versions_fragments
+ */
+function optimiser_tables_revision() {
+	foreach (array('spip_versions', 'spip_versions_fragments') as $table) {
+		spip_log("debut d'optimisation de la table $table");
+		if (sql_optimize($table)) {
+			spip_log("fin d'optimisation de la table $table");
+		} else {
+			spip_log("Pas d'optimiseur necessaire pour $table");
+		}
+	}
+}
+
+
+/**
+ * Dans l'historique des révisions, hash à intervalle régulier les ip
+**/
+function anonymiser_base_revisions() {
+	if (defined('_CNIL_PERIODE') and _CNIL_PERIODE) {
+		$critere_cnil = 'date<"'.date('Y-m-d', time()-_CNIL_PERIODE).'"'
+			. ' AND (id_auteur LIKE "%.%" OR id_auteur LIKE "%:%")'; # ipv4 ou ipv6
+
+		$c = sql_countsel('spip_versions', $critere_cnil);
+		if ($c>0) {
+			spip_log("CNIL: masquer IP de $c versions anciennes", 'revisions');
+			sql_update('spip_versions', array('id_auteur' => 'MD5(id_auteur)'), $critere_cnil);
+			return $c;
+		}
+	}
+}