WebSVN – Applications.papyrus – Diff – /trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php/



// |                                                                                                      |
// | You should have received a copy of the GNU Lesser General Public                                     |
// | License along with this library; if not, write to the Free Software                                  |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: adsi_site.fonct.php,v 1.34 2007-04-20 09:21:41 neiluj Exp $
/**
* Bibliothèque de fonctions d'admininistration des projets
*
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
* sur les projets (=sites gérés par Papyrus).

*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
*@author        Laurent COUDOUNEAU <lc@gsite.org>
*@copyright     Tela-Botanica 2000-2004
*@version       $Revision: 1.34 $ $Date: 2007-04-20 09:21:41 $
// +------------------------------------------------------------------------------------------------------+
*/

 
// +------------------------------------------------------------------------------------------------------+

                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
                        'Ligne n° : '. __LINE__ .'<br />'.
                        'Fichier n° : '. __FILE__ .'<br /><p>';
            return $message;
        }
        $resultat = $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;

        
       if (PEAR::isError($resultat)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
                        'Répertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
                        'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
                        'Ligne n° : '. __LINE__ .'<br />'.
                        'Fichier n° : '. __FILE__ .'<br /></p>';
            return $message;
        }
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
        foreach ($tab_rep_langue as $nom_rep_langue) {
            $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
            foreach ($tab_rep_site as $nom_rep_site) {

                $chemin_repertoire =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
                
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
                if (PEAR::isError($resultat)) {

                }
            }
        }
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
        if (PEAR::isError($resultat)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.

                        'Fichier n° : '. __FILE__ .'<br /></p>';
                return $message;
        }
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
        if (PEAR::isError($resultat)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.

                return $message;
        }

        
        $chemin_image_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
                                GEN_DOSSIER_IMAGE.GEN_SEP;
        $chemin_image_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
        $resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);
        if (PEAR::isError($resultat)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.

                            'Fichier n° : '. __FILE__ .'<br /></p>';
                return $message;
            }
        } else {
            $chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
            $chemin_site_nouveau = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
            // Création d'une connection ftp avec Net_FTP de PEAR
            // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
            // création de l'objet pear ftp
            $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
            // création de la connexion

                            'Ligne n° : '. __LINE__ .'<br />'.
                            'Fichier n° : '. __FILE__ .'<br /></p>';
                    return $message;
            }
            // On utilise la racine FTP pour rm
            $chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
            // Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
            error_reporting(E_PARSE);
            $resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
            if (PEAR::isError($resultat)) {
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.

                        'Fichier n° : '. __FILE__ .'<br /><p>';
            return $message;
        }
        // Changement du niveau d'erreur pour éviter les Notices PHP dues à  Net_FTP
        error_reporting(E_PARSE);
        $chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';

        
        if ($code_alpha_site_principal!='') {
	        $resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
	        if (PEAR::isError($resultat)) {

}

    
// +- Fin du code source  --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* Revision 1.33  2007/04/19 15:34:35  neiluj
* préparration release (livraison) "Narmer" - v0.25
*
* Revision 1.32  2006/10/16 15:49:06  ddelon
* Refactorisation code mulitlinguisme et gestion menu invisibles
*
* Revision 1.31  2006/09/12 09:54:02  ddelon

Subversion Repositories Applications.papyrus

(root)/trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php/ – Rev 1336 → 1350

Rev 1336		Rev 1350
Line 17...		Line 17...
17	`// \| \|`	17	`// \| \|`
18	`// \| You should have received a copy of the GNU Lesser General Public \|`	18	`// \| You should have received a copy of the GNU Lesser General Public \|`
19	`// \| License along with this library; if not, write to the Free Software \|`	19	`// \| License along with this library; if not, write to the Free Software \|`
20	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`	20	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`
21	`// +------------------------------------------------------------------------------------------------------+`	21	`// +------------------------------------------------------------------------------------------------------+`
22	`// CVS : $Id: adsi_site.fonct.php,v 1.33 2007-04-19 15:34:35 neiluj Exp $`	22	`// CVS : $Id: adsi_site.fonct.php,v 1.34 2007-04-20 09:21:41 neiluj Exp $`
23	`/**`	23	`/**`
24	`* Bibliothèque de fonctions d'admininistration des projets`	24	`* Bibliothèque de fonctions d'admininistration des projets`
25	`*`	25	`*`
26	`* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations`	26	`* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations`
27	`* sur les projets (=sites gérés par Papyrus).`	27	`* sur les projets (=sites gérés par Papyrus).`
Line 32...		Line 32...
32	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`	32	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`
33	`//Autres auteurs :`	33	`//Autres auteurs :`
34	`*@author Alexandre GRANIER <alexandre@tela-botanica.org>`	34	`*@author Alexandre GRANIER <alexandre@tela-botanica.org>`
35	`*@author Laurent COUDOUNEAU <lc@gsite.org>`	35	`*@author Laurent COUDOUNEAU <lc@gsite.org>`
36	`*@copyright Tela-Botanica 2000-2004`	36	`*@copyright Tela-Botanica 2000-2004`
37	`*@version $Revision: 1.33 $ $Date: 2007-04-19 15:34:35 $`	37	`*@version $Revision: 1.34 $ $Date: 2007-04-20 09:21:41 $`
38	`// +------------------------------------------------------------------------------------------------------+`	38	`// +------------------------------------------------------------------------------------------------------+`
39	`*/`	39	`*/`
Line 40...		Line 40...
40		40
41	`// +------------------------------------------------------------------------------------------------------+`	41	`// +------------------------------------------------------------------------------------------------------+`
Line 913...		Line 913...
913	`'Erreur login : '.$ftp_login_result->getMessage().'<br />'.`	913	`'Erreur login : '.$ftp_login_result->getMessage().'<br />'.`
914	`'Ligne n° : '. __LINE__ .'<br />'.`	914	`'Ligne n° : '. __LINE__ .'<br />'.`
915	`'Fichier n° : '. __FILE__ .'<br /><p>';`	915	`'Fichier n° : '. __FILE__ .'<br /><p>';`
916	`return $message;`	916	`return $message;`
917	`}`	917	`}`
918	`$resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`	918	`$resultat = $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`
Line 919...		Line 919...
919		919
920	`if (PEAR::isError($resultat)) {`	920	`if (PEAR::isError($resultat)) {`
921	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.`	921	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.`
922	`'Répertoire : '. PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.`	922	`'Répertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.`
923	`'Erreur origine : '. $resultat->getMessage() .'<br />'.`	923	`'Erreur origine : '. $resultat->getMessage() .'<br />'.`
924	`'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.`	924	`'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.`
925	`'Ligne n° : '. __LINE__ .'<br />'.`	925	`'Ligne n° : '. __LINE__ .'<br />'.`
926	`'Fichier n° : '. __FILE__ .'<br /></p>';`	926	`'Fichier n° : '. __FILE__ .'<br /></p>';`
927	`return $message;`	927	`return $message;`
928	`}`	928	`}`
929	`//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`	929	`//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`
930	`foreach ($tab_rep_langue as $nom_rep_langue) {`	930	`foreach ($tab_rep_langue as $nom_rep_langue) {`
931	`$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;`	931	`$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;`
932	`foreach ($tab_rep_site as $nom_rep_site) {`	932	`foreach ($tab_rep_site as $nom_rep_site) {`
Line 933...		Line 933...
933	`$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;`	933	`$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;`
934		934
935	`$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;`	935	`$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;`
936	`if (PEAR::isError($resultat)) {`	936	`if (PEAR::isError($resultat)) {`
Line 944...		Line 944...
944	`}`	944	`}`
945	`}`	945	`}`
946	`}`	946	`}`
947	`$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	947	`$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
948	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	948	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
949	`$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	949	`$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
950	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	950	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
951	`$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);`	951	`$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);`
952	`if (PEAR::isError($resultat)) {`	952	`if (PEAR::isError($resultat)) {`
953	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.`	953	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.`
954	`'Fichier origine : '. $chemin_squelette_defaut .'<br />'.`	954	`'Fichier origine : '. $chemin_squelette_defaut .'<br />'.`
Line 958...		Line 958...
958	`'Fichier n° : '. __FILE__ .'<br /></p>';`	958	`'Fichier n° : '. __FILE__ .'<br /></p>';`
959	`return $message;`	959	`return $message;`
960	`}`	960	`}`
961	`$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	961	`$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
962	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	962	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
963	`$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	963	`$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
964	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	964	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
965	`$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);`	965	`$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);`
966	`if (PEAR::isError($resultat)) {`	966	`if (PEAR::isError($resultat)) {`
967	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.`	967	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.`
968	`'Fichier origine : '. $chemin_style_defaut .'<br />'.`	968	`'Fichier origine : '. $chemin_style_defaut .'<br />'.`
Line 973...		Line 973...
973	`return $message;`	973	`return $message;`
974	`}`	974	`}`
Line 975...		Line 975...
975		975
976	`$chemin_image_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	976	`$chemin_image_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
977	`GEN_DOSSIER_IMAGE.GEN_SEP;`	977	`GEN_DOSSIER_IMAGE.GEN_SEP;`
978	`$chemin_image_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	978	`$chemin_image_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
979	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;`	979	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;`
980	`$resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);`	980	`$resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);`
981	`if (PEAR::isError($resultat)) {`	981	`if (PEAR::isError($resultat)) {`
982	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.`	982	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.`
Line 1436...		Line 1436...
1436	`'Fichier n° : '. __FILE__ .'<br /></p>';`	1436	`'Fichier n° : '. __FILE__ .'<br /></p>';`
1437	`return $message;`	1437	`return $message;`
1438	`}`	1438	`}`
1439	`} else {`	1439	`} else {`
1440	`$chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;`	1440	`$chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;`
1441	`$chemin_site_nouveau = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;`	1441	`$chemin_site_nouveau = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;`
1442	`// Création d'une connection ftp avec Net_FTP de PEAR`	1442	`// Création d'une connection ftp avec Net_FTP de PEAR`
1443	`// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php`	1443	`// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php`
1444	`// création de l'objet pear ftp`	1444	`// création de l'objet pear ftp`
1445	`$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);`	1445	`$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);`
1446	`// création de la connexion`	1446	`// création de la connexion`
Line 1467...		Line 1467...
1467	`'Ligne n° : '. __LINE__ .'<br />'.`	1467	`'Ligne n° : '. __LINE__ .'<br />'.`
1468	`'Fichier n° : '. __FILE__ .'<br /></p>';`	1468	`'Fichier n° : '. __FILE__ .'<br /></p>';`
1469	`return $message;`	1469	`return $message;`
1470	`}`	1470	`}`
1471	`// On utilise la racine FTP pour rm`	1471	`// On utilise la racine FTP pour rm`
1472	`$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;`	1472	`$chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;`
1473	`// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP`	1473	`// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP`
1474	`error_reporting(E_PARSE);`	1474	`error_reporting(E_PARSE);`
1475	`$resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);`	1475	`$resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);`
1476	`if (PEAR::isError($resultat)) {`	1476	`if (PEAR::isError($resultat)) {`
1477	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.`	1477	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.`
Line 1735...		Line 1735...
1735	`'Fichier n° : '. __FILE__ .'<br /><p>';`	1735	`'Fichier n° : '. __FILE__ .'<br /><p>';`
1736	`return $message;`	1736	`return $message;`
1737	`}`	1737	`}`
1738	`// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP`	1738	`// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP`
1739	`error_reporting(E_PARSE);`	1739	`error_reporting(E_PARSE);`
1740	`$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';`	1740	`$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';`
Line 1741...		Line 1741...
1741		1741
1742	`if ($code_alpha_site_principal!='') {`	1742	`if ($code_alpha_site_principal!='') {`
1743	`$resultat = $objet_pear_ftp->rm($chemin_repertoire, true);`	1743	`$resultat = $objet_pear_ftp->rm($chemin_repertoire, true);`
1744	`if (PEAR::isError($resultat)) {`	1744	`if (PEAR::isError($resultat)) {`
Line 1826...		Line 1826...
1826	`}`	1826	`}`
Line 1827...		Line 1827...
1827		1827
1828	`// +- Fin du code source --------------------------------------------------------------------------------+`	1828	`// +- Fin du code source --------------------------------------------------------------------------------+`
1829	`/*`	1829	`/*`
-		1830	`* $Log: not supported by cvs2svn $`
-		1831	`* Revision 1.33 2007/04/19 15:34:35 neiluj`
-		1832	`* préparration release (livraison) "Narmer" - v0.25`
1830	`* $Log: not supported by cvs2svn $`	1833	`*`
1831	`* Revision 1.32 2006/10/16 15:49:06 ddelon`	1834	`* Revision 1.32 2006/10/16 15:49:06 ddelon`
1832	`* Refactorisation code mulitlinguisme et gestion menu invisibles`	1835	`* Refactorisation code mulitlinguisme et gestion menu invisibles`
1833	`*`	1836	`*`
1834	`* Revision 1.31 2006/09/12 09:54:02 ddelon`	1837	`* Revision 1.31 2006/09/12 09:54:02 ddelon`