3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
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 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 include_spip('inc/presentation');
16 include_spip('inc/install');
18 // http://doc.spip.org/@exec_admin_declarer_dist
19 function exec_admin_declarer_dist()
21 if (!autoriser('detruire')) {
22 include_spip('inc/minipres');
26 $commencer_page = charger_fonction('commencer_page', 'inc');
27 echo $commencer_page(_T('titre_admin_tech'), "configuration", "base");
29 echo "\n<br /><br />";
30 echo gros_titre(_T('titre_admin_effacer'),'',false);
31 echo barre_onglets("administration", "declarer");
33 echo debut_gauche('',true);
34 echo debut_boite_info(true);
36 echo _T('info_gauche_admin_effacer');
38 echo fin_boite_info(true);
40 echo creer_colonne_droite('',true);
41 echo pipeline('affiche_droite',array('args'=>array('exec'=>'admin_effacer'),'data'=>''));
43 echo debut_droite('',true);
47 echo pipeline('affiche_milieu',array('args'=>array('exec'=>'admin_effacer'),'data'=>''));
49 echo fin_gauche(), fin_page();
53 // http://doc.spip.org/@autres_bases
54 function autres_bases()
56 $tables = bases_referencees(_FILE_CONNECT
);
59 $tables = "<br /><br /><fieldset style='margin-bottom: 10px;'>"
60 . "<legend>"._T('config_info_base_sup_disponibles')."</legend>"
62 . join("</li>\n<li>", $tables)
63 . "</li>\n</ul></fieldset>";
66 if (defined('_INSTALL_PASS_DB')) {
68 // Si l'utilisateur n'a pas a donner le mot de passe de la base SQL
69 // ce doit etre une installation mutualisee sur une meme base:
70 // interdiction de creer d'autres acces pour assure la confidentialite
75 // Lire le fichier de connexion pour valeurs par defaut probables
76 list($adresse_db, $login_db, $pass_db, $sel, $server_db)
77 = analyse_fichier_connection(_FILE_CONNECT
);
79 // Passer la base courante en Hidden pour ne pas la proposer
80 $name_db = ("\n<input type='hidden' name='sel_db' value='" . $sel . "' />\n");
81 // Dire que rien n'est predefini
82 $predef = array(false, false, false, false);
84 if (!autoriser('webmestre')){
85 $login_db = $pass_db = "";
87 $form = install_connexion_form(array($adresse_db), array($login_db), array($pass_db), $predef, $name_db, 'sup1');
90 return debut_cadre_trait_couleur('',true,'',_T('onglet_declarer_une_autre_base'))
91 . _T('config_info_base_sup')
94 . fin_cadre_trait_couleur(true);