www/ecrire/exec/base_delete_all.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2017                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   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 \***************************************************************************/
  12
  13 /**
  14  * Gestion d'affichage de la page de destruction des tables de SPIP
  15  *
  16  * @package SPIP\Core\Exec
  17  */
  18
  19 if (!defined('_ECRIRE_INC_VERSION')) {
  20         return;
  21 }
  22
  23 /**
  24  * Exec de la page de destruction des tables de SPIP
  25  **/
  26 function exec_base_delete_all_dist() {
  27         include_spip('inc/autoriser');
  28         if (!autoriser('detruire')) {
  29                 include_spip('inc/minipres');
  30                 echo minipres();
  31         } else {
  32                 include_spip('base/dump');
  33                 $res = base_lister_toutes_tables('', array(), array(), true);
  34                 if (!$res) {
  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>");
  39                 } else {
  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) .
  44                                 '</li></ol>';
  45                         $admin = charger_fonction('admin', 'inc');
  46                         $res = $admin('delete_all', _T('titre_page_delete_all'), $res);
  47                         if (!$res) {
  48                                 redirige_url_ecrire('install', '');
  49                         } else {
  50                                 echo $res;
  51                         }
  52                 }
  53         }
  54 }