From ac8c18ba886c51855142bcc6e7fd183c0e536e4c Mon Sep 17 00:00:00 2001
From: Cerdic <cedric@yterium.com>
Date: Wed, 15 Aug 2007 23:22:47 +0000
Subject: [PATCH] "oups, manquants dans [9995]"
---
.gitattributes | 2 ++
ecrire/base/delete_statistiques.php | 34 +++++++++++++++++++++++++++++
ecrire/exec/delete_statistiques.php | 29 ++++++++++++++++++++++++
3 files changed, 65 insertions(+)
create mode 100644 ecrire/base/delete_statistiques.php
create mode 100644 ecrire/exec/delete_statistiques.php
diff --git a/.gitattributes b/.gitattributes
index b821ad753f..fddfc28388 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -401,6 +401,7 @@ ecrire/base/convert_sql_utf8.php -text
ecrire/base/convert_utf8.php -text
ecrire/base/db_pg.php -text
ecrire/base/delete_all.php -text
+ecrire/base/delete_statistiques.php -text
ecrire/base/import_all.php -text
ecrire/base/index.php -text
ecrire/charsets/cp1250.php -text
@@ -480,6 +481,7 @@ ecrire/exec/convert_utf8.php -text
ecrire/exec/copier_local.php -text
ecrire/exec/dater.php -text
ecrire/exec/delete_all.php -text
+ecrire/exec/delete_statistiques.php -text
ecrire/exec/demande_mise_a_jour.php -text
ecrire/exec/discuter.php -text
ecrire/exec/documenter.php -text
diff --git a/ecrire/base/delete_statistiques.php b/ecrire/base/delete_statistiques.php
new file mode 100644
index 0000000000..999f38f52b
--- /dev/null
+++ b/ecrire/base/delete_statistiques.php
@@ -0,0 +1,34 @@
+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2007 *
+ * 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. *
+\***************************************************************************/
+
+if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
+
+// faudrait plutot recuperer dans inc_serialbase et inc_auxbase
+// mais il faudra prevenir ceux qui affectent les globales qui s'y trouvent
+// Afficher la liste de ce qu'on va detruire et demander confirmation
+// ca vaudrait mieux
+
+// http://doc.spip.org/@base_delete_all_dist
+function base_delete_statistiques_dist($titre)
+{
+ spip_query("DELETE FROM spip_visites");
+ spip_query("DELETE FROM spip_visites_articles");
+ spip_query("DELETE FROM spip_referers");
+ spip_query("DELETE FROM spip_referers_articles");
+ spip_query("UPDATE spip_articles SET visites=0, referers=0, popularite=0");
+
+ // un pipeline pour detruire les tables de stats installees par les plugins
+ pipeline('delete_statistiques', '');
+
+ spip_log("raz des stats operee redirige vers " . _request('redirect'));
+}
+?>
diff --git a/ecrire/exec/delete_statistiques.php b/ecrire/exec/delete_statistiques.php
new file mode 100644
index 0000000000..155962e795
--- /dev/null
+++ b/ecrire/exec/delete_statistiques.php
@@ -0,0 +1,29 @@
+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2007 *
+ * 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. *
+\***************************************************************************/
+
+if (!defined("_ECRIRE_INC_VERSION")) return;
+
+// http://doc.spip.org/@exec_delete_all_dist
+function exec_delete_statistiques_dist()
+{
+ include_spip('inc/autoriser');
+ if (!autoriser('detruire','statistiques')) {
+ include_spip('inc/minipres');
+ echo minipres();
+ exit;
+ }
+
+ $r = generer_url_ecrire('statistiques_visites','',true);
+ $admin = charger_fonction('admin', 'inc');
+ $admin('delete_statistiques', _L('Effacer les statistiques')/*_T('titre_page_delete_statistiques')*/, '', $r);
+}
+?>
--
GitLab