Subversion Repositories Applications.papyrus

Rev

Rev 460 | Rev 754 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6 jpm 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// | This library is free software; you can redistribute it and/or                                        |
9 
// | modify it under the terms of the GNU Lesser General Public                                           |
10 
// | License as published by the Free Software Foundation; either                                         |
11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
12 
// |                                                                                                      |
13 
// | This library is distributed in the hope that it will be useful,                                      |
14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16 
// | Lesser General Public License for more details.                                                      |
17 
// |                                                                                                      |
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                                  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21 
// +------------------------------------------------------------------------------------------------------+
546 jp_milcent 22 
// CVS : $Id: adsi_site.fonct.php,v 1.25 2005-10-17 13:48:59 jp_milcent Exp $
6 jpm 23 
/**
24 
* Bibliothèque de fonctions d'admininistration des projets
25 
*
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).
28 
*
25 jpm 29 
*@package Admin_site
6 jpm 30 
*@subpackage Fonctions
31 
//Auteur original :
282 jpm 32 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
6 jpm 33 
//Autres auteurs :
34 
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
285 jpm 35 
*@author        Laurent COUDOUNEAU <lc@gsite.org>
6 jpm 36 
*@copyright     Tela-Botanica 2000-2004
546 jp_milcent 37 
*@version       $Revision: 1.25 $ $Date: 2005-10-17 13:48:59 $
6 jpm 38 
// +------------------------------------------------------------------------------------------------------+
39 
*/
40 
 
41 
// +------------------------------------------------------------------------------------------------------+
42 
// |                                            ENTÊTE du PROGRAMME                                       |
43 
// +------------------------------------------------------------------------------------------------------+
75 jpm 44 
if (GEN_FTP_UTILISE) {
72 jpm 45 
    /** Inclusion bibliothèque de PEAR gérant le FTP.*/
46 
    require_once ADSI_CHEMIN_BIBLIOTHEQUE_PEAR.'Net/FTP.php';
47 
}
6 jpm 48 
 
49 
// +------------------------------------------------------------------------------------------------------+
50 
// |                                            CORPS du PROGRAMME                                        |
51 
// +------------------------------------------------------------------------------------------------------+
52 
/** Fonction ADMIN_afficherListeSites()- Génére le xhtml permettant de choisir un site parmis une liste.
53 
*
54 
* Cette fonction fournie une liste des sites principaux gérés par Génésia.
55 
*
56 
* @param  string   l'objet Pear DB.
57 
* @param  string   l'url de la page à laquelle renvoyer le formulaire.
58 
* @param  string   un message important à destination de l'utilisateur.
59 
* return  string   le code XHTML à retourner.
60 
*/
327 jpm 61 
function ADMIN_afficherFormListeSites(&$db, $url, $message = '')
6 jpm 62 
{
63 
    // Liste des sites principaux
64 
    $requete =  'SELECT * '.
65 
                'FROM gen_site, gen_site_relation '.
66 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
67 
                'AND gsr_id_site_01 = gs_id_site '.
115 jpm 68 
                'AND gsr_id_valeur IN (102, 103) '.
6 jpm 69 
                'ORDER BY gsr_ordre';
70 
 
71 
    $resultat = $db->query($requete);
72 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
73 
 
74 
    //----------------------------------------------------------------------------
75 
    // Création du formulaire
327 jpm 76 
    $form =& new HTML_QuickForm('form_sites', 'post', str_replace('&amp;', '&', $url));
6 jpm 77 
    $tab_index = 1000;
78 
    $squelette =& $form->defaultRenderer();
79 
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");
80 
    $squelette->setElementTemplate( '<li>'."\n".'{label}'."\n".'{element}'."\n".
81 
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
82 
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
83 
                                    '</li>'."\n");
84 
    $squelette->setRequiredNoteTemplate("\n".'<p>'."\n".'<span class="symbole_obligatoire">*</span> {requiredNote}'."\n".'</p>'."\n");
85 
 
86 
    $partie_site_debut =    '<fieldset>'."\n".
87 
                            '<legend>Listes des sites</legend>'."\n".
88 
                            '<ul>'."\n";
89 
    $form->addElement('html', $partie_site_debut);
90 
 
91 
    $aso_options = array();
92 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
93 
        $aso_options[$ligne->gs_id_site] = htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')');
94 
    }
95 
    $resultat->free();
198 jpm 96 
 
6 jpm 97 
    $id = 'form_sites_id_site';
98 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
99 
    $label = '<label for="'.$id.'">'.'Listes des sites : '.'</label>';
100 
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
101 
 
102 
    $partie_site_fin =  '</ul>'."\n".
103 
                        '</fieldset>'."\n";
104 
    $form->addElement('html', $partie_site_fin);
105 
 
106 
    $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
107 
    $form->addElement('html', $liste_bouton_debut);
108 
 
198 jpm 109 
    $id = 'form_sites_ajouter';
110 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
111 
    $label = 'Ajouter';
112 
    $form->addElement('submit', $id, $label, $aso_attributs);
6 jpm 113 
 
198 jpm 114 
    $id = 'form_sites_modifier';
115 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
116 
    $label = 'Modifier';
117 
    $form->addElement('submit', $id, $label, $aso_attributs);
118 
 
119 
    $id = 'form_sites_supprimer';
120 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onclick' => 'javascript:return confirm(\''.'Êtes vous sûr de vouloir supprimer ce site ?'.'\');');
121 
    $label = 'Supprimer';
122 
    $form->addElement('submit', $id, $label, $aso_attributs);
123 
 
6 jpm 124 
    $liste_bouton_fin = '</ul>'."\n";
125 
    $form->addElement('html', $liste_bouton_fin);
126 
 
127 
    $sortie = $form->toHTML()."\n";
128 
 
129 
    // Titre de la page:
130 
    $titre = 'Configuration des sites';
131 
 
132 
    // Construction de la page.
133 
    return ADMIN_contruirePage($titre, $sortie, $message);
134 
}
135 
 
136 
/** Fonction ADMIN_validerFormListesSites() - Valide les données issues du formulaire de liste de sites.
137 
*
138 
* Cette fonction valide les données du formulaire de liste de site.
139 
*
140 
* @param  string   l'objet pear de connexion à la base de données.
141 
* @param  string   le tableau contenant les valeurs du formulaire.
142 
* @return string   retourne les messages d'erreurs sinon rien.
143 
*/
327 jpm 144 
function ADMIN_validerFormListesSites(&$db, $aso_valeurs)
6 jpm 145 
{
146 
    $message = '';
147 
 
148 
    // Validation des données du formulaire
149 
    if (empty($aso_valeurs['form_sites_id_site'])) {
96 jpm 150 
        $message .= '<p class="pap_erreur">Vous devez d\'abord sélectionner un site.</p>';
6 jpm 151 
    }
152 
 
153 
    return $message;
154 
}
155 
 
156 
/** Fonction ADMIN_afficherFormSite()- Génére un formulaire pour gen_site.
157 
*
158 
* Cette fonction retourne un formulaire pour modification ou pour ajout.
159 
*
160 
* @param  string   l'objet pear de connexion à la base de données.
161 
* @param  string   l'url à laquelle renvoyer le formulaire.
162 
* @param  string   le tableau contenant les valeurs du formulaire.
163 
* @param  string   un message à destination de l'utilisateur.
164 
* return  string   le code XHTML à retourner.
165 
*/
327 jpm 166 
function ADMIN_afficherFormSite(&$db, $url, $aso_valeurs = array(), $message = '')
6 jpm 167 
{
386 jpm 168 
    // Initialisation des valeurs
169 
    $sortie = '';
257 florian 170 
    $aso_valeurs['modification'] = false;
171 
    $aso_valeurs['defaut'] = false;
172 
    $aso_valeurs['type_site_externe'] = 0;
6 jpm 173 
    // Nous cherchons à savoir si nous somme en modification
174 
    if (isset($aso_valeurs['form_sites_modifier'])) {
190 jpm 175 
        $site_id = $aso_valeurs['form_sites_id_site'];
6 jpm 176 
        // Requete pour récupérer les informations sur le site à modifier
177 
        $requete =  'SELECT * '.
178 
                    'FROM gen_site '.
190 jpm 179 
                    'WHERE gs_id_site = '.$site_id;
6 jpm 180 
        $resultat = $db->query($requete);
181 
        if (DB::isError($resultat)) {
182 
            die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
183 
        }
184 
        $aso_valeurs = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
190 jpm 185 
        $resultat->free();
186 
 
187 
        // Requete pour récupérer les informations issues des relations du site à modifier
205 jpm 188 
        $requete =  'SELECT * '.
189 
                    'FROM gen_site_relation '.
190 
                    'WHERE gsr_id_site_01 = '.$site_id.' '.
191 
                    'AND gsr_id_site_01 = gsr_id_site_02';
190 jpm 192 
        $resultat = $db->query($requete);
193 
        if (DB::isError($resultat)) {
194 
            die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
195 
        }
257 florian 196 
 
205 jpm 197 
        $tab_type = GEN_retournerTableauTypeSiteExterne($db);
190 jpm 198 
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
199 
            if ($ligne->gsr_id_valeur == 101) {// 101 = site par défaut
200 
                $aso_valeurs['defaut'] = true;
201 
            }
205 jpm 202 
            foreach ($tab_type as $cle => $val) {
203 
                if ($ligne->gsr_id_valeur == $val['id']) {// 20x = type de site externe à Papyrus
204 
                    $aso_valeurs['type_site_externe'] = $val['id'];
205 
                }
190 jpm 206 
            }
207 
        }
208 
        $resultat->free();
209 
 
6 jpm 210 
        $aso_valeurs['modification'] = true;
211 
    } else if (isset($aso_valeurs['gs_id_site'])) {
212 
        $aso_valeurs['modification'] = true;
213 
    }
190 jpm 214 
    // Débogage :
215 
    //$GLOBALS['_DEBOGAGE_'] .= '<pre>'.print_r($aso_valeurs, true).'</pre>';
386 jpm 216 
    //-------------------------------------------------------------------------------------------------------------------
217 
    // Information précédent le formulaire (en modification)
460 florian 218 
    if (isset($aso_valeurs['modification'])&&isset($aso_valeurs['gs_id_site'])) {
386 jpm 219 
        $sortie .= '<p>'.'Identifiant de ce site : '.'<span id="adsi_site_id">'.$aso_valeurs['gs_id_site'].'</span></p>'."\n";
220 
    }
221 
    //-------------------------------------------------------------------------------------------------------------------
6 jpm 222 
    // Création du formulaire
327 jpm 223 
    $form =& new HTML_QuickForm('site', 'post', str_replace('&amp;', '&', $url));
6 jpm 224 
    $tab_index = 1000;
225 
    $squelette =& $form->defaultRenderer();
226 
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");
227 
    $squelette->setElementTemplate(  '<li>'."\n".
228 
                                    '{label}'."\n".
229 
                                    '{element}'."\n".
230 
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
231 
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
232 
                                    '</li>'."\n");
115 jpm 233 
    $squelette->setGroupElementTemplate('{label}'."\n".
234 
                                        '{element}'."\n".
235 
                                        '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
236 
                                        '&nbsp;'."\n"
237 
                                        , 'double');
6 jpm 238 
    $squelette->setRequiredNoteTemplate("\n".'<p><span class="symbole_obligatoire">*</span> {requiredNote}</p>'."\n");
239 
 
240 
    $partie_site_debut = '<fieldset>'."\n".'<legend>Configuration du site</legend>'."\n".'<ul>'."\n";
241 
    $form->addElement('html', $partie_site_debut);
242 
 
243 
    if ($aso_valeurs['modification']) {
244 
        $form->addElement('hidden', 'gs_id_site');
245 
    }
246 
 
247 
    $id = 'gs_nom';
248 
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100, 'value' => 'nom du site');
249 
    $label = '<label for="'.$id.'">'.'Nom du site : '.'</label>';
250 
    $form->addElement('text', $id, $label, $aso_attributs);
251 
    $form->addRule($id, 'Un nom est requis pour le site !', 'required', '', 'client');
252 
 
253 
    $id = 'gs_code_alpha';
254 
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 'site_01');
255 
    $label = '<label for="'.$id.'">'.'Code alphanumérique : '.'</label>';
256 
    $form->addElement('text', $id, $label, $aso_attributs);
257 
    $form->addRule('gs_code_alpha', 'Un code alphanumérique est requis pour le site !', 'required', '', 'client');
258 
 
259 
    $id = 'gs_code_num';
260 
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20, 'value' => 1);
261 
    $label = '<label for="'.$id.'">'.'Code numérique : '.'</label>';
262 
    $form->addElement('text', $id, $label, $aso_attributs);
263 
    $form->addRule('gs_code_num', 'Un code numérique est requis pour le site !', 'required', '', 'client');
264 
 
265 
    $id = 'gs_raccourci_clavier';
266 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 1, 'maxlength' => 1, 'value' => 'Z');
267 
    $label = '<label for="'.$id.'">'.'Raccourci clavier : '.'</label>';
268 
    $form->addElement('text', $id, $label, $aso_attributs);
269 
 
270 
    // Requete pour connaitre les identifications dispo
271 
    $requete =  'SELECT * '.
272 
                'FROM gen_site_auth '.
273 
                'WHERE gsa_id_auth != 0';
274 
    $resultat = $db->query($requete) ;
275 
    if (DB::isError($resultat)) {
276 
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
277 
    }
278 
    $aso_options = array();
279 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
280 
        // Test pour connaître le type d'authentification.
281 
        $type = '';
282 
        if ($ligne->gsa_ce_type_auth == '1' ) {
283 
            $type = 'Base de données';
284 
        } else if ($ligne->gsa_ce_type_auth == '2' ) {
285 
            $type = 'LDAP';
286 
        }
287 
        $aso_options[$ligne->gsa_id_auth] = $ligne->gsa_nom.' ('.$type.')';
288 
    }
289 
    $resultat->free();
290 
    $id = 'gs_ce_auth';
291 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
292 
    $label = '<label for="'.$id.'">'.'Identification : '.'</label>';
293 
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
294 
 
295 
    // En modification nous affichons la liste des squelettes disponiblent dans
296 
    // le dossier du site.
297 
    if ($aso_valeurs['modification']) {
298 
        $aso_options = array();
75 jpm 299 
        if (!GEN_FTP_UTILISE) {
72 jpm 300 
            $chemin_squelettes =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
301 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;
302 
            $dossier = opendir($chemin_squelettes);
303 
            while(($fichier = readdir($dossier)) !== false) {
304 
                if ($fichier != '.' && $fichier != '..') {
305 
                    $chemin_type = $chemin_squelettes.GEN_SEP.$fichier;
306 
                    if (filetype($chemin_type) != 'dir') {
307 
                        $aso_options[$fichier] = $fichier;
308 
                    }
309 
                }
6 jpm 310 
            }
72 jpm 311 
        } else {
312 
            // ouverture des squelettes présent dans le dossier du site
313 
            // création de l'objet pear ftp
314 
            $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
315 
            // création de la connexion
316 
            $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
317 
            // identification
318 
            $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
319 
            // Gestion des erreurs ftp
320 
            if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
190 jpm 321 
                die('ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
72 jpm 322 
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
323 
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
324 
                    'Ligne n° : '. __LINE__ .'<br />'.
183 jpm 325 
                    'Fichier n° : '. __FILE__ .'<br />');
326 
                    //'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
327 
                    //'Message erreur de login : '.$ftp_login_result->getMessage());
72 jpm 328 
            }
329 
            $chemin_squelettes =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
330 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;
331 
            $tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
332 
            $aso_options = array();
333 
            for ($i = 0; $i < count($tab_squelettes) ; $i++) {
334 
                if ($tab_squelettes[$i]['is_dir'] == false) {
335 
                    $aso_options[$tab_squelettes[$i]['name']] = $tab_squelettes[$i]['name'];
336 
                }
337 
            }
338 
            $objet_pear_ftp->disconnect();
6 jpm 339 
        }
201 jpm 340 
 
341 
        // Vérification de la présence de squelettes
342 
        if (count($aso_options) == 0) {
343 
            $aso_options['Aucun squelette'] = 'Aucun squelette';
344 
        }
345 
 
6 jpm 346 
        $id = 'gs_fichier_squelette';
347 
        $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
348 
        $label = '<label for="'.$id.'">'.'Squelette : '.'</label>';
349 
        $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
350 
    }
351 
 
352 
    // Requete pour connaitre les internationalisation dispo
353 
    $requete =  'SELECT * '.
354 
                'FROM gen_i18n ';
355 
    $resultat = $db->query($requete) ;
356 
    if (DB::isError($resultat)) {
357 
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
358 
    }
359 
    $aso_options = array();
360 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
361 
        $aso_options[$ligne->gi_id_i18n] = $ligne->gi_id_i18n;
362 
    }
363 
    $resultat->free();
364 
    $id = 'gs_ce_i18n';
201 jpm 365 
    $aso_attributs = array('id' => $id, 'tabindex' => $tab_index++);
6 jpm 366 
    $label = '<label for="'.$id.'">'.'Langue : '.'</label>';
367 
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
368 
 
115 jpm 369 
    $id = 'defaut';
201 jpm 370 
    $aso_attributs = array('id' => $id, 'tabindex' => $tab_index++);
386 jpm 371 
    if (isset($aso_valeurs[$id]) && $aso_valeurs[$id] === true) {
190 jpm 372 
        $aso_attributs['checked'] = 'checked';
373 
    }
115 jpm 374 
    $label = '<label for="'.$id.'">'.'En faire le site par défaut : '.'</label>';
201 jpm 375 
    $form->addElement('checkbox', $id, $label, null, $aso_attributs);
115 jpm 376 
 
377 
    // Groupe site externe
205 jpm 378 
    $tab_type = GEN_retournerTableauTypeSiteExterne($db);
379 
    $aso_options = array('0' => 'Aucun');
380 
    foreach ($tab_type as $cle => $val) {
381 
        $aso_options[$val['id']] = $val['intitule'];
190 jpm 382 
    }
460 florian 383 
 
205 jpm 384 
    $id = 'type_site_externe';
385 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
460 florian 386 
    $label = '<label>'.'Type de site externe : '.'</label>';
387 
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
115 jpm 388 
 
389 
    $id = 'gs_url';
201 jpm 390 
    $aso_attributs = array('id' => $id, 'tabindex' => $tab_index++,'size' => 45, 'maxlength' => 255, 'value' => 'http://');
460 florian 391 
    $label = '<label>'.'URL du site externe : '.'</label>';
392 
    $form->addElement('text', $id, $label, $aso_attributs);
115 jpm 393 
 
6 jpm 394 
    $partie_site_fin = '</ul>'."\n".'</fieldset>'."\n";
395 
    $form->addElement('html', $partie_site_fin);
396 
 
397 
    $partie_entete_debut = '<fieldset>'."\n".'<legend>Entête par défaut des pages du site</legend>'."\n".'<ul>'."\n";
398 
    $form->addElement('html', $partie_entete_debut);
399 
 
400 
    $id = 'gs_titre';
401 
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255, 'value' => 'titre du site');
402 
    $label = '<label for="'.$id.'">'.'Titre du site : '.'</label>';
403 
    $form->addElement('text', $id, $label, $aso_attributs);
404 
    $form->addRule('gs_titre', 'Un titre est requis pour le site !', 'required', '', 'client');
405 
 
406 
    $id = 'gs_mots_cles';
407 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
408 
    $label = '<label for="'.$id.'">'.'Mots-clés : '.'</label>';
409 
    $zone_mots_cles = $form->createElement('textarea', $id, $label, $aso_attributs);
410 
    $zone_mots_cles->setValue('mots-clés du site');
411 
    $form->addElement($zone_mots_cles);
412 
    $form->addRule($id, 'Des mots clés sont requis pour le site !', 'required', '', 'client');
413 
 
414 
    $id = 'gs_description';
415 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
416 
    $label = '<label for="'.$id.'">'.'Description du contenu : '.'</label>';
417 
    $zone = $form->createElement('textarea', $id, $label, $aso_attributs);
418 
    $zone->setValue('description du site');
419 
    $form->addElement($zone);
420 
    $form->addRule($id, 'Une description est requise pour le site !', 'required', '', 'client');
421 
 
422 
    $id = 'gs_auteur';
423 
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255, 'value' => 'auteur du site');
424 
    $label = '<label for="'.$id.'">'.'Auteur du site : '.'</label>';
425 
    $form->addElement('text', $id, $label, $aso_attributs);
426 
    $form->addRule('gs_auteur', 'Un auteur est requis pour le site !', 'required', '', 'client');
427 
 
428 
    $partie_entete_fin = '</ul>'."\n".'</fieldset>'."\n";
429 
    $form->addElement('html', $partie_entete_fin);
430 
 
431 
    if ($aso_valeurs['modification']) {
432 
        // Requete pour connaitre les informations sur l'administrateur ayant fait la dernière modif
433 
        $requete_admin =    'SELECT * '.
434 
                            'FROM gen_annuaire '.
435 
                            'WHERE ga_id_administrateur = '.$aso_valeurs['gs_ce_admin'];
436 
        $resultat_admin = $db->query($requete_admin);
437 
        if (DB::isError($resultat_admin)) {
438 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));
439 
        }
440 
        $ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);
443 ddelon 441 
        if (isset($ligne_admin)) {
546 jp_milcent 442 
        	$info_admin =   '<p class="info">Site créé le '.$aso_valeurs['gs_date_creation'].'. Dernière modification par '.
386 jpm 443 
                        $ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.'.'.'</p>';
443 ddelon 444 
        	$form->addElement('html', $info_admin);
445 
        	$form->addElement('hidden', 'gs_ce_admin');
446 
        	$form->addElement('hidden', 'gs_date_creation');
447 
        }
6 jpm 448 
 
449 
        // Titre de la page:
450 
        $titre = 'Modifier un site';
451 
        // Bouton validant le formulaire
452 
        $bouton_validation = '<input type="submit" id="site_modifier" name="site_modifier" value="Enregistrer" />';
453 
    } else {
454 
        // Titre de la page:
455 
        $titre = 'Ajouter un site';
456 
        // Bouton validant le formulaire
457 
        $bouton_validation = '<input type="submit" id="site_enregistrer" name="site_enregistrer" value="Enregistrer" />';
458 
    }
459 
    $bouton_annuler =   '<input type="submit" id="form_annuler" name="form_annuler" value="Annuler" />';
460 
    $bouton_effacer =   '<input type="reset" id="effacer" name="effacer" value="Effacer" />';
461 
    $boutons =  '<p>'."\n".
462 
                $bouton_validation."\n".
463 
                $bouton_annuler."\n".
464 
                $bouton_effacer."\n".
465 
                '</p>'."\n";
466 
    $form->addElement('html', $boutons);
467 
 
468 
    // Instanciation des valeurs par défaut du formulaire
469 
    $form->setDefaults($aso_valeurs);
470 
 
471 
    // Javascript pour la validation côté client
472 
    $regles_javascript = $form->getValidationScript();
473 
    // Suppression des balises déjà créées par GEN_stockerCodeScript()
205 jpm 474 
    // Le code ci-dessous devrait être utilisé si on arrive à empécher Quickform de l'ajouter lui-même!
475 
    /*
6 jpm 476 
    $regles_javascript = ereg_replace ( '<script type="text\/javascript">', '', $regles_javascript);
477 
    $regles_javascript = ereg_replace ( '<!--', '', $regles_javascript);
478 
    $regles_javascript = ereg_replace ( '\/\/-->', '', $regles_javascript);
479 
    $regles_javascript = ereg_replace ( '<\/script>', '', $regles_javascript);
480 
    GEN_stockerCodeScript($regles_javascript);
205 jpm 481 
    */
6 jpm 482 
 
483 
    // Note de fin de formulaire
484 
    $form->setRequiredNote('Indique les champs obligatoires');
386 jpm 485 
    $sortie .= $form->toHTML()."\n";
6 jpm 486 
 
487 
    // Construction de la page.
488 
    return ADMIN_contruirePage($titre, $sortie, $message);
489 
}
490 
 
491 
/** Fonction ADMIN_validerFormAjouterSite() - Valide les données issues du formulaire pour gen_site.
492 
*
493 
* Cette fonction valide les données à ajouter dans la table gen_site.
494 
*
495 
* @param  string   l'objet pear de connexion à la base de données.
496 
* @param  string   le tableau contenant les valeurs du formulaire.
497 
* @return string   retourne les messages d'erreurs sinon rien.
498 
*/
327 jpm 499 
function ADMIN_validerFormSite(&$db, $aso_valeurs)
6 jpm 500 
{
501 
    $message = '';
502 
 
503 
    // Validation des données du formulaire
504 
    if (empty($aso_valeurs['gs_nom'])) {
96 jpm 505 
        $message .= '<p class="pap_erreur">Le champ "Nom" ne doit pas être vide.</p>';
6 jpm 506 
    }
507 
    if (empty($aso_valeurs['gs_code_alpha'])) {
96 jpm 508 
        $message .= '<p class="pap_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';
6 jpm 509 
    }
75 jpm 510 
    if ($aso_valeurs['gs_code_num'] == '') {
511 
        // Note: ne pas utilisez empty() car si on veut saisir 0, cela est conscidéré comme vide!
96 jpm 512 
        $message .= '<p class="pap_erreur">Le champ "Code numérique" ne doit pas être vide.</p>';
6 jpm 513 
    }
514 
    if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
96 jpm 515 
        $message .= '<p class="pap_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';
6 jpm 516 
    }
517 
 
518 
    // Requete pour vérifier l'abscence du code numérique et alphanumérique de la table gen_site
519 
    $requete =  'SELECT gs_code_alpha, gs_code_num '.
520 
                'FROM gen_site, gen_site_relation '.
521 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
115 jpm 522 
                'AND gsr_id_site_01 = gs_id_site '.
523 
                'AND gsr_id_valeur IN (102, 103) ';// 102 = site "principal" et 103 = site "externe"
6 jpm 524 
    $requete .= (isset($aso_valeurs['gs_id_site'])) ? 'AND gs_id_site != '.$aso_valeurs['gs_id_site'] : '';
525 
 
526 
    $resultat = $db->query($requete);
527 
    if (DB::isError($resultat)) {
528 
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
529 
    }
530 
 
531 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
532 
        if ($ligne->gs_code_num == $aso_valeurs['gs_code_num']) {
96 jpm 533 
            $message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_num'].'" pour le champ "Code numérique" existe déjà.</p>';
6 jpm 534 
        }
535 
        if ($ligne->gs_code_alpha == $aso_valeurs['gs_code_alpha']) {
96 jpm 536 
            $message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gs_code_alpha'].'" pour le champ "Code alphanumérique" existe déjà.</p>';
6 jpm 537 
        }
538 
    }
539 
    $resultat->free();
540 
 
541 
    if (empty($aso_valeurs['gs_titre'])) {
96 jpm 542 
        $message .= '<p class="pap_erreur">Le champ "Titre" ne doit pas être vide.</p>';
6 jpm 543 
    }
544 
    if (empty($aso_valeurs['gs_mots_cles'])) {
96 jpm 545 
        $message .= '<p class="pap_erreur">Le champ "Mots clés" ne doit pas être vide.</p>';
6 jpm 546 
    }
547 
    if (empty($aso_valeurs['gs_description'])) {
96 jpm 548 
        $message .= '<p class="pap_erreur">Le champ "Description" ne doit pas être vide.</p>';
6 jpm 549 
    }
550 
    if (empty($aso_valeurs['gs_auteur'])) {
96 jpm 551 
        $message .= '<p class="pap_erreur">Le champ "Auteur" ne doit pas être vide.</p>';
6 jpm 552 
    }
123 jpm 553 
    if (isset($aso_valeurs['externe']) && $aso_valeurs['externe'] == 1 && (empty($aso_valeurs['gs_url']) || $aso_valeurs['gs_url'] == 'http://')) {
115 jpm 554 
        $message .= '<p class="pap_erreur">'.'Vous avez désigné ce site comme étant externe. Il est nécessaire de saisir son URL!'.'</p>';
555 
    }
123 jpm 556 
    if (isset($aso_valeurs['externe']) && $aso_valeurs['externe'] == 0 && (!empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://')) {
115 jpm 557 
        $message .= '<p class="pap_erreur">'.'Vous avez saisie une l\'url : '.$aso_valeurs['gs_url'].'<br />'.
558 
                    'Vous conscidérez donc ce site comme étant externe. Il est nécessaire de cocher la case "oui"!'.'</p>';
559 
    }
6 jpm 560 
    return $message;
561 
}
562 
 
563 
/** Fonction ADMIN_enregistrerSite() - Ajoute un site à Papyrus.
564 
*
565 
* Cette fonction ajoute le site à Papyrus, c'est à dire :
566 
* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
567 
* - 2. Insertion d'une ligne dans la table "gen_site".
568 
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
569 
*
570 
* @param  string   l'objet pear de connexion à la base de données.
571 
* @param  string   le tableau contenant les valeurs du formulaire.
572 
* @param  int      identifiant de l'administrateur réalisant cette création.
573 
* @return string retourne un message en cas de succès ou d'échec.
574 
*/
327 jpm 575 
function ADMIN_enregistrerSite(&$db, $aso_valeurs, $id_admin)
6 jpm 576 
{
115 jpm 577 
    // Nous vérifions si nous avons à faire à un site externe.
578 
    $id_type_site = '102';// par défaut on conscidére que c'est un site "principal"
205 jpm 579 
    if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
115 jpm 580 
        $id_type_site = '103';// c'est un site "externe"
581 
    }
582 
 
583 
    // Ajout des répertoires des sites "principaux" soit par manipulation de fichier soit par FTP en fonction de la constante définie
584 
    // par l'utilisateur dans le fichier de config avancée.
75 jpm 585 
    $tab_rep_langue = array(GEN_DOSSIER_GENERIQUE, $aso_valeurs['gs_ce_i18n']);
586 
    $tab_rep_site = array(  GEN_DOSSIER_IMAGE,
587 
                            GEN_DOSSIER_STYLE,
588 
                            GEN_DOSSIER_SCRIPT,
589 
                            GEN_DOSSIER_SQUELETTE,
590 
                            GEN_DOSSIER_DOC);
239 alex 591 
    if (!GEN_FTP_UTILISE && $id_type_site != '103') {
75 jpm 592 
        foreach ($tab_rep_langue as $nom_rep_langue) {
593 
            foreach ($tab_rep_site as $nom_rep_site) {
594 
                $chemin_repertoire =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
595 
                                        $nom_rep_langue.GEN_SEP.$nom_rep_site;
596 
                $vieux_umask = umask(0);
239 alex 597 
                $resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
75 jpm 598 
                umask($vieux_umask);
599 
                if ($resultat == false) {
96 jpm 600 
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire.<br />'.
75 jpm 601 
                                'Répertoire : '. $chemin_repertoire .'<br />'.
602 
                                'Ligne n° : '. __LINE__ .'<br />'.
603 
                                'Fichier n° : '. __FILE__ .'<br /></p>';
604 
                    return $message;
605 
                }
72 jpm 606 
            }
607 
        }
608 
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
609 
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
610 
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
611 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
612 
        if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
96 jpm 613 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
75 jpm 614 
                        'Fichier : '. $chemin_squelette_site .'<br />'.
6 jpm 615 
                        'Ligne n° : '. __LINE__ .'<br />'.
616 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
617 
            return $message;
618 
        }
72 jpm 619 
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
620 
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
621 
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
622 
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
623 
        if (!copy($chemin_style_defaut, $chemin_style_site)) {
96 jpm 624 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.
75 jpm 625 
                        'Fichier : '. $chemin_style_site .'<br />'.
72 jpm 626 
                        'Ligne n° : '. __LINE__ .'<br />'.
627 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
6 jpm 628 
            return $message;
72 jpm 629 
        }
239 alex 630 
    } else if (GEN_FTP_UTILISE && $id_type_site != '103') {  // 103 est le type "site externe"
72 jpm 631 
        // Création d'une connection ftp avec Net_FTP de PEAR
632 
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
633 
 
634 
        // création de l'objet pear ftp
635 
        $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
636 
        // création de la connexion
637 
        $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
638 
        // identification
639 
        $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
640 
        // Gestion des erreurs ftp
641 
        if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
642 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
643 
                        'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
644 
                        'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
645 
                        'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
646 
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
647 
                        'Ligne n° : '. __LINE__ .'<br />'.
648 
                        'Fichier n° : '. __FILE__ .'<br /><p>';
6 jpm 649 
            return $message;
72 jpm 650 
        }
239 alex 651 
        $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
652 
 
653 
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
75 jpm 654 
        foreach ($tab_rep_langue as $nom_rep_langue) {
239 alex 655 
            $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
75 jpm 656 
            foreach ($tab_rep_site as $nom_rep_site) {
239 alex 657 
                $chemin_repertoire =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
658 
 
659 
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
75 jpm 660 
                if (PEAR::isError($resultat)) {
661 
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
662 
                                'Répertoire : '. $chemin_repertoire .'<br />'.
663 
                                'Erreur origine : '. $resultat->getMessage() .'<br />'.
664 
                                'Ligne n° : '. __LINE__ .'<br />'.
665 
                                'Fichier n° : '. __FILE__ .'<br /></p>';
666 
                    return $message;
667 
                }
72 jpm 668 
            }
669 
        }
670 
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
671 
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
672 
        $chemin_squelette_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
673 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
674 
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
675 
        if (PEAR::isError($resultat)) {
676 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
677 
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
678 
                        'Fichier copié : '. $chemin_squelette_site .'<br />'.
679 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
680 
                        'Ligne n° : '. __LINE__ .'<br />'.
681 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
682 
                return $message;
683 
        }
684 
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
685 
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
686 
        $chemin_style_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
687 
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
688 
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
689 
        if (PEAR::isError($resultat)) {
690 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
691 
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
692 
                        'Fichier copié : '. $chemin_style_site .'<br />'.
693 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
694 
                        'Ligne n° : '. __LINE__ .'<br />'.
695 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
696 
                return $message;
697 
        }
698 
        $objet_pear_ftp->disconnect();
6 jpm 699 
    }
257 florian 700 
 
701 
    $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
702 
    if ($id_site == false) {
703 
        $message = '<p class="erreur"> ERREUR Génésia admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
704 
                    'Ligne n° : '. __LINE__ .'<br />'.
705 
                    'Fichier n° : '. __FILE__ .'<br /></p>';
706 
        return $message;
707 
    }
708 
 
709 
    // Modification de la requete si nous avons à faire à un site externe.
710 
    $requete_complement = ', gs_url = NULL';
711 
    if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
712 
        $requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'"';
713 
    }
714 
 
715 
    // Requete d'insertion des infos d'un site dans gen_site
716 
    $requete =  'INSERT INTO gen_site '.
717 
                'SET gs_id_site = '.$id_site.', '.
718 
                'gs_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
719 
                'gs_ce_auth = '.$aso_valeurs['gs_ce_auth'].', '.
720 
                'gs_fichier_squelette = "defaut.html", '.
721 
                'gs_code_num = '.$aso_valeurs['gs_code_num'].', '.
722 
                'gs_code_alpha = "'.$aso_valeurs['gs_code_alpha'].'", '.
723 
                'gs_nom = "'.$aso_valeurs['gs_nom'].'", '.
724 
                'gs_raccourci_clavier = "'.$aso_valeurs['gs_raccourci_clavier'].'", '.
725 
                'gs_titre = "'.$aso_valeurs['gs_titre'].'", '.
726 
                'gs_mots_cles = "'.$aso_valeurs['gs_mots_cles'].'", '.
727 
                'gs_description = "'.$aso_valeurs['gs_description'].'", '.
728 
                'gs_auteur = "'.$aso_valeurs['gs_auteur'].'", '.
729 
                'gs_date_creation = "'.date('Y-m-d H:i:s').'", '.
730 
                'gs_ce_admin = '.$id_admin.
731 
                $requete_complement;
732 
    $resultat = $db->query($requete);
733 
    if (DB::isError($resultat)) {
734 
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
735 
    }
736 
 
737 
    // Recherche du nouveau numéro d'ordre de ce site "principal" ou "externe"
738 
    $requete =  'SELECT MAX(gsr_ordre) AS max_ordre '.
739 
                'FROM gen_site_relation '.
740 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
741 
                'AND gsr_id_valeur IN (102, 103) ';// 102 = site "principal" et 103 = site "externe"
742 
    $resultat = $db->query($requete) ;
743 
    if (DB::isError($resultat)) {
744 
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
745 
    }
746 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
747 
    $nouvel_ordre = $ligne->max_ordre + 1;
748 
 
749 
    // Requete d'insertion des relations dans gen_site_relation
750 
    $requete =  'INSERT INTO gen_site_relation '.
751 
                'SET gsr_id_site_01 = '.$id_site.', '.
752 
                'gsr_id_site_02 = '.$id_site.', '.
753 
                'gsr_id_valeur = '.$id_type_site.', '.
754 
                'gsr_ordre = '.$nouvel_ordre;
755 
    $resultat = $db->query($requete);
756 
    if (DB::isError($resultat)) {
757 
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
758 
    }
759 
 
760 
    // Gestion du site par défaut
761 
    if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
762 
        $requete_supr_defaut =  'DELETE FROM gen_site_relation '.
763 
                                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
764 
                                'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
765 
        $resultat_supr_defaut = $db->query($requete_supr_defaut);
766 
        if (DB::isError($resultat_supr_defaut)) {
767 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
768 
        }
769 
 
770 
        // Requete d'insertion de la relations site par défaut
771 
        $requete =  'INSERT INTO gen_site_relation '.
772 
                    'SET gsr_id_site_01 = '.$id_site.', '.
773 
                    'gsr_id_site_02 = '.$id_site.', '.
774 
                    'gsr_id_valeur = 101, '.
775 
                    'gsr_ordre = NULL ';
776 
        $resultat = $db->query($requete);
777 
        if (DB::isError($resultat)) {
778 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
779 
        }
780 
    }
781 
 
782 
    // Gestion des sites externes
783 
    if ($id_type_site == '103') {
784 
        // Requete d'insertion des relations dans gen_site_relation
785 
        $requete =  'INSERT INTO gen_site_relation '.
786 
                    'SET gsr_id_site_01 = '.$id_site.', '.
787 
                    'gsr_id_site_02 = '.$id_site.', '.
788 
                    'gsr_id_valeur = '.$aso_valeurs['type_site_externe'].', '.
789 
                    'gsr_ordre = NULL ';
790 
        $resultat = $db->query($requete);
791 
        if (DB::isError($resultat)) {
792 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
793 
        }
794 
    }
795 
 
72 jpm 796 
    $message = '<p class="pap_info">'.'Succés de l\'ajout du site.'.'</p>';
6 jpm 797 
    return $message;
798 
}
799 
 
800 
/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.
801 
*
802 
* Cette fonction modifie un site géré par Papyrus.
803 
* Il faudrait aussi pouvoir renomer le dossier du site si le code alpha change.
804 
*
805 
* @param  string   l'objet pear de connexion à la base de données.
806 
* @param  string   le tableau contenant les valeurs du formulaire.
807 
* @param  int      identifiant de l'administrateur réalisant cette modification.
808 
* @return string retourne un message en cas de succès ou d'échec.
809 
*/
327 jpm 810 
function ADMIN_modifierSite(&$db, $aso_valeurs, $id_admin)
6 jpm 811 
{
195 jpm 812 
    // Initialisation de variables
813 
    $message_complement = '';
814 
 
75 jpm 815 
    // Récupération de l'ancien code alphanumérique
816 
    $requete =  'SELECT gs_code_alpha '.
817 
                'FROM gen_site '.
818 
                'WHERE gs_id_site = '.$aso_valeurs['gs_id_site'];
819 
    $ancien_code_alphnum = $db->getOne($requete);
820 
    if (DB::isError($ancien_code_alphnum)) {
821 
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $ancien_code_alphnum->getMessage(), $requete) );
822 
    }
115 jpm 823 
 
824 
    // Nous vérifions si nous avons à faire à un site externe.
825 
    $id_type_site = '102';// par défaut on conscidére que c'est un site "principal"
201 jpm 826 
    $requete_complement = ', gs_url = NULL ';
205 jpm 827 
    if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
201 jpm 828 
        $requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'" ';
115 jpm 829 
        $id_type_site = '103';// c'est un site "externe"
830 
    }
831 
 
832 
    // Si le code alphanumérique à changé et que nous n'avons pas à faire à un site externe.
239 alex 833 
    if ($aso_valeurs['gs_code_alpha'] != $ancien_code_alphnum && $id_type_site != 103) {
75 jpm 834 
        if (!GEN_FTP_UTILISE) {
835 
            $chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
836 
            $chemin_site_nouveau = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
837 
            if (!rename($chemin_site_ancien, $chemin_site_nouveau)) {
838 
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de changer le nom du dossier du site.<br />'.
839 
                            'Ancien nom : '. $chemin_site_ancien .'<br />'.
840 
                            'Nouveau nom : '. $chemin_site_nouveau .'<br />'.
841 
                            'Ligne n° : '. __LINE__ .'<br />'.
842 
                            'Fichier n° : '. __FILE__ .'<br /></p>';
843 
                return $message;
844 
            }
845 
        } else {
846 
            $chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
847 
            $chemin_site_nouveau = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
848 
            // Création d'une connection ftp avec Net_FTP de PEAR
849 
            // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
850 
            // création de l'objet pear ftp
851 
            $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
852 
            // création de la connexion
853 
            $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
854 
            // identification
855 
            $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
856 
            // Gestion des erreurs ftp
857 
            if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
858 
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
859 
                            'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
860 
                            'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
861 
                            'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
862 
                            'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
863 
                            'Ligne n° : '. __LINE__ .'<br />'.
864 
                            'Fichier n° : '. __FILE__ .'<br /><p>';
865 
                return $message;
866 
            }
867 
            $resultat = $objet_pear_ftp->putRecursive($chemin_site_ancien, $chemin_site_nouveau, false, FTP_BINARY);
868 
            if (PEAR::isError($resultat)) {
869 
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier l\'ancien dossier du site.<br />'.
870 
                            'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
871 
                            'Dossier site nouveau : '. $chemin_site_nouveau .'<br />'.
872 
                            'Erreur origine : '. $resultat->getMessage() .'<br />'.
873 
                            'Ligne n° : '. __LINE__ .'<br />'.
874 
                            'Fichier n° : '. __FILE__ .'<br /></p>';
875 
                    return $message;
876 
            }
877 
            // On utilise la racine FTP pour rm
878 
            $chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
879 
            // Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
880 
            error_reporting(E_PARSE);
881 
            $resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
882 
            if (PEAR::isError($resultat)) {
883 
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.
884 
                            'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
885 
                            'Erreur origine : '. $resultat->getMessage() .'<br />'.
886 
                            'Ligne n° : '. __LINE__ .'<br />'.
887 
                            'Fichier n° : '. __FILE__ .'<br /></p>';
888 
                    return $message;
889 
            }
890 
            // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
891 
            error_reporting(GEN_DEBOGAGE_NIVEAU);
892 
            $objet_pear_ftp->disconnect();
893 
        }
894 
    }
115 jpm 895 
 
6 jpm 896 
    // Requete de mise à jour des infos d'un site dans gen_site
897 
    $requete =  'UPDATE gen_site '.
898 
                'SET gs_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
899 
                'gs_ce_auth = '.$aso_valeurs['gs_ce_auth'].', '.
900 
                'gs_fichier_squelette = "'.$aso_valeurs['gs_fichier_squelette'].'", '.
901 
                'gs_code_num = '.$aso_valeurs['gs_code_num'].', '.
902 
                'gs_code_alpha = "'.$aso_valeurs['gs_code_alpha'].'", '.
903 
                'gs_nom = "'.$aso_valeurs['gs_nom'].'", '.
904 
                'gs_raccourci_clavier = "'.$aso_valeurs['gs_raccourci_clavier'].'", '.
905 
                'gs_titre = "'.$aso_valeurs['gs_titre'].'", '.
906 
                'gs_mots_cles = "'.$aso_valeurs['gs_mots_cles'].'", '.
907 
                'gs_description = "'.$aso_valeurs['gs_description'].'", '.
908 
                'gs_auteur = "'.$aso_valeurs['gs_auteur'].'", '.
386 jpm 909 
                'gs_date_creation = "'.$aso_valeurs['gs_date_creation'].'", '.
6 jpm 910 
                'gs_ce_admin = '.$id_admin.' '.
201 jpm 911 
                $requete_complement.
6 jpm 912 
                'WHERE gs_id_site = '.$aso_valeurs['gs_id_site'];
913 
    $resultat = $db->query($requete) ;
914 
    if (DB::isError($resultat)) {
915 
        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
916 
    }
115 jpm 917 
    // Gestion du site externe
918 
    if ($id_type_site == 103) {
919 
        // Vérification pour voir si nous avons à faire à une transformation d'un site "principal" en site "externe"
920 
        $requete =  'SELECT COUNT(gsr_id_site_01) AS nbre_relation '.
921 
                    'FROM gen_site_relation '.
922 
                    'WHERE gsr_id_site_01 = gsr_id_site_02 '.
923 
                    'AND gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].' '.
924 
                    'AND gsr_id_valeur = 102 ';// 102 = site "principal"
925 
        $nbre_relation = $db->getOne($requete);
926 
        if (DB::isError($nbre_relation)) {
927 
            die( BOG_afficherErreurSql(__FILE__, __LINE__, $nbre_relation->getMessage(), $requete) );
928 
        }
929 
 
930 
        // Nous supprimons l'ancienne relation si nécessaire
931 
        if ($nbre_relation >= 1) {
932 
            $requete_supr_ext = 'DELETE FROM gen_site_relation '.
933 
                                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
934 
                                'AND gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].' '.
935 
                                'AND gsr_id_valeur = 102 ';// 102 = site "principal"
936 
            $resultat_supr_ext = $db->query($requete_supr_ext);
937 
            if (DB::isError($resultat_supr_ext)) {
938 
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_ext->getMessage(), $requete_supr_ext));
939 
            }
940 
            $message_complement =   'Le site "principal" a été transformé en site "externe". Si nécessaire, veuillez '.
941 
                                    'supprimer manuellement par FTP, le dossier contenant les fichiers de ce site sur '.
942 
                                    'le serveur!';
943 
        }
944 
 
201 jpm 945 
        // Vérification pour voir si le site est déjà "externe"
946 
        $requete =  'SELECT COUNT(gsr_id_site_01) AS nbre_relation '.
947 
                    'FROM gen_site_relation '.
948 
                    'WHERE gsr_id_site_01 = gsr_id_site_02 '.
949 
                    'AND gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].' '.
950 
                    'AND gsr_id_valeur = 103 ';// 103 = site "externe"
951 
        $nbre_relation = $db->getOne($requete);
952 
        if (DB::isError($nbre_relation)) {
953 
            die( BOG_afficherErreurSql(__FILE__, __LINE__, $nbre_relation->getMessage(), $requete) );
115 jpm 954 
        }
201 jpm 955 
        if ($nbre_relation == 0) {
956 
            // Requete d'insertion de la relations site "externe"
957 
            $requete =  'INSERT INTO gen_site_relation '.
958 
                        'SET gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].', '.
959 
                        'gsr_id_site_02 = '.$aso_valeurs['gs_id_site'].', '.
960 
                        'gsr_id_valeur = '.$id_type_site.', '.
961 
                        'gsr_ordre = NULL ';
962 
            $resultat = $db->query($requete);
963 
            if (DB::isError($resultat)) {
964 
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
965 
            }
966 
        }
205 jpm 967 
 
968 
        // Ajout du type de site externe
969 
        $requete =  'INSERT INTO gen_site_relation '.
970 
                    'SET gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].', '.
971 
                    'gsr_id_site_02 = '.$aso_valeurs['gs_id_site'].', '.
972 
                    'gsr_id_valeur = '.$aso_valeurs['type_site_externe'].', '.
973 
                    'gsr_ordre = NULL ';
974 
        $resultat = $db->query($requete);
975 
        if (DB::isError($resultat)) {
976 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
977 
        }
978 
 
115 jpm 979 
    }
6 jpm 980 
 
115 jpm 981 
    // Gestion du site par défaut
6 jpm 982 
    if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
983 
        $requete_supr_defaut =  'DELETE FROM gen_site_relation '.
984 
                                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
985 
                                'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
986 
        $resultat_supr_defaut = $db->query($requete_supr_defaut);
987 
        if (DB::isError($resultat_supr_defaut)) {
988 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
989 
        }
990 
 
991 
        // Requete d'insertion de la relations site par défaut
992 
        $requete =  'INSERT INTO gen_site_relation '.
993 
                    'SET gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].', '.
994 
                    'gsr_id_site_02 = '.$aso_valeurs['gs_id_site'].', '.
995 
                    'gsr_id_valeur = 101, '.
996 
                    'gsr_ordre = NULL ';
997 
        $resultat = $db->query($requete);
998 
        if (DB::isError($resultat)) {
999 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
1000 
        }
1001 
    }
115 jpm 1002 
 
1003 
    $message = '<p class="pap_info">'.'Succés de la modification du site.'.'</p>';
1004 
    $message .= '<p class="pap_info">'.$message_complement.'</p>';
6 jpm 1005 
    return $message;
1006 
}
1007 
 
1008 
/** Fonction ADMIN_supprimerSite() - Ajoute un site à Papyrus.
1009 
*
1010 
* Cette fonction ajoute le site à Papyrus, c'est à dire :
1011 
* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
1012 
* - 2. Insertion d'une ligne dans la table "gen_site".
1013 
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
1014 
*
1015 
* @param  string   l'objet pear de connexion à la base de données.
1016 
* @param  string   le tableau contenant les valeurs du formulaire.
1017 
* @param  int      identifiant de l'administrateur réalisant cette création.
1018 
* @return string retourne un message en cas de succès ou d'échec.
1019 
*/
327 jpm 1020 
function ADMIN_supprimerSite(&$db, $aso_valeurs)
6 jpm 1021 
{
1022 
    // Recherche du coda alpha du site principal afin de pouvoir détruire ses répertoires
1023 
    $requete =  'SELECT gs_code_alpha '.
1024 
                'FROM gen_site '.
1025 
                'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];
1026 
    $code_alpha_site_principal = $db->getOne($requete);
1027 
    if (DB::isError($code_alpha_site_principal)) {
1028 
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $code_alpha_site_principal->getMessage(), $requete));
1029 
    }
1030 
 
75 jpm 1031 
    // Nous vérifions que le site n'a pas le code alphanum correspondant au site par défaut d'administration (admin).
1032 
    if ($code_alpha_site_principal == GEN_SITE_DEFAUT) {
1033 
        $message =  '<p class="pap_erreur">Si vous voulez vraiment supprimer le site d\'administration par défaut de '.
1034 
                    'Papyrus, veuillez commencer par changer la valeur de son code alphanumérique. Vous pourrez '.
1035 
                    'ensuite le supprimer via cette interface.</p>';
1036 
        return $message;
1037 
    }
1038 
 
6 jpm 1039 
    // Recherche des différents sites liés à celui que l'on veut détruire
1040 
    // Cela comprend le site à détruire lui méme car il posséde la relations
1041 
    // sur lui meme "site principale".
1042 
    $requete =  'SELECT gs_id_site '.
1043 
                'FROM gen_site, gen_site_relation '.
1044 
                'WHERE gsr_id_site_01 = '.$aso_valeurs['form_sites_id_site'].' '.
1045 
                'AND gsr_id_site_02 = gs_id_site ';
1046 
    $resultat = $db->query($requete);
1047 
    if (DB::isError($resultat)) {
1048 
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
1049 
    }
1050 
 
1051 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
1052 
        // Requete de suppression des sites liés dans gen_site
1053 
        $requete_supr_site =    'DELETE FROM gen_site '.
1054 
                                'WHERE gs_id_site = '.$ligne->gs_id_site;
1055 
        $resultat_supr_site = $db->query($requete_supr_site);
1056 
        if (DB::isError($resultat_supr_site)) {
1057 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site->getMessage(), $requete_supr_site));
1058 
        }
1059 
 
1060 
        // Requete de suppression des relations des sites à détruire
1061 
        $requete_supr_site_relation =   'DELETE FROM gen_site_relation '.
1062 
                                        'WHERE gsr_id_site_01 = '.$ligne->gs_id_site;
1063 
        $resultat_supr_site_relation = $db->query($requete_supr_site_relation);
1064 
        if (DB::isError($resultat_supr_site_relation)) {
1065 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site_relation->getMessage(), $requete_supr_site_relation));
1066 
        }
1067 
 
1068 
        // Recherche des différents menus liés au site à détruire
1069 
        $requete_menu = 'SELECT gm_id_menu '.
1070 
                        'FROM gen_menu '.
1071 
                        'WHERE gm_ce_site = '.$ligne->gs_id_site;
1072 
        $resultat_menu = $db->query($requete_menu) ;
1073 
        if (DB::isError($resultat_menu)) {
1074 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete_menu));
1075 
        }
1076 
        while ($ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT)) {
1077 
            // Requete de suppression des des menus
1078 
            $requete_supr_menu =   'DELETE FROM gen_menu '.
1079 
                                            'WHERE gm_id_menu = '.$ligne_menu->gm_id_menu;
1080 
            $resultat_supr_menu = $db->query($requete_supr_menu);
1081 
            if (DB::isError($resultat_supr_menu)) {
1082 
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_menu->getMessage(), $requete_supr_menu));
1083 
            }
1084 
            // Requete de suppression des relations des menus
1085 
            $requete_supr_menu_relation =   'DELETE FROM gen_menu_relation '.
1086 
                                            'WHERE gmr_id_menu_01 = '.$ligne_menu->gm_id_menu;
1087 
            $resultat_supr_menu_relation = $db->query($requete_supr_menu_relation);
1088 
            if (DB::isError($resultat_supr_menu_relation)) {
1089 
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_menu_relation->getMessage(), $requete_supr_menu_relation));
1090 
            }
1091 
 
1092 
            // Requete de suppression des contenus des menus
1093 
            $requete_supr_menu_contenu =   'DELETE FROM gen_menu_contenu '.
1094 
                                            'WHERE gmc_ce_menu = '.$ligne_menu->gm_id_menu;
1095 
            $resultat_supr_menu_contenu = $db->query($requete_supr_menu_contenu);
1096 
            if (DB::isError($resultat_supr_menu_contenu)) {
1097 
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_menu_contenu->getMessage(), $requete_supr_menu_contenu));
1098 
            }
1099 
 
1100 
            // Requete de suppression des ulr alternatives des menus
1101 
            $requete_supr_menu_url_alt =   'DELETE FROM gen_menu_url_alternative '.
1102 
                                            'WHERE gmua_ce_menu = '.$ligne_menu->gm_id_menu;
1103 
            $resultat_supr_menu_url_alt = $db->query($requete_supr_menu_url_alt);
1104 
            if (DB::isError($resultat_supr_menu_url_alt)) {
1105 
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_menu_url_alt->getMessage(), $requete_supr_menu_url_alt));
1106 
            }
1107 
        }
1108 
        $resultat_menu->free();
1109 
    }
1110 
    $resultat->free();
1111 
 
1112 
    // Suppression des répertoires du site
75 jpm 1113 
    if (!GEN_FTP_UTILISE) {
72 jpm 1114 
        $chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal;
1115 
        $resultat = supprimerDossier($chemin_repertoire, GEN_SEP);
1116 
        if (!$resultat) {
1117 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire.<br />'.
1118 
                        'Répertoire : '. $chemin_repertoire .'<br />'.
1119 
                        'Ligne n° : '. __LINE__ .'<br />'.
1120 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
1121 
            return $message;
1122 
        }
1123 
    } else {
1124 
        // Création d'une connection ftp avec Net_FTP de PEAR
1125 
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
1126 
 
1127 
        // création de l'objet pear ftp
1128 
        $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
1129 
        // création de la connexion
1130 
        $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
1131 
        // identification
75 jpm 1132 
        $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
72 jpm 1133 
        // Gestion des erreurs ftp
1134 
        if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
1135 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
1136 
                        'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
1137 
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1138 
                        'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
1139 
                        'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
1140 
                        'Ligne n° : '. __LINE__ .'<br />'.
1141 
                        'Fichier n° : '. __FILE__ .'<br /><p>';
1142 
            return $message;
1143 
        }
1144 
        // Changement du niveau d'erreur pour éviter les Notices PHP dues à  Net_FTP
1145 
        error_reporting(E_PARSE);
1146 
        $chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
1147 
        $resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
1148 
        if (PEAR::isError($resultat)) {
1149 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire par ftp.<br />'.
1150 
                        'Erreur ftp : '.$resultat->getMessage().'<br />'.
1151 
                        'Répertoire : '. $chemin_repertoire .'<br />'.
1152 
                        'Ligne n° : '. __LINE__ .'<br />'.
1153 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
1154 
            return $message;
1155 
        }
1156 
        $objet_pear_ftp->disconnect();
1157 
        // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
1158 
        error_reporting(GEN_DEBOGAGE_NIVEAU);
6 jpm 1159 
    }
72 jpm 1160 
    $message = '<p class="pap_info">Succés de la suppression du site.</p>';
6 jpm 1161 
    return $message;
1162 
}
1163 
 
1164 
// +- Fin du code source  --------------------------------------------------------------------------------+
1165 
/*
1166 
* $Log: not supported by cvs2svn $
546 jp_milcent 1167 
* Revision 1.24  2005/09/23 14:32:54  florian
1168 
* compatibilité XHTML + correction interface
1169 
*
460 florian 1170 
* Revision 1.23  2005/09/20 17:01:22  ddelon
1171 
* php5 et bugs divers
1172 
*
443 ddelon 1173 
* Revision 1.22  2005/05/27 16:06:16  jpm
1174 
* Gestion des infos sur l'admin modifiant les infos.
1175 
*
386 jpm 1176 
* Revision 1.21  2005/04/08 13:29:04  jpm
1177 
* Utiliation de références.
1178 
* Correction du double &amp; dans les urls du formulaire.
1179 
*
327 jpm 1180 
* Revision 1.20  2005/03/08 11:17:47  jpm
1181 
* Suppression de l'inclusion d'un fichier inutile.
1182 
*
298 jpm 1183 
* Revision 1.19  2005/02/28 11:07:00  jpm
1184 
* Modification des auteurs.
1185 
*
285 jpm 1186 
* Revision 1.18  2005/02/28 10:59:07  jpm
1187 
* Modification des commentaires et copyright.
1188 
*
282 jpm 1189 
* Revision 1.17  2005/02/17 17:51:11  florian
1190 
* Correction bug FTP
1191 
*
261 florian 1192 
* Revision 1.16  2005/02/17 16:44:55  florian
1193 
* correction du bug sur les sites par défaut
1194 
*
257 florian 1195 
* Revision 1.15  2005/01/04 19:52:50  alex
1196 
* correction de bug de copie de répertoire récursif de PEAR.
1197 
*
239 alex 1198 
* Revision 1.14  2004/12/03 19:22:53  jpm
1199 
* Gestion des types de sites externes gérés par Papyrus.
1200 
*
205 jpm 1201 
* Revision 1.13  2004/12/03 16:37:34  jpm
1202 
* Correction d'un bogue qui empécher la mise à jour des url des sites externes.
1203 
*
201 jpm 1204 
* Revision 1.12  2004/12/01 17:22:58  jpm
1205 
* Ajout d'une confirmation javascript pour la suppression d'un site.
1206 
*
198 jpm 1207 
* Revision 1.11  2004/11/30 16:43:51  jpm
1208 
* Correction de bogues.
1209 
*
195 jpm 1210 
* Revision 1.10  2004/11/29 17:05:28  jpm
1211 
* Correction d'un bogue concernat les cases à cocher.
1212 
*
190 jpm 1213 
* Revision 1.9  2004/11/26 13:13:51  jpm
1214 
* Mise en commentaire de variable passée dans un message d'erreur car elles semblent provoquer un bogue et ne sont pas obligatoire.
1215 
*
183 jpm 1216 
* Revision 1.8  2004/11/03 17:59:59  jpm
1217 
* Corrections bogues erreurs variable inconnue.
1218 
*
123 jpm 1219 
* Revision 1.7  2004/10/26 18:41:28  jpm
1220 
* Gestion des sites externes à Papyrus.
1221 
*
115 jpm 1222 
* Revision 1.6  2004/10/22 17:25:31  jpm
1223 
* Changement du nom de la class CSS d'erreur.
1224 
*
96 jpm 1225 
* Revision 1.5  2004/10/19 15:57:55  jpm
1226 
* Amélioration de la gestion des fichiers sur le serveur.
1227 
* Ajout d'une contrainte pour éviter la suppression par erreur du site par défaut.
1228 
*
75 jpm 1229 
* Revision 1.4  2004/10/18 18:27:41  jpm
1230 
* Correction problèmes FTP et manipulation de fichiers.
1231 
*
72 jpm 1232 
* Revision 1.3  2004/09/23 16:51:27  jpm
1233 
* Ajout d'informations supplémentaires sur les messages d'erreur.
1234 
*
55 jpm 1235 
* Revision 1.2  2004/07/06 17:08:01  jpm
1236 
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
1237 
*
25 jpm 1238 
* Revision 1.1  2004/06/16 14:28:46  jpm
1239 
* Changement de nom de Génésia en Papyrus.
1240 
* Changement de l'arborescence.
1241 
*
6 jpm 1242 
* Revision 1.20  2004/05/10 14:32:14  jpm
1243 
* Changement du titre.
1244 
*
1245 
* Revision 1.19  2004/05/10 12:23:39  jpm
1246 
* Modification formulaire.
1247 
*
1248 
* Revision 1.18  2004/05/07 16:33:53  jpm
1249 
* Amélioration des formulaires.
1250 
*
1251 
* Revision 1.17  2004/05/07 07:22:51  jpm
1252 
* Ajout de la gestion des modification et suppression de site.
1253 
* Amélioration de la création des sites.
1254 
*
1255 
* Revision 1.16  2004/04/30 16:22:53  jpm
1256 
* Poursuite de l'administration des sites.
1257 
*
1258 
* Revision 1.14  2004/04/02 15:58:39  jpm
1259 
* Modification fonction liste des projets.
1260 
*
1261 
* Revision 1.13  2004/04/01 11:21:41  jpm
1262 
* Ajout et modification de commentaires pour PhpDocumentor.
1263 
*
1264 
* Revision 1.12  2004/03/24 20:01:02  jpm
1265 
* Traduction, mise en forme, ajout de commentaire pour les fonctions listProjects() et updateProject().
1266 
*
1267 
* Revision 1.11  2004/03/24 10:06:01  jpm
1268 
* Ajout des commentaires d'entête.
1269 
* Début mise en conformité avec la convention de codage.
1270 
* Début traitement de la fonction listant les projets.
1271 
*
1272 
*
1273 
*/
1274 
?>