Subversion Repositories Applications.papyrus

Rev

Rev 1492 | 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 
// +------------------------------------------------------------------------------------------------------+
1564 jp_milcent 35 
// CVS : $Id: instal_fichier.inc.php,v 1.36 2007-08-28 14:37:11 jp_milcent Exp $
68 jpm 36 
/**
1347 alexandre_ 37 
* Page de creation des fichiers necessaire a l'installation de Papyrus.
68 jpm 38 
*
1347 alexandre_ 39 
* Page permettant de creer le fichier de configuration de Papyrus.
68 jpm 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
1564 jp_milcent 49 
*@version       $Revision: 1.36 $ $Date: 2007-08-28 14:37:11 $
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 
 
1492 jp_milcent 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...
1492 jp_milcent 92 
$sortie .= '<br /><h1>Étape n&deg;'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\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
458 florian 105 
    $sortie_verif .= '    <br /><h2>Test de la connexion FTP</h2>'."\n";
91 jpm 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'],
1347 alexandre_ 108 
                            $fichier['PAP_FTP_MOT_DE_PASSE']), 'Les param&ecirc;tres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
91 jpm 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) {
1347 alexandre_ 121 
        // Nous recuperons uniquement les constantes a stocker dans le fichier de config (leur nom commence par PAP_)
91 jpm 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?>";
1492 jp_milcent 131 
    if ($erreur == 0) {
132 
		// +-----------------------------------------------------------------------------------------------------------+
133 
		// Tentative d'écriture du fichier de config
458 florian 134 
	    $sortie_verif .= '    <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
135 
	    $chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
136 
	    $url_ftp =  'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
137 
			'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
138 
 
1492 jp_milcent 139 
	    // Dans le cas, ou nous mettons à jour Papyrus, il faut supprimer l'ancien fichier de config
458 florian 140 
	    if (INSTAL_VERSION_ANCIENNE != '') {
1492 jp_milcent 141 
			$txt_suppression = 'Suppression de <tt>'.$chemin_fpt_absolu.'</tt>...';
142 
			$txt_suppression_erreur =   '<p>Le fichier <tt>'.$chemin_fpt_absolu.'</tt> ne peut &ecirc;tre supprimer automatiquement. '.
143 
									    'Veuillez utiliser un logiciel de transfert de fichier par FTP pour le supprimer.</p>';
144 
			$erreur = testerConfig($sortie_verif, $txt_suppression, unlink($url_ftp), $txt_suppression_erreur, 1, $erreur);
458 florian 145 
	    }
146 
 
1492 jp_milcent 147 
	    $tempfn = tempnam('','');
148 
		$temp = fopen($tempfn, 'w');
1340 neiluj 149 
 
150 
		fwrite($temp, $configCode);
151 
		fclose($temp);
152 
		$fichier_config_source = $tempfn;
1492 jp_milcent 153 
    	$fichier_config_cible = $fichier['PAP_FTP_RACINE'].'papyrus/configuration/pap_config.inc.php';
154 
 
155 
	    // Nous écrivons le fichier de config sur le disque
1354 alexandre_ 156 
	    $txt_ecriture_conf = '&Eacute;criture sur le serveur de <tt>'.$fichier_config_cible.'</tt>...';
157 
	    $txt_ecriture_conf_erreur = '<span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$fichier_config_cible.
458 florian 158 
			'</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
159 
			'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
160 
			'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;rer '.
161 
			'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
162 
			'<tt>pap_config.inc.php</tt> directement dans le r&eacute;pertoire <tt>configuration</tt> du répertoire '.
163 
			'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
1069 alexandre_ 164 
			'correctement.';
1336 neiluj 165 
	    $txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($configCode).'</pre></code></div>'."\n";
1354 alexandre_ 166 
	    $erreur = testerConfig($sortie_verif, $txt_ecriture_conf,
1492 jp_milcent 167 
	    						ftp_put($ftp, $fichier_config_cible, $fichier_config_source, FTP_ASCII),
168 
	    								$txt_ecriture_conf_erreur, 1, $erreur);
169 
 
170 
		// +-----------------------------------------------------------------------------------------------------------+
171 
	    // Tentative d'écriture du fichier .htaccess
172 
	    $fichier_htaccess_chemin = $fichier['PAP_FTP_RACINE'].'.htaccess';
1019 alexandre_ 173 
	    $url_ftp_htaccess = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
174 
			'@'.$fichier['PAP_FTP_SERVEUR'].$fichier['PAP_FTP_RACINE'].'/.htaccess';
1492 jp_milcent 175 
		if (isset($pref['PAP_HTACCESS_REGENERATION']) && $pref['PAP_HTACCESS_REGENERATION'] == 1) {
176 
			$txt_suppression_htaccess = 'Suppression de <tt>'.$fichier_htaccess_chemin.'</tt>...';
177 
			$txt_suppression_htaccess_erreur =	'<p>Le fichier <tt>'.$fichier_htaccess_chemin.'</tt> ne peut &ecirc;tre supprimer automatiquement. '.
178 
												'Veuillez utiliser un logiciel de transfert de fichier par FTP pour le supprimer.</p>';
179 
			$erreur = testerConfig($sortie_verif, $txt_suppression_htaccess, unlink($url_ftp_htaccess), $txt_suppression_htaccess_erreur, 1, $erreur);
180 
		}
1354 alexandre_ 181 
		$url_parse = parse_url('http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']);
182 
		$prefixe = dirname($url_parse['path']);
1492 jp_milcent 183 
		// Gestion des urls du style : http://www.tela-botanica.org/~mon_home/
184 
		$prefixe_tilde = '';
185 
		if (preg_match('/^\/~/', $prefixe)) {
186 
			$prefixe_tilde = $prefixe.'/';
187 
		}
188 
 
1354 alexandre_ 189 
		$url = 'http://'.$_SERVER['HTTP_HOST'].$prefixe;
1492 jp_milcent 190 
		if (isset($pref['PAP_URL_REECRITURE']) && $pref['PAP_URL_REECRITURE'] == 1) {
1354 alexandre_ 191 
			$on_off = 'on';
192 
		} else {
193 
			$on_off = 'off';
194 
		}
195 
		$contenu_htaccess = '# Raccourci pour les menus et sites de Papyrus'."\n".
196 
							'RewriteEngine '.$on_off."\n".
197 
							'# si le fichier ou le dossier existe dans le système de fichier on l\'utilise directement'."\n".
198 
							'RewriteCond %{REQUEST_FILENAME} !-d'."\n".
199 
							'RewriteCond %{REQUEST_FILENAME} !-f'."\n\n".
1564 jp_milcent 200 
							'# Réecriture d\'url pour valider les inscriptions'."\n".
201 
							'RewriteRule ^ins_([0-9a-z]*)$ page:inscription?id=$1 [QSA,L]'."\n".
1492 jp_milcent 202 
							'# Réecriture d\'url pour les applications de Papyrus n\'utilisant pas correctement Pap_URL'."\n".
1354 alexandre_ 203 
							'# ATTENTION : ne marche pas pour les formulaires en mode POST !'."\n".
204 
							'RewriteRule ^([^\/]+)&(.*)$ '.$url.'/$1?$2 [QSA,L,R=301]'."\n".
1492 jp_milcent 205 
							'# Réecriture d\'url pour les vieux permaliens'."\n".
1354 alexandre_ 206 
							'RewriteCond %{REQUEST_FILENAME}/ !-d'."\n".
207 
							'RewriteRule ^([^\/\?:.]+)$ '.$url.'/page:$1 [QSA,L,R=301]'."\n".
208 
							'# Redirection d\'url pour le sélecteur de site'."\n".
1492 jp_milcent 209 
							'# Le point d\'interrogation sans rien aprés, vide la QUERY_STRING sinon elle est concacténée à l\'url et cela plante...'."_n".
1354 alexandre_ 210 
							'# Le "/" initial dans la RewriteCond est obligatoire!'."\n".
1492 jp_milcent 211 
							'RewriteCond %{REQUEST_URI}?%{QUERY_STRING} ^'.$prefixe.'/papyrus\.php\?site=([^&]+)$'."\n".
1354 alexandre_ 212 
							'RewriteRule ^papyrus.php$ '.$url.'/site:%1? [L,R=301]'."\n\n".
1492 jp_milcent 213 
							'# Réecriture d\'url pour les sites de Papyrus : à modifier si les valeurs par défaut ont été changées'."\n".
214 
							'RewriteRule ^site:.+$ '.$prefixe_tilde.'papyrus.php [QSA,L]'."\n".
215 
							'# Réecriture d\'url pour les menus de Papyrus : à modifier si les valeurs par défaut ont été changées'."\n".
216 
							'RewriteRule ^page:.+$ '.$prefixe_tilde.'papyrus.php [QSA,L]'."\n\n".
1354 alexandre_ 217 
							'# Gestion des erreurs 404'."\n".
218 
							'ErrorDocument 404 '.$prefixe.'/erreur_http.php?erreur=404';
1492 jp_milcent 219 
 
220 
		if (file_exists($fichier_htaccess_chemin)) {
1349 alexandre_ 221 
			$sortie_verif .='<p>Attention: Un fichier .htaccess est d&eacute;j&agrave; pr&eacute;sent sur le serveur.'.
1492 jp_milcent 222 
							'<br />'.$fichier_htaccess_chemin.
1349 alexandre_ 223 
							'<br />Veillez &agrave; le configurer correctement<br /><br />'.
224 
							'Contenu par d&eacute;faut: <br /><br /> ErrorDocument 404 /erreur_404.php';
1079 alexandre_ 225 
		} else {
1492 jp_milcent 226 
			$tempfn = tempnam('', '');
227 
			$temp = fopen($tempfn, 'w');
1071 alexandre_ 228 
			fwrite($temp, $contenu_htaccess);
1354 alexandre_ 229 
			fclose($temp);
1071 alexandre_ 230 
			$fichier_config_source = $tempfn;
1492 jp_milcent 231 
    		$fichier_config_cible = $fichier_htaccess_chemin;
1071 alexandre_ 232 
    		$txt_ecriture_conf_erreur = 'AVERTISSEMENT: Le fichier .htaccess <tt>'.$fichier_config_cible.
233 
			'</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
234 
			'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
235 
			'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;rer '.
236 
			'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
237 
			'<tt>.htaccess</tt> directement &agrave la racine de '.
238 
			'<tt>papyrus</tt> de Papyrus.';
1069 alexandre_ 239 
			$txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($contenu_htaccess).'</pre></code></div>'."\n";
1072 alexandre_ 240 
			$txt_ecriture_conf = '&Eacute;criture sur le serveur du fichier .htaccess... <tt>'.$fichier_config_cible.'</tt>'."\n";
1358 ddelon 241 
			$erreur = testerConfig($sortie_verif, $txt_ecriture_conf, ftp_put($ftp, $fichier_config_cible,$fichier_config_source, FTP_ASCII), $txt_ecriture_conf_erreur, 1, 0);
242 
 
1023 ddelon 243 
		}
1360 ddelon 244 
//	   maj_fichier_config_appli($ftp,$fichier,'api/fckeditor/editor/filemanager/browser/default/connectors/php/config.php',array("Caldeira"=>"DDDDD"));
458 florian 245 
	}
68 jpm 246 
}
247 
 
1020 ddelon 248 
 
249 
// Mise à jour des fichiers de configuration de chaque application :
1492 jp_milcent 250 
function maj_fichier_config_appli($ftp, $fichier, $fichierconfig, $elements) {
251 
	$tempfn = tempnam('', '');
252 
	ftp_get($ftp,$tempfn,$fichier['PAP_FTP_RACINE'].$fichierconfig,FTP_ASCII);
253 
	$fp = fopen($tempfn, 'r');
254 
	if ($fp) {
255 
		while (!feof($fp)) {
256 
			$cont .= fread($fp, 500);
257 
		}
258 
		fclose($fp);
1358 ddelon 259 
		$fp = fopen($tempfn, 'w');
1492 jp_milcent 260 
		if ($fp) {
261 
			foreach ($elements as $element) {
1358 ddelon 262 
				list($expr,$rempl)=$elements;
263 
				preg_replace('/'.$expr.'/',$rempl,$cont);
264 
			}
265 
			fwrite($fp, $cont);
266 
		    fclose($fp);
1492 jp_milcent 267 
		    ftp_put($ftp, $fichier['PAP_FTP_RACINE'].$fichierconfig, $tempfn, FTP_ASCII);
268 
		}
269 
	}
1020 ddelon 270 
}
271 
 
91 jpm 272 
// Gestion de l'affichage
273 
if ($erreur == 0 && empty($sortie_verif)) {
274 
    // Premier appel du fichier...
275 
    $sortie .= creerFormulaire($fichier);
276 
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
277 
    $sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
278 
    $sortie .= '<li><input type="submit" value="Tester" /></li>'."\n";
279 
    $sortie .= '      </ul>'."\n";
280 
    $sortie .= '    </form>';
281 
} else if ($erreur == 2 && !empty($sortie_verif)) {
1347 alexandre_ 282 
    // Verification du fichier avec interuption...
91 jpm 283 
    $sortie .= creerFormulaire($fichier);
284 
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
285 
    $sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
1348 alexandre_ 286 
    $sortie .= '<li><input type="submit" value="Tester &agrave; nouveau" /></li>'."\n";
91 jpm 287 
    $sortie .= '      </ul>'."\n";
288 
    $sortie .= '    </form>';
289 
    $sortie .= $sortie_verif;
290 
} else if (($erreur == 0 || $erreur == 1) && !empty($sortie_verif)) {
1347 alexandre_ 291 
    // Verification du fichier sans interuption... passage a l'etape suivante
91 jpm 292 
    $sortie .= creerFormulaire($fichier, true);
293 
    $sortie .= '      </ul>'."\n";
294 
    $sortie .= '    </form>';
295 
    $sortie .= $sortie_verif;
296 
    // Ecriture du fichier...
297 
    fwrite($fp, $configCode);
298 
    fclose($fp);
1021 florian 299 
    $sortie .= '    <br /><p class="etape_info">Voila c\'est termin&eacute; ! Vous pouvez <a href="'.donnerUrlCourante().'">retourner sur votre site '.
91 jpm 300 
                'Papyrus</a>. Il est conseill&eacute; de retirer l\'acc&egrave;s en &eacute;criture au fichier '.
301 
                '<tt>pap_config.inc.php</tt>. Ceci peut &ecirc;tre une faille dans la s&eacute;curit&eacute;.</p>'."\n";
302 
}
303 
 
68 jpm 304 
// +------------------------------------------------------------------------------------------------------+
91 jpm 305 
// |                                            LISTE DES FONCTIONS                                       |
306 
// +------------------------------------------------------------------------------------------------------+
307 
 
1347 alexandre_ 308 
// Creation du formulaire de configuration de la base de donnees
91 jpm 309 
function creerFormulaire($fichier, $bln_lecture = false) {
310 
    $disabled = '';
311 
    if ($bln_lecture) {
312 
        $disabled = ' disabled="disabled" ';
313 
    }
314 
    $sortie_form .= '    <form action="'.donnerUrlCourante().'?installation=verif_fichier" method="post">';
315 
    $sortie_form .= '      <ul>'."\n";
1348 alexandre_ 316 
    $sortie_form .=  '<li><br /><h2>Configuration du FTP et des chemins d\'acc&egrave;s</h2></li>'."\n";
317 
    $sortie_form .= '<li>Entrer le nom de dommaine pour acc&eacute;der &agrave; votre d&eacute;p&ocirc;t FTP</li>'."\n";
91 jpm 318 
    $sortie_form .=  '<li>'."\n".
319 
                '<label for="ftp_serveur">Nom du serveur FTP :</label>'.
320 
                '<input id="ftp_serveur"'.$disabled.'type="text" size="30" name="fichier[PAP_FTP_SERVEUR]" value="'.$fichier['PAP_FTP_SERVEUR'].'" />'.
321 
                '</li>'."\n";
1348 alexandre_ 322 
    $sortie_form .= '<li>Le num&eacute;ro du port pour le service FTP sur la machine h&eacute;bergeant Papyrus. '.
100 jpm 323 
                    'En g&eacute;n&eacute;ral c\'est 21.</li>'."\n";
91 jpm 324 
    $sortie_form .=  '<li>'."\n".
1348 alexandre_ 325 
                '<label for="ftp_port">N&deg; du port d\'acc&egrave;s au serveur FTP :</label>'.
91 jpm 326 
                '<input id="ftp_port"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_PORT]" value="'.$fichier['PAP_FTP_PORT'].'" />'.
327 
                '</li>'."\n";
1369 alexandre_ 328 
    $sortie_form .=  '<li>Nom et mot de passe FTP qui sera utilis&eacute; pour se connecter &agrave; au d&eacute;p&ocirc;t FTP.</li>'."\n";
91 jpm 329 
    $sortie_form .=  '<li>'."\n".
330 
                '<label for="ftp_utilisateur">Nom d\'utilisateur pour le serveur FTP :</label>'.
331 
                '<input id="ftp_utilisateur"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_UTILISATEUR]" value="'.$fichier['PAP_FTP_UTILISATEUR'].'" />'.
332 
                '</li>'."\n";
333 
    $sortie_form .=  '<li>'."\n".
458 florian 334 
                '<label for="ftp_mot_de_passe">Mot de passe pour le serveur FTP :</label>'.
91 jpm 335 
                '<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'].'" />'.
336 
                '</li>'."\n";
1348 alexandre_ 337 
    $sortie_form .=  '<li>Lorsque vous vous connectez par FTP sur le serveur o&ugrave; vous avez d&eacute;pos&eacute; les fichiers de Papyrus, le '.
338 
                'dossier le plus haut auquel vous pouvez acc&eacute;der dans l\'arborescence est la racine. Il vous faut donc '.
100 jpm 339 
                'indiquez dans le champ ci-dessous le chemin absolu depuis cette racine jusqu\'au dossier contenant le fichier '.
340 
                '<tt>papyrus.php</tt>. Exemple : <i>/www/</i></li>'."\n";
91 jpm 341 
    $sortie_form .=  '<li>'."\n".
1348 alexandre_ 342 
                '<label for="ftp_racine">Racine d&eacute;p&ocirc;t FTP :</label>'.
91 jpm 343 
                '<input id="ftp_racine"'.$disabled.'type="text" size="60" name="fichier[PAP_FTP_RACINE]" value="'.$fichier['PAP_FTP_RACINE'].'" />'.
344 
                '</li>'."\n";
1492 jp_milcent 345 
    $sortie_form .= '<li>Si vous voulez générer un nouveau fichier .htaccess, cochez cette case (si vous ne savez pas ce qu\'est un fichier .htaccess '.
346 
                    'n\'activez pas cette option).</li>'."\n";
347 
	$sortie_form .=  '<li>'."\n".
348 
                '<label for="htaccess_regeneration">Remplacer mon fichier .htacces :</label>'.
349 
                '<input id="htaccess_regeneration"'.$disabled.'type="checkbox" name="pref[PAP_HTACCESS_REGENERATION]" value="1" />'.
350 
                'Activation'.'</li>'."\n";
91 jpm 351 
    return $sortie_form;
352 
}
353 
 
354 
// +------------------------------------------------------------------------------------------------------+
68 jpm 355 
// |                                            PIED du PROGRAMME                                         |
356 
// +------------------------------------------------------------------------------------------------------+
357 
 
358 
 
359 
/* +--Fin du code ----------------------------------------------------------------------------------------+
360 
*
361 
* $Log: not supported by cvs2svn $
1564 jp_milcent 362 
* Revision 1.35  2007-06-26 12:08:18  jp_milcent
363 
* Correction de l'encodage et de la création du htaccess.
364 
*
1492 jp_milcent 365 
* Revision 1.34  2007-04-20 14:55:24  alexandre_tb
366 
* charset
367 
*
1369 alexandre_ 368 
* Revision 1.33  2007/04/20 12:55:07  ddelon
369 
* config fckeditor
370 
*
1360 ddelon 371 
* Revision 1.32  2007/04/20 12:49:41  ddelon
372 
* config fckeditor
373 
*
1358 ddelon 374 
* Revision 1.31  2007/04/20 10:15:15  alexandre_tb
375 
* correction typo
376 
*
1354 alexandre_ 377 
* Revision 1.30  2007/04/20 09:18:09  alexandre_tb
378 
* correction pb encodage
379 
*
1349 alexandre_ 380 
* Revision 1.29  2007/04/20 09:13:37  alexandre_tb
381 
* correction pb encodage
382 
*
1348 alexandre_ 383 
* Revision 1.28  2007/04/20 09:05:46  alexandre_tb
384 
* correction pb encodage
385 
*
1347 alexandre_ 386 
* Revision 1.27  2007/04/19 16:53:57  neiluj
387 
* fix de l'upload des fichiers de conf (ftp_put)
388 
*
1340 neiluj 389 
* Revision 1.26  2007/04/19 15:34:35  neiluj
390 
* préparration release (livraison) "Narmer" - v0.25
391 
*
1336 neiluj 392 
* Revision 1.25  2006/12/01 15:43:01  alexandre_tb
393 
* prise en compte dans le rewriteengine de l'activation ou non de la reecriture
394 
*
1084 alexandre_ 395 
* Revision 1.24  2006/12/01 11:47:10  alexandre_tb
396 
* suppression de var_dump
397 
*
1080 alexandre_ 398 
* Revision 1.23  2006/12/01 11:46:11  alexandre_tb
399 
* correction creation .htaccess
400 
*
1079 alexandre_ 401 
* Revision 1.22  2006/11/30 17:41:30  alexandre_tb
402 
* ecriture htaccess
403 
*
1072 alexandre_ 404 
* Revision 1.21  2006/11/30 17:36:29  alexandre_tb
405 
* ecriture htaccess
406 
*
1071 alexandre_ 407 
* Revision 1.20  2006/11/30 16:41:42  alexandre_tb
408 
* ecriture htaccess
409 
*
1069 alexandre_ 410 
* Revision 1.19  2006/11/30 15:50:25  ddelon
411 
* installation fichier
412 
*
1068 ddelon 413 
* Revision 1.18  2006/11/30 15:34:51  alexandre_tb
414 
* ecriture htaccess
415 
*
1067 alexandre_ 416 
* Revision 1.17  2006/11/30 15:27:31  alexandre_tb
417 
* ecriture htaccess
418 
*
1066 alexandre_ 419 
* Revision 1.16  2006/11/30 14:52:42  alexandre_tb
420 
* Ecriture du fichier htaccess lors de l installation
421 
*
1065 alexandre_ 422 
* Revision 1.15  2006/10/09 14:35:27  ddelon
423 
* bug caractere invalie trainant dans fichier
424 
*
1023 ddelon 425 
* Revision 1.14  2006/10/06 15:34:30  florian
426 
* mise en commentaire .htaccess
427 
*
1022 florian 428 
* Revision 1.13  2006/10/06 15:23:00  florian
429 
* amelioration graphique de l'installateur
430 
*
1021 florian 431 
* Revision 1.12  2006/10/06 14:49:45  ddelon
432 
* ecriture htaccess a l'installation
433 
*
1020 ddelon 434 
* Revision 1.11  2006/10/06 14:46:15  alexandre_tb
435 
* ecriture du fichier .htaccess
436 
*
1019 alexandre_ 437 
* Revision 1.10  2005/09/23 14:20:23  florian
1492 jp_milcent 438 
* Nouvel habillage installateur, plus correction de quelques bugs
1019 alexandre_ 439 
*
458 florian 440 
* Revision 1.9  2005/04/12 16:09:45  jpm
441 
* Amélioration de la gestion de la constante de redirection des urls et de la gestion des constantes de type entier et booléen.
442 
*
328 jpm 443 
* Revision 1.8  2004/10/25 16:26:35  jpm
444 
* Début gestion des mises à jours.
445 
*
108 jpm 446 
* Revision 1.7  2004/10/25 10:22:48  jpm
447 
* Correction de quelques bogues, ajouts d'explications pour l'utilisateur et modification des styles CSS.
448 
*
100 jpm 449 
* Revision 1.6  2004/10/22 17:39:14  jpm
450 
* Correction gestion du slash devant le chemin racine ftp.
451 
*
97 jpm 452 
* Revision 1.5  2004/10/22 17:23:04  jpm
453 
* Simplification del'installation de Papyrus.
454 
*
91 jpm 455 
* Revision 1.4  2004/10/19 17:01:12  jpm
456 
* Correction bogues.
457 
*
80 jpm 458 
* Revision 1.3  2004/10/19 15:59:18  jpm
459 
* Ajout de la gestion des valeurs propre à Papyrus à insérer dans la base de données.
460 
* Ajout des constantes FTP.
461 
*
76 jpm 462 
* Revision 1.2  2004/10/18 09:12:09  jpm
463 
* Changement de nom d'un fichier.
464 
*
69 jpm 465 
* Revision 1.1  2004/10/18 09:11:05  jpm
466 
* Changement de nom du fichier.
467 
*
68 jpm 468 
* Revision 1.1  2004/10/15 18:28:59  jpm
469 
* Début appli installateur de Papyrus.
470 
*
471 
*
472 
* +-- Fin du code ----------------------------------------------------------------------------------------+
473 
*/
474 
?>