| Line 30... |
Line 30... |
| 30 |
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
30 |
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
| 31 |
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
31 |
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
| 32 |
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
|
32 |
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
|
| 33 |
// | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
33 |
// | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
| 34 |
// +------------------------------------------------------------------------------------------------------+
|
34 |
// +------------------------------------------------------------------------------------------------------+
|
| 35 |
// CVS : $Id: instal_fichier.inc.php,v 1.7 2004-10-25 10:22:48 jpm Exp $
|
35 |
// CVS : $Id: instal_fichier.inc.php,v 1.8 2004-10-25 16:26:35 jpm Exp $
|
| 36 |
/**
|
36 |
/**
|
| 37 |
* Page de création des fichiers nécessaire à l'installation de Papyrus.
|
37 |
* Page de création des fichiers nécessaire à l'installation de Papyrus.
|
| 38 |
*
|
38 |
*
|
| 39 |
* Page permettant de créer le fichier de configuration de Papyrus.
|
39 |
* Page permettant de créer le fichier de configuration de Papyrus.
|
| 40 |
*
|
40 |
*
|
| Line 44... |
Line 44... |
| 44 |
//Autres auteurs :
|
44 |
//Autres auteurs :
|
| 45 |
*@author David DELON
|
45 |
*@author David DELON
|
| 46 |
*@author Patrick PAUL
|
46 |
*@author Patrick PAUL
|
| 47 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
47 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
| 48 |
*@copyright Tela-Botanica 2000-2004
|
48 |
*@copyright Tela-Botanica 2000-2004
|
| 49 |
*@version $Revision: 1.7 $ $Date: 2004-10-25 10:22:48 $
|
49 |
*@version $Revision: 1.8 $ $Date: 2004-10-25 16:26:35 $
|
| 50 |
// +------------------------------------------------------------------------------------------------------+
|
50 |
// +------------------------------------------------------------------------------------------------------+
|
| 51 |
**/
|
51 |
**/
|
| Line 52... |
Line 52... |
| 52 |
|
52 |
|
| 53 |
// +------------------------------------------------------------------------------------------------------+
|
53 |
// +------------------------------------------------------------------------------------------------------+
|
| Line 128... |
Line 128... |
| 128 |
// Tentative d'écriture du fichier de config
|
128 |
// Tentative d'écriture du fichier de config
|
| 129 |
$sortie_verif .= ' <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
|
129 |
$sortie_verif .= ' <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
|
| 130 |
$chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
|
130 |
$chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
|
| 131 |
$url_ftp = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
|
131 |
$url_ftp = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
|
| 132 |
'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
|
132 |
'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
|
| - |
|
133 |
|
| - |
|
134 |
// Dans le cas, où nous mettons à jour Papyrus, il faut supprimer l'ancien fichier de config
|
| - |
|
135 |
if (INSTAL_VERSION_ANCIENNE != '') {
|
| - |
|
136 |
$txt_suppression = 'Suppression de <tt>'.$chemin_fpt_absolu.'</tt>...';
|
| - |
|
137 |
$txt_suppression_erreur = '<p>Le fichier <tt>'.$chemin_fpt_absolu.'</tt> ne peut être supprimer automatiquement. '.
|
| - |
|
138 |
'Veuillez utiliser un logiciel de transfert de fichier par FTP pour le supprimer.</p>';
|
| - |
|
139 |
$erreur = testerConfig($sortie_verif, $txt_suppression, unlink($url_ftp), $txt_suppression_erreur, 1, $erreur);
|
| - |
|
140 |
}
|
| - |
|
141 |
|
| - |
|
142 |
// Nous écrivons le fichier de config sur le disque
|
| 133 |
$fp = @fopen($url_ftp, 'w');
|
143 |
$fp = @fopen($url_ftp, 'w');
|
| 134 |
$txt_ecriture_conf = 'Écriture sur le serveur de <tt>'.$chemin_fpt_absolu.'</tt>...';
|
144 |
$txt_ecriture_conf = 'Écriture sur le serveur de <tt>'.$chemin_fpt_absolu.'</tt>...';
|
| 135 |
$txt_ecriture_conf_erreur = '<p><span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$chemin_fpt_absolu.
|
145 |
$txt_ecriture_conf_erreur = '<p><span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$chemin_fpt_absolu.
|
| 136 |
'</tt> n\'a pu être créé. Veuillez vous assurez que votre serveur a les droits '.
|
146 |
'</tt> n\'a pu être créé. Veuillez vous assurez que votre serveur a les droits '.
|
| 137 |
'd\'accès en écriture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
|
147 |
'd\'accès en écriture pour ce fichier. Si pour une raison quelconque vous ne pouvez pas '.
|
| Line 229... |
Line 239... |
| 229 |
|
239 |
|
| 230 |
|
240 |
|
| 231 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
241 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
| - |
|
242 |
*
|
| - |
|
243 |
* $Log: not supported by cvs2svn $
|
| - |
|
244 |
* Revision 1.7 2004/10/25 10:22:48 jpm
|
| 232 |
*
|
245 |
* Correction de quelques bogues, ajouts d'explications pour l'utilisateur et modification des styles CSS.
|
| 233 |
* $Log: not supported by cvs2svn $
|
246 |
*
|
| 234 |
* Revision 1.6 2004/10/22 17:39:14 jpm
|
247 |
* Revision 1.6 2004/10/22 17:39:14 jpm
|
| 235 |
* Correction gestion du slash devant le chemin racine ftp.
|
248 |
* Correction gestion du slash devant le chemin racine ftp.
|
| 236 |
*
|
249 |
*
|