Subversion Repositories Applications.papyrus

Rev

Rev 55 | Rev 75 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 55 Rev 72
Line 18... Line 18...
18 
// |                                                                                                      |
 18 
// |                                                                                                      |
19 
// | You should have received a copy of the GNU Lesser General Public                                     |
 19 
// | You should have received a copy of the GNU Lesser General Public                                     |
20 
// | License along with this library; if not, write to the Free Software                                  |
 20 
// | License along with this library; if not, write to the Free Software                                  |
21 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 21 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
22 
// +------------------------------------------------------------------------------------------------------+
 22 
// +------------------------------------------------------------------------------------------------------+
23 
// CVS : $Id: adsi_site.fonct.php,v 1.3 2004-09-23 16:51:27 jpm Exp $
 23 
// CVS : $Id: adsi_site.fonct.php,v 1.4 2004-10-18 18:27:41 jpm Exp $
24 
/**
 24 
/**
25 
* Bibliothèque de fonctions d'admininistration des projets
 25 
* Bibliothèque de fonctions d'admininistration des projets
26 
*
 26 
*
27 
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
 27 
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
28 
* sur les projets (=sites gérés par Papyrus).
 28 
* sur les projets (=sites gérés par Papyrus).
Line 33... Line 33...
33 
*@author        Laurent COUDOUNEAU <lc@gsite.org>
 33 
*@author        Laurent COUDOUNEAU <lc@gsite.org>
34 
//Autres auteurs :
 34 
//Autres auteurs :
35 
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
 35 
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
36 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
 36 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
37 
*@copyright     Tela-Botanica 2000-2004
 37 
*@copyright     Tela-Botanica 2000-2004
38 
*@version       $Revision: 1.3 $ $Date: 2004-09-23 16:51:27 $
 38 
*@version       $Revision: 1.4 $ $Date: 2004-10-18 18:27:41 $
39 
// +------------------------------------------------------------------------------------------------------+
 39 
// +------------------------------------------------------------------------------------------------------+
40 
*/
 40 
*/
Line 41... Line 41...
41 
 
 41 
 
42 
// +------------------------------------------------------------------------------------------------------+
 42 
// +------------------------------------------------------------------------------------------------------+
Line 45... Line 45...
45 
 
 45 
 
46 
/** Inclusion de la classe Formulaire.
 46 
/** Inclusion de la classe Formulaire.
47 
* Elle permet la création rapide de formulaire basé sur les tables Mysql.
 47 
* Elle permet la création rapide de formulaire basé sur les tables Mysql.
48 
*/
 48 
*/
49 
require_once ADSI_CHEMIN_BIBLIOTHEQUE_API.'formulaire_1.0/FORM_Form.class.php';
 - 
 
- 
 
 49 
require_once ADSI_CHEMIN_BIBLIOTHEQUE_API.'formulaire_1.0/FORM_Form.class.php';
50 
 
 50 
if (GEN_SAFE_MODE) {
51 
/** Inclusion bibliothèque de PEAR gérant le FTP.*/
 51 
    /** Inclusion bibliothèque de PEAR gérant le FTP.*/
- 
 
 52 
    require_once ADSI_CHEMIN_BIBLIOTHEQUE_PEAR.'Net/FTP.php';
Line 52... Line 53...
52 
require_once ADSI_CHEMIN_BIBLIOTHEQUE_PEAR.'Net/FTP.php';
 53 
}
53 
 
 54 
 
54 
// +------------------------------------------------------------------------------------------------------+
 55 
// +------------------------------------------------------------------------------------------------------+
55 
// |                                            CORPS du PROGRAMME                                        |
 56 
// |                                            CORPS du PROGRAMME                                        |
Line 251... Line 252...
251 
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
 252 
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
Line 252... Line 253...
252
253
253 
    // En modification nous affichons la liste des squelettes disponiblent dans
 254 
    // En modification nous affichons la liste des squelettes disponiblent dans
254 
    // le dossier du site.
 255 
    // le dossier du site.
255 
    if ($aso_valeurs['modification']) {
 - 
 
256 
        // ouverture des squelettes présent dans le dossier du site
- 
 
257 
        // création de l'objet pear ftp
 - 
 
258 
        $objet_pear_ftp = new Net_FTP(GEN_FTP_SERVEUR, GEN_FTP_PORT);
 - 
 
259 
        // création de la connexion
 - 
 
260 
        $ftp_conn = $objet_pear_ftp->connect(GEN_FTP_SERVEUR, GEN_FTP_PORT);
 - 
 
261 
        // identification
 - 
 
262 
        $ftp_login_result = $objet_pear_ftp->login(GEN_FTP_UTILISATEUR, GEN_FTP_MOT_DE_PASSE);
 - 
 
263 
        // Gestion des erreurs ftp
 - 
 
264 
        if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
 - 
 
265 
            die('ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
 - 
 
266 
                'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
 - 
 
267 
                'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
 - 
 
268 
                'Ligne n° : '. __LINE__ .'<br />'.
 - 
 
269 
                'Fichier n° : '. __FILE__ .'<br />'.
 - 
 
270 
                'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
 - 
 
271 
                'Message erreur de login : '.$ftp_login_result->getMessage());
 - 
 
272 
        }
 - 
 
273 
        $chemin_squelettes = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/';
 - 
 
274 
        $tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
 256 
    if ($aso_valeurs['modification']) {
- 
 
 257 
        $aso_options = array();
- 
 
 258 
        if (!GEN_SAFE_MODE) {
- 
 
 259 
            $chemin_squelettes =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 260 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;
- 
 
 261 
            $dossier = opendir($chemin_squelettes);
- 
 
 262 
            while(($fichier = readdir($dossier)) !== false) {
- 
 
 263 
                if ($fichier != '.' && $fichier != '..') {
- 
 
 264 
                    $chemin_type = $chemin_squelettes.GEN_SEP.$fichier;
- 
 
 265 
                    if (filetype($chemin_type) != 'dir') {
- 
 
 266 
                        $aso_options[$fichier] = $fichier;
- 
 
 267 
                    }
- 
 
 268 
                }
- 
 
 269 
            }
- 
 
 270 
        } else {
- 
 
 271 
            // ouverture des squelettes présent dans le dossier du site
- 
 
 272 
            // création de l'objet pear ftp
- 
 
 273 
            $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
- 
 
 274 
            // création de la connexion
- 
 
 275 
            $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
- 
 
 276 
            // identification
- 
 
 277 
            $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
- 
 
 278 
            // Gestion des erreurs ftp
- 
 
 279 
            if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
- 
 
 280 
                die('ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
- 
 
 281 
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
- 
 
 282 
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
- 
 
 283 
                    'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 284 
                    'Fichier n° : '. __FILE__ .'<br />'.
- 
 
 285 
                    'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
- 
 
 286 
                    'Message erreur de login : '.$ftp_login_result->getMessage());
- 
 
 287 
            }
- 
 
 288 
            $chemin_squelettes =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 289 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;
- 
 
 290 
            $tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
275 
        $aso_options = array();
 291 
            $aso_options = array();
276 
        for ($i = 0; $i < count($tab_squelettes) ; $i++) {
 292 
            for ($i = 0; $i < count($tab_squelettes) ; $i++) {
277 
            if ($tab_squelettes[$i]['is_dir'] == false) {
 293 
                if ($tab_squelettes[$i]['is_dir'] == false) {
- 
 
 294 
                    $aso_options[$tab_squelettes[$i]['name']] = $tab_squelettes[$i]['name'];
278 
                $aso_options[$tab_squelettes[$i]['name']] = $tab_squelettes[$i]['name'];
 295 
                }
- 
 
 296 
            }
279 
            }
 297 
            $objet_pear_ftp->disconnect();
280 
        }
 - 
 
281 
        $objet_pear_ftp->disconnect();
 298 
        }
282 
        $id = 'gs_fichier_squelette';
 299 
        $id = 'gs_fichier_squelette';
283 
        $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
 300 
        $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
284 
        $label = '<label for="'.$id.'">'.'Squelette : '.'</label>';
 301 
        $label = '<label for="'.$id.'">'.'Squelette : '.'</label>';
285 
        $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
 302 
        $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
Line 543... Line 560...
543 
        $resultat = $db->query($requete);
 560 
        $resultat = $db->query($requete);
544 
        if (DB::isError($resultat)) {
 561 
        if (DB::isError($resultat)) {
545 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
 562 
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
546 
        }
 563 
        }
547 
    }
 564 
    }
548 
    // Ajout des répertoires du site
 - 
 
549 
    // Création d'une connection ftp avec Net_FTP de PEAR
 - 
 
550 
    // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
 - 
 
551
- 
 
552 
    // création de l'objet pear ftp
 - 
 
553 
    $objet_pear_ftp = new Net_FTP(GEN_FTP_SERVEUR, GEN_FTP_PORT);
 - 
 
554 
    // création de la connexion
 - 
 
555 
    $ftp_conn = $objet_pear_ftp->connect(GEN_FTP_SERVEUR, GEN_FTP_PORT);
 - 
 
556 
    // identification
 - 
 
557 
    $ftp_login_result = $objet_pear_ftp->login(GEN_FTP_UTILISATEUR, GEN_FTP_MOT_DE_PASSE);;
 - 
 
558 
    // Gestion des erreurs ftp
 - 
 
559 
    if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
 - 
 
560 
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
 565 
    // Ajout des répertoires du site soit par manipulation de fichier soit par FTP en fonction de l'activation du safe_mode ou pas
561 
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
 - 
 
562 
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
 - 
 
563 
                    'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
 - 
 
564 
                    'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
 - 
 
565 
                    'Ligne n° : '. __LINE__ .'<br />'.
 - 
 
566 
                    'Fichier n° : '. __FILE__ .'<br /><p>';
 - 
 
567 
        return $message;
 - 
 
568 
    }
 - 
 
569 
    $tableau_repertoires = array(   GEN_DOSSIER_IMAGE,
 566 
    $tableau_repertoires = array(   GEN_DOSSIER_IMAGE,
570 
                                    GEN_DOSSIER_STYLE,
 567 
                                        GEN_DOSSIER_STYLE,
571 
                                    GEN_DOSSIER_SCRIPT,
 568 
                                        GEN_DOSSIER_SCRIPT,
572 
                                    GEN_DOSSIER_SQUELETTE,
 569 
                                        GEN_DOSSIER_SQUELETTE,
573 
                                    GEN_DOSSIER_DOC);
 570 
                                        GEN_DOSSIER_DOC);
- 
 
 571 
    if (!GEN_SAFE_MODE) {
574 
    foreach ($tableau_repertoires as $nom_repertoire) {
 572 
        foreach ($tableau_repertoires as $nom_repertoire) {
575 
        $chemin_repertoire = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.$nom_repertoire.'/';
 573 
            $chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$aso_valeurs['gs_ce_i18n'].GEN_SEP.$nom_repertoire;
- 
 
 574 
            $vieux_umask = umask(0);
576 
        $resultat = $objet_pear_ftp->mkdir($chemin_repertoire, true) ;
 575 
            $resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
- 
 
 576 
            umask($vieux_umask);
577 
        if (PEAR::isError($resultat)) {
 577 
            if ($resultat == false) {
578 
            $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de créer le répertoire par ftp.<br />'.
 578 
                $message =  '<p class="genesia_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire.<br />'.
579 
                        'Répertoire : '. $chemin_repertoire .'<br />'.
 579 
                            'Répertoire : '. $chemin_repertoire .'<br />'.
- 
 
 580 
                            'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 581 
                            'Fichier n° : '. __FILE__ .'<br /></p>';
- 
 
 582 
                return $message;
- 
 
 583 
            }
- 
 
 584 
        }
- 
 
 585 
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
- 
 
 586 
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
- 
 
 587 
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 588 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
- 
 
 589 
        if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
- 
 
 590 
            $message =  '<p class="genesia_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
580 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
 591 
                        'Fichier : '. $$chemin_squelette_site .'<br />'.
581 
                        'Ligne n° : '. __LINE__ .'<br />'.
 592 
                        'Ligne n° : '. __LINE__ .'<br />'.
582 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
 593 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
583 
            return $message;
 594 
            return $message;
584 
        }
 595 
        }
585 
    }
 - 
 
586 
    $chemin_squelette_defaut = GEN_FTP_CHEMIN.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.'/'.GEN_DOSSIER_SQUELETTE.'/defaut.html';
 596 
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
- 
 
 597 
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
587 
    $chemin_squelette_site = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/defaut.html';
 598 
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
588 
    $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
 599 
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
589 
    if (PEAR::isError($resultat)) {
 600 
        if (!copy($chemin_style_defaut, $chemin_style_site)) {
590 
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de copier le squelette defaut par ftp.<br />'.
 601 
            $message =  '<p class="genesia_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.
591 
                    'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
 - 
 
592 
                    'Fichier copié : '. $chemin_squelette_site .'<br />'.
 602 
                        'Fichier : '. $$chemin_style_site .'<br />'.
593 
                    'Erreur origine : '. $resultat->getMessage() .'<br />'.
 - 
 
594 
                    'Ligne n° : '. __LINE__ .'<br />'.
 603 
                        'Ligne n° : '. __LINE__ .'<br />'.
595 
                    'Fichier n° : '. __FILE__ .'<br /></p>';
 604 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
596 
            return $message;
 605 
            return $message;
597 
    }
 606 
        }
- 
 
 607 
    } else {
- 
 
 608 
        // Création d'une connection ftp avec Net_FTP de PEAR
- 
 
 609 
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
- 
 
 610
- 
 
 611 
        // création de l'objet pear ftp
598 
    $chemin_style_defaut = GEN_FTP_CHEMIN.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.'/'.GEN_DOSSIER_STYLE.'/defaut.css';
 612 
        $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
- 
 
 613 
        // création de la connexion
599 
    $chemin_style_site = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.GEN_DOSSIER_STYLE.'/defaut.css';
 614 
        $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
- 
 
 615 
        // identification
600 
    $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
 616 
        $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
601 
    if (PEAR::isError($resultat)) {
 617 
        // Gestion des erreurs ftp
- 
 
 618 
        if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
602 
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de copier le squelette defaut par ftp.<br />'.
 619 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
603 
                    'Fichier origine : '. $chemin_style_defaut .'<br />'.
 620 
                        'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
- 
 
 621 
                        'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
604 
                    'Fichier copié : '. $chemin_style_site .'<br />'.
 622 
                        'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
605 
                    'Erreur origine : '. $resultat->getMessage() .'<br />'.
 623 
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
606 
                    'Ligne n° : '. __LINE__ .'<br />'.
 624 
                        'Ligne n° : '. __LINE__ .'<br />'.
607 
                    'Fichier n° : '. __FILE__ .'<br /></p>';
 625 
                        'Fichier n° : '. __FILE__ .'<br /><p>';
608 
            return $message;
 626 
            return $message;
- 
 
 627 
        }
- 
 
 628 
        foreach ($tableau_repertoires as $nom_repertoire) {
- 
 
 629 
            $chemin_repertoire =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 630 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.$nom_repertoire.GEN_SEP;
- 
 
 631 
            $resultat = $objet_pear_ftp->mkdir($chemin_repertoire, true) ;
- 
 
 632 
            if (PEAR::isError($resultat)) {
- 
 
 633 
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
- 
 
 634 
                            'Répertoire : '. $chemin_repertoire .'<br />'.
- 
 
 635 
                            'Erreur origine : '. $resultat->getMessage() .'<br />'.
- 
 
 636 
                            'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 637 
                            'Fichier n° : '. __FILE__ .'<br /></p>';
- 
 
 638 
                return $message;
- 
 
 639 
            }
- 
 
 640 
        }
- 
 
 641 
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
- 
 
 642 
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
- 
 
 643 
        $chemin_squelette_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 644 
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
- 
 
 645 
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
- 
 
 646 
        if (PEAR::isError($resultat)) {
- 
 
 647 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
- 
 
 648 
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
- 
 
 649 
                        'Fichier copié : '. $chemin_squelette_site .'<br />'.
- 
 
 650 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
- 
 
 651 
                        'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 652 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
- 
 
 653 
                return $message;
- 
 
 654 
        }
- 
 
 655 
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
- 
 
 656 
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
- 
 
 657 
        $chemin_style_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 658 
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
- 
 
 659 
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
- 
 
 660 
        if (PEAR::isError($resultat)) {
- 
 
 661 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
- 
 
 662 
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
- 
 
 663 
                        'Fichier copié : '. $chemin_style_site .'<br />'.
- 
 
 664 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
- 
 
 665 
                        'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 666 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
- 
 
 667 
                return $message;
- 
 
 668 
        }
- 
 
 669 
        $objet_pear_ftp->disconnect();
609 
    }
 670 
    }
610 
    $objet_pear_ftp->disconnect();
 - 
 
611 
    $message = '<p class="genesia_info">'.'Succés de l\'ajout du site.'.'</p>';
 671 
    $message = '<p class="pap_info">'.'Succés de l\'ajout du site.'.'</p>';
612 
    return $message;
 672 
    return $message;
613 
}
 673 
}
Line 614... Line 674...
614 
 
 674 
 
615 
/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.
 675 
/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.
Line 764... Line 824...
764 
        $resultat_menu->free();
 824 
        $resultat_menu->free();
765 
    }
 825 
    }
766 
    $resultat->free();
 826 
    $resultat->free();
Line 767... Line 827...
767
827
- 
 
 828 
    // Suppression des répertoires du site
- 
 
 829 
    if (!GEN_SAFE_MODE) {
- 
 
 830 
        $chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal;
- 
 
 831 
        $resultat = supprimerDossier($chemin_repertoire, GEN_SEP);
- 
 
 832 
        if (!$resultat) {
- 
 
 833 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire.<br />'.
- 
 
 834 
                        'Répertoire : '. $chemin_repertoire .'<br />'.
- 
 
 835 
                        'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 836 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
- 
 
 837 
            return $message;
- 
 
 838 
        }
768 
    // Suppression des répertoires du site
 839 
    } else {
769 
    // Création d'une connection ftp avec Net_FTP de PEAR
 840 
        // Création d'une connection ftp avec Net_FTP de PEAR
770 
    // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
 841 
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
771
842
772 
    // création de l'objet pear ftp
 843 
        // création de l'objet pear ftp
773 
    $objet_pear_ftp = new Net_FTP(GEN_FTP_SERVEUR, GEN_FTP_PORT);
 844 
        $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
774 
    // création de la connexion
 845 
        // création de la connexion
775 
    $ftp_conn = $objet_pear_ftp->connect(GEN_FTP_SERVEUR, GEN_FTP_PORT);
 846 
        $ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
776 
    // identification
 847 
        // identification
777 
    $ftp_login_result = $objet_pear_ftp->login(GEN_FTP_UTILISATEUR, GEN_FTP_MOT_DE_PASSE);;
 848 
        $ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);;
778 
    // Gestion des erreurs ftp
 849 
        // Gestion des erreurs ftp
779 
    if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
 850 
        if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
780 
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
 851 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
781 
                    'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
 852 
                        'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
782 
                    'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
 853 
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
783 
                    'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
 854 
                        'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
784 
                    'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
 855 
                        'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
785 
                    'Ligne n° : '. __LINE__ .'<br />'.
 856 
                        'Ligne n° : '. __LINE__ .'<br />'.
786 
                    'Fichier n° : '. __FILE__ .'<br /><p>';
 857 
                        'Fichier n° : '. __FILE__ .'<br /><p>';
787 
        return $message;
 858 
            return $message;
788 
    }
 859 
        }
789 
    // Changement du niveau d'erreur pour éviter les Notices PHP dues à  Net_FTP
 860 
        // Changement du niveau d'erreur pour éviter les Notices PHP dues à  Net_FTP
790 
    error_reporting(E_PARSE);
 861 
        error_reporting(E_PARSE);
791 
    $chemin_repertoire = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
 862 
        $chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
792 
    $resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
 863 
        $resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
793 
    if (PEAR::isError($resultat)) {
 864 
        if (PEAR::isError($resultat)) {
794 
        $message =  '<p class="genesia_erreur"> ERREUR Génésia admin : impossible de supprimer le répertoire par ftp.<br />'.
 865 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire par ftp.<br />'.
795 
                    'Erreur ftp : '.$resultat->getMessage().'<br />'.
 866 
                        'Erreur ftp : '.$resultat->getMessage().'<br />'.
796 
                    'Répertoire : '. $chemin_repertoire .'<br />'.
 867 
                        'Répertoire : '. $chemin_repertoire .'<br />'.
797 
                    'Ligne n° : '. __LINE__ .'<br />'.
 868 
                        'Ligne n° : '. __LINE__ .'<br />'.
798 
                    'Fichier n° : '. __FILE__ .'<br /></p>';
 869 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
- 
 
 870 
            return $message;
- 
 
 871 
        }
- 
 
 872 
        $objet_pear_ftp->disconnect();
- 
 
 873 
        // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
799 
        return $message;
 874 
        error_reporting(GEN_DEBOGAGE_NIVEAU);
800 
    }
 - 
 
801 
    $objet_pear_ftp->disconnect();
 - 
 
802 
    // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
 - 
 
803 
    error_reporting(GEN_DEBOGAGE_NIVEAU);
 875 
    }
804 
    $message = '<p class="genesia_info">Succés de la suppression du site.</p>';
 876 
    $message = '<p class="pap_info">Succés de la suppression du site.</p>';
805 
    return $message;
 877 
    return $message;
Line 806... Line 878...
806 
}
 878 
}
807 
 
 879 
 
808 
// +- Fin du code source  --------------------------------------------------------------------------------+
 880 
// +- Fin du code source  --------------------------------------------------------------------------------+
- 
 
 881 
/*
- 
 
 882 
* $Log: not supported by cvs2svn $
- 
 
 883 
* Revision 1.3  2004/09/23 16:51:27  jpm
809 
/*
 884 
* Ajout d'informations supplémentaires sur les messages d'erreur.
810 
* $Log: not supported by cvs2svn $
 885 
*
811 
* Revision 1.2  2004/07/06 17:08:01  jpm
 886 
* Revision 1.2  2004/07/06 17:08:01  jpm
812 
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
 887 
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
813 
*
 888 
*