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.37 2007-04-24 13:27:57 alexandre_tb Exp $
+// CVS : $Id: adsi_site.fonct.php,v 1.38 2007-06-25 12:15:06 alexandre_tb Exp $
 /**
 * Bibliotheque de fonctions d'admininistration des projets
+*
 * Contient un ensemble de fonctions permettant a l'application Administrateur de Papyrus, de modifier des informations
 * sur les projets (=sites geres 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.37 $ $Date: 2007-04-24 13:27:57 $
+*@version       $Revision: 1.38 $ $Date: 2007-06-25 12:15:06 $
 // +------------------------------------------------------------------------------------------------------+
 */
 // +------------------------------------------------------------------------------------------------------+
+{
     $message = '';
     // Validation des donnees du formulaire
     if (empty($aso_valeurs['form_sites_id_site'])) {
-        $message .= '<p class="pap_erreur">Vous devez d\'abord sélectionner un site.</p>';
+        $message .= '<p class="pap_erreur">Vous devez d\'abord s&eacute;lectionner un site.</p>';
+    }
     $id = 'gs_mots_cles';
     $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
     $label = '<label for="'.$id.'">'.'Mots-cl&eacute;s : '.'</label>';
     $zone_mots_cles = $form->createElement('textarea', $id, $label, $aso_attributs);
-    $zone_mots_cles->setValue('mots-clés du site');
+    $zone_mots_cles->setValue('mots-cl&eacute;s du site');
     $form->addElement($zone_mots_cles);
     $form->addRule($id, 'Des mots cl&eacute;s sont requis pour le site !', 'required', '', 'client');
     if (empty($aso_valeurs['gs_titre'])) {
         $message .= '<p class="pap_erreur">Le champ "Titre" ne doit pas &ecirc;tre vide.</p>';
+    }
     if (empty($aso_valeurs['gs_mots_cles'])) {
-        $message .= '<p class="pap_erreur">Le champ "Mots clés" ne doit pas &ecirc;tre vide.</p>';
+        $message .= '<p class="pap_erreur">Le champ "Mots cl&eacute;s" ne doit pas &ecirc;tre vide.</p>';
+    }
     if (empty($aso_valeurs['gs_description'])) {
         $message .= '<p class="pap_erreur">Le champ "Description" ne doit pas &ecirc;tre vide.</p>';
+    }
                         'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
                         'Ligne n&deg; : '. __LINE__ .'<br />'.
                         'Fichier n&deg; : '. __FILE__ .'<br /><p>';
             return $message;
+        }
-        $resultat = $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
+        $resultat = $objet_pear_ftp->mkdir(PAP_FTP_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&eacute;pertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
                         'Fichier n&deg; : '. __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) ;
+            $objet_pear_ftp->mkdir(PAP_FTP_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;
+                $chemin_repertoire =    PAP_FTP_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)) {
                     $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le r&eacute;pertoire par ftp.<br />'.
+                }
+            }
+        }
         $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.
+        $chemin_squelette_site =    PAP_FTP_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&deg; : '. __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.
+        $chemin_style_site =    PAP_FTP_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.
+        $chemin_image_site =    PAP_FTP_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 />'.
+            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le dossier images par ftp.<br />'.
-                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
+                        'Fichier origine : '. $chemin_image_defaut .'<br />'.
-                        'Fichier copi&eacute; : '. $chemin_style_site .'<br />'.
+                        'Fichier copi&eacute; : '. $chemin_image_site .'<br />'.
                         'Erreur origine : '. $resultat->getMessage() .'<br />'.
                         'Ligne n&deg; : '. __LINE__ .'<br />'.
                         'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                 return $message;
         if (DB::isError($resultat)) {
             die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
+        }
+    }
-    $message = '<p class="pap_info">'.'Succès de l\'ajout du site.'.'</p>';
+    $message = '<p class="pap_info">'.'Succ&eacute;s de l\'ajout du site.'.'</p>';
     return $message;
+}
                             GEN_DOSSIER_SQUELETTE,
                             GEN_DOSSIER_DOC);
     if (!GEN_FTP_UTILISE && $id_type_site != '103') {
         foreach ($tab_rep_langue as $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.
+                $chemin_repertoire =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                         $nom_rep_langue.GEN_SEP.$nom_rep_site;
                 $vieux_umask = umask(0);
                 $resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
                 umask($vieux_umask);
                 if ($resultat == false) {
                                 'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                     return $message;
+                }
+            }
+        }
-        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
+        $chemin_squelette_defaut =  PAP_FTP_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.
+        $chemin_squelette_site =    PAP_FTP_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;
         if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
             $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de squellete par d&eacute;faut.<br />'.
                         'Fichier : '. $chemin_squelette_site .'<br />'.
                         'Ligne n&deg; : '. __LINE__ .'<br />'.
                         'Fichier n&deg; : '. __FILE__ .'<br /></p>';
             return $message;
+        }
-        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
+        $chemin_style_defaut =  PAP_FTP_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.
+        $chemin_style_site =    PAP_FTP_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;
         if (!copy($chemin_style_defaut, $chemin_style_site)) {
             $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de style par défaut.<br />'.
                         'Fichier : '. $chemin_style_site .'<br />'.
-                        'Ligne n° : '. __LINE__ .'<br />'.
+                        'Ligne n&deg; : '. __LINE__ .'<br />'.
-                        'Fichier n° : '. __FILE__ .'<br /></p>';
+                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
             return $message;
+        }
     } else if (GEN_FTP_UTILISE && $id_type_site != '103') {  // 103 est le type "site externe"
         // Création d'une connection ftp avec Net_FTP de PEAR
         // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
             $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
                         'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
                         'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
                         'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
                         'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
-                        'Ligne n° : '. __LINE__ .'<br />'.
+                        'Ligne n&deg; : '. __LINE__ .'<br />'.
-                        'Fichier n° : '. __FILE__ .'<br /><p>';
+                        'Fichier n&deg; : '. __FILE__ .'<br /><p>';
             return $message;
+        }
-        $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
+        $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
         //$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) ;
+            $objet_pear_ftp->mkdir(PAP_FTP_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;
+                $chemin_repertoire =    PAP_FTP_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)) {
                     $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
-                                'Répertoire : '. $chemin_repertoire .'<br />'.
+                                'R&eacute;pertoire : '. $chemin_repertoire .'<br />'.
                                 'Erreur origine : '. $resultat->getMessage() .'<br />'.
-                                'Ligne n° : '. __LINE__ .'<br />'.
+                                'Ligne n&deg; : '. __LINE__ .'<br />'.
-                                'Fichier n° : '. __FILE__ .'<br /></p>';
+                                'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                     return $message;
+                }
             }
+        }
-        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
+        $chemin_squelette_defaut =  PAP_FTP_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.
+        $chemin_squelette_site =    PAP_FTP_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 copié : '. $chemin_squelette_site .'<br />'.
+                        'Fichier copi&eacute; : '. $chemin_squelette_site .'<br />'.
                         'Erreur origine : '. $resultat->getMessage() .'<br />'.
-                        'Ligne n° : '. __LINE__ .'<br />'.
+                        'Ligne n&deg; : '. __LINE__ .'<br />'.
-                        'Fichier n° : '. __FILE__ .'<br /></p>';
+                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                 return $message;
+        }
-        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
+        $chemin_style_defaut =  PAP_FTP_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.
+        $chemin_style_site =    PAP_FTP_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 />'.
-                        'Fichier copié : '. $chemin_style_site .'<br />'.
+                        'Fichier copi&eacute; : '. $chemin_style_site .'<br />'.
                         'Erreur origine : '. $resultat->getMessage() .'<br />'.
-                        'Ligne n° : '. __LINE__ .'<br />'.
+                        'Ligne n&deg; : '. __LINE__ .'<br />'.
-                        'Fichier n° : '. __FILE__ .'<br /></p>';
+                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                 return $message;
+        }
         $objet_pear_ftp->disconnect();
+    }
     $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
     if ($id_site == false) {
         $message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
-                    'Ligne n° : '. __LINE__ .'<br />'.
+                    'Ligne n&deg; : '. __LINE__ .'<br />'.
-                    'Fichier n° : '. __FILE__ .'<br /></p>';
+                    'Fichier n&deg; : '. __FILE__ .'<br /></p>';
         if (DB::isError($resultat)) {
             die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
+        }
+    }
-    $message = '<p class="pap_info">'.'Succès de l\'ajout du site.'.'</p>';
+    $message = '<p class="pap_info">'.'Succ&eacute;s de l\'ajout du site.'.'</p>';
     return $message;
+}
             $chemin_site_nouveau = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
             if (!rename($chemin_site_ancien, $chemin_site_nouveau)) {
                 $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de changer le nom du dossier du site.<br />'.
                             'Ancien nom : '. $chemin_site_ancien .'<br />'.
                             'Nouveau nom : '. $chemin_site_nouveau .'<br />'.
-                            'Ligne n° : '. __LINE__ .'<br />'.
+                            'Ligne n&deg; : '. __LINE__ .'<br />'.
-                            'Fichier n° : '. __FILE__ .'<br /></p>';
+                            'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                 return $message;
+            }
         } else {
-            $chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
+            $chemin_site_ancien = PAP_FTP_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;
+            $chemin_site_nouveau = PAP_FTP_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
                 $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
                             'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
                             'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
                             'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
                             'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
-                            'Ligne n° : '. __LINE__ .'<br />'.
+                            'Ligne n&deg; : '. __LINE__ .'<br />'.
-                            'Fichier n° : '. __FILE__ .'<br /><p>';
+                            'Fichier n&deg; : '. __FILE__ .'<br /><p>';
                 return $message;
+            }
             $resultat = $objet_pear_ftp->putRecursive($chemin_site_ancien, $chemin_site_nouveau, false, FTP_BINARY);
             if (PEAR::isError($resultat)) {
                 $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier l\'ancien dossier du site.<br />'.
                             'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
                             'Dossier site nouveau : '. $chemin_site_nouveau .'<br />'.
                             'Erreur origine : '. $resultat->getMessage() .'<br />'.
-                            'Ligne n° : '. __LINE__ .'<br />'.
+                            'Ligne n&deg; : '. __LINE__ .'<br />'.
-                            'Fichier n° : '. __FILE__ .'<br /></p>';
+                            'Fichier n&deg; : '. __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;
+            $chemin_site_ancien = PAP_FTP_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 />'.
                             'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
                             'Erreur origine : '. $resultat->getMessage() .'<br />'.
-                            'Ligne n° : '. __LINE__ .'<br />'.
+                            'Ligne n&deg; : '. __LINE__ .'<br />'.
-                            'Fichier n° : '. __FILE__ .'<br /></p>';
+                            'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                     return $message;
+            }
             // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
             error_reporting(GEN_DEBOGAGE_NIVEAU);
             $objet_pear_ftp->disconnect();
+    }
     // Nous vérifions que le site n'a pas le code alphanum correspondant au site par défaut d'administration (admin).
     if ($code_alpha_site_principal == GEN_SITE_DEFAUT) {
         $message =  '<p class="pap_erreur">Si vous voulez vraiment supprimer le site d\'administration par défaut de '.
-                    'Papyrus, veuillez commencer par changer la valeur de son code alphanumérique. Vous pourrez '.
+                    'Papyrus, veuillez commencer par changer la valeur de son code alphanum&eacute;rique. Vous pourrez '.
                     'ensuite le supprimer via cette interface.</p>';
         return $message;
+    }
     // Suppression des répertoires du site
     if (!GEN_FTP_UTILISE) {
         $chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal;
         $resultat = supprimerDossier($chemin_repertoire, GEN_SEP);
         if (!$resultat) {
-            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire.<br />'.
+            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le r&eacute;pertoire.<br />'.
-                        'Répertoire : '. $chemin_repertoire .'<br />'.
+                        'R&eacute;pertoire : '. $chemin_repertoire .'<br />'.
-                        'Ligne n° : '. __LINE__ .'<br />'.
+                        'Ligne n&deg; : '. __LINE__ .'<br />'.
-                        'Fichier n° : '. __FILE__ .'<br /></p>';
+                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
             return $message;
+        }
     } else {
         // Création d'une connection ftp avec Net_FTP de PEAR
         // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
             $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
                         'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
                         'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
                         'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
                         'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
-                        'Ligne n° : '. __LINE__ .'<br />'.
+                        'Ligne n&deg; : '. __LINE__ .'<br />'.
-                        'Fichier n° : '. __FILE__ .'<br /><p>';
+                        'Fichier n&deg; : '. __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.'/';
+        $chemin_repertoire = PAP_FTP_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)) {
-	            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire par ftp.<br />'.
+	            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le r&eacute;pertoire par ftp.<br />'.
 	                        'Erreur ftp : '.$resultat->getMessage().'<br />'.
-	                        'Répertoire : '. $chemin_repertoire .'<br />'.
+	                        'R&eacute;pertoire : '. $chemin_repertoire .'<br />'.
-	                        'Ligne n° : '. __LINE__ .'<br />'.
+	                        'Ligne n&deg; : '. __LINE__ .'<br />'.
-	                        'Fichier n° : '. __FILE__ .'<br /></p>';
+	                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
 	            return $message;
+	        }
+        }
         $objet_pear_ftp->disconnect();
         // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
         error_reporting(GEN_DEBOGAGE_NIVEAU);
     }
-    $message = '<p class="pap_info">Succès de la suppression du site.</p>';
+    $message = '<p class="pap_info">Succ&eacute;s de la suppression du site.</p>';
     return $message;
+}
+}
 // +- Fin du code source  --------------------------------------------------------------------------------+
 /*
+* $Log: not supported by cvs2svn $
+* Revision 1.37  2007/04/24 13:27:57  alexandre_tb
+* encodage
 * $Log: not supported by cvs2svn $
 * Revision 1.36  2007/04/20 13:48:31  alexandre_tb
 * nettoyage accent
+*
 * Revision 1.35  2007/04/20 10:42:42  neiluj

Subversion Repositories Applications.papyrus

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