Line 30... |
Line 30... |
30 |
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
30 |
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
31 |
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
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 |
|
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. |
|
33 |
// | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
34 |
// +------------------------------------------------------------------------------------------------------+
|
34 |
// +------------------------------------------------------------------------------------------------------+
|
35 |
// CVS : $Id: instal_fichier.inc.php,v 1.4 2004-10-19 17:01:12 jpm Exp $
|
35 |
// CVS : $Id: instal_fichier.inc.php,v 1.5 2004-10-22 17:23:04 jpm Exp $
|
36 |
/**
|
36 |
/**
|
37 |
* Page de création des fichiers nécessaire à l'installation de Papyrus.
|
37 |
* Page de création des fichiers nécessaire à l'installation de Papyrus.
|
38 |
*
|
38 |
*
|
39 |
* Page permettant de créer le fichier de configuration de Papyrus.
|
39 |
* Page permettant de créer le fichier de configuration de Papyrus.
|
40 |
*
|
40 |
*
|
Line 44... |
Line 44... |
44 |
//Autres auteurs :
|
44 |
//Autres auteurs :
|
45 |
*@author David DELON
|
45 |
*@author David DELON
|
46 |
*@author Patrick PAUL
|
46 |
*@author Patrick PAUL
|
47 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
47 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
48 |
*@copyright Tela-Botanica 2000-2004
|
48 |
*@copyright Tela-Botanica 2000-2004
|
49 |
*@version $Revision: 1.4 $ $Date: 2004-10-19 17:01:12 $
|
49 |
*@version $Revision: 1.5 $ $Date: 2004-10-22 17:23:04 $
|
50 |
// +------------------------------------------------------------------------------------------------------+
|
50 |
// +------------------------------------------------------------------------------------------------------+
|
51 |
**/
|
51 |
**/
|
Line 52... |
Line 52... |
52 |
|
52 |
|
53 |
// +------------------------------------------------------------------------------------------------------+
|
53 |
// +------------------------------------------------------------------------------------------------------+
|
54 |
// | ENTÊTE du PROGRAMME |
|
54 |
// | ENTÊTE du PROGRAMME |
|
- |
|
55 |
// +------------------------------------------------------------------------------------------------------+
|
- |
|
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 {
|
- |
|
68 |
$fichier[$cle] = '';
|
- |
|
69 |
}
|
- |
|
70 |
}
|
55 |
// +------------------------------------------------------------------------------------------------------+
|
71 |
|
56 |
// Récupération des paramêtres de configuration du formulaire précédent
|
72 |
// Récupération des paramêtres de configuration du formulaire précédent
|
57 |
if (isset($_POST['config'])) {
|
73 |
if (isset($_POST['pref_serial'])) {
|
- |
|
74 |
$pref = unserialize(stripslashes($_POST['pref_serial']));
|
- |
|
75 |
}
|
- |
|
76 |
if (isset($_POST['bdd'])) {
|
58 |
$config = unserialize(stripslashes($_POST['config']));
|
77 |
$bdd = $_POST['bdd'];
|
59 |
} else if (isset($_POST['config_serial'])) {
|
78 |
} else if (isset($_POST['bdd_serial'])) {
|
60 |
$config = unserialize(stripslashes($_POST['config_serial']));
|
79 |
$bdd = unserialize(stripslashes($_POST['bdd_serial']));
|
Line 61... |
Line 80... |
61 |
}
|
80 |
}
|
62 |
|
81 |
|
63 |
// +------------------------------------------------------------------------------------------------------+
|
82 |
// +------------------------------------------------------------------------------------------------------+
|
- |
|
83 |
// | CORPS du PROGRAMME |
|
- |
|
84 |
// +------------------------------------------------------------------------------------------------------+
|
- |
|
85 |
// Affichage d'informations...
|
- |
|
86 |
$sortie .= '<p><strong>Etape n°'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</strong></p>'."\n";
|
- |
|
87 |
|
- |
|
88 |
// Correction éventuelle des informations saisies par l'utilisateur
|
- |
|
89 |
if (preg_match('/^\/(.*)$/', $fichier['PAP_FTP_RACINE'], $instal_tab_txt)) {
|
- |
|
90 |
// le chemin FTP ne doit pas commencer par un slash, nous le supprimons
|
- |
|
91 |
$fichier['PAP_FTP_RACINE'] = $instal_tab_txt[1];
|
- |
|
92 |
}
|
- |
|
93 |
|
- |
|
94 |
// Nous vérifions si nous sommes en phase de test du formulaire de config de l'écriture de fichier
|
- |
|
95 |
$erreur = 0;
|
- |
|
96 |
$sortie_verif = '';
|
- |
|
97 |
if ($_GET['installation'] == 'verif_fichier') {
|
- |
|
98 |
// Test de la configuration du FTP
|
- |
|
99 |
$sortie_verif .= ' <h2>Test de la connexion FTP</h2>'."\n";
|
- |
|
100 |
$erreur = testerConfig($sortie_verif, 'Test connexion FTP ...', $ftp = @ftp_connect($fichier['PAP_FTP_SERVEUR'], $fichier['PAP_FTP_PORT']), '', 1, $erreur);
|
- |
|
101 |
$erreur = testerConfig($sortie_verif, 'Test identification sur le serveur FTP ...', @ftp_login($ftp, $fichier['PAP_FTP_UTILISATEUR'],
|
- |
|
102 |
$fichier['PAP_FTP_MOT_DE_PASSE']), 'Les paramêtres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
|
64 |
// | CORPS du PROGRAMME |
|
103 |
$sortie_verif .= '<br />'."\n";
|
65 |
// +------------------------------------------------------------------------------------------------------+
|
104 |
|
66 |
$configCode = "<?php\n// pap_config.inc.php construit le ".strftime("%c")."\n// ne changez pas la version de Papyrus manuellement!\n\n";
|
105 |
$configCode = "<?php\n// pap_config.inc.php construit le ".strftime("%c")."\n// ne changez pas la version de Papyrus manuellement!\n\n";
|
67 |
$entries[] = 'define(\''.INSTAL_VERSION_NOUVELLE_NOM.'\',\''.INSTAL_VERSION_NOUVELLE.'\');'."\n";
|
106 |
$entries[] = 'define(\''.INSTAL_VERSION_NOUVELLE_NOM.'\',\''.INSTAL_VERSION_NOUVELLE.'\');'."\n";
|
68 |
foreach ($config as $k => $v) {
|
107 |
foreach ($bdd as $cle => $val) {
|
69 |
$entries[] = 'define(\''.$k.'\',\''.$v.'\');'."\n";
|
108 |
$entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
|
70 |
}
|
109 |
}
|
71 |
$entries[] = "define('PAP_DSN', 'mysql://'.PAP_BDD_UTILISATEUR.':'.PAP_BDD_MOT_DE_PASSE.'@'.PAP_BDD_SERVEUR.'/'.PAP_BDD_NOM);"."\n";
|
- |
|
72 |
$configCode .= implode("\n", $entries)."\n\n?>";
|
110 |
$entries[] = "define('PAP_DSN', 'mysql://'.PAP_BDD_UTILISATEUR.':'.PAP_BDD_MOT_DE_PASSE.'@'.PAP_BDD_SERVEUR.'/'.PAP_BDD_NOM);"."\n";
|
73 |
|
111 |
foreach ($fichier as $cle => $val) {
|
74 |
$sortie .= ' <h1>Installation de Papyrus</h1></h1>'."\n";
|
112 |
$entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
|
75 |
|
113 |
}
|
76 |
// Tentative d'écriture du fichier de config
|
114 |
foreach ($pref as $cle => $val) {
|
77 |
$sortie .= "<b>Création du fichier de configuration en cours...</b><br>\n";
|
115 |
// Nous récupérons uniquement les constantes à stocker dans le fichier de config (leur nom commence par PAP_)
|
78 |
$erreur = testerConfig($sortie, 'Écriture du fichier de configuration <tt>'.INSTAL_CHEMIN_CONFIG.'</tt>...',
|
116 |
if (preg_match('/^PAP_/', $cle)) {
|
79 |
$fp = @fopen(INSTAL_CHEMIN_CONFIG, 'w'), '', 0, 0);
|
117 |
$entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
|
80 |
if ($fp) {
|
118 |
}
|
- |
|
119 |
}
|
81 |
// Ecriture du fichier...
|
120 |
$configCode .= implode("\n", $entries)."\n\n?>";
|
82 |
fwrite($fp, $configCode);
|
121 |
|
- |
|
122 |
// Tentative d'écriture du fichier de config
|
83 |
fclose($fp);
|
123 |
$sortie_verif .= ' <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
|
84 |
$sortie .= '<p>Voila c\'est terminé ! Vous pouvez <a href="'.donnerUrlCourante().'">retourner sur votre site '.
|
124 |
$chemin_fpt_absolu = GEN_SEP.$fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
|
85 |
'Papyrus</a>. Il est conseillé de retirer l\'accès en écriture au fichier '.
|
- |
|
86 |
'<tt>pap_config.inc.php</tt>. Ceci peut être une faille dans la sécurité.</p>';
|
125 |
$url_ftp = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
|
- |
|
126 |
'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
|
87 |
} else {
|
127 |
$fp = @fopen($url_ftp, 'w');
|
88 |
// Problème...
|
128 |
$txt_ecriture_conf = 'Écriture sur le serveur de <tt>'.$chemin_fpt_absolu.'</tt>...';
|
89 |
$sortie .= '<p><span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.INSTAL_CHEMIN_CONFIG.
|
129 |
$txt_ecriture_conf_erreur = '<p><span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$chemin_fpt_absolu.
|
90 |
'</tt> n\'a pu être créé. Veuillez vous assurez que votre serveur a les droits '.
|
130 |
'</tt> n\'a pu être créé. Veuillez vous assurez que votre serveur a les droits '.
|
91 |
'd\'accès en écriture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
|
131 |
'd\'accès en écriture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
|
92 |
'faire ça vous devez copier les informations suivantes dans un fichier et les transférer '.
|
132 |
'faire ça vous devez copier les informations suivantes dans un fichier et les transférer '.
|
93 |
'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
|
133 |
'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
|
94 |
'<tt>pap_config.inc.php</tt> directement dans le répertoire <tt>configuration</tt> du répertoire'.
|
134 |
'<tt>pap_config.inc.php</tt> directement dans le répertoire <tt>configuration</tt> du répertoire '.
|
- |
|
135 |
'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
|
- |
|
136 |
'correctement.</p>';
|
- |
|
137 |
$txt_ecriture_conf_erreur .= '<div id="fichier_config">'."\n";
|
- |
|
138 |
$txt_ecriture_conf_erreur .= '<xmp>'.$configCode.'</xmp>'."\n";
|
- |
|
139 |
$txt_ecriture_conf_erreur .= '</div>'."\n";
|
- |
|
140 |
$erreur = testerConfig($sortie_verif, $txt_ecriture_conf, $fp, $txt_ecriture_conf_erreur, 1, $erreur);
|
- |
|
141 |
}
|
- |
|
142 |
|
- |
|
143 |
// Gestion de l'affichage
|
- |
|
144 |
if ($erreur == 0 && empty($sortie_verif)) {
|
95 |
'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
|
145 |
// Premier appel du fichier...
|
96 |
'correctement.</p>'."\n";
|
146 |
$sortie .= creerFormulaire($fichier);
|
97 |
$sortie .= ' <form action="'.donnerUrlCourante().'?installation=config" method="POST" />'."\n";
|
147 |
$sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
|
- |
|
148 |
$sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
|
98 |
$sortie .= ' <input type="hidden" name="config_serial" value="'.htmlentities(serialize($config)).'" />'."\n";
|
149 |
$sortie .= '<li><input type="submit" value="Tester" /></li>'."\n";
|
- |
|
150 |
$sortie .= ' </ul>'."\n";
|
- |
|
151 |
$sortie .= ' </form>';
|
- |
|
152 |
} else if ($erreur == 2 && !empty($sortie_verif)) {
|
- |
|
153 |
// Vérification du fichier avec interuption...
|
- |
|
154 |
$sortie .= creerFormulaire($fichier);
|
99 |
$sortie .= ' <input type="submit" value="Essayer à nouveau" />'."\n";
|
155 |
$sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
|
100 |
$sortie .= ' </form>'."\n";
|
156 |
$sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
|
- |
|
157 |
$sortie .= '<li><input type="submit" value="Tester à nouveau" /></li>'."\n";
|
- |
|
158 |
$sortie .= ' </ul>'."\n";
|
- |
|
159 |
$sortie .= ' </form>';
|
- |
|
160 |
$sortie .= $sortie_verif;
|
- |
|
161 |
} else if (($erreur == 0 || $erreur == 1) && !empty($sortie_verif)) {
|
101 |
$sortie .= '<div style="background-color: #EEEEEE; padding: 10px 10px;">'."\n";
|
162 |
// Vérification du fichier sans interuption... passage à l'étape suivante
|
- |
|
163 |
$sortie .= creerFormulaire($fichier, true);
|
- |
|
164 |
$sortie .= ' </ul>'."\n";
|
- |
|
165 |
$sortie .= ' </form>';
|
- |
|
166 |
$sortie .= $sortie_verif;
|
- |
|
167 |
// Ecriture du fichier...
|
- |
|
168 |
fwrite($fp, $configCode);
|
- |
|
169 |
fclose($fp);
|
- |
|
170 |
$sortie .= ' <p>Voila c\'est terminé ! Vous pouvez <a href="'.donnerUrlCourante().'">retourner sur votre site '.
|
- |
|
171 |
'Papyrus</a>. Il est conseillé de retirer l\'accès en écriture au fichier '.
|
- |
|
172 |
'<tt>pap_config.inc.php</tt>. Ceci peut être une faille dans la sécurité.</p>'."\n";
|
- |
|
173 |
}
|
- |
|
174 |
|
- |
|
175 |
// +------------------------------------------------------------------------------------------------------+
|
- |
|
176 |
// | LISTE DES FONCTIONS |
|
- |
|
177 |
// +------------------------------------------------------------------------------------------------------+
|
- |
|
178 |
|
- |
|
179 |
// Création du formulaire de configuration de la base de donneés
|
- |
|
180 |
function creerFormulaire($fichier, $bln_lecture = false) {
|
- |
|
181 |
$disabled = '';
|
- |
|
182 |
if ($bln_lecture) {
|
- |
|
183 |
$disabled = ' disabled="disabled" ';
|
- |
|
184 |
}
|
- |
|
185 |
$sortie_form .= ' <form action="'.donnerUrlCourante().'?installation=verif_fichier" method="post">';
|
- |
|
186 |
$sortie_form .= ' <ul>'."\n";
|
- |
|
187 |
$sortie_form .= '<li><h2>Configuration du FTP et des chemins d\'accès</h2></li>'."\n";
|
- |
|
188 |
$sortie_form .= '<li>'."\n".
|
- |
|
189 |
'<label for="ftp_serveur">Nom du serveur FTP :</label>'.
|
- |
|
190 |
'<input id="ftp_serveur"'.$disabled.'type="text" size="30" name="fichier[PAP_FTP_SERVEUR]" value="'.$fichier['PAP_FTP_SERVEUR'].'" />'.
|
- |
|
191 |
'</li>'."\n";
|
- |
|
192 |
$sortie_form .= '<li>'."\n".
|
- |
|
193 |
'<label for="ftp_port">N° du port d\'accès au serveur FTP :</label>'.
|
- |
|
194 |
'<input id="ftp_port"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_PORT]" value="'.$fichier['PAP_FTP_PORT'].'" />'.
|
- |
|
195 |
'</li>'."\n";
|
- |
|
196 |
$sortie_form .= '<li>'."\n".
|
- |
|
197 |
'<label for="ftp_utilisateur">Nom d\'utilisateur pour le serveur FTP :</label>'.
|
- |
|
198 |
'<input id="ftp_utilisateur"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_UTILISATEUR]" value="'.$fichier['PAP_FTP_UTILISATEUR'].'" />'.
|
- |
|
199 |
'</li>'."\n";
|
- |
|
200 |
$sortie_form .= '<li>'."\n".
|
- |
|
201 |
'<label for="ftp_mot_de_passe">Mot de passe de l\'utilisateur pour le serveur FTP :</label>'.
|
- |
|
202 |
'<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'].'" />'.
|
- |
|
203 |
'</li>'."\n";
|
- |
|
204 |
$sortie_form .= '<li>Lorsque vous vous connecter par FTP sur le serveur où vous avez déposé les fichiers de Papyrus, le '.
|
- |
|
205 |
'dossier le plus haut auquel vous pouvez accéder dans l\'arborescence est la racine. Il vous faut donc '.
|
- |
|
206 |
'indiquez dans le champ ci-dessous le chemin depuis cette racine jusqu\'au dossier contenant le fichier '.
|
- |
|
207 |
'<tt>papyrus.php</tt>. Exemple : <i>www/</i><br /> Notes : Le chemin doit commmencer directement par le nom'.
|
- |
|
208 |
' du premier dossier et se terminer par un slash (/) ou un anti-slash (\\) suivant le système d\''.
|
- |
|
209 |
'exploitation de votre serveur.</li>'."\n";
|
- |
|
210 |
$sortie_form .= '<li>'."\n".
|
- |
|
211 |
'<label for="ftp_racine">Racine dépôt FTP :</label>'.
|
- |
|
212 |
'<input id="ftp_racine"'.$disabled.'type="text" size="60" name="fichier[PAP_FTP_RACINE]" value="'.$fichier['PAP_FTP_RACINE'].'" />'.
|
102 |
$sortie .= '<xmp>'.$configCode.'</xmp>'."\n";
|
213 |
'</li>'."\n";
|
Line 103... |
Line 214... |
103 |
$sortie .= '</div>'."\n";
|
214 |
return $sortie_form;
|
104 |
}
|
215 |
}
|
105 |
|
216 |
|
Line 106... |
Line 217... |
106 |
// +------------------------------------------------------------------------------------------------------+
|
217 |
// +------------------------------------------------------------------------------------------------------+
|
107 |
// | PIED du PROGRAMME |
|
218 |
// | PIED du PROGRAMME |
|
108 |
// +------------------------------------------------------------------------------------------------------+
|
219 |
// +------------------------------------------------------------------------------------------------------+
|
- |
|
220 |
|
- |
|
221 |
|
- |
|
222 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
109 |
|
223 |
*
|
110 |
|
224 |
* $Log: not supported by cvs2svn $
|
111 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
225 |
* Revision 1.4 2004/10/19 17:01:12 jpm
|
112 |
*
|
226 |
* Correction bogues.
|
113 |
* $Log: not supported by cvs2svn $
|
227 |
*
|