+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2014 *
+ * 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_base_delete_all_dist()
+{
+ include_spip('inc/autoriser');
+ if (!autoriser('detruire')) {
+ include_spip('inc/minipres');
+ echo minipres();
+ } else {
+ include_spip('base/dump');
+ $res = base_lister_toutes_tables('',array(),array(),true);
+ if (!$res) {
+ include_spip('inc/minipres');
+ spip_log("Erreur base de donnees");
+ echo minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'). "<p><tt>".sql_errno()." ".sql_error()."</tt></p>");
+ } else {
+ $res = base_saisie_tables('delete', $res);
+ include_spip('inc/headers');
+ $res = "\n<ol style='text-align:left'><li>\n" .
+ join("</li>\n<li>", $res) .
+ '</li></ol>';
+ $admin = charger_fonction('admin', 'inc');
+ $res = $admin('delete_all', _T('titre_page_delete_all'), $res);
+ if (!$res)
+ redirige_url_ecrire('install','');
+ else echo $res;
+ }
+ }
+}
+
+?>