Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 96 → Rev 97

/trunk/papyrus/applications/installateur/instal_fichier.inc.php
32,7 → 32,7
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
// | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: instal_fichier.inc.php,v 1.5 2004-10-22 17:23:04 jpm Exp $
// CVS : $Id: instal_fichier.inc.php,v 1.6 2004-10-22 17:39:14 jpm Exp $
/**
* Page de création des fichiers nécessaire à l'installation de Papyrus.
*
46,7 → 46,7
*@author Patrick PAUL
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.5 $ $Date: 2004-10-22 17:23:04 $
*@version $Revision: 1.6 $ $Date: 2004-10-22 17:39:14 $
// +------------------------------------------------------------------------------------------------------+
**/
 
86,9 → 86,9
$sortie .= '<p><strong>Etape n°'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</strong></p>'."\n";
 
// Correction éventuelle des informations saisies par l'utilisateur
if (preg_match('/^\/(.*)$/', $fichier['PAP_FTP_RACINE'], $instal_tab_txt)) {
if (preg_match('/^(?:\/|\\)(.*)$/', $fichier['PAP_FTP_RACINE']) == 1) {
// le chemin FTP ne doit pas commencer par un slash, nous le supprimons
$fichier['PAP_FTP_RACINE'] = $instal_tab_txt[1];
$fichier['PAP_FTP_RACINE'] = GEN_SEP.$fichier['PAP_FTP_RACINE'];
}
 
// Nous vérifions si nous sommes en phase de test du formulaire de config de l'écriture de fichier
121,7 → 121,7
// Tentative d'écriture du fichier de config
$sortie_verif .= ' <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
$chemin_fpt_absolu = GEN_SEP.$fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
$chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
$url_ftp = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
$fp = @fopen($url_ftp, 'w');
222,6 → 222,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.5 2004/10/22 17:23:04 jpm
* Simplification del'installation de Papyrus.
*
* Revision 1.4 2004/10/19 17:01:12 jpm
* Correction bogues.
*