f9f833ffb5ca8f6c4542c1942619cf59221da9f7
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2019 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
14 * Gestion d'affichage de la page de destruction des tables de SPIP
16 * @package SPIP\Core\Exec
19 if (!defined('_ECRIRE_INC_VERSION')) {
24 * Exec de la page de destruction des tables de SPIP
26 function exec_base_delete_all_dist() {
27 include_spip('inc/autoriser');
28 if (!autoriser('detruire')) {
29 include_spip('inc/minipres');
32 include_spip('base/dump');
33 $res = base_lister_toutes_tables('', array(), array(), true);
35 include_spip('inc/minipres');
36 spip_log("Erreur base de donnees");
37 echo minipres(_T('info_travaux_titre'),
38 _T('titre_probleme_technique') . "<p><tt>" . sql_errno() . " " . sql_error() . "</tt></p>");
40 $res = base_saisie_tables('delete', $res);
41 include_spip('inc/headers');
42 $res = "\n<ol style='text-align:left'><li>\n" .
43 join("</li>\n<li>", $res) .
45 $admin = charger_fonction('admin', 'inc');
46 $res = $admin('delete_all', _T('titre_page_delete_all'), $res);
48 redirige_url_ecrire('install', '');