Subversion Repositories Applications.papyrus

Rev

Rev 80 | Rev 97 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 80 Rev 91
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&eacute;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, '&Eacute;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&eacute; ! 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&eacute; de retirer l\'acc&egrave;s en &eacute;criture au fichier '.
-
 
86
                '<tt>pap_config.inc.php</tt>. Ceci peut &ecirc;tre une faille dans la s&eacute;curit&eacute;.</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 = '&Eacute;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 &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
130
                '</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
91
                'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
131
                'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
92
                'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;rer '.
132
                'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;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&eacute;pertoire <tt>configuration</tt> du répertoire'.
134
                '<tt>pap_config.inc.php</tt> directement dans le r&eacute;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 &agrave; 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&eacute; ! Vous pouvez <a href="'.donnerUrlCourante().'">retourner sur votre site '.
-
 
171
                'Papyrus</a>. Il est conseill&eacute; de retirer l\'acc&egrave;s en &eacute;criture au fichier '.
-
 
172
                '<tt>pap_config.inc.php</tt>. Ceci peut &ecirc;tre une faille dans la s&eacute;curit&eacute;.</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
*