[SPIP] +2.1.12
[velocampus/web/www.git] / www / ecrire / exec / delete_all.php
1 <?php
2
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
5 * *
6 * Copyright (c) 2001-2011 *
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 if (!defined('_ECRIRE_INC_VERSION')) return;
14
15 // http://doc.spip.org/@exec_delete_all_dist
16 function exec_delete_all_dist()
17 {
18 include_spip('inc/autoriser');
19 if (!autoriser('detruire')) {
20 include_spip('inc/minipres');
21 echo minipres();
22 } else {
23 $res = liste_tables_en_base('delete');
24 if (!$res) {
25 include_spip('inc/minipres');
26 spip_log("Erreur base de donnees");
27 echo minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'). "<p><tt>".sql_errno()." ".sql_error()."</tt></p>");
28 } else {
29 include_spip('inc/headers');
30 $res = "\n<ol style='text-align:left'><li>\n" .
31 join("</li>\n<li>", $res) .
32 '</li></ol>';
33 $admin = charger_fonction('admin', 'inc');
34 $res = $admin('delete_all', _T('titre_page_delete_all'), $res);
35 if (!$res)
36 redirige_url_ecrire('install','');
37 else echo $res;
38 }
39 }
40 }
41
42 function liste_tables_en_base($name)
43 {
44 $res = sql_alltable();
45 $c = "type='checkbox' checked='checked'";
46 foreach ($res as $k => $t) {
47 $res[$k] = "<input $c value='$t' id='$name_$t' name='$name"
48 . "[]' />\n"
49 . $t
50 . " ("
51 . sql_countsel($t)
52 . ")";
53 }
54 return $res;
55 }
56 ?>