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.9 2005-04-12 16:09:45 jpm Exp $
|
35 |
// CVS : $Id: instal_fichier.inc.php,v 1.10 2005-09-23 14:20:23 florian 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.9 $ $Date: 2005-04-12 16:09:45 $
|
49 |
*@version $Revision: 1.10 $ $Date: 2005-09-23 14:20:23 $
|
50 |
// +------------------------------------------------------------------------------------------------------+
|
50 |
// +------------------------------------------------------------------------------------------------------+
|
51 |
**/
|
51 |
**/
|
Line 52... |
Line 52... |
52 |
|
52 |
|
53 |
// +------------------------------------------------------------------------------------------------------+
|
53 |
// +------------------------------------------------------------------------------------------------------+
|
Line 87... |
Line 87... |
87 |
|
87 |
|
88 |
// +------------------------------------------------------------------------------------------------------+
|
88 |
// +------------------------------------------------------------------------------------------------------+
|
89 |
// | CORPS du PROGRAMME |
|
89 |
// | CORPS du PROGRAMME |
|
90 |
// +------------------------------------------------------------------------------------------------------+
|
90 |
// +------------------------------------------------------------------------------------------------------+
|
91 |
// Affichage d'informations...
|
91 |
// Affichage d'informations...
|
Line 92... |
Line 92... |
92 |
$sortie .= '<p class="etape_numero"><strong>Etape n°'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</strong></p>'."\n";
|
92 |
$sortie .= '<br /><h1>Etape n°'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\n";
|
93 |
|
93 |
|
94 |
// Correction éventuelle des informations saisies par l'utilisateur
|
94 |
// Correction éventuelle des informations saisies par l'utilisateur
|
95 |
if (ereg('^[\/\\]', $fichier['PAP_FTP_RACINE']) == false) {
|
95 |
if (ereg('^[\/\\]', $fichier['PAP_FTP_RACINE']) == false) {
|
Line 100... |
Line 100... |
100 |
// Nous vérifions si nous sommes en phase de test du formulaire de config de l'écriture de fichier
|
100 |
// Nous vérifions si nous sommes en phase de test du formulaire de config de l'écriture de fichier
|
101 |
$erreur = 0;
|
101 |
$erreur = 0;
|
102 |
$sortie_verif = '';
|
102 |
$sortie_verif = '';
|
103 |
if ($_GET['installation'] == 'verif_fichier') {
|
103 |
if ($_GET['installation'] == 'verif_fichier') {
|
104 |
// Test de la configuration du FTP
|
104 |
// Test de la configuration du FTP
|
105 |
$sortie_verif .= ' <h2>Test de la connexion FTP</h2>'."\n";
|
105 |
$sortie_verif .= ' <br /><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);
|
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'],
|
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);
|
108 |
$fichier['PAP_FTP_MOT_DE_PASSE']), 'Les paramêtres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
|
109 |
$sortie_verif .= '<br />'."\n";
|
109 |
$sortie_verif .= '<br />'."\n";
|
Line 126... |
Line 126... |
126 |
$entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
|
126 |
$entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
|
127 |
}
|
127 |
}
|
128 |
}
|
128 |
}
|
129 |
}
|
129 |
}
|
130 |
$configCode .= implode("\n", $entries)."\n\n?>";
|
130 |
$configCode .= implode("\n", $entries)."\n\n?>";
|
131 |
|
- |
|
- |
|
131 |
if ($erreur==0) {
|
132 |
// Tentative d'écriture du fichier de config
|
132 |
// Tentative d'écriture du fichier de config
|
133 |
$sortie_verif .= ' <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
|
133 |
$sortie_verif .= ' <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
|
134 |
$chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
|
134 |
$chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
|
135 |
$url_ftp = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
|
135 |
$url_ftp = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
|
136 |
'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
|
136 |
'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
|
137 |
|
137 |
|
138 |
// Dans le cas, où nous mettons à jour Papyrus, il faut supprimer l'ancien fichier de config
|
138 |
// Dans le cas, où nous mettons à jour Papyrus, il faut supprimer l'ancien fichier de config
|
139 |
if (INSTAL_VERSION_ANCIENNE != '') {
|
139 |
if (INSTAL_VERSION_ANCIENNE != '') {
|
140 |
$txt_suppression = 'Suppression de <tt>'.$chemin_fpt_absolu.'</tt>...';
|
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. '.
|
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>';
|
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);
|
143 |
$erreur = testerConfig($sortie_verif, $txt_suppression, unlink($url_ftp), $txt_suppression_erreur, 1, $erreur);
|
144 |
}
|
144 |
}
|
145 |
|
145 |
|
146 |
// Nous écrivons le fichier de config sur le disque
|
146 |
// Nous écrivons le fichier de config sur le disque
|
147 |
$fp = @fopen($url_ftp, 'w');
|
147 |
$fp = @fopen($url_ftp, 'w');
|
148 |
$txt_ecriture_conf = 'Écriture sur le serveur de <tt>'.$chemin_fpt_absolu.'</tt>...';
|
148 |
$txt_ecriture_conf = 'É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.
|
149 |
$txt_ecriture_conf_erreur = '<p><span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$chemin_fpt_absolu.
|
150 |
'</tt> n\'a pu être créé. Veuillez vous assurez que votre serveur a les droits '.
|
150 |
'</tt> n\'a pu être créé. Veuillez vous assurez que votre serveur a les droits '.
|
151 |
'd\'accès en écriture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
|
151 |
'd\'accès en écriture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
|
152 |
'faire ça vous devez copier les informations suivantes dans un fichier et les transférer '.
|
152 |
'faire ça vous devez copier les informations suivantes dans un fichier et les transférer '.
|
153 |
'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
|
153 |
'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
|
154 |
'<tt>pap_config.inc.php</tt> directement dans le répertoire <tt>configuration</tt> du répertoire '.
|
154 |
'<tt>pap_config.inc.php</tt> directement dans le répertoire <tt>configuration</tt> du répertoire '.
|
155 |
'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
|
155 |
'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
|
156 |
'correctement.</p>';
|
156 |
'correctement.</p>';
|
157 |
$txt_ecriture_conf_erreur .= '<div id="fichier_config">'."\n";
|
157 |
$txt_ecriture_conf_erreur .= '<div id="fichier_config">'."\n";
|
158 |
$txt_ecriture_conf_erreur .= '<xmp>'.$configCode.'</xmp>'."\n";
|
158 |
$txt_ecriture_conf_erreur .= '<xmp>'.$configCode.'</xmp>'."\n";
|
159 |
$txt_ecriture_conf_erreur .= '</div>'."\n";
|
159 |
$txt_ecriture_conf_erreur .= '</div>'."\n";
|
160 |
$erreur = testerConfig($sortie_verif, $txt_ecriture_conf, $fp, $txt_ecriture_conf_erreur, 1, $erreur);
|
160 |
$erreur = testerConfig($sortie_verif, $txt_ecriture_conf, $fp, $txt_ecriture_conf_erreur, 1, $erreur);
|
- |
|
161 |
}
|
161 |
}
|
162 |
}
|
Line 162... |
Line 163... |
162 |
|
163 |
|
163 |
// Gestion de l'affichage
|
164 |
// Gestion de l'affichage
|
164 |
if ($erreur == 0 && empty($sortie_verif)) {
|
165 |
if ($erreur == 0 && empty($sortie_verif)) {
|
Line 202... |
Line 203... |
202 |
if ($bln_lecture) {
|
203 |
if ($bln_lecture) {
|
203 |
$disabled = ' disabled="disabled" ';
|
204 |
$disabled = ' disabled="disabled" ';
|
204 |
}
|
205 |
}
|
205 |
$sortie_form .= ' <form action="'.donnerUrlCourante().'?installation=verif_fichier" method="post">';
|
206 |
$sortie_form .= ' <form action="'.donnerUrlCourante().'?installation=verif_fichier" method="post">';
|
206 |
$sortie_form .= ' <ul>'."\n";
|
207 |
$sortie_form .= ' <ul>'."\n";
|
207 |
$sortie_form .= '<li><h2>Configuration du FTP et des chemins d\'accès</h2></li>'."\n";
|
208 |
$sortie_form .= '<li><br /><h2>Configuration du FTP et des chemins d\'accès</h2></li>'."\n";
|
208 |
$sortie_form .= '<li>Le nom de la machine à laquelle vous vous connectez pour accéder à votre dépôt FTP. En '.
|
209 |
$sortie_form .= '<li>Entrer le nom de dommaine pour accéder à votre dépôt FTP</li>'."\n";
|
209 |
'général c\'est le nom de domaine du site où vous voulez installer Papyrus.</li>'."\n";
|
- |
|
210 |
$sortie_form .= '<li>'."\n".
|
210 |
$sortie_form .= '<li>'."\n".
|
211 |
'<label for="ftp_serveur">Nom du serveur FTP :</label>'.
|
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'].'" />'.
|
212 |
'<input id="ftp_serveur"'.$disabled.'type="text" size="30" name="fichier[PAP_FTP_SERVEUR]" value="'.$fichier['PAP_FTP_SERVEUR'].'" />'.
|
213 |
'</li>'."\n";
|
213 |
'</li>'."\n";
|
214 |
$sortie_form .= '<li>Le numéro du port pour le service FTP sur la machine hébergeant Papyrus. '.
|
214 |
$sortie_form .= '<li>Le numéro du port pour le service FTP sur la machine hébergeant Papyrus. '.
|
Line 221... |
Line 221... |
221 |
$sortie_form .= '<li>'."\n".
|
221 |
$sortie_form .= '<li>'."\n".
|
222 |
'<label for="ftp_utilisateur">Nom d\'utilisateur pour le serveur FTP :</label>'.
|
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'].'" />'.
|
223 |
'<input id="ftp_utilisateur"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_UTILISATEUR]" value="'.$fichier['PAP_FTP_UTILISATEUR'].'" />'.
|
224 |
'</li>'."\n";
|
224 |
'</li>'."\n";
|
225 |
$sortie_form .= '<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>'.
|
226 |
'<label for="ftp_mot_de_passe">Mot de passe 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'].'" />'.
|
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";
|
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 '.
|
229 |
$sortie_form .= '<li>Lorsque vous vous connectez 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 '.
|
230 |
'dossier le plus haut auquel vous pouvez accéder dans l\'arborescence est la racine. Il vous faut donc '.
|
231 |
'indiquez dans le champ ci-dessous le chemin absolu depuis cette racine jusqu\'au dossier contenant le fichier '.
|
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";
|
232 |
'<tt>papyrus.php</tt>. Exemple : <i>/www/</i></li>'."\n";
|
233 |
$sortie_form .= '<li>'."\n".
|
233 |
$sortie_form .= '<li>'."\n".
|
234 |
'<label for="ftp_racine">Racine dépôt FTP :</label>'.
|
234 |
'<label for="ftp_racine">Racine dépôt FTP :</label>'.
|
Line 243... |
Line 243... |
243 |
|
243 |
|
244 |
|
244 |
|
245 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
245 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
- |
|
246 |
*
|
- |
|
247 |
* $Log: not supported by cvs2svn $
|
- |
|
248 |
* Revision 1.9 2005/04/12 16:09:45 jpm
|
246 |
*
|
249 |
* Amélioration de la gestion de la constante de redirection des urls et de la gestion des constantes de type entier et booléen.
|
247 |
* $Log: not supported by cvs2svn $
|
250 |
*
|
248 |
* Revision 1.8 2004/10/25 16:26:35 jpm
|
251 |
* Revision 1.8 2004/10/25 16:26:35 jpm
|
249 |
* Début gestion des mises à jours.
|
252 |
* Début gestion des mises à jours.
|
250 |
*
|
253 |
*
|