Subversion Repositories Applications.papyrus

Rev

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

Rev 1369 Rev 1492
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.34 2007-04-20 14:55:24 alexandre_tb Exp $
35
// CVS : $Id: instal_fichier.inc.php,v 1.35 2007-06-26 12:08:18 jp_milcent Exp $
36
/**
36
/**
37
* Page de creation des fichiers necessaire a l'installation de Papyrus.
37
* Page de creation des fichiers necessaire a l'installation de Papyrus.
38
*
38
*
39
* Page permettant de creer le fichier de configuration de Papyrus.
39
* Page permettant de creer 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.34 $ $Date: 2007-04-20 14:55:24 $
49
*@version       $Revision: 1.35 $ $Date: 2007-06-26 12:08:18 $
50
// +------------------------------------------------------------------------------------------------------+
50
// +------------------------------------------------------------------------------------------------------+
51
**/
51
**/
Line 52... Line 52...
52
 
52
 
53
// +------------------------------------------------------------------------------------------------------+
53
// +------------------------------------------------------------------------------------------------------+
Line 73... Line 73...
73
            $fichier[$cle] = '';
73
            $fichier[$cle] = '';
74
        }
74
        }
75
    }
75
    }
76
}
76
}
Line 77... Line 77...
77
 
77
 
78
// Récupération des paramètres de configuration du formulaire précédent
78
// Récupération des paramêtres de configuration du formulaire précédent
79
if (isset($_POST['pref_serial'])) {
79
if (isset($_POST['pref_serial'])) {
80
    $pref = unserialize(stripslashes($_POST['pref_serial']));
80
    $pref = unserialize(stripslashes($_POST['pref_serial']));
81
}
81
}
82
if (isset($_POST['bdd'])) {
82
if (isset($_POST['bdd'])) {
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 .= '<br /><h1>Etape n&deg;'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\n";
92
$sortie .= '<br /><h1>Étape n&deg;'.$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 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
    if ($erreur==0) {
131
    if ($erreur == 0) {
-
 
132
		// +-----------------------------------------------------------------------------------------------------------+
132
	    // Tentative d'ecriture du fichier de config
133
		// Tentative d'écriture du fichier de config
133
	    $sortie_verif .= '    <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
134
	    $sortie_verif .= '    <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
134
	    $chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
135
	    $chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
135
	    $url_ftp =  'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
136
	    $url_ftp =  'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
136
			'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
137
			'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
Line 137... Line 138...
137
	    
138
	    
138
	    // Dans le cas, ou nous mettons a jour Papyrus, il faut supprimer l'ancien fichier de config
139
	    // Dans le cas, ou nous mettons à jour Papyrus, il faut supprimer l'ancien fichier de config
139
	    if (INSTAL_VERSION_ANCIENNE != '') {
140
	    if (INSTAL_VERSION_ANCIENNE != '') {
140
		$txt_suppression = 'Suppression de <tt>'.$chemin_fpt_absolu.'</tt>...';
141
			$txt_suppression = 'Suppression de <tt>'.$chemin_fpt_absolu.'</tt>...';
141
		$txt_suppression_erreur =   '<p>Le fichier <tt>'.$chemin_fpt_absolu.'</tt> ne peut &ecirc;tre supprimer automatiquement. '.
142
			$txt_suppression_erreur =   '<p>Le fichier <tt>'.$chemin_fpt_absolu.'</tt> ne peut &ecirc;tre supprimer automatiquement. '.
142
					    'Veuillez utiliser un logiciel de transfert de fichier par FTP pour le supprimer.</p>';
143
									    '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
			$erreur = testerConfig($sortie_verif, $txt_suppression, unlink($url_ftp), $txt_suppression_erreur, 1, $erreur);
Line 144... Line 145...
144
	    }
145
	    }
145
	    
146
	    
Line 146... Line 147...
146
	    $tempfn = tempnam("","");
147
	    $tempfn = tempnam('','');
147
		$temp = fopen($tempfn, "w");
148
		$temp = fopen($tempfn, 'w');
148
 
149
 
149
		fwrite($temp, $configCode);
150
		fwrite($temp, $configCode);
150
		fclose($temp);
-
 
151
		$fichier_config_source = $tempfn;
151
		fclose($temp);
152
    	$fichier_config_cible = substr($fichier['PAP_FTP_RACINE']."/papyrus/configuration/pap_config.inc.php", 1) ;
152
		$fichier_config_source = $tempfn;
153
    		
-
 
154
    		
153
    	$fichier_config_cible = $fichier['PAP_FTP_RACINE'].'papyrus/configuration/pap_config.inc.php';
155
	    // Nous ecrivons le fichier de config sur le disque
154
    	
156
 
155
	    // Nous écrivons le fichier de config sur le disque
157
	    $txt_ecriture_conf = '&Eacute;criture sur le serveur de <tt>'.$fichier_config_cible.'</tt>...';
156
	    $txt_ecriture_conf = '&Eacute;criture sur le serveur de <tt>'.$fichier_config_cible.'</tt>...';
158
	    $txt_ecriture_conf_erreur = '<span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$fichier_config_cible.
157
	    $txt_ecriture_conf_erreur = '<span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$fichier_config_cible.
Line 163... Line 162...
163
			'<tt>pap_config.inc.php</tt> directement dans le r&eacute;pertoire <tt>configuration</tt> du répertoire '.
162
			'<tt>pap_config.inc.php</tt> directement dans le r&eacute;pertoire <tt>configuration</tt> du répertoire '.
164
			'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
163
			'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
165
			'correctement.';	    
164
			'correctement.';	    
166
	    $txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($configCode).'</pre></code></div>'."\n";	    
165
	    $txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($configCode).'</pre></code></div>'."\n";	    
167
	    $erreur = testerConfig($sortie_verif, $txt_ecriture_conf, 
166
	    $erreur = testerConfig($sortie_verif, $txt_ecriture_conf, 
168
	    						ftp_put($ftp, $fichier_config_cible,$fichier_config_source, FTP_ASCII), 
167
	    						ftp_put($ftp, $fichier_config_cible, $fichier_config_source, FTP_ASCII), 
169
	    						$txt_ecriture_conf_erreur, 1, $erreur);
168
	    								$txt_ecriture_conf_erreur, 1, $erreur);
170
	    
169
 
-
 
170
		// +-----------------------------------------------------------------------------------------------------------+
171
	    // tentative d ecriture du fichier .htaccess
171
	    // Tentative d'écriture du fichier .htaccess
-
 
172
	    $fichier_htaccess_chemin = $fichier['PAP_FTP_RACINE'].'.htaccess';
172
	    $url_ftp_htaccess = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
173
	    $url_ftp_htaccess = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
173
			'@'.$fichier['PAP_FTP_SERVEUR'].$fichier['PAP_FTP_RACINE'].'/.htaccess';
174
			'@'.$fichier['PAP_FTP_SERVEUR'].$fichier['PAP_FTP_RACINE'].'/.htaccess';
-
 
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);
174
			
180
		}
175
		$url_parse = parse_url('http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']);
181
		$url_parse = parse_url('http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']);
176
		$prefixe = dirname($url_parse['path']);
182
		$prefixe = dirname($url_parse['path']);
-
 
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
		}
177
 
188
		
178
		$url = 'http://'.$_SERVER['HTTP_HOST'].$prefixe;
189
		$url = 'http://'.$_SERVER['HTTP_HOST'].$prefixe;
179
		if (isset($pref['PAP_URL_REECRITURE']) && $pref['PAP_URL_RRECRITURE'] == 1) {
190
		if (isset($pref['PAP_URL_REECRITURE']) && $pref['PAP_URL_REECRITURE'] == 1) {
180
			$on_off = 'on';
191
			$on_off = 'on';
181
		} else {
192
		} else {
182
			$on_off = 'off';
193
			$on_off = 'off';
183
		}
194
		}
184
		$contenu_htaccess = '# Raccourci pour les menus et sites de Papyrus'."\n".
195
		$contenu_htaccess = '# Raccourci pour les menus et sites de Papyrus'."\n".
185
							'RewriteEngine '.$on_off."\n".
196
							'RewriteEngine '.$on_off."\n".
186
							'# si le fichier ou le dossier existe dans le système de fichier on l\'utilise directement'."\n".
197
							'# si le fichier ou le dossier existe dans le système de fichier on l\'utilise directement'."\n".
187
							'RewriteCond %{REQUEST_FILENAME} !-d'."\n".
198
							'RewriteCond %{REQUEST_FILENAME} !-d'."\n".
188
							'RewriteCond %{REQUEST_FILENAME} !-f'."\n\n".
199
							'RewriteCond %{REQUEST_FILENAME} !-f'."\n\n".
189
							'# ATTENTION : remplace localhost par votre nom de domaine !'."\n".
200
							'# ATTENTION : remplace localhost par votre nom de domaine !'."\n".
190
							'# R&eacute;ecriture d\'url pour les applications de Papyrus n\'utilisant pas correctement Pap_URL'."\n".
201
							'# Réecriture d\'url pour les applications de Papyrus n\'utilisant pas correctement Pap_URL'."\n".
191
							'# ATTENTION : ne marche pas pour les formulaires en mode POST !'."\n".
202
							'# ATTENTION : ne marche pas pour les formulaires en mode POST !'."\n".
192
							'RewriteRule ^([^\/]+)&(.*)$ '.$url.'/$1?$2 [QSA,L,R=301]'."\n".
203
							'RewriteRule ^([^\/]+)&(.*)$ '.$url.'/$1?$2 [QSA,L,R=301]'."\n".
193
							'# R&eacute;ecriture d\'url pour les vieux permaliens'."\n".
204
							'# Réecriture d\'url pour les vieux permaliens'."\n".
194
							'RewriteCond %{REQUEST_FILENAME}/ !-d'."\n".
205
							'RewriteCond %{REQUEST_FILENAME}/ !-d'."\n".
195
							'RewriteRule ^([^\/\?:.]+)$ '.$url.'/page:$1 [QSA,L,R=301]'."\n".
206
							'RewriteRule ^([^\/\?:.]+)$ '.$url.'/page:$1 [QSA,L,R=301]'."\n".
196
							'# Redirection d\'url pour le sélecteur de site'."\n".
207
							'# Redirection d\'url pour le sélecteur de site'."\n".
197
							'# Le point d\'interrogation sans rien après, vide la QUERY_STRING sinon elle est concaténée à l\'url et cela plante...'."_n".
208
							'# Le point d\'interrogation sans rien aprés, vide la QUERY_STRING sinon elle est concacténée à l\'url et cela plante...'."_n".
198
							'# Le "/" initial dans la RewriteCond est obligatoire!'."\n".
209
							'# Le "/" initial dans la RewriteCond est obligatoire!'."\n".
199
							'RewriteCond %{REQUEST_URI}?%{QUERY_STRING} ^/papyrus\.php\?site=([^&]+)$'."\n".
210
							'RewriteCond %{REQUEST_URI}?%{QUERY_STRING} ^'.$prefixe.'/papyrus\.php\?site=([^&]+)$'."\n".
200
							'RewriteRule ^papyrus.php$ '.$url.'/site:%1? [L,R=301]'."\n\n".
211
							'RewriteRule ^papyrus.php$ '.$url.'/site:%1? [L,R=301]'."\n\n".
201
							'# R&eacute;ecriture d\'url pour les sites de Papyrus : &agrave; modifier si les valeurs par d&eacute;faut ont &eacute;t&eacute; chang&eacute;es'."\n".
212
							'# Réecriture d\'url pour les sites de Papyrus : à modifier si les valeurs par défaut ont été changées'."\n".
202
							'RewriteRule ^site:.+$ papyrus.php [QSA,L]'."\n".
213
							'RewriteRule ^site:.+$ '.$prefixe_tilde.'papyrus.php [QSA,L]'."\n".
203
							'# R&eacute;ecriture d\'url pour les menus de Papyrus : &agrave; modifier si les valeurs par d&eacute;faut ont &eacute;t&eacute; chang&eacute;es'."\n".
214
							'# Réecriture d\'url pour les menus de Papyrus : à modifier si les valeurs par défaut ont été changées'."\n".
204
							'RewriteRule ^page:.+$ papyrus.php [QSA,L]'."\n\n".
215
							'RewriteRule ^page:.+$ '.$prefixe_tilde.'papyrus.php [QSA,L]'."\n\n".
205
							'# Gestion des erreurs 404'."\n".
216
							'# Gestion des erreurs 404'."\n".
206
							'ErrorDocument 404 '.$prefixe.'/erreur_http.php?erreur=404';
217
							'ErrorDocument 404 '.$prefixe.'/erreur_http.php?erreur=404';
207
								
218
		
208
		if (file_exists($fichier['PAP_FTP_RACINE'].'/.htaccess')) {
219
		if (file_exists($fichier_htaccess_chemin)) {
209
			$sortie_verif .='<p>Attention: Un fichier .htaccess est d&eacute;j&agrave; pr&eacute;sent sur le serveur.'.
220
			$sortie_verif .='<p>Attention: Un fichier .htaccess est d&eacute;j&agrave; pr&eacute;sent sur le serveur.'.
210
							'<br />'.$fichier['PAP_FTP_RACINE'].'/.htaccess'.
221
							'<br />'.$fichier_htaccess_chemin.
211
							'<br />Veillez &agrave; le configurer correctement<br /><br />'.
222
							'<br />Veillez &agrave; le configurer correctement<br /><br />'.
212
							'Contenu par d&eacute;faut: <br /><br /> ErrorDocument 404 /erreur_404.php';
223
							'Contenu par d&eacute;faut: <br /><br /> ErrorDocument 404 /erreur_404.php';
213
		} else {
224
		} else {
214
			$tempfn = tempnam("","");
225
			$tempfn = tempnam('', '');
215
			$temp = fopen($tempfn, "w");
226
			$temp = fopen($tempfn, 'w');
216
			fwrite($temp, $contenu_htaccess);
227
			fwrite($temp, $contenu_htaccess);
217
			fclose($temp);
228
			fclose($temp);
218
			$fichier_config_source = $tempfn;
229
			$fichier_config_source = $tempfn;
219
    		$fichier_config_cible = substr($fichier['PAP_FTP_RACINE']."/.htaccess", 1) ;
230
    		$fichier_config_cible = $fichier_htaccess_chemin;
220
    		$txt_ecriture_conf_erreur = 'AVERTISSEMENT: Le fichier .htaccess <tt>'.$fichier_config_cible.
231
    		$txt_ecriture_conf_erreur = 'AVERTISSEMENT: Le fichier .htaccess <tt>'.$fichier_config_cible.
221
			'</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
232
			'</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
222
			'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
233
			'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
223
			'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;rer '.
234
			'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;rer '.
224
			'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
235
			'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
Line 227... Line 238...
227
			$txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($contenu_htaccess).'</pre></code></div>'."\n";
238
			$txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($contenu_htaccess).'</pre></code></div>'."\n";
228
			$txt_ecriture_conf = '&Eacute;criture sur le serveur du fichier .htaccess... <tt>'.$fichier_config_cible.'</tt>'."\n";	
239
			$txt_ecriture_conf = '&Eacute;criture sur le serveur du fichier .htaccess... <tt>'.$fichier_config_cible.'</tt>'."\n";	
229
			$erreur = testerConfig($sortie_verif, $txt_ecriture_conf, ftp_put($ftp, $fichier_config_cible,$fichier_config_source, FTP_ASCII), $txt_ecriture_conf_erreur, 1, 0);
240
			$erreur = testerConfig($sortie_verif, $txt_ecriture_conf, ftp_put($ftp, $fichier_config_cible,$fichier_config_source, FTP_ASCII), $txt_ecriture_conf_erreur, 1, 0);
Line 230... Line 241...
230
 
241
 
231
		}
-
 
232
		
242
		}
233
//	   maj_fichier_config_appli($ftp,$fichier,'api/fckeditor/editor/filemanager/browser/default/connectors/php/config.php',array("Caldeira"=>"DDDDD"));
243
//	   maj_fichier_config_appli($ftp,$fichier,'api/fckeditor/editor/filemanager/browser/default/connectors/php/config.php',array("Caldeira"=>"DDDDD"));
234
	}
244
	}
Line 235... Line 245...
235
}
245
}
236
 
-
 
237
 
246
 
238
// Mise à jour des fichiers de configuration de chaque application :
-
 
239
 
-
 
240
function maj_fichier_config_appli($ftp,$fichier, $fichierconfig, $elements) {
247
 
241
 
-
 
242
 
248
// Mise à jour des fichiers de configuration de chaque application :
243
	$tempfn = tempnam("","");
-
 
244
	    
249
function maj_fichier_config_appli($ftp, $fichier, $fichierconfig, $elements) {
245
    ftp_get($ftp,$tempfn,$fichier['PAP_FTP_RACINE'].GEN_SEP.$fichierconfig,FTP_ASCII);
250
	$tempfn = tempnam('', '');
246
	
251
	ftp_get($ftp,$tempfn,$fichier['PAP_FTP_RACINE'].$fichierconfig,FTP_ASCII);
247
	 $fp = fopen($tempfn, 'r');
252
	$fp = fopen($tempfn, 'r');
248
     if ($fp) {
253
	if ($fp) {
249
	 	while (!feof($fp)) {
254
		while (!feof($fp)) {
250
           $cont .= fread($fp, 500);
255
			$cont .= fread($fp, 500);
251
     	}	
256
		}	
252
	    fclose($fp);		
257
		fclose($fp);		
253
		$fp = fopen($tempfn, 'w');
258
		$fp = fopen($tempfn, 'w');
254
	    if ($fp) {
259
		if ($fp) {
255
	 		foreach ($elements as $element) {
260
			foreach ($elements as $element) {
256
				list($expr,$rempl)=$elements;
261
				list($expr,$rempl)=$elements;
257
				preg_replace('/'.$expr.'/',$rempl,$cont);
262
				preg_replace('/'.$expr.'/',$rempl,$cont);
258
			}
263
			}
259
			fwrite($fp, $cont);
264
			fwrite($fp, $cont);
260
		    fclose($fp);		
-
 
261
		    ftp_put($ftp,$fichier['PAP_FTP_RACINE'].GEN_SEP.$fichierconfig,$tempfn,FTP_ASCII);
265
		    fclose($fp);		
262
	    }
266
		    ftp_put($ftp, $fichier['PAP_FTP_RACINE'].$fichierconfig, $tempfn, FTP_ASCII);
Line 263... Line -...
263
     }	
-
 
264
		
-
 
265
}
267
		}
266
 
268
	}	
267
				
269
}
268
 
270
 
269
// Gestion de l'affichage
271
// Gestion de l'affichage
Line 337... Line 339...
337
                '<tt>papyrus.php</tt>. Exemple : <i>/www/</i></li>'."\n";
339
                '<tt>papyrus.php</tt>. Exemple : <i>/www/</i></li>'."\n";
338
    $sortie_form .=  '<li>'."\n".
340
    $sortie_form .=  '<li>'."\n".
339
                '<label for="ftp_racine">Racine d&eacute;p&ocirc;t FTP :</label>'.
341
                '<label for="ftp_racine">Racine d&eacute;p&ocirc;t FTP :</label>'.
340
                '<input id="ftp_racine"'.$disabled.'type="text" size="60" name="fichier[PAP_FTP_RACINE]" value="'.$fichier['PAP_FTP_RACINE'].'" />'.
342
                '<input id="ftp_racine"'.$disabled.'type="text" size="60" name="fichier[PAP_FTP_RACINE]" value="'.$fichier['PAP_FTP_RACINE'].'" />'.
341
                '</li>'."\n";
343
                '</li>'."\n";
-
 
344
    $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 '.
-
 
345
                    'n\'activez pas cette option).</li>'."\n";
-
 
346
	$sortie_form .=  '<li>'."\n".
-
 
347
                '<label for="htaccess_regeneration">Remplacer mon fichier .htacces :</label>'.
-
 
348
                '<input id="htaccess_regeneration"'.$disabled.'type="checkbox" name="pref[PAP_HTACCESS_REGENERATION]" value="1" />'.
-
 
349
                'Activation'.'</li>'."\n";
342
    return $sortie_form;
350
    return $sortie_form;
343
}
351
}
Line 344... Line 352...
344
 
352
 
345
// +------------------------------------------------------------------------------------------------------+
353
// +------------------------------------------------------------------------------------------------------+
Line 348... Line 356...
348
 
356
 
349
 
357
 
350
/* +--Fin du code ----------------------------------------------------------------------------------------+
358
/* +--Fin du code ----------------------------------------------------------------------------------------+
-
 
359
*
-
 
360
* $Log: not supported by cvs2svn $
-
 
361
* Revision 1.34  2007-04-20 14:55:24  alexandre_tb
351
*
362
* charset
352
* $Log: not supported by cvs2svn $
363
*
353
* Revision 1.33  2007/04/20 12:55:07  ddelon
364
* Revision 1.33  2007/04/20 12:55:07  ddelon
354
* config fckeditor
365
* config fckeditor
355
*
366
*
Line 418... Line 429...
418
*
429
*
419
* Revision 1.11  2006/10/06 14:46:15  alexandre_tb
430
* Revision 1.11  2006/10/06 14:46:15  alexandre_tb
420
* ecriture du fichier .htaccess
431
* ecriture du fichier .htaccess
421
*
432
*
422
* Revision 1.10  2005/09/23 14:20:23  florian
433
* Revision 1.10  2005/09/23 14:20:23  florian
423
* nouvel habillage installateur, plus correction de quelques bugs
434
* Nouvel habillage installateur, plus correction de quelques bugs
424
*
435
*
425
* Revision 1.9  2005/04/12 16:09:45  jpm
436
* Revision 1.9  2005/04/12 16:09:45  jpm
426
* Amélioration de la gestion de la constante de redirection des urls et de la gestion des constantes de type entier et booléen.
437
* Amélioration de la gestion de la constante de redirection des urls et de la gestion des constantes de type entier et booléen.
427
*
438
*
428
* Revision 1.8  2004/10/25 16:26:35  jpm
439
* Revision 1.8  2004/10/25 16:26:35  jpm