Subversion Repositories Applications.papyrus

Rev

Rev 1360 | Rev 1492 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1360 Rev 1369
1
<?php
1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */ 
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */ 
3
// +------------------------------------------------------------------------------------------------------+
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
7
// +------------------------------------------------------------------------------------------------------+
8
// | Copyright (c) 2002, Hendrik Mans <hendrik@mans.de>                                                   |
8
// | Copyright (c) 2002, Hendrik Mans <hendrik@mans.de>                                                   |
9
// | Copyright 2002, 2003 David DELON                                                                     |
9
// | Copyright 2002, 2003 David DELON                                                                     |
10
// | Copyright 2002 Patrick PAUL                                                                          |
10
// | Copyright 2002 Patrick PAUL                                                                          |
11
// | Copyright  2003  Jean-Pascal MILCENT                                                                 |
11
// | Copyright  2003  Jean-Pascal MILCENT                                                                 |
12
// | All rights reserved.                                                                                 |
12
// | All rights reserved.                                                                                 |
13
// | Redistribution and use in source and binary forms, with or without                                   |
13
// | Redistribution and use in source and binary forms, with or without                                   |
14
// | modification, are permitted provided that the following conditions                                   |
14
// | modification, are permitted provided that the following conditions                                   |
15
// | are met:                                                                                             |
15
// | are met:                                                                                             |
16
// | 1. Redistributions of source code must retain the above copyright                                    |
16
// | 1. Redistributions of source code must retain the above copyright                                    |
17
// | notice, this list of conditions and the following disclaimer.                                        |
17
// | notice, this list of conditions and the following disclaimer.                                        |
18
// | 2. Redistributions in binary form must reproduce the above copyright                                 |
18
// | 2. Redistributions in binary form must reproduce the above copyright                                 |
19
// | notice, this list of conditions and the following disclaimer in the                                  |
19
// | notice, this list of conditions and the following disclaimer in the                                  |
20
// | documentation and/or other materials provided with the distribution.                                 |
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                             |
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.                                |
22
// | derived from this software without specific prior written permission.                                |
23
// |                                                                                                      |
23
// |                                                                                                      |
24
// | THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR                                 |
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                            |
25
// | IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES                            |
26
// | OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.                              |
26
// | OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.                              |
27
// | IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,                                     |
27
// | IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,                                     |
28
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT                             |
28
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT                             |
29
// | NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,                            |
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                                |
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.33 2007-04-20 12:55:07 ddelon Exp $
35
// CVS : $Id: instal_fichier.inc.php,v 1.34 2007-04-20 14:55:24 alexandre_tb 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
*
41
*@package Installateur
41
*@package Installateur
42
//Auteur original :
42
//Auteur original :
43
*@author        Hendrik MANS <hendrik@mans.de>
43
*@author        Hendrik MANS <hendrik@mans.de>
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.33 $ $Date: 2007-04-20 12:55:07 $
49
*@version       $Revision: 1.34 $ $Date: 2007-04-20 14:55:24 $
50
// +------------------------------------------------------------------------------------------------------+
50
// +------------------------------------------------------------------------------------------------------+
51
**/
51
**/
52
 
52
 
53
// +------------------------------------------------------------------------------------------------------+
53
// +------------------------------------------------------------------------------------------------------+
54
// |                                            ENTÊTE du PROGRAMME                                       |
54
// |                                            ENTÊTE du PROGRAMME                                       |
55
// +------------------------------------------------------------------------------------------------------+
55
// +------------------------------------------------------------------------------------------------------+
56
// Numéro de l'étape d'installation :
56
// Numéro de l'étape d'installation :
57
$num_etape = 3;
57
$num_etape = 3;
58
 
58
 
59
// Initialisation du tableau contenant les valeurs de configuration de la base de données
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' => '', 
60
$tableau = array(   'PAP_FTP_SERVEUR' => '', 'PAP_FTP_PORT' => '', 'PAP_FTP_UTILISATEUR' => '', 
61
                    'PAP_FTP_MOT_DE_PASSE' => '', 'PAP_FTP_RACINE' => '');
61
                    'PAP_FTP_MOT_DE_PASSE' => '', 'PAP_FTP_RACINE' => '');
62
foreach ($tableau as $cle => $val) {
62
foreach ($tableau as $cle => $val) {
63
    if (!empty($_POST['fichier'][$cle])) {
63
    if (!empty($_POST['fichier'][$cle])) {
64
        $fichier[$cle] = $_POST['fichier'][$cle];
64
        $fichier[$cle] = $_POST['fichier'][$cle];
65
    } else if (defined($cle)) {
65
    } else if (defined($cle)) {
66
        $fichier[$cle] = constant($cle);
66
        $fichier[$cle] = constant($cle);
67
    } else {
67
    } else {
68
        if ($cle == 'PAP_FTP_SERVEUR') {
68
        if ($cle == 'PAP_FTP_SERVEUR') {
69
            $fichier[$cle] = $_SERVER['HTTP_HOST'];
69
            $fichier[$cle] = $_SERVER['HTTP_HOST'];
70
        } else if ($cle == 'PAP_FTP_PORT') {
70
        } else if ($cle == 'PAP_FTP_PORT') {
71
            $fichier[$cle] = 21;
71
            $fichier[$cle] = 21;
72
        } else {
72
        } else {
73
            $fichier[$cle] = '';
73
            $fichier[$cle] = '';
74
        }
74
        }
75
    }
75
    }
76
}
76
}
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'])) {
83
    $bdd = $_POST['bdd'];
83
    $bdd = $_POST['bdd'];
84
} else if (isset($_POST['bdd_serial'])) {
84
} else if (isset($_POST['bdd_serial'])) {
85
    $bdd = unserialize(stripslashes($_POST['bdd_serial']));
85
    $bdd = unserialize(stripslashes($_POST['bdd_serial']));
86
}
86
}
87
 
87
 
88
// +------------------------------------------------------------------------------------------------------+
88
// +------------------------------------------------------------------------------------------------------+
89
// |                                          CORPS du PROGRAMME                                          |
89
// |                                          CORPS du PROGRAMME                                          |
90
// +------------------------------------------------------------------------------------------------------+
90
// +------------------------------------------------------------------------------------------------------+
91
// Affichage d'informations...
91
// Affichage d'informations...
92
$sortie .= '<br /><h1>Etape n&deg;'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\n";
92
$sortie .= '<br /><h1>Etape 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) {
96
    // le chemin FTP ne doit pas commencer par un slash, nous le supprimons
96
    // le chemin FTP ne doit pas commencer par un slash, nous le supprimons
97
    $fichier['PAP_FTP_RACINE'] = GEN_SEP.$fichier['PAP_FTP_RACINE'];
97
    $fichier['PAP_FTP_RACINE'] = GEN_SEP.$fichier['PAP_FTP_RACINE'];
98
}
98
}
99
 
99
 
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 .= '    <br /><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&ecirc;tres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
108
                            $fichier['PAP_FTP_MOT_DE_PASSE']), 'Les param&ecirc;tres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
109
    $sortie_verif .= '<br />'."\n";
109
    $sortie_verif .= '<br />'."\n";
110
    
110
    
111
    $configCode = "<?php\n// pap_config.inc.php construit le ".strftime("%c")."\n// ne changez pas la version de Papyrus manuellement!\n\n";
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";
112
    $entries[] = 'define(\''.INSTAL_VERSION_NOUVELLE_NOM.'\',\''.INSTAL_VERSION_NOUVELLE.'\');'."\n";
113
    foreach ($bdd as $cle => $val) {
113
    foreach ($bdd as $cle => $val) {
114
        $entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
114
        $entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
115
    }
115
    }
116
    $entries[] = "define('PAP_DSN', 'mysql://'.PAP_BDD_UTILISATEUR.':'.PAP_BDD_MOT_DE_PASSE.'@'.PAP_BDD_SERVEUR.'/'.PAP_BDD_NOM);"."\n";
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) {
117
    foreach ($fichier as $cle => $val) {
118
        $entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
118
        $entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
119
    }
119
    }
120
    foreach ($pref as $cle => $val) {
120
    foreach ($pref as $cle => $val) {
121
        // Nous recuperons uniquement les constantes a stocker dans le fichier de config (leur nom commence par PAP_)
121
        // Nous recuperons uniquement les constantes a stocker dans le fichier de config (leur nom commence par PAP_)
122
        if (preg_match('/^PAP_/', $cle)) {
122
        if (preg_match('/^PAP_/', $cle)) {
123
            if (preg_match('/^[0-9]+|(?i:true|false)$/', $val)) {
123
            if (preg_match('/^[0-9]+|(?i:true|false)$/', $val)) {
124
                $entries[] = 'define(\''.$cle.'\','.$val.');'."\n";
124
                $entries[] = 'define(\''.$cle.'\','.$val.');'."\n";
125
            } else {
125
            } else {
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
	    // Tentative d'ecriture du fichier de config
132
	    // Tentative d'ecriture 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, ou nous mettons a jour Papyrus, il faut supprimer l'ancien fichier de config
138
	    // Dans le cas, ou nous mettons a 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 &ecirc;tre supprimer automatiquement. '.
141
		$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>';
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
	    $tempfn = tempnam("","");
146
	    $tempfn = tempnam("","");
147
		$temp = fopen($tempfn, "w");
147
		$temp = fopen($tempfn, "w");
148
 
148
 
149
		fwrite($temp, $configCode);
149
		fwrite($temp, $configCode);
150
		fclose($temp);
150
		fclose($temp);
151
		$fichier_config_source = $tempfn;
151
		$fichier_config_source = $tempfn;
152
    	$fichier_config_cible = substr($fichier['PAP_FTP_RACINE']."/papyrus/configuration/pap_config.inc.php", 1) ;
152
    	$fichier_config_cible = substr($fichier['PAP_FTP_RACINE']."/papyrus/configuration/pap_config.inc.php", 1) ;
153
    		
153
    		
154
    		
154
    		
155
	    // Nous ecrivons le fichier de config sur le disque
155
	    // Nous ecrivons le fichier de config sur le disque
156
 
156
 
157
	    $txt_ecriture_conf = '&Eacute;criture sur le serveur de <tt>'.$fichier_config_cible.'</tt>...';
157
	    $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.
158
	    $txt_ecriture_conf_erreur = '<span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$fichier_config_cible.
159
			'</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
159
			'</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
160
			'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
160
			'd\'acc&egrave;s en &eacute;criture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
161
			'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;rer '.
161
			'faire &ccedil;a vous devez copier les informations suivantes dans un fichier et les transf&eacute;rer '.
162
			'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
162
			'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
163
			'<tt>pap_config.inc.php</tt> directement dans le r&eacute;pertoire <tt>configuration</tt> du répertoire '.
163
			'<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 '.
164
			'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
165
			'correctement.';	    
165
			'correctement.';	    
166
	    $txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($configCode).'</pre></code></div>'."\n";	    
166
	    $txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($configCode).'</pre></code></div>'."\n";	    
167
	    $erreur = testerConfig($sortie_verif, $txt_ecriture_conf, 
167
	    $erreur = testerConfig($sortie_verif, $txt_ecriture_conf, 
168
	    						ftp_put($ftp, $fichier_config_cible,$fichier_config_source, FTP_ASCII), 
168
	    						ftp_put($ftp, $fichier_config_cible,$fichier_config_source, FTP_ASCII), 
169
	    						$txt_ecriture_conf_erreur, 1, $erreur);
169
	    						$txt_ecriture_conf_erreur, 1, $erreur);
170
	    
170
	    
171
	    // tentative d ecriture du fichier .htaccess
171
	    // tentative d ecriture du fichier .htaccess
172
	    $url_ftp_htaccess = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
172
	    $url_ftp_htaccess = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
173
			'@'.$fichier['PAP_FTP_SERVEUR'].$fichier['PAP_FTP_RACINE'].'/.htaccess';
173
			'@'.$fichier['PAP_FTP_SERVEUR'].$fichier['PAP_FTP_RACINE'].'/.htaccess';
174
			
174
			
175
		$url_parse = parse_url('http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']);
175
		$url_parse = parse_url('http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']);
176
		$prefixe = dirname($url_parse['path']);
176
		$prefixe = dirname($url_parse['path']);
177
 
177
 
178
		$url = 'http://'.$_SERVER['HTTP_HOST'].$prefixe;
178
		$url = 'http://'.$_SERVER['HTTP_HOST'].$prefixe;
179
		if (isset($pref['PAP_URL_REECRITURE']) && $pref['PAP_URL_RRECRITURE'] == 1) {
179
		if (isset($pref['PAP_URL_REECRITURE']) && $pref['PAP_URL_RRECRITURE'] == 1) {
180
			$on_off = 'on';
180
			$on_off = 'on';
181
		} else {
181
		} else {
182
			$on_off = 'off';
182
			$on_off = 'off';
183
		}
183
		}
184
		$contenu_htaccess = '# Raccourci pour les menus et sites de Papyrus'."\n".
184
		$contenu_htaccess = '# Raccourci pour les menus et sites de Papyrus'."\n".
185
							'RewriteEngine '.$on_off."\n".
185
							'RewriteEngine '.$on_off."\n".
186
							'# si le fichier ou le dossier existe dans le système de fichier on l\'utilise directement'."\n".
186
							'# si le fichier ou le dossier existe dans le système de fichier on l\'utilise directement'."\n".
187
							'RewriteCond %{REQUEST_FILENAME} !-d'."\n".
187
							'RewriteCond %{REQUEST_FILENAME} !-d'."\n".
188
							'RewriteCond %{REQUEST_FILENAME} !-f'."\n\n".
188
							'RewriteCond %{REQUEST_FILENAME} !-f'."\n\n".
189
							'# ATTENTION : remplace localhost par votre nom de domaine !'."\n".
189
							'# 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".
190
							'# R&eacute;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".
191
							'# ATTENTION : ne marche pas pour les formulaires en mode POST !'."\n".
192
							'RewriteRule ^([^\/]+)&(.*)$ '.$url.'/$1?$2 [QSA,L,R=301]'."\n".
192
							'RewriteRule ^([^\/]+)&(.*)$ '.$url.'/$1?$2 [QSA,L,R=301]'."\n".
193
							'# R&eacute;ecriture d\'url pour les vieux permaliens'."\n".
193
							'# R&eacute;ecriture d\'url pour les vieux permaliens'."\n".
194
							'RewriteCond %{REQUEST_FILENAME}/ !-d'."\n".
194
							'RewriteCond %{REQUEST_FILENAME}/ !-d'."\n".
195
							'RewriteRule ^([^\/\?:.]+)$ '.$url.'/page:$1 [QSA,L,R=301]'."\n".
195
							'RewriteRule ^([^\/\?:.]+)$ '.$url.'/page:$1 [QSA,L,R=301]'."\n".
196
							'# Redirection d\'url pour le sélecteur de site'."\n".
196
							'# 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".
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".
198
							'# Le "/" initial dans la RewriteCond est obligatoire!'."\n".
198
							'# Le "/" initial dans la RewriteCond est obligatoire!'."\n".
199
							'RewriteCond %{REQUEST_URI}?%{QUERY_STRING} ^/papyrus\.php\?site=([^&]+)$'."\n".
199
							'RewriteCond %{REQUEST_URI}?%{QUERY_STRING} ^/papyrus\.php\?site=([^&]+)$'."\n".
200
							'RewriteRule ^papyrus.php$ '.$url.'/site:%1? [L,R=301]'."\n\n".
200
							'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".
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".
202
							'RewriteRule ^site:.+$ papyrus.php [QSA,L]'."\n".
202
							'RewriteRule ^site:.+$ 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".
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".
204
							'RewriteRule ^page:.+$ papyrus.php [QSA,L]'."\n\n".
204
							'RewriteRule ^page:.+$ papyrus.php [QSA,L]'."\n\n".
205
							'# Gestion des erreurs 404'."\n".
205
							'# Gestion des erreurs 404'."\n".
206
							'ErrorDocument 404 '.$prefixe.'/erreur_http.php?erreur=404';
206
							'ErrorDocument 404 '.$prefixe.'/erreur_http.php?erreur=404';
207
								
207
								
208
		if (file_exists($fichier['PAP_FTP_RACINE'].'/.htaccess')) {
208
		if (file_exists($fichier['PAP_FTP_RACINE'].'/.htaccess')) {
209
			$sortie_verif .='<p>Attention: Un fichier .htaccess est d&eacute;j&agrave; pr&eacute;sent sur le serveur.'.
209
			$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'.
210
							'<br />'.$fichier['PAP_FTP_RACINE'].'/.htaccess'.
211
							'<br />Veillez &agrave; le configurer correctement<br /><br />'.
211
							'<br />Veillez &agrave; le configurer correctement<br /><br />'.
212
							'Contenu par d&eacute;faut: <br /><br /> ErrorDocument 404 /erreur_404.php';
212
							'Contenu par d&eacute;faut: <br /><br /> ErrorDocument 404 /erreur_404.php';
213
		} else {
213
		} else {
214
			$tempfn = tempnam("","");
214
			$tempfn = tempnam("","");
215
			$temp = fopen($tempfn, "w");
215
			$temp = fopen($tempfn, "w");
216
			fwrite($temp, $contenu_htaccess);
216
			fwrite($temp, $contenu_htaccess);
217
			fclose($temp);
217
			fclose($temp);
218
			$fichier_config_source = $tempfn;
218
			$fichier_config_source = $tempfn;
219
    		$fichier_config_cible = substr($fichier['PAP_FTP_RACINE']."/.htaccess", 1) ;
219
    		$fichier_config_cible = substr($fichier['PAP_FTP_RACINE']."/.htaccess", 1) ;
220
    		$txt_ecriture_conf_erreur = 'AVERTISSEMENT: Le fichier .htaccess <tt>'.$fichier_config_cible.
220
    		$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 '.
221
			'</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 '.
222
			'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 '.
223
			'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 '.
224
			'au moyen d\'un logiciel de transfert de fichier (ftp) sur le serveur dans un fichier '.
225
			'<tt>.htaccess</tt> directement &agrave la racine de '.
225
			'<tt>.htaccess</tt> directement &agrave la racine de '.
226
			'<tt>papyrus</tt> de Papyrus.';
226
			'<tt>papyrus</tt> de Papyrus.';
227
			$txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($contenu_htaccess).'</pre></code></div>'."\n";
227
			$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";	
228
			$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);
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);
230
 
230
 
231
		}
231
		}
232
		
232
		
233
//	   maj_fichier_config_appli($ftp,$fichier,'api/fckeditor/editor/filemanager/browser/default/connectors/php/config.php',array("Caldeira"=>"DDDDD"));
233
//	   maj_fichier_config_appli($ftp,$fichier,'api/fckeditor/editor/filemanager/browser/default/connectors/php/config.php',array("Caldeira"=>"DDDDD"));
234
	}
234
	}
235
}
235
}
236
 
236
 
237
 
237
 
238
// Mise à jour des fichiers de configuration de chaque application :
238
// Mise à jour des fichiers de configuration de chaque application :
239
 
239
 
240
function maj_fichier_config_appli($ftp,$fichier, $fichierconfig, $elements) {
240
function maj_fichier_config_appli($ftp,$fichier, $fichierconfig, $elements) {
241
 
241
 
242
 
242
 
243
	$tempfn = tempnam("","");
243
	$tempfn = tempnam("","");
244
	    
244
	    
245
    ftp_get($ftp,$tempfn,$fichier['PAP_FTP_RACINE'].GEN_SEP.$fichierconfig,FTP_ASCII);
245
    ftp_get($ftp,$tempfn,$fichier['PAP_FTP_RACINE'].GEN_SEP.$fichierconfig,FTP_ASCII);
246
	
246
	
247
	 $fp = fopen($tempfn, 'r');
247
	 $fp = fopen($tempfn, 'r');
248
     if ($fp) {
248
     if ($fp) {
249
	 	while (!feof($fp)) {
249
	 	while (!feof($fp)) {
250
           $cont .= fread($fp, 500);
250
           $cont .= fread($fp, 500);
251
     	}	
251
     	}	
252
	    fclose($fp);		
252
	    fclose($fp);		
253
		$fp = fopen($tempfn, 'w');
253
		$fp = fopen($tempfn, 'w');
254
	    if ($fp) {
254
	    if ($fp) {
255
	 		foreach ($elements as $element) {
255
	 		foreach ($elements as $element) {
256
				list($expr,$rempl)=$elements;
256
				list($expr,$rempl)=$elements;
257
				preg_replace('/'.$expr.'/',$rempl,$cont);
257
				preg_replace('/'.$expr.'/',$rempl,$cont);
258
			}
258
			}
259
			fwrite($fp, $cont);
259
			fwrite($fp, $cont);
260
		    fclose($fp);		
260
		    fclose($fp);		
261
		    ftp_put($ftp,$fichier['PAP_FTP_RACINE'].GEN_SEP.$fichierconfig,$tempfn,FTP_ASCII);
261
		    ftp_put($ftp,$fichier['PAP_FTP_RACINE'].GEN_SEP.$fichierconfig,$tempfn,FTP_ASCII);
262
	    }
262
	    }
263
     }	
263
     }	
264
		
264
		
265
}
265
}
266
 
266
 
267
				
267
				
268
 
268
 
269
// Gestion de l'affichage
269
// Gestion de l'affichage
270
if ($erreur == 0 && empty($sortie_verif)) {
270
if ($erreur == 0 && empty($sortie_verif)) {
271
    // Premier appel du fichier...
271
    // Premier appel du fichier...
272
    $sortie .= creerFormulaire($fichier);
272
    $sortie .= creerFormulaire($fichier);
273
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
273
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
274
    $sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
274
    $sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
275
    $sortie .= '<li><input type="submit" value="Tester" /></li>'."\n";
275
    $sortie .= '<li><input type="submit" value="Tester" /></li>'."\n";
276
    $sortie .= '      </ul>'."\n";
276
    $sortie .= '      </ul>'."\n";
277
    $sortie .= '    </form>';
277
    $sortie .= '    </form>';
278
} else if ($erreur == 2 && !empty($sortie_verif)) {
278
} else if ($erreur == 2 && !empty($sortie_verif)) {
279
    // Verification du fichier avec interuption...
279
    // Verification du fichier avec interuption...
280
    $sortie .= creerFormulaire($fichier);
280
    $sortie .= creerFormulaire($fichier);
281
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
281
    $sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
282
    $sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
282
    $sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
283
    $sortie .= '<li><input type="submit" value="Tester &agrave; nouveau" /></li>'."\n";
283
    $sortie .= '<li><input type="submit" value="Tester &agrave; nouveau" /></li>'."\n";
284
    $sortie .= '      </ul>'."\n";
284
    $sortie .= '      </ul>'."\n";
285
    $sortie .= '    </form>';
285
    $sortie .= '    </form>';
286
    $sortie .= $sortie_verif;
286
    $sortie .= $sortie_verif;
287
} else if (($erreur == 0 || $erreur == 1) && !empty($sortie_verif)) {
287
} else if (($erreur == 0 || $erreur == 1) && !empty($sortie_verif)) {
288
    // Verification du fichier sans interuption... passage a l'etape suivante
288
    // Verification du fichier sans interuption... passage a l'etape suivante
289
    $sortie .= creerFormulaire($fichier, true);
289
    $sortie .= creerFormulaire($fichier, true);
290
    $sortie .= '      </ul>'."\n";
290
    $sortie .= '      </ul>'."\n";
291
    $sortie .= '    </form>';
291
    $sortie .= '    </form>';
292
    $sortie .= $sortie_verif;
292
    $sortie .= $sortie_verif;
293
    // Ecriture du fichier...
293
    // Ecriture du fichier...
294
    fwrite($fp, $configCode);
294
    fwrite($fp, $configCode);
295
    fclose($fp);
295
    fclose($fp);
296
    $sortie .= '    <br /><p class="etape_info">Voila c\'est termin&eacute; ! Vous pouvez <a href="'.donnerUrlCourante().'">retourner sur votre site '.
296
    $sortie .= '    <br /><p class="etape_info">Voila c\'est termin&eacute; ! Vous pouvez <a href="'.donnerUrlCourante().'">retourner sur votre site '.
297
                'Papyrus</a>. Il est conseill&eacute; de retirer l\'acc&egrave;s en &eacute;criture au fichier '.
297
                'Papyrus</a>. Il est conseill&eacute; de retirer l\'acc&egrave;s en &eacute;criture au fichier '.
298
                '<tt>pap_config.inc.php</tt>. Ceci peut &ecirc;tre une faille dans la s&eacute;curit&eacute;.</p>'."\n";
298
                '<tt>pap_config.inc.php</tt>. Ceci peut &ecirc;tre une faille dans la s&eacute;curit&eacute;.</p>'."\n";
299
}
299
}
300
 
300
 
301
// +------------------------------------------------------------------------------------------------------+
301
// +------------------------------------------------------------------------------------------------------+
302
// |                                            LISTE DES FONCTIONS                                       |
302
// |                                            LISTE DES FONCTIONS                                       |
303
// +------------------------------------------------------------------------------------------------------+
303
// +------------------------------------------------------------------------------------------------------+
304
 
304
 
305
// Creation du formulaire de configuration de la base de donnees
305
// Creation du formulaire de configuration de la base de donnees
306
function creerFormulaire($fichier, $bln_lecture = false) {
306
function creerFormulaire($fichier, $bln_lecture = false) {
307
    $disabled = '';
307
    $disabled = '';
308
    if ($bln_lecture) {
308
    if ($bln_lecture) {
309
        $disabled = ' disabled="disabled" ';
309
        $disabled = ' disabled="disabled" ';
310
    }
310
    }
311
    $sortie_form .= '    <form action="'.donnerUrlCourante().'?installation=verif_fichier" method="post">';
311
    $sortie_form .= '    <form action="'.donnerUrlCourante().'?installation=verif_fichier" method="post">';
312
    $sortie_form .= '      <ul>'."\n";
312
    $sortie_form .= '      <ul>'."\n";
313
    $sortie_form .=  '<li><br /><h2>Configuration du FTP et des chemins d\'acc&egrave;s</h2></li>'."\n";
313
    $sortie_form .=  '<li><br /><h2>Configuration du FTP et des chemins d\'acc&egrave;s</h2></li>'."\n";
314
    $sortie_form .= '<li>Entrer le nom de dommaine pour acc&eacute;der &agrave; votre d&eacute;p&ocirc;t FTP</li>'."\n";
314
    $sortie_form .= '<li>Entrer le nom de dommaine pour acc&eacute;der &agrave; votre d&eacute;p&ocirc;t FTP</li>'."\n";
315
    $sortie_form .=  '<li>'."\n".
315
    $sortie_form .=  '<li>'."\n".
316
                '<label for="ftp_serveur">Nom du serveur FTP :</label>'.
316
                '<label for="ftp_serveur">Nom du serveur FTP :</label>'.
317
                '<input id="ftp_serveur"'.$disabled.'type="text" size="30" name="fichier[PAP_FTP_SERVEUR]" value="'.$fichier['PAP_FTP_SERVEUR'].'" />'.
317
                '<input id="ftp_serveur"'.$disabled.'type="text" size="30" name="fichier[PAP_FTP_SERVEUR]" value="'.$fichier['PAP_FTP_SERVEUR'].'" />'.
318
                '</li>'."\n";
318
                '</li>'."\n";
319
    $sortie_form .= '<li>Le num&eacute;ro du port pour le service FTP sur la machine h&eacute;bergeant Papyrus. '.
319
    $sortie_form .= '<li>Le num&eacute;ro du port pour le service FTP sur la machine h&eacute;bergeant Papyrus. '.
320
                    'En g&eacute;n&eacute;ral c\'est 21.</li>'."\n";
320
                    'En g&eacute;n&eacute;ral c\'est 21.</li>'."\n";
321
    $sortie_form .=  '<li>'."\n".
321
    $sortie_form .=  '<li>'."\n".
322
                '<label for="ftp_port">N&deg; du port d\'acc&egrave;s au serveur FTP :</label>'.
322
                '<label for="ftp_port">N&deg; du port d\'acc&egrave;s au serveur FTP :</label>'.
323
                '<input id="ftp_port"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_PORT]" value="'.$fichier['PAP_FTP_PORT'].'" />'.
323
                '<input id="ftp_port"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_PORT]" value="'.$fichier['PAP_FTP_PORT'].'" />'.
324
                '</li>'."\n";
324
                '</li>'."\n";
325
    $sortie_form .=  '<li>Nom et mot de passe FTP qui sera utilis&eacute; pour se connecter &agrave; au dépôt FTP.</li>'."\n";
325
    $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";
326
    $sortie_form .=  '<li>'."\n".
326
    $sortie_form .=  '<li>'."\n".
327
                '<label for="ftp_utilisateur">Nom d\'utilisateur pour le serveur FTP :</label>'.
327
                '<label for="ftp_utilisateur">Nom d\'utilisateur pour le serveur FTP :</label>'.
328
                '<input id="ftp_utilisateur"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_UTILISATEUR]" value="'.$fichier['PAP_FTP_UTILISATEUR'].'" />'.
328
                '<input id="ftp_utilisateur"'.$disabled.'type="text" size="20" name="fichier[PAP_FTP_UTILISATEUR]" value="'.$fichier['PAP_FTP_UTILISATEUR'].'" />'.
329
                '</li>'."\n";
329
                '</li>'."\n";
330
    $sortie_form .=  '<li>'."\n".
330
    $sortie_form .=  '<li>'."\n".
331
                '<label for="ftp_mot_de_passe">Mot de passe pour le serveur FTP :</label>'.
331
                '<label for="ftp_mot_de_passe">Mot de passe pour le serveur FTP :</label>'.
332
                '<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'].'" />'.
332
                '<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'].'" />'.
333
                '</li>'."\n";
333
                '</li>'."\n";
334
    $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 '.
334
    $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 '.
335
                'dossier le plus haut auquel vous pouvez acc&eacute;der dans l\'arborescence est la racine. Il vous faut donc '.
335
                'dossier le plus haut auquel vous pouvez acc&eacute;der dans l\'arborescence est la racine. Il vous faut donc '.
336
                'indiquez dans le champ ci-dessous le chemin absolu depuis cette racine jusqu\'au dossier contenant le fichier '.
336
                'indiquez dans le champ ci-dessous le chemin absolu depuis cette racine jusqu\'au dossier contenant le fichier '.
337
                '<tt>papyrus.php</tt>. Exemple : <i>/www/</i></li>'."\n";
337
                '<tt>papyrus.php</tt>. Exemple : <i>/www/</i></li>'."\n";
338
    $sortie_form .=  '<li>'."\n".
338
    $sortie_form .=  '<li>'."\n".
339
                '<label for="ftp_racine">Racine d&eacute;p&ocirc;t FTP :</label>'.
339
                '<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'].'" />'.
340
                '<input id="ftp_racine"'.$disabled.'type="text" size="60" name="fichier[PAP_FTP_RACINE]" value="'.$fichier['PAP_FTP_RACINE'].'" />'.
341
                '</li>'."\n";
341
                '</li>'."\n";
342
    return $sortie_form;
342
    return $sortie_form;
343
}
343
}
344
 
344
 
345
// +------------------------------------------------------------------------------------------------------+
345
// +------------------------------------------------------------------------------------------------------+
346
// |                                            PIED du PROGRAMME                                         |
346
// |                                            PIED du PROGRAMME                                         |
347
// +------------------------------------------------------------------------------------------------------+
347
// +------------------------------------------------------------------------------------------------------+
348
 
348
 
349
 
349
 
350
/* +--Fin du code ----------------------------------------------------------------------------------------+
350
/* +--Fin du code ----------------------------------------------------------------------------------------+
351
*
351
*
352
* $Log: not supported by cvs2svn $
352
* $Log: not supported by cvs2svn $
-
 
353
* Revision 1.33  2007/04/20 12:55:07  ddelon
-
 
354
* config fckeditor
-
 
355
*
353
* Revision 1.32  2007/04/20 12:49:41  ddelon
356
* Revision 1.32  2007/04/20 12:49:41  ddelon
354
* config fckeditor
357
* config fckeditor
355
*
358
*
356
* Revision 1.31  2007/04/20 10:15:15  alexandre_tb
359
* Revision 1.31  2007/04/20 10:15:15  alexandre_tb
357
* correction typo
360
* correction typo
358
*
361
*
359
* Revision 1.30  2007/04/20 09:18:09  alexandre_tb
362
* Revision 1.30  2007/04/20 09:18:09  alexandre_tb
360
* correction pb encodage
363
* correction pb encodage
361
*
364
*
362
* Revision 1.29  2007/04/20 09:13:37  alexandre_tb
365
* Revision 1.29  2007/04/20 09:13:37  alexandre_tb
363
* correction pb encodage
366
* correction pb encodage
364
*
367
*
365
* Revision 1.28  2007/04/20 09:05:46  alexandre_tb
368
* Revision 1.28  2007/04/20 09:05:46  alexandre_tb
366
* correction pb encodage
369
* correction pb encodage
367
*
370
*
368
* Revision 1.27  2007/04/19 16:53:57  neiluj
371
* Revision 1.27  2007/04/19 16:53:57  neiluj
369
* fix de l'upload des fichiers de conf (ftp_put)
372
* fix de l'upload des fichiers de conf (ftp_put)
370
*
373
*
371
* Revision 1.26  2007/04/19 15:34:35  neiluj
374
* Revision 1.26  2007/04/19 15:34:35  neiluj
372
* préparration release (livraison) "Narmer" - v0.25
375
* préparration release (livraison) "Narmer" - v0.25
373
*
376
*
374
* Revision 1.25  2006/12/01 15:43:01  alexandre_tb
377
* Revision 1.25  2006/12/01 15:43:01  alexandre_tb
375
* prise en compte dans le rewriteengine de l'activation ou non de la reecriture
378
* prise en compte dans le rewriteengine de l'activation ou non de la reecriture
376
*
379
*
377
* Revision 1.24  2006/12/01 11:47:10  alexandre_tb
380
* Revision 1.24  2006/12/01 11:47:10  alexandre_tb
378
* suppression de var_dump
381
* suppression de var_dump
379
*
382
*
380
* Revision 1.23  2006/12/01 11:46:11  alexandre_tb
383
* Revision 1.23  2006/12/01 11:46:11  alexandre_tb
381
* correction creation .htaccess
384
* correction creation .htaccess
382
*
385
*
383
* Revision 1.22  2006/11/30 17:41:30  alexandre_tb
386
* Revision 1.22  2006/11/30 17:41:30  alexandre_tb
384
* ecriture htaccess
387
* ecriture htaccess
385
*
388
*
386
* Revision 1.21  2006/11/30 17:36:29  alexandre_tb
389
* Revision 1.21  2006/11/30 17:36:29  alexandre_tb
387
* ecriture htaccess
390
* ecriture htaccess
388
*
391
*
389
* Revision 1.20  2006/11/30 16:41:42  alexandre_tb
392
* Revision 1.20  2006/11/30 16:41:42  alexandre_tb
390
* ecriture htaccess
393
* ecriture htaccess
391
*
394
*
392
* Revision 1.19  2006/11/30 15:50:25  ddelon
395
* Revision 1.19  2006/11/30 15:50:25  ddelon
393
* installation fichier
396
* installation fichier
394
*
397
*
395
* Revision 1.18  2006/11/30 15:34:51  alexandre_tb
398
* Revision 1.18  2006/11/30 15:34:51  alexandre_tb
396
* ecriture htaccess
399
* ecriture htaccess
397
*
400
*
398
* Revision 1.17  2006/11/30 15:27:31  alexandre_tb
401
* Revision 1.17  2006/11/30 15:27:31  alexandre_tb
399
* ecriture htaccess
402
* ecriture htaccess
400
*
403
*
401
* Revision 1.16  2006/11/30 14:52:42  alexandre_tb
404
* Revision 1.16  2006/11/30 14:52:42  alexandre_tb
402
* Ecriture du fichier htaccess lors de l installation
405
* Ecriture du fichier htaccess lors de l installation
403
*
406
*
404
* Revision 1.15  2006/10/09 14:35:27  ddelon
407
* Revision 1.15  2006/10/09 14:35:27  ddelon
405
* bug caractere invalie trainant dans fichier
408
* bug caractere invalie trainant dans fichier
406
*
409
*
407
* Revision 1.14  2006/10/06 15:34:30  florian
410
* Revision 1.14  2006/10/06 15:34:30  florian
408
* mise en commentaire .htaccess
411
* mise en commentaire .htaccess
409
*
412
*
410
* Revision 1.13  2006/10/06 15:23:00  florian
413
* Revision 1.13  2006/10/06 15:23:00  florian
411
* amelioration graphique de l'installateur
414
* amelioration graphique de l'installateur
412
*
415
*
413
* Revision 1.12  2006/10/06 14:49:45  ddelon
416
* Revision 1.12  2006/10/06 14:49:45  ddelon
414
* ecriture htaccess a l'installation
417
* ecriture htaccess a l'installation
415
*
418
*
416
* Revision 1.11  2006/10/06 14:46:15  alexandre_tb
419
* Revision 1.11  2006/10/06 14:46:15  alexandre_tb
417
* ecriture du fichier .htaccess
420
* ecriture du fichier .htaccess
418
*
421
*
419
* Revision 1.10  2005/09/23 14:20:23  florian
422
* Revision 1.10  2005/09/23 14:20:23  florian
420
* nouvel habillage installateur, plus correction de quelques bugs
423
* nouvel habillage installateur, plus correction de quelques bugs
421
*
424
*
422
* Revision 1.9  2005/04/12 16:09:45  jpm
425
* Revision 1.9  2005/04/12 16:09:45  jpm
423
* Amélioration de la gestion de la constante de redirection des urls et de la gestion des constantes de type entier et booléen.
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.
424
*
427
*
425
* Revision 1.8  2004/10/25 16:26:35  jpm
428
* Revision 1.8  2004/10/25 16:26:35  jpm
426
* Début gestion des mises à jours.
429
* Début gestion des mises à jours.
427
*
430
*
428
* Revision 1.7  2004/10/25 10:22:48  jpm
431
* Revision 1.7  2004/10/25 10:22:48  jpm
429
* Correction de quelques bogues, ajouts d'explications pour l'utilisateur et modification des styles CSS.
432
* Correction de quelques bogues, ajouts d'explications pour l'utilisateur et modification des styles CSS.
430
*
433
*
431
* Revision 1.6  2004/10/22 17:39:14  jpm
434
* Revision 1.6  2004/10/22 17:39:14  jpm
432
* Correction gestion du slash devant le chemin racine ftp.
435
* Correction gestion du slash devant le chemin racine ftp.
433
*
436
*
434
* Revision 1.5  2004/10/22 17:23:04  jpm
437
* Revision 1.5  2004/10/22 17:23:04  jpm
435
* Simplification del'installation de Papyrus.
438
* Simplification del'installation de Papyrus.
436
*
439
*
437
* Revision 1.4  2004/10/19 17:01:12  jpm
440
* Revision 1.4  2004/10/19 17:01:12  jpm
438
* Correction bogues.
441
* Correction bogues.
439
*
442
*
440
* Revision 1.3  2004/10/19 15:59:18  jpm
443
* Revision 1.3  2004/10/19 15:59:18  jpm
441
* Ajout de la gestion des valeurs propre à Papyrus à insérer dans la base de données.
444
* Ajout de la gestion des valeurs propre à Papyrus à insérer dans la base de données.
442
* Ajout des constantes FTP.
445
* Ajout des constantes FTP.
443
*
446
*
444
* Revision 1.2  2004/10/18 09:12:09  jpm
447
* Revision 1.2  2004/10/18 09:12:09  jpm
445
* Changement de nom d'un fichier.
448
* Changement de nom d'un fichier.
446
*
449
*
447
* Revision 1.1  2004/10/18 09:11:05  jpm
450
* Revision 1.1  2004/10/18 09:11:05  jpm
448
* Changement de nom du fichier.
451
* Changement de nom du fichier.
449
*
452
*
450
* Revision 1.1  2004/10/15 18:28:59  jpm
453
* Revision 1.1  2004/10/15 18:28:59  jpm
451
* Début appli installateur de Papyrus.
454
* Début appli installateur de Papyrus.
452
*
455
*
453
*
456
*
454
* +-- Fin du code ----------------------------------------------------------------------------------------+
457
* +-- Fin du code ----------------------------------------------------------------------------------------+
455
*/
458
*/
456
?>
459
?>