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.35 2007-04-20 10:42:42 neiluj Exp $
+// CVS : $Id: adsi_site.fonct.php,v 1.36 2007-04-20 13:48:31 alexandre_tb Exp $
 /**
-* Bibliothèque de fonctions d'admininistration des projets
+* Bibliotheque de fonctions d'admininistration des projets
+*
-* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
+* Contient un ensemble de fonctions permettant a l'application Administrateur de Papyrus, de modifier des informations
-* sur les projets (=sites gérés par Papyrus).
+* sur les projets (=sites geres par Papyrus).
+*
 *@package Admin_site
 *@subpackage Fonctions
 //Auteur original :
 *@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.35 $ $Date: 2007-04-20 10:42:42 $
+*@version       $Revision: 1.36 $ $Date: 2007-04-20 13:48:31 $
 // +------------------------------------------------------------------------------------------------------+
 */
 // +------------------------------------------------------------------------------------------------------+
 // |                                            ENTÊTE du PROGRAMME                                       |
 // +------------------------------------------------------------------------------------------------------+
 if (GEN_FTP_UTILISE) {
-    /** Inclusion bibliothèque de PEAR gérant le FTP.*/
+    /** Inclusion bibliotheque de PEAR gerant le FTP.*/
     require_once ADSI_CHEMIN_BIBLIOTHEQUE_PEAR.'Net/FTP.php';
+}
 // +------------------------------------------------------------------------------------------------------+
 // |                                            CORPS du PROGRAMME                                        |
 // +------------------------------------------------------------------------------------------------------+
-/** Fonction ADMIN_afficherListeSites()- Génère le xhtml permettant de choisir un site parmis une liste.
+/** Fonction ADMIN_afficherListeSites()- Genere le xhtml permettant de choisir un site parmis une liste.
+*
-* Cette fonction fournie une liste des sites principaux gérés par Papyrus.
+* Cette fonction fournie une liste des sites principaux geres par papyrus.
+*
 * @param  string   l'objet Pear DB.
 * @param  string   l'url de la page à laquelle renvoyer le formulaire.
 * @param  string   un message important à destination de l'utilisateur.
-* return  string   le code XHTML à retourner.
+* return  string   le code XHTML a retourner.
 */
 function ADMIN_afficherFormListeSites(&$db, $url, $message = '')
     			   $liste_site[]=$ligne;
+    		}
+    }
     $resultat->free();
-    // Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
+    // Si la langue en cours n'est pas la langue par defaut, recherche des sites ayant comme langue
     // la langue par defaut, non traduits dans la langue en cours et n'etant pas des traductions
 */
 function ADMIN_validerFormListesSites(&$db, $aso_valeurs)
+{
     $message = '';
-    // Validation des données du formulaire
+    // 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>';
+    }
 /** Fonction ADMIN_afficherFormSite()- Génère un formulaire pour gen_site.
+*
 * Cette fonction retourne un formulaire pour modification ou pour ajout.
 *
-* @param  string   l'objet pear de connexion à la base de données.
+* @param  string   l'objet pear de connexion a la base de donnees.
-* @param  string   l'url à laquelle renvoyer le formulaire.
+* @param  string   l'url a laquelle renvoyer le formulaire.
 * @param  string   le tableau contenant les valeurs du formulaire.
-* @param  string   un message à destination de l'utilisateur.
+* @param  string   un message a destination de l'utilisateur.
-* return  string   le code XHTML à retourner.
+* return  string   le code XHTML a retourner.
 */
 function ADMIN_afficherFormSite(&$db, $url, $aso_valeurs = array(), $message = '')
+{
     // Initialisation des valeurs
     $sortie = '';
     $aso_valeurs['modification'] = false;
     $aso_valeurs['traduction'] = false;
     $aso_valeurs['defaut'] = false;
     $aso_valeurs['type_site_externe'] = 0;
-    // Nous cherchons à savoir si nous somme en modification
+    // Nous cherchons a savoir si nous somme en modification
     if ((isset($aso_valeurs['form_sites_modifier']))  || (isset($aso_valeurs['form_sites_traduire'])))  {
     	if ((isset($aso_valeurs['form_sites_modifier']))) {
         	$as_val['modification'] = true;
         	$as_val['traduction'] = false;
+       		 }
         else {
           	$site_id = $aso_valeurs['form_sites_id_site'];
+      	 }
-	        // Requete pour récupérer les informations sur le site à modifier
+	        // Requete pour recuperer les informations sur le site a modifier
 	        $requete =  'SELECT * '.
 	                    'FROM gen_site '.
 	                    'WHERE gs_id_site = '.$site_id;
 	        $resultat = $db->query($requete);
+	        }
 	        $aso_valeurs = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
 	        $site_ligne = $aso_valeurs;
 	        $resultat->free();
-        // Requete pour récupérer les informations issues des relations du site à modifier
+        // Requete pour recuperer les informations issues des relations du site a modifier
         $requete =  'SELECT * '.
                     'FROM gen_site_relation '.
                     'WHERE gsr_id_site_01 = '.$site_id.' '.
                     'AND gsr_id_site_01 = gsr_id_site_02';
             die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
+        }
         $tab_type = GEN_retournerTableauTypeSiteExterne($db);
         while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
-            if ($ligne->gsr_id_valeur == 101) {// 101 = site par défaut
+            if ($ligne->gsr_id_valeur == 101) {// 101 = site par defaut
                 $aso_valeurs['defaut'] = true;
+            }
             foreach ($tab_type as $cle => $val) {
-                if ($ligne->gsr_id_valeur == $val['id']) {// 20x = type de site externe à Papyrus
+                if ($ligne->gsr_id_valeur == $val['id']) {// 20x = type de site externe a Papyrus
                     $aso_valeurs['type_site_externe'] = $val['id'];
+                }
+            }
+        }
     } else if (isset($aso_valeurs['gs_id_site'])) {
         $aso_valeurs['modification'] = true;
+    }
-    // débogage :
+    // Debogage :
     //$GLOBALS['_DEBOGAGE_'] .= '<pre>'.print_r($aso_valeurs, true).'</pre>';
     //-------------------------------------------------------------------------------------------------------------------
-    // Information précédent le formulaire (en modification)
+    // Information precedent le formulaire (en modification)
     if ((isset($aso_valeurs['modification'])||isset($aso_valeurs['traduction']))&&isset($aso_valeurs['gs_id_site'])) {
         $sortie .= '<p>'.'Identifiant de ce site : '.'<span id="adsi_site_id">'.$aso_valeurs['gs_id_site'].'</span></p>'."\n";
+    }
     $aso_options = array();
     while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
         // Test pour connaître le type d'authentification.
         $type = '';
         if ($ligne->gsa_ce_type_auth == '1' ) {
-            $type = 'Base de données';
+            $type = 'Base de donn&eacute;es';
         } else if ($ligne->gsa_ce_type_auth == '2' ) {
             $type = 'LDAP';
+        }
         $aso_options[$ligne->gsa_id_auth] = $ligne->gsa_nom.' ('.$type.')';
+    }
                         $aso_options[$fichier] = $fichier;
+                    }
+                }
+            }
         } else {
-            // ouverture des squelettes présent dans le dossier du site
+            // ouverture des squelettes present dans le dossier du site
-            // création de l'objet pear ftp
+            // creation de l'objet pear ftp
             $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
-            // création de la connexion
+            // creation de la connexion
             $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
             // identification
             $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
             // Gestion des erreurs ftp
             if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
                 die('ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
                     'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
                     'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
-                    'Ligne n° : '. __LINE__ .'<br />'.
+                    'Ligne n&deg; : '. __LINE__ .'<br />'.
-                    'Fichier n° : '. __FILE__ .'<br />');
+                    'Fichier n&deg; : '. __FILE__ .'<br />');
                     //'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
                     //'Message erreur de login : '.$ftp_login_result->getMessage());
+            }
             $chemin_squelettes =    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;
     $id = 'defaut';
     $aso_attributs = array('id' => $id, 'tabindex' => $tab_index++);
     if (isset($aso_valeurs[$id]) && $aso_valeurs[$id] === true) {
         $aso_attributs['checked'] = 'checked';
+    }
-    $label = '<label for="'.$id.'">'.'En faire le site par défaut : '.'</label>';
+    $label = '<label for="'.$id.'">'.'En faire le site par d&eacute;faut : '.'</label>';
     $form->addElement('checkbox', $id, $label, null, $aso_attributs);
     // Groupe site externe
     $tab_type = GEN_retournerTableauTypeSiteExterne($db);
     $form->addElement('text', $id, $label, $aso_attributs);
     $partie_site_fin = '</ul>'."\n".'</fieldset>'."\n";
     $form->addElement('html', $partie_site_fin);
-    $partie_entete_debut = '<fieldset>'."\n".'<legend>Entête par défaut des pages du site</legend>'."\n".'<ul>'."\n";
+    $partie_entete_debut = '<fieldset>'."\n".'<legend>Ent&egrave;te par d&eacute;faut des pages du site</legend>'."\n".'<ul>'."\n";
     $form->addElement('html', $partie_entete_debut);
     $id = 'gs_titre';
     $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255, 'value' => ADSI_TITRE_SITE);
     $label = '<label for="'.$id.'">'.ADSI_TITRE_SITE.' : '.'</label>';
     $form->addElement('text', $id, $label, $aso_attributs);
     $form->addRule('gs_titre', 'Un titre est requis pour le site !', 'required', '', 'client');
     $id = 'gs_mots_cles';
     $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
-    $label = '<label for="'.$id.'">'.'Mots-clés : '.'</label>';
+    $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és sont requis pour le site !', 'required', '', 'client');
+    $form->addRule($id, 'Des mots cl&eacute;s sont requis pour le site !', 'required', '', 'client');
         if (DB::isError($resultat_admin)) {
             die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));
+        }
         $ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);
         if (isset($ligne_admin)) {
-        	$info_admin =   '<p class="info">Site créé le '.$aso_valeurs['gs_date_creation'].'. Dernière modification par '.
+        	$info_admin =   '<p class="info">Site créé le '.$aso_valeurs['gs_date_creation'].'. Derni&egrave;re modification par '.
                         $ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.'.'.'</p>';
         	$form->addElement('html', $info_admin);
         	$form->addElement('hidden', 'gs_ce_admin');
         	$form->addElement('hidden', 'gs_date_creation');
+        }
                 $bouton_annuler."\n".
                 $bouton_effacer."\n".
                 '</p>'."\n";
     $form->addElement('html', $boutons);
-    // Instanciation des valeurs par défaut du formulaire
+    // Instanciation des valeurs par defaut du formulaire
     $form->setDefaults($aso_valeurs);
-    // Javascript pour la validation côté client
-    $regles_javascript = $form->getValidationScript();
-    // Suppression des balises déjà créées par GEN_stockerCodeScript()
-    // Le code ci-dessous devrait être utilisé si on arrive à empêcher Quickform de l'ajouter lui-même!
-    /*
-    $regles_javascript = ereg_replace ( '<script type="text\/javascript">', '', $regles_javascript);
-    $regles_javascript = ereg_replace ( '<!--', '', $regles_javascript);
-    $regles_javascript = ereg_replace ( '\/\/-->', '', $regles_javascript);
-    $regles_javascript = ereg_replace ( '<\/script>', '', $regles_javascript);
-    GEN_stockerCodeScript($regles_javascript);
+    // Javascript pour la validation cote client
-    */
+    $regles_javascript = $form->getValidationScript();
     // Note de fin de formulaire
     $form->setRequiredNote('Indique les champs obligatoires');
     $sortie .= $form->toHTML()."\n";
     // Construction de la page.
     return ADMIN_contruirePage($titre, $sortie, $message);
+}
-/** Fonction ADMIN_validerFormAjouterSite() - Valide les données issues du formulaire pour gen_site.
+/** Fonction ADMIN_validerFormAjouterSite() - Valide les donnees issues du formulaire pour gen_site.
+*
-* Cette fonction valide les données à ajouter dans la table gen_site.
+* Cette fonction valide les donnees a ajouter dans la table gen_site.
+*
-* @param  string   l'objet pear de connexion à la base de données.
+* @param  string   l'objet pear de connexion a la base de données.
 * @param  string   le tableau contenant les valeurs du formulaire.
 * @return string   retourne les messages d'erreurs sinon rien.
 */
 function ADMIN_validerFormSite(&$db, $aso_valeurs)
+{
     $message = '';
-    // Validation des données du formulaire
+    // Validation des donnees du formulaire
     if (empty($aso_valeurs['gs_nom'])) {
-        $message .= '<p class="pap_erreur">Le champ "Nom" ne doit pas être vide.</p>';
+        $message .= '<p class="pap_erreur">Le champ "Nom" ne doit pas &ecirc;tre vide.</p>';
     }
     if (empty($aso_valeurs['gs_code_alpha'])) {
-        $message .= '<p class="pap_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';
+        $message .= '<p class="pap_erreur">Le champ "Code alphanum&eacute;rique" ne doit pas &ecirc;tre vide.</p>';
     }
     if ($aso_valeurs['gs_code_num'] == '') {
         // Note: ne pas utilisez empty() car si on veut saisir 0, cela est considéré comme vide!
-        $message .= '<p class="pap_erreur">Le champ "Code numérique" ne doit pas être vide.</p>';
+        $message .= '<p class="pap_erreur">Le champ "Code num&eacute;rique" ne doit pas &ecirc;tre vide.</p>';
 	        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
+	    }
 	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
 	        if ($ligne->gs_code_num == $aso_valeurs['gs_code_num']) {
-	            $message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_num'].'" pour le champ "Code numérique" existe déjà.</p>';
+	            $message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_num'].'" pour le champ "Code num&eacute;rique" existe d&eacute;j&agrave;.</p>';
+	        }
 	        if ($ligne->gs_code_alpha == $aso_valeurs['gs_code_alpha']) {
-	            $message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_alpha'].'" pour le champ "Code alphanumérique" existe déjà.</p>';
+	            $message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_alpha'].'" pour le champ "Code alphanum&eacute;rique" existe d&eacute;j&agrave;.</p>';
+	        }
+	    }
     else {
     // Refuser si plus de traduction disponible !
+    }
     if (empty($aso_valeurs['gs_titre'])) {
-        $message .= '<p class="pap_erreur">Le champ "Titre" ne doit pas être vide.</p>';
+        $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 être vide.</p>';
+        $message .= '<p class="pap_erreur">Le champ "Mots clé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 être vide.</p>';
+        $message .= '<p class="pap_erreur">Le champ "Description" ne doit pas &ecirc;tre vide.</p>';
+    }
     if (empty($aso_valeurs['gs_auteur'])) {
-        $message .= '<p class="pap_erreur">Le champ "Auteur" ne doit pas être vide.</p>';
+        $message .= '<p class="pap_erreur">Le champ "Auteur" ne doit pas &ecirc;tre vide.</p>';
+    }
     if (isset($aso_valeurs['externe']) && $aso_valeurs['externe'] == 1 && (empty($aso_valeurs['gs_url']) || $aso_valeurs['gs_url'] == 'http://')) {
-        $message .= '<p class="pap_erreur">'.'Vous avez désigné ce site comme étant externe. Il est nécessaire de saisir son URL!'.'</p>';
+        $message .= '<p class="pap_erreur">'.'Vous avez d&eacute;sign&eacute; ce site comme &eacute;tant externe. Il est n&eacute;cessaire de saisir son URL!'.'</p>';
+    }
     if (isset($aso_valeurs['externe']) && $aso_valeurs['externe'] == 0 && (!empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://')) {
         $message .= '<p class="pap_erreur">'.'Vous avez saisie une l\'url : '.$aso_valeurs['gs_url'].'<br />'.
-                    'Vous considérez donc ce site comme étant externe. Il est nécessaire de cocher la case "oui"!'.'</p>';
+                    'Vous conscid&eacute;rez donc ce site comme &eacute;tant externe. Il est n&eacute;cessaire de cocher la case "oui"!'.'</p>';
+    }
     return $message;
+}
 * @param  int      identifiant de l'administrateur réalisant cette création.
 * @return string retourne un message en cas de succès ou d'échec.
 */
 function ADMIN_enregistrerSite(&$db, $aso_valeurs, $id_admin)
+{
-    // Nous vérifions si nous avons à faire à un site externe.
+    // Nous verifions si nous avons a faire a un site externe.
-    $id_type_site = '102';// par défaut on considère que c'est un site "principal"
+    $id_type_site = '102';// par defaut on considère que c'est un site "principal"
     if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
         $id_type_site = '103';// c'est un site "externe"
+    }
-    // Ajout des répertoires des sites "principaux" soit par manipulation de fichier soit par FTP en fonction de la constante définie
+    // Ajout des repertoires des sites "principaux" soit par manipulation de fichier soit par FTP en fonction de la constante definie
-    // par l'utilisateur dans le fichier de config avancée.
+    // par l'utilisateur dans le fichier de config avancee.
     $tab_rep_langue = array(GEN_DOSSIER_GENERIQUE, $aso_valeurs['gs_ce_i18n']);
     $tab_rep_site = array(  GEN_DOSSIER_IMAGE,
                             GEN_DOSSIER_STYLE,
                             GEN_DOSSIER_SCRIPT,
                                         $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) {
-                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire.<br />'.
+                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er 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;
+                }
+            }
+        }
         $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;
         if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
-            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
+            $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° : '. __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.
                                 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;
         if (!copy($chemin_style_defaut, $chemin_style_site)) {
-            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.
+            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de style par d&eacute;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
+        // Creation 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
+        // creation de l'objet pear ftp
         $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
-        // création de la connexion
+        // creation de la connexion
         $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
         // identification
         $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
         // Gestion des erreurs ftp
         if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
             $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->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 />'.
+                        'R&eacute;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 />'.
+                        'Ligne n&deg; : '. __LINE__ .'<br />'.
-                        'Fichier n° : '. __FILE__ .'<br /></p>';
+                        '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) ;
             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)) {
-                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
+                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le r&eacute;pertoire par ftp.<br />'.
-                                'Répertoire : '. $chemin_repertoire .'<br />'.
+                                'R&eacute;pertoire : '. $chemin_repertoire .'<br />'.
                                 'Erreur origine : '. $resultat->getMessage() .'<br />'.
                                 'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
-                                'Ligne n° : '. __LINE__ .'<br />'.
+                                'Ligne n&deg; : '. __LINE__ .'<br />'.
-                                'Fichier n° : '. __FILE__ .'<br /></p>';
+                                'Fichier n&deg; : '. __FILE__ .'<br /></p>';
                     return $message;
+                }
                                     $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.
                                 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 />'.
-                        '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;
+        }
         $chemin_image_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.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 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 />'.
+        $message = '<p class="erreur"> ERREUR papyrus admin : impossible de r&eacute;cup&eacute;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>';
         return $message;
+    }
     $resultat = $db->query($requete);
     if (DB::isError($resultat)) {
         die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
+    }
-    // Recherche du nouveau numéro d'ordre de ce site "principal" ou "externe"
+    // Recherche du nouveau numero d'ordre de ce site "principal" ou "externe"
     $requete =  'SELECT MAX(gsr_ordre) AS max_ordre '.
                 'FROM gen_site_relation '.
                 'WHERE gsr_id_site_01 = gsr_id_site_02 '.
                 'AND gsr_id_valeur IN (102, 103) ';// 102 = site "principal" et 103 = site "externe"
         $resultat_supr_defaut = $db->query($requete_supr_defaut);
         if (DB::isError($resultat_supr_defaut)) {
             die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
+        }
-        // Requete d'insertion de la relations site par défaut
+        // Requete d'insertion de la relations site par defaut
         $requete =  'INSERT INTO gen_site_relation '.
                     'SET gsr_id_site_01 = '.$id_site.', '.
                     'gsr_id_site_02 = '.$id_site.', '.
                     'gsr_id_valeur = 101, '.
     return $message;
+}
 /** Fonction ADMIN_traduireSite() - Traduire un site papyrus
 *
-* Cette fonction traduit un site à Papyrus, c'est à dire :
+* Cette fonction traduit un site a Papyrus, c'est a dire :
-* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
+* - 1. Creation des repertoire du projet en fonction du nom et des sous-repertoires.
 * - 2. Insertion d'une ligne dans la table "gen_site".
-* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
+* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liees si necessaire.
 *
-* @param  string   l'objet pear de connexion à la base de données.
+* @param  string   l'objet pear de connexion a la base de données.
 * @param  string   le tableau contenant les valeurs du formulaire.
-* @param  int      identifiant de l'administrateur réalisant cette création.
+* @param  int      identifiant de l'administrateur realisant cette création.
-* @return string retourne un message en cas de succès ou d'échec.
+* @return string retourne un message en cas de succes ou d'echec.
 */
 function ADMIN_traduireSite(&$db, $aso_valeurs, $id_admin)
 {
-    // Nous vérifions si nous avons à faire à un site externe.
+    // Nous verifions si nous avons a faire a un site externe.
-    $id_type_site = '102';// par défaut on considère que c'est un site "principal"
+    $id_type_site = '102';// par defaut on considere que c'est un site "principal"
     if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
         $id_type_site = '103';// c'est un site "externe"
     }
-    // Ajout des répertoires des sites "principaux" soit par manipulation de fichier soit par FTP en fonction de la constante définie
+    // Ajout des repertoires des sites "principaux" soit par manipulation de fichier soit par FTP en fonction de la constante definie
-    // par l'utilisateur dans le fichier de config avancée.
+    // par l'utilisateur dans le fichier de config avancee.
     $tab_rep_langue = array(GEN_DOSSIER_GENERIQUE, $aso_valeurs['gs_ce_i18n']);
     $tab_rep_site = array(  GEN_DOSSIER_IMAGE,
                             GEN_DOSSIER_STYLE,
                                         $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) {
-                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire.<br />'.
+                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er 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;
+                }
+            }
+        }
         $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;
         if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
-            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
+            $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° : '. __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.
                                 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;
         if (!copy($chemin_style_defaut, $chemin_style_site)) {
-            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.
+            $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 />'.
                         'Fichier n° : '. __FILE__ .'<br /></p>';
             return $message;
+        }
+}
 // +- Fin du code source  --------------------------------------------------------------------------------+
 /*
+* $Log: not supported by cvs2svn $
+* Revision 1.35  2007/04/20 10:42:42  neiluj
+* suite oubli, fix des derniers bugs FTP
 * $Log: not supported by cvs2svn $
 * Revision 1.34  2007/04/20 09:21:41  neiluj
 * correction bug ftp création/suppression/modification de site
 * (changé PAP_FTP_RACINE en PAP_CHEMIN_RACINE)
 * voir compatibilité chroot() du serveur FTP)

Subversion Repositories Applications.papyrus

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