Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
68 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  Jean-Pascal MILCENT                                                                 |
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 
// +------------------------------------------------------------------------------------------------------+
328 jpm 35 
// CVS : $Id: instal_fichier.inc.php,v 1.9 2005-04-12 16:09:45 jpm Exp $
68 jpm 36 
/**
69 jpm 37 
* Page de création des fichiers nécessaire à l'installation de Papyrus.
68 jpm 38 
*
39 
* Page permettant de créer le fichier de configuration 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        Jean-Pascal MILCENT <jpm@tela-botanica.org>
48 
*@copyright     Tela-Botanica 2000-2004
328 jpm 49 
*@version       $Revision: 1.9 $ $Date: 2005-04-12 16:09:45 $
68 jpm 50 
// +------------------------------------------------------------------------------------------------------+
51 
**/
52 
 
53 
// +------------------------------------------------------------------------------------------------------+
54 
// |                                            ENTÊTE du PROGRAMME                                       |
55 
// +------------------------------------------------------------------------------------------------------+
91 jpm 56 
// Numéro de l'étape d'installation :
57 
$num_etape = 3;
58 
 
59 
// Initialisation du tableau contenant les valeurs de configuration de la base de données
60 
$tableau = array(   'PAP_FTP_SERVEUR' => '', 'PAP_FTP_PORT' => '', 'PAP_FTP_UTILISATEUR' => '',
61 
                    'PAP_FTP_MOT_DE_PASSE' => '', 'PAP_FTP_RACINE' => '');
62 
foreach ($tableau as $cle => $val) {
63 
    if (!empty($_POST['fichier'][$cle])) {
64 
        $fichier[$cle] = $_POST['fichier'][$cle];
65 
    } else if (defined($cle)) {
66 
        $fichier[$cle] = constant($cle);
67 
    } else {
100 jpm 68 
        if ($cle == 'PAP_FTP_SERVEUR') {
69 
            $fichier[$cle] = $_SERVER['HTTP_HOST'];
70 
        } else if ($cle == 'PAP_FTP_PORT') {
71 
            $fichier[$cle] = 21;
72 
        } else {
73 
            $fichier[$cle] = '';
74 
        }
91 jpm 75 
    }
76 
}
77 
 
68 jpm 78 
// Récupération des paramêtres de configuration du formulaire précédent
91 jpm 79 
if (isset($_POST['pref_serial'])) {
80 
    $pref = unserialize(stripslashes($_POST['pref_serial']));
68 jpm 81 
}
91 jpm 82 
if (isset($_POST['bdd'])) {
83 
    $bdd = $_POST['bdd'];
84 
} else if (isset($_POST['bdd_serial'])) {
85 
    $bdd = unserialize(stripslashes($_POST['bdd_serial']));
86 
}
76 jpm 87 
 
68 jpm 88 
// +------------------------------------------------------------------------------------------------------+
89 
// |                                          CORPS du PROGRAMME                                          |
90 
// +------------------------------------------------------------------------------------------------------+
91 jpm 91 
// Affichage d'informations...
100 jpm 92 
$sortie .= '<p class="etape_numero"><strong>Etape n°'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</strong></p>'."\n";
91 jpm 93 
 
94 
// Correction éventuelle des informations saisies par l'utilisateur
100 jpm 95 
if (ereg('^[\/\\]', $fichier['PAP_FTP_RACINE']) == false) {
91 jpm 96 
    // le chemin FTP ne doit pas commencer par un slash, nous le supprimons
97 jpm 97 
    $fichier['PAP_FTP_RACINE'] = GEN_SEP.$fichier['PAP_FTP_RACINE'];
68 jpm 98 
}
99 
 
91 jpm 100 
// Nous vérifions si nous sommes en phase de test du formulaire de config de l'écriture de fichier
101 
$erreur = 0;
102 
$sortie_verif = '';
103 
if ($_GET['installation'] == 'verif_fichier') {
104 
    // Test de la configuration du FTP
105 
    $sortie_verif .= '    <h2>Test de la connexion FTP</h2>'."\n";
106 
    $erreur = testerConfig($sortie_verif, 'Test connexion FTP ...', $ftp = @ftp_connect($fichier['PAP_FTP_SERVEUR'], $fichier['PAP_FTP_PORT']), '', 1, $erreur);
107 
    $erreur = testerConfig($sortie_verif, 'Test identification sur le serveur FTP ...', @ftp_login($ftp, $fichier['PAP_FTP_UTILISATEUR'],
108 
                            $fichier['PAP_FTP_MOT_DE_PASSE']), 'Les paramêtres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
109 
    $sortie_verif .= '<br />'."\n";
110 
 
111 
    $configCode = "<?php\n// pap_config.inc.php construit le ".strftime("%c")."\n// ne changez pas la version de Papyrus manuellement!\n\n";
112 
    $entries[] = 'define(\''.INSTAL_VERSION_NOUVELLE_NOM.'\',\''.INSTAL_VERSION_NOUVELLE.'\');'."\n";
113 
    foreach ($bdd as $cle => $val) {
114 
        $entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
115 
    }
116 
    $entries[] = "define('PAP_DSN', 'mysql://'.PAP_BDD_UTILISATEUR.':'.PAP_BDD_MOT_DE_PASSE.'@'.PAP_BDD_SERVEUR.'/'.PAP_BDD_NOM);"."\n";
117 
    foreach ($fichier as $cle => $val) {
118 
        $entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
119 
    }
120 
    foreach ($pref as $cle => $val) {
121 
        // Nous récupérons uniquement les constantes à stocker dans le fichier de config (leur nom commence par PAP_)
122 
        if (preg_match('/^PAP_/', $cle)) {
328 jpm 123 
            if (preg_match('/^[0-9]+|(?i:true|false)$/', $val)) {
124 
                $entries[] = 'define(\''.$cle.'\','.$val.');'."\n";
125 
            } else {
126 
                $entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
127 
            }
91 jpm 128 
        }
129 
    }
130 
    $configCode .= implode("\n", $entries)."\n\n?>";
131 
 
132 
    // Tentative d'écriture du fichier de config
133 
    $sortie_verif .= '    <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
97 jpm 134 
    $chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
91 jpm 135 
    $url_ftp =  'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
136 
                '@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
108 jpm 137 
 
138 
    // Dans le cas, où nous mettons à jour Papyrus, il faut supprimer l'ancien fichier de config
139 
    if (INSTAL_VERSION_ANCIENNE != '') {
140 
        $txt_suppression = 'Suppression de <tt>'.$chemin_fpt_absolu.'</tt>...';
141 
        $txt_suppression_erreur =   '<p>Le fichier <tt>'.$chemin_fpt_absolu.'</tt> ne peut être supprimer automatiquement. '.
142 
                                    'Veuillez utiliser un logiciel de transfert de fichier par FTP pour le supprimer.</p>';
143 
        $erreur = testerConfig($sortie_verif, $txt_suppression, unlink($url_ftp), $txt_suppression_erreur, 1, $erreur);
144 
    }
145 
 
146 
    // Nous écrivons le fichier de config sur le disque
91 jpm 147 
    $fp = @fopen($url_ftp, 'w');
148 
    $txt_ecriture_conf = '&Eacute;criture sur le serveur de <tt>'.$chemin_fpt_absolu.'</tt>...';
149 
    $txt_ecriture_conf_erreur = '<p><span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$chemin_fpt_absolu.
68 jpm 150 
                '</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
151 
                'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
152 
                'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;rer '.
153 
                'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
91 jpm 154 
                '<tt>pap_config.inc.php</tt> directement dans le r&eacute;pertoire <tt>configuration</tt> du répertoire '.
68 jpm 155 
                '<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
91 jpm 156 
                'correctement.</p>';
157 
    $txt_ecriture_conf_erreur .= '<div id="fichier_config">'."\n";
158 
    $txt_ecriture_conf_erreur .= '<xmp>'.$configCode.'</xmp>'."\n";
159 
    $txt_ecriture_conf_erreur .= '</div>'."\n";
160 
    $erreur = testerConfig($sortie_verif, $txt_ecriture_conf, $fp, $txt_ecriture_conf_erreur, 1, $erreur);
68 jpm 161 
}
162 
 
91 jpm 163 
// Gestion de l'affichage
164 
if ($erreur == 0 && empty($sortie_verif)) {
165 
    // Premier appel du fichier...
166 
    $sortie .= creerFormulaire($fichier);
167 
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
168 
    $sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
169 
    $sortie .= '<li><input type="submit" value="Tester" /></li>'."\n";
170 
    $sortie .= '      </ul>'."\n";
171 
    $sortie .= '    </form>';
172 
} else if ($erreur == 2 && !empty($sortie_verif)) {
173 
    // Vérification du fichier avec interuption...
174 
    $sortie .= creerFormulaire($fichier);
175 
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
176 
    $sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
177 
    $sortie .= '<li><input type="submit" value="Tester à nouveau" /></li>'."\n";
178 
    $sortie .= '      </ul>'."\n";
179 
    $sortie .= '    </form>';
180 
    $sortie .= $sortie_verif;
181 
} else if (($erreur == 0 || $erreur == 1) && !empty($sortie_verif)) {
182 
    // Vérification du fichier sans interuption... passage à l'étape suivante
183 
    $sortie .= creerFormulaire($fichier, true);
184 
    $sortie .= '      </ul>'."\n";
185 
    $sortie .= '    </form>';
186 
    $sortie .= $sortie_verif;
187 
    // Ecriture du fichier...
188 
    fwrite($fp, $configCode);
189 
    fclose($fp);
100 jpm 190 
    $sortie .= '    <p class="etape_info">Voila c\'est termin&eacute; ! Vous pouvez <a href="'.donnerUrlCourante().'">retourner sur votre site '.
91 jpm 191 
                'Papyrus</a>. Il est conseill&eacute; de retirer l\'acc&egrave;s en &eacute;criture au fichier '.
192 
                '<tt>pap_config.inc.php</tt>. Ceci peut &ecirc;tre une faille dans la s&eacute;curit&eacute;.</p>'."\n";
193 
}
194 
 
68 jpm 195 
// +------------------------------------------------------------------------------------------------------+
91 jpm 196 
// |                                            LISTE DES FONCTIONS                                       |
197 
// +------------------------------------------------------------------------------------------------------+
198 
 
199 
// Création du formulaire de configuration de la base de donneés
200 
function creerFormulaire($fichier, $bln_lecture = false) {
201 
    $disabled = '';
202 
    if ($bln_lecture) {
203 
        $disabled = ' disabled="disabled" ';
204 
    }
205 
    $sortie_form .= '    <form action="'.donnerUrlCourante().'?installation=verif_fichier" method="post">';
206 
    $sortie_form .= '      <ul>'."\n";
207 
    $sortie_form .=  '<li><h2>Configuration du FTP et des chemins d\'accès</h2></li>'."\n";
100 jpm 208 
    $sortie_form .= '<li>Le nom de la machine à laquelle vous vous connectez pour accéder à votre dépôt FTP. En '.
209 
                    'g&eacute;n&eacute;ral c\'est le nom de domaine du site où vous voulez installer Papyrus.</li>'."\n";
91 jpm 210 
    $sortie_form .=  '<li>'."\n".
211 
                '<label for="ftp_serveur">Nom du serveur FTP :</label>'.
212 
                '<input id="ftp_serveur"'.$disabled.'type="text" size="30" name="fichier[PAP_FTP_SERVEUR]" value="'.$fichier['PAP_FTP_SERVEUR'].'" />'.
213 
                '</li>'."\n";
100 jpm 214 
    $sortie_form .= '<li>Le numéro du port pour le service FTP sur la machine hébergeant Papyrus. '.
215 
                    'En g&eacute;n&eacute;ral c\'est 21.</li>'."\n";
91 jpm 216 
    $sortie_form .=  '<li>'."\n".
217 
                '<label for="ftp_port">N° du port d\'accès au serveur FTP :</label>'.
218 
                '<input id="ftp_port"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_PORT]" value="'.$fichier['PAP_FTP_PORT'].'" />'.
219 
                '</li>'."\n";
100 jpm 220 
    $sortie_form .=  '<li>Nom et mot de passe FTP qui sera utilis&eacute; pour se connecter &agrave; au dépôt FTP.</li>'."\n";
91 jpm 221 
    $sortie_form .=  '<li>'."\n".
222 
                '<label for="ftp_utilisateur">Nom d\'utilisateur pour le serveur FTP :</label>'.
223 
                '<input id="ftp_utilisateur"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_UTILISATEUR]" value="'.$fichier['PAP_FTP_UTILISATEUR'].'" />'.
224 
                '</li>'."\n";
225 
    $sortie_form .=  '<li>'."\n".
226 
                '<label for="ftp_mot_de_passe">Mot de passe de l\'utilisateur pour le serveur FTP :</label>'.
227 
                '<input id="ftp_mot_de_passe"'.$disabled.'type="password" size="20" name="fichier[PAP_FTP_MOT_DE_PASSE]" value="'.$fichier['PAP_FTP_MOT_DE_PASSE'].'" />'.
228 
                '</li>'."\n";
229 
    $sortie_form .=  '<li>Lorsque vous vous connecter par FTP sur le serveur où vous avez déposé les fichiers de Papyrus, le '.
230 
                'dossier le plus haut auquel vous pouvez accéder dans l\'arborescence est la racine. Il vous faut donc '.
100 jpm 231 
                'indiquez dans le champ ci-dessous le chemin absolu depuis cette racine jusqu\'au dossier contenant le fichier '.
232 
                '<tt>papyrus.php</tt>. Exemple : <i>/www/</i></li>'."\n";
91 jpm 233 
    $sortie_form .=  '<li>'."\n".
234 
                '<label for="ftp_racine">Racine dépôt FTP :</label>'.
235 
                '<input id="ftp_racine"'.$disabled.'type="text" size="60" name="fichier[PAP_FTP_RACINE]" value="'.$fichier['PAP_FTP_RACINE'].'" />'.
236 
                '</li>'."\n";
237 
    return $sortie_form;
238 
}
239 
 
240 
// +------------------------------------------------------------------------------------------------------+
68 jpm 241 
// |                                            PIED du PROGRAMME                                         |
242 
// +------------------------------------------------------------------------------------------------------+
243 
 
244 
 
245 
/* +--Fin du code ----------------------------------------------------------------------------------------+
246 
*
247 
* $Log: not supported by cvs2svn $
328 jpm 248 
* Revision 1.8  2004/10/25 16:26:35  jpm
249 
* Début gestion des mises à jours.
250 
*
108 jpm 251 
* Revision 1.7  2004/10/25 10:22:48  jpm
252 
* Correction de quelques bogues, ajouts d'explications pour l'utilisateur et modification des styles CSS.
253 
*
100 jpm 254 
* Revision 1.6  2004/10/22 17:39:14  jpm
255 
* Correction gestion du slash devant le chemin racine ftp.
256 
*
97 jpm 257 
* Revision 1.5  2004/10/22 17:23:04  jpm
258 
* Simplification del'installation de Papyrus.
259 
*
91 jpm 260 
* Revision 1.4  2004/10/19 17:01:12  jpm
261 
* Correction bogues.
262 
*
80 jpm 263 
* Revision 1.3  2004/10/19 15:59:18  jpm
264 
* Ajout de la gestion des valeurs propre à Papyrus à insérer dans la base de données.
265 
* Ajout des constantes FTP.
266 
*
76 jpm 267 
* Revision 1.2  2004/10/18 09:12:09  jpm
268 
* Changement de nom d'un fichier.
269 
*
69 jpm 270 
* Revision 1.1  2004/10/18 09:11:05  jpm
271 
* Changement de nom du fichier.
272 
*
68 jpm 273 
* Revision 1.1  2004/10/15 18:28:59  jpm
274 
* Début appli installateur de Papyrus.
275 
*
276 
*
277 
* +-- Fin du code ----------------------------------------------------------------------------------------+
278 
*/
279 
?>