From 4626d5ccc2fe45dd4d762303b93ec9272d6e3516 Mon Sep 17 00:00:00 2001
From: Ludovic CHEVALIER <ludovic.chevalier@heureux-cyclage.org>
Date: Tue, 3 Sep 2013 13:17:13 +0200
Subject: [PATCH] [SPIP] ~petit oubli lors d'une mise jour

---
 .../revisions/genie/optimiser_revisions.php   | 90 +++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 www/plugins-dist/revisions/genie/optimiser_revisions.php

diff --git a/www/plugins-dist/revisions/genie/optimiser_revisions.php b/www/plugins-dist/revisions/genie/optimiser_revisions.php
new file mode 100644
index 00000000..74472009
--- /dev/null
+++ b/www/plugins-dist/revisions/genie/optimiser_revisions.php
@@ -0,0 +1,90 @@
+<?php
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2013                                                *
+ *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
+ *                                                                         *
+ *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
+ *  Pour plus de details 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_optimiser_revisions_dist($last) {
+
+	optimiser_base_revisions();
+	optimiser_tables_revision();
+	
+	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($sel);
+		
+		/**
+		 * 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");
+	}
+}
+?>
-- 
2.20.1