source: spip-zone/_plugins_/bandeau/exec/admin_tech.php @ 104327

Last change on this file since 104327 was 104327, checked in by spip.franck@…, 3 years ago

code.spip est maintenant en https, donc, j'ajoute le "s" à http

File size: 3.9 KB
Line 
1<?php
2
3/***************************************************************************\
4 *  SPIP, Systeme de publication pour l'internet                           *
5 *                                                                         *
6 *  Copyright (c) 2001-2009                                                *
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
13if (!defined("_ECRIRE_INC_VERSION")) return;
14
15include_spip('inc/presentation');
16
17// https://code.spip.net/@exec_admin_tech_dist
18function exec_admin_tech_dist()
19{
20        if (!autoriser('detruire')){
21                include_spip('inc/minipres');
22                echo minipres();
23        }
24        else {
25                $commencer_page = charger_fonction('commencer_page', 'inc');
26                echo $commencer_page(_T('titre_admin_tech'), "configuration", "base");
27
28                echo gros_titre(_T('titre_admin_tech'),'',false);
29
30                echo debut_gauche('',true);
31                echo debut_boite_info(true);
32                echo  _T('info_gauche_admin_tech');
33                echo fin_boite_info(true);
34
35                echo debut_droite('',true);
36
37                //
38                // Lien vers la reparation
39                //
40
41                if (!_request('reinstall') AND version_compare(sql_version(),'3.23.14','>=')) {
42                        $res = "\n<p style='text-align: justify;'>".
43                                _T('texte_crash_base') .
44                                "\n</p>";
45
46                        echo
47                                debut_cadre_trait_couleur('',true,'',_T('texte_recuperer_base'),'reparer'),
48                                generer_form_ecrire('admin_repair', $res, '', _T('bouton_tenter_recuperation')),
49                                fin_cadre_trait_couleur(true);
50                }
51
52                echo pipeline('affiche_milieu',array('args'=>array('exec'=>'admin_recuperer'),'data'=>''));
53                echo "<br />";
54
55                echo autres_bases();
56
57                echo pipeline('affiche_milieu',array('args'=>array('exec'=>'admin_declarer'),'data'=>''));
58                echo "<br />";
59
60                echo debut_cadre_trait_couleur('',true,'',"<label for='reinstall'>"._T('texte_effacer_base')."</label>");
61
62                $res = "\n<input type='hidden' name='reinstall' id='reinstall' value='non' />";
63
64                $res = generer_form_ecrire('delete_all', $res, '', _T('bouton_effacer_tout'));
65
66                echo
67                        '<img src="' .  chemin_image("warning.gif") . '" alt="',
68                        _T('info_avertissement'),
69                        "\" style='width: 48px; height: 48px; float: right;margin: 10px;' />",
70                        _T('texte_admin_effacer_01'),
71                        "<br class='nettoyeur' />",
72                        "\n<div style='text-align: center'>",
73                        debut_boite_alerte(),
74                        "\n<div class='serif'>",
75                        "\n<b>"._T('avis_suppression_base')."&nbsp;!</b>",
76                        $res,
77                        "\n</div>",
78                        fin_boite_alerte(),
79                        "</div>";
80
81                echo fin_cadre_relief(true);
82
83                echo pipeline('affiche_milieu',array('args'=>array('exec'=>'admin_effacer'),'data'=>''));
84
85                echo fin_gauche(), fin_page();
86        }
87}
88// https://code.spip.net/@autres_bases
89function autres_bases()
90{
91        include_spip('inc/install');
92
93        $tables =  bases_referencees(_FILE_CONNECT_TMP);
94
95        if ($tables)
96                $tables = "<br /><br /><fieldset style='margin-bottom: 10px;'>"
97                  .  "<legend>"._T('config_info_base_sup_disponibles')."</legend>"
98                  . "<ul>\n<li>"
99                  . join("</li>\n<li>",  $tables)
100                  . "</li>\n</ul></fieldset>";
101        else $tables ='';
102
103        list($adresse, $login, $pass, $sel, $server)
104        = analyse_fichier_connection(_FILE_CONNECT);
105
106        $adresse_db = defined('_INSTALL_HOST_DB') ? '' : $adresse;
107
108        $login_db = defined('_INSTALL_USER_DB') ? '' : $login;
109
110        $pass_db = defined('_INSTALL_PASS_DB') ? '' : $pass;
111
112        $server_db = defined('_INSTALL_SERVER_DB') ? '' : $server;
113
114        $hidden = defined('_INSTALL_NAME_DB')
115                ? ''
116        : ("\n<input type='hidden' name='sel_db' value='" . $sel . "' />\n");
117
118        return debut_cadre_trait_couleur('',true,'',_T('onglet_declarer_une_autre_base'))
119          .  _T('config_info_base_sup')
120          . $tables
121          .  install_connexion_form(array($adresse_db), array($login_db), array($pass_db), array($server_db), $hidden, 'sup1')
122          . fin_cadre_trait_couleur(true);
123}
124
125?>
Note: See TracBrowser for help on using the repository browser.