Subversion Repositories Applications.papyrus

Rev

Rev 1564 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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