Subversion Repositories Applications.papyrus

Rev

Rev 1001 | Rev 1006 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
66 jpm 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
8
// | Copyright (c) 2002, Hendrik Mans <hendrik@mans.de>                                                   |
9
// | Copyright 2002, 2003 David DELON                                                                     |
10
// | Copyright 2002 Patrick PAUL                                                                          |
11
// | Copyright  2003  Eric FELDSTEIN                                                                      |
12
// | All rights reserved.                                                                                 |
13
// | Redistribution and use in source and binary forms, with or without                                   |
14
// | modification, are permitted provided that the following conditions                                   |
15
// | are met:                                                                                             |
16
// | 1. Redistributions of source code must retain the above copyright                                    |
17
// | notice, this list of conditions and the following disclaimer.                                        |
18
// | 2. Redistributions in binary form must reproduce the above copyright                                 |
19
// | notice, this list of conditions and the following disclaimer in the                                  |
20
// | documentation and/or other materials provided with the distribution.                                 |
21
// | 3. The name of the author may not be used to endorse or promote products                             |
22
// | derived from this software without specific prior written permission.                                |
23
// |                                                                                                      |
24
// | THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR                                 |
25
// | IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES                            |
26
// | OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.                              |
27
// | IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,                                     |
28
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT                             |
29
// | NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,                            |
30
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY                                |
31
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT                                  |
32
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF                             |
33
// | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.                                    |
34
// +------------------------------------------------------------------------------------------------------+
1005 ddelon 35
// CVS : $Id: instal_base_de_donnees.inc.php,v 1.23 2006-10-05 17:16:21 ddelon Exp $
66 jpm 36
/**
37
* Page de création de la base de données de Papyrus.
38
*
39
* Page permettant de créer la base de données de Papyrus.
40
*
41
*@package Installateur
42
//Auteur original :
43
*@author        Hendrik MANS <hendrik@mans.de>
44
//Autres auteurs :
45
*@author        David DELON
46
*@author        Patrick PAUL
47
*@author        Eric FELDSTEIN
48
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
49
*@copyright     Tela-Botanica 2000-2004
1005 ddelon 50
*@version       $Revision: 1.23 $ $Date: 2006-10-05 17:16:21 $
66 jpm 51
// +------------------------------------------------------------------------------------------------------+
52
**/
53
 
54
// +------------------------------------------------------------------------------------------------------+
55
// |                                            ENTÊTE du PROGRAMME                                       |
56
// +------------------------------------------------------------------------------------------------------+
91 jpm 57
// Numéro de l'étape d'installation :
58
$num_etape = 2;
59
 
60
// Initialisation du tableau contenant les valeurs de configuration de la base de données
61
$tableau = array('PAP_BDD_SERVEUR' => '', 'PAP_BDD_NOM' => '', 'PAP_BDD_UTILISATEUR' => '', 'PAP_BDD_MOT_DE_PASSE' => '');
62
foreach ($tableau as $cle => $val) {
121 jpm 63
    if ($_POST['bdd'][$cle] != '') {
91 jpm 64
        $bdd[$cle] = $_POST['bdd'][$cle];
65
    } else if (defined($cle)) {
66
        $bdd[$cle] = constant($cle);
67
    } else {
68
        $bdd[$cle] = '';
69
    }
70
}
71
 
66 jpm 72
// Récupération des paramêtres de configuration du formulaire précédent
91 jpm 73
if (isset($_POST['pref'])) {
74
    $pref = $_POST['pref'];
75
} else if (isset($_POST['pref_serial'])) {
76
    $pref = unserialize(stripslashes($_POST['pref_serial']));
66 jpm 77
}
91 jpm 78
 
66 jpm 79
// +------------------------------------------------------------------------------------------------------+
80
// |                                          CORPS du PROGRAMME                                          |
81
// +------------------------------------------------------------------------------------------------------+
82
 
91 jpm 83
// Affichage d'informations...
458 florian 84
$sortie .= '<br /><h1>Etape n°'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\n";
66 jpm 85
 
91 jpm 86
// Nous vérifions si nous sommes en phase de test du formulaire de config de la base de données
87
$erreur = 0;
88
$sortie_verif = '';
89
if ($_GET['installation'] == 'verif_bdd') {
90
    // Test de la configuration à la base de données
458 florian 91
    $sortie_verif = '    <br /><h2>Test de la configuration de la base de données</h2>'."\n";
91 jpm 92
    $dblink = @mysql_connect($bdd['PAP_BDD_SERVEUR'], $bdd['PAP_BDD_UTILISATEUR'], $bdd['PAP_BDD_MOT_DE_PASSE']);
458 florian 93
    $erreur = testerConfig($sortie_verif, 'Test connexion au serveur MySQL, recherche base de donn&eacute;es ...', @mysql_select_db($bdd['PAP_BDD_NOM'], $dblink),
94
                    '<br />La base de donn&eacute;es, le serveur MySQL, ou votre identifiant / mot de passe sont invalides, veuillez vérifer vos paramêtres.', 1, $erreur);
91 jpm 95
    $sortie_verif .= '<br />'."\n";
458 florian 96
    if ($erreur==0) {
97
	    // L'exécution du SQL peut commencer...
98
	    if (!defined('PAP_VERSION')) {
99
		    $version_actuelle = 0.1;
100
	    } else {
101
		    // On ajoute pour éviter l'étape qui a déjà eu lieu lors d'une installation précédente!
987 ddelon 102
		    $version_actuelle = PAP_VERSION + 0.01;
458 florian 103
	    }
104
	    if (!defined('GEN_VERSION')) {
105
		    $version_maj = 0.1;
106
	    } else {
998 ddelon 107
		    $version_maj = GEN_VERSION + 0.01;
458 florian 108
	    }
998 ddelon 109
 
458 florian 110
	    $sortie_verif .= '<h2>Insertion des informations dans la base de données</h2>';
111
	    $sortie_verif .= '<div class="zone_requete">';
987 ddelon 112
	    for ( $version = $version_actuelle; $version <= $version_maj; $version = $version + 0.01) {
458 florian 113
		//Insertion des requêtes présentes dans le fichier sql
994 ddelon 114
		$file_sql_contenu = INSTAL_CHEMIN_SQL.'papyrus_v'.$version.'.sql';
115
		if (file_exists($file_sql_contenu)) {
116
			$sortie_verif .= '<h2>Insertion des données du fichier sql version '.$version.'</h2>';
117
			$sql_contenu = PMA_readFile($file_sql_contenu);
118
		}
988 ddelon 119
 
980 ddelon 120
 
998 ddelon 121
 
122
 
123
		$tab_requete_sql = array();
124
		PMA_splitSqlFile($tab_requete_sql, $sql_contenu, '');
125
		foreach ($tab_requete_sql as $value) {
126
		    $table_nom = '';
127
		    if (!empty($value['table_nom'])) {
128
			$table_nom = $value['table_nom'];
129
		    }
130
		    $requete_type = '';
131
		    if (!empty($value['type'])) {
132
			$requete_type = $value['type'];
133
		    }
134
		    if ($requete_type == 'create') {
135
			$erreur = testerConfig( $sortie_verif, 'Création table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
136
						'Déjà créée ?', 0, $erreur);
137
		    } else if ($requete_type == 'alter') {
138
			$erreur = testerConfig( $sortie_verif, 'Modification structure table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
139
						'Déjà modifiée ?', 0, $erreur);
140
		    } else if ($requete_type == 'insert') {
141
			$erreur = testerConfig( $sortie_verif, 'Insertion table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
142
						'Données déjà présente ?', 0, $erreur);
143
		    }
144
		}
145
 
146
 
147
		// Chargement des hooks sql : fichier sql de configuration spécifiques à chaque application
988 ddelon 148
 
980 ddelon 149
		$d = dir(GEN_CHEMIN_CLIENT);
150
 
995 ddelon 151
		$sql_contenu_hook = '';
980 ddelon 152
	 	while (false !== ($repertoire = $d->read())) {
994 ddelon 153
				$hook=GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.'documentation'.GEN_SEP.$repertoire.'_v'.$version.'.sql';
988 ddelon 154
				if (file_exists($hook)) {
985 ddelon 155
				    $sortie_verif .= '<h2>Insertion des informations dans la base de données, fichier : '.$hook.'  </h2>';
1001 ddelon 156
					$sql_contenu_hook = PMA_readFile($hook);
1000 ddelon 157
 
158
					$tab_requete_sql = array();
159
					PMA_splitSqlFile($tab_requete_sql, $sql_contenu_hook, '');
160
					foreach ($tab_requete_sql as $value) {
161
					    $table_nom = '';
162
					    if (!empty($value['table_nom'])) {
163
						$table_nom = $value['table_nom'];
164
					    }
165
					    $requete_type = '';
166
					    if (!empty($value['type'])) {
167
						$requete_type = $value['type'];
168
					    }
169
					    if ($requete_type == 'create') {
170
						$erreur = testerConfig( $sortie_verif, 'Création table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
171
									'Déjà créée ?', 0, $erreur);
172
					    } else if ($requete_type == 'alter') {
173
						$erreur = testerConfig( $sortie_verif, 'Modification structure table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
174
									'Déjà modifiée ?', 0, $erreur);
175
					    } else if ($requete_type == 'insert') {
176
						$erreur = testerConfig( $sortie_verif, 'Insertion table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
177
									'Données déjà présente ?', 0, $erreur);
178
					    }
179
					}
980 ddelon 180
				}
1000 ddelon 181
	 	}
182
 
1005 ddelon 183
 
184
			switch ($version) {
185
			    case 0.24:// Nouvelle installation de Papyrus 0.24
186
				//Insertion des requêtes dépendant du formulaire d'installation
187
				$sortie_verif .= '<h2>Insertion des données dépendant du formulaire précédent</h2>';
188
				$requete_admin =    'INSERT INTO gen_annuaire VALUES (1, "'.$pref['ADMIN_I18N'].'", "'.$pref['ADMIN_NOM'].
189
						    '", "'.$pref['ADMIN_PRENOM'].'", "'.md5($pref['ADMIN_MDP_01']).'", "'.
190
						    $pref['ADMIN_MAIL'].'");';
191
				$erreur = testerConfig($sortie_verif, 'Insertion de l\'administrateur...', @mysql_query($requete_admin, $dblink),
192
							'Données déjà présente ?', 0, $erreur);
193
				$requete_auth = 'INSERT INTO gen_site_auth_bdd VALUES (1, "mysql://'.
194
						    $bdd['PAP_BDD_UTILISATEUR'].':'.$bdd['PAP_BDD_MOT_DE_PASSE'].'@'.$bdd['PAP_BDD_SERVEUR'].'/'.$bdd['PAP_BDD_NOM'].'", "gen_annuaire", "ga_mail", '.
195
						    '"ga_mot_de_passe", "md5");';
196
				$erreur = testerConfig($sortie_verif, 'Insertion de l\'authentification...', @mysql_query($requete_auth, $dblink),
197
							'Données déjà présente ?', 0, $erreur);
198
				$requete_auth =  'INSERT INTO gen_site_auth_bdd VALUES (2, "mysql://'.
199
						    $bdd['PAP_BDD_UTILISATEUR'].':'.$bdd['PAP_BDD_MOT_DE_PASSE'].'@'.$bdd['PAP_BDD_SERVEUR'].'/'.$bdd['PAP_BDD_NOM'].'", "annuaire", "a_mail", '.
200
						    '"ga_mot_de_passe", "md5");';
201
				$erreur = testerConfig($sortie_verif, 'Insertion de l\'authentification utilisateurs ...', @mysql_query($requete_auth, $dblink),
202
							'Données déjà présente ?', 0, $erreur);
203
 
204
			    break;
205
			}
458 florian 206
	    }
207
	    $sortie_verif .= '</div>';
108 jpm 208
    }
66 jpm 209
}
210
 
91 jpm 211
// Gestion de l'affichage de sortie
212
if ($erreur == 0 && empty($sortie_verif)) {
213
    // Premier appel du fichier...
214
    $sortie .= creerFormulaire($bdd);
215
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
216
    $sortie .= '<li><input type="submit" value="Tester" /></li>'."\n";
217
    $sortie .= '      </ul>'."\n";
218
    $sortie .= '    </form>';
219
} else if ($erreur == 2 && !empty($sortie_verif)) {
220
    // Vérification du fichier avec interuption...
221
    $sortie .= creerFormulaire($bdd);
222
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
223
    $sortie .= '<li><input type="submit" value="Tester à nouveau" /></li>'."\n";
224
    $sortie .= '      </ul>'."\n";
225
    $sortie .= '    </form>';
226
    $sortie .= $sortie_verif;
227
} else if (($erreur == 0 || $erreur == 1) && !empty($sortie_verif)) {
228
    // Vérification du fichier sans interuption... passage à l'étape suivante
229
    $sortie .= creerFormulaire($bdd, true);
230
    $sortie .= '      </ul>'."\n";
231
    $sortie .= '    </form>';
232
    $sortie .= $sortie_verif;
100 jpm 233
    $sortie .= '    <p class="etape_info">A l\'&eacute;tape suivante, le programme d\'installation va essayer d\'&eacute;crire le fichier de '.
91 jpm 234
                'configuration <tt>'.INSTAL_FICHIER_CONFIG.'</tt>.<br />Assurez vous que le serveur web a bien le '.
66 jpm 235
                'droit d\'&eacute;crire dans ce fichier, sinon vous devrez le modifier manuellement.</p>'."\n";
236
 
91 jpm 237
    $sortie .= '    <form action="'.donnerUrlCourante().'?installation=form_fichier" method="POST" />'."\n";
238
    $sortie .= '      <input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" />'."\n";
239
    $sortie .= '      <input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" />'."\n";
66 jpm 240
    $sortie .= '      <input type="submit" value="Continuer" />'."\n";
241
    $sortie .= '    </form>'."\n";
242
}
243
// +------------------------------------------------------------------------------------------------------+
91 jpm 244
// |                                            LISTE DES FONCTIONS                                       |
245
// +------------------------------------------------------------------------------------------------------+
246
 
247
// Création du formulaire de configuration de la base de donneés
248
function creerFormulaire($bdd, $bln_lecture = false) {
249
    $disabled = '';
250
    if ($bln_lecture) {
251
        $disabled = ' disabled="disabled" ';
252
    }
253
 
254
    $sortie_form .= '    <form action="'.donnerUrlCourante().'?installation=verif_bdd" method="post">';
255
    $sortie_form .= '      <ul>'."\n";
458 florian 256
    $sortie_form .= '<li><br /><h2>Configuration de la base de donn&eacute;es</h2></li>'."\n";
100 jpm 257
    $sortie_form .= '<li>La machine sur laquelle se trouve votre serveur MySQL. En g&eacute;n&eacute;ral c\'est "localhost" '.
258
                    '(ie, la m&ecirc;me machine que celle o&ugrave; se trouve les pages de Papyrus.).</li>'."\n";
91 jpm 259
    $sortie_form .=  '<li>'."\n".
260
                '<label for="mysql_serveur">Nom du serveur MySQL :</label>'.
261
                '<input id="mysql_serveur"'.$disabled.'type="text" size="30" name="bdd[PAP_BDD_SERVEUR]" value="'.$bdd['PAP_BDD_SERVEUR'].'" />'.
262
                '</li>'."\n";
263
    $sortie_form .=  '<li>La base de donn&eacute;es MySQL &agrave; utiliser pour Papyrus. Cette base de donn&eacute;es doit d&eacute;j&agrave; '.
264
                'exister avant de pouvoir continuer.</li>'."\n";
265
    $sortie_form .=  '<li>'."\n".
266
                '<label for="mysql_database">Base de donn&eacute;es MySQL :</label>'.
267
                '<input id="mysql_database"'.$disabled.'type="text" size="30" name="bdd[PAP_BDD_NOM]" value="'.$bdd['PAP_BDD_NOM'].'" />'.
268
                '</li>'."\n";
269
    $sortie_form .=  '<li>Nom et mot de passe de l\'utilisateur MySQL qui sera utilis&eacute; pour se connecter &agrave; votre base de donn&eacute;es.</li>'."\n";
270
    $sortie_form .=  '<li>'."\n".
458 florian 271
                '<label for="mysql_user">Nom de l\'utilisateur MySQL :</label>'.
91 jpm 272
                '<input id="mysql_user"'.$disabled.'type="text" size="30" name="bdd[PAP_BDD_UTILISATEUR]" value="'.$bdd['PAP_BDD_UTILISATEUR'].'" />'.
273
                '</li>'."\n";
274
    $sortie_form .=  '<li>'."\n".
275
                '<label for="mysql_password">Mot de passe MySQL :</label>'.
276
                '<input id="mysql_password"'.$disabled.'type="password" size="30" name="bdd[PAP_BDD_MOT_DE_PASSE]" value="'.$bdd['PAP_BDD_MOT_DE_PASSE'].'" />'.
277
                '</li>'."\n";
278
    return $sortie_form;
279
}
280
// +------------------------------------------------------------------------------------------------------+
66 jpm 281
// |                                            PIED du PROGRAMME                                         |
282
// +------------------------------------------------------------------------------------------------------+
283
 
284
 
285
/* +--Fin du code ----------------------------------------------------------------------------------------+
286
*
287
* $Log: not supported by cvs2svn $
1005 ddelon 288
* Revision 1.22  2006/10/05 16:44:02  ddelon
289
* Gestion hooks creation base de donnee
290
*
1001 ddelon 291
* Revision 1.21  2006/10/05 16:39:01  ddelon
292
* Gestion hooks creation base de donnee
293
*
1000 ddelon 294
* Revision 1.20  2006/10/05 16:25:58  ddelon
295
* Gestion hooks creation base de donnee
296
*
998 ddelon 297
* Revision 1.19  2006/10/05 15:38:22  ddelon
298
* Gestion hooks creation base de donnee
299
*
995 ddelon 300
* Revision 1.18  2006/10/05 15:27:53  ddelon
301
* Gestion hooks creation base de donnee
302
*
994 ddelon 303
* Revision 1.17  2006/10/05 15:04:00  ddelon
304
* Gestion hooks creation base de donnee
305
*
988 ddelon 306
* Revision 1.16  2006/10/05 15:00:56  ddelon
307
* Gestion hooks creation base de donnee
308
*
987 ddelon 309
* Revision 1.15  2006/10/05 14:41:12  ddelon
310
* Gestion hooks creation base de donnee
311
*
985 ddelon 312
* Revision 1.14  2006/10/05 14:24:58  ddelon
313
* Gestion hooks creation base de donnee
314
*
983 ddelon 315
* Revision 1.13  2006/10/05 14:01:21  ddelon
316
* Gestion hooks creation base de donnee
317
*
980 ddelon 318
* Revision 1.12  2005/09/23 14:20:23  florian
319
* nouvel habillage installateur, plus correction de quelques bugs
320
*
458 florian 321
* Revision 1.11  2004/11/03 17:31:13  jpm
322
* Corrections bogues erreurs noms de variables (suite).
323
*
122 jpm 324
* Revision 1.10  2004/11/03 17:26:19  jpm
325
* Corrections bogues erreurs noms de variables.
326
*
121 jpm 327
* Revision 1.9  2004/10/27 11:43:32  jpm
328
* Correction bogues diff mise à jour / installation.
329
*
119 jpm 330
* Revision 1.8  2004/10/26 18:41:12  jpm
331
* Correction bogue pour la mise à jour.
332
*
114 jpm 333
* Revision 1.7  2004/10/25 16:26:35  jpm
334
* Début gestion des mises à jours.
335
*
108 jpm 336
* Revision 1.6  2004/10/25 10:22:48  jpm
337
* Correction de quelques bogues, ajouts d'explications pour l'utilisateur et modification des styles CSS.
338
*
100 jpm 339
* Revision 1.5  2004/10/22 17:56:28  jpm
340
* Correction erreur auth.
341
*
98 jpm 342
* Revision 1.4  2004/10/22 17:23:04  jpm
343
* Simplification del'installation de Papyrus.
344
*
91 jpm 345
* Revision 1.3  2004/10/19 16:47:28  jpm
346
* Transformation en fonction de l'appel de l'application.
347
*
79 jpm 348
* Revision 1.2  2004/10/19 15:59:18  jpm
349
* Ajout de la gestion des valeurs propre à Papyrus à insérer dans la base de données.
350
* Ajout des constantes FTP.
351
*
76 jpm 352
* Revision 1.1  2004/10/15 18:28:59  jpm
353
* Début appli installateur de Papyrus.
66 jpm 354
*
76 jpm 355
*
66 jpm 356
* +-- Fin du code ----------------------------------------------------------------------------------------+
357
*/
358
?>