Subversion Repositories Applications.papyrus

Rev

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

Rev 1373 Rev 1471
Line 17... Line 17...
17
// |                                                                                                      |
17
// |                                                                                                      |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
19
// | License along with this library; if not, write to the Free Software                                  |
19
// | License along with this library; if not, write to the Free Software                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
21
// +------------------------------------------------------------------------------------------------------+
22
// CVS : $Id: adsi_site.fonct.php,v 1.37 2007-04-24 13:27:57 alexandre_tb Exp $
22
// CVS : $Id: adsi_site.fonct.php,v 1.38 2007-06-25 12:15:06 alexandre_tb Exp $
23
/**
23
/**
24
* Bibliotheque de fonctions d'admininistration des projets
24
* Bibliotheque de fonctions d'admininistration des projets
25
*
25
*
26
* Contient un ensemble de fonctions permettant a l'application Administrateur de Papyrus, de modifier des informations
26
* Contient un ensemble de fonctions permettant a l'application Administrateur de Papyrus, de modifier des informations
27
* sur les projets (=sites geres par Papyrus).
27
* sur les projets (=sites geres par Papyrus).
Line 32... Line 32...
32
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
32
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
33
//Autres auteurs :
33
//Autres auteurs :
34
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
34
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
35
*@author        Laurent COUDOUNEAU <lc@gsite.org>
35
*@author        Laurent COUDOUNEAU <lc@gsite.org>
36
*@copyright     Tela-Botanica 2000-2004
36
*@copyright     Tela-Botanica 2000-2004
37
*@version       $Revision: 1.37 $ $Date: 2007-04-24 13:27:57 $
37
*@version       $Revision: 1.38 $ $Date: 2007-06-25 12:15:06 $
38
// +------------------------------------------------------------------------------------------------------+
38
// +------------------------------------------------------------------------------------------------------+
39
*/
39
*/
Line 40... Line 40...
40
 
40
 
41
// +------------------------------------------------------------------------------------------------------+
41
// +------------------------------------------------------------------------------------------------------+
Line 282... Line 282...
282
{
282
{
283
    $message = '';
283
    $message = '';
Line 284... Line 284...
284
    
284
    
285
    // Validation des donnees du formulaire
285
    // Validation des donnees du formulaire
286
    if (empty($aso_valeurs['form_sites_id_site'])) {
286
    if (empty($aso_valeurs['form_sites_id_site'])) {
287
        $message .= '<p class="pap_erreur">Vous devez d\'abord sélectionner un site.</p>';
287
        $message .= '<p class="pap_erreur">Vous devez d\'abord s&eacute;lectionner un site.</p>';
Line 288... Line 288...
288
    }
288
    }
289
    
289
    
Line 657... Line 657...
657
    
657
    
658
    $id = 'gs_mots_cles';
658
    $id = 'gs_mots_cles';
659
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
659
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
660
    $label = '<label for="'.$id.'">'.'Mots-cl&eacute;s : '.'</label>';
660
    $label = '<label for="'.$id.'">'.'Mots-cl&eacute;s : '.'</label>';
661
    $zone_mots_cles = $form->createElement('textarea', $id, $label, $aso_attributs);
661
    $zone_mots_cles = $form->createElement('textarea', $id, $label, $aso_attributs);
662
    $zone_mots_cles->setValue('mots-clés du site');
662
    $zone_mots_cles->setValue('mots-cl&eacute;s du site');
663
    $form->addElement($zone_mots_cles);
663
    $form->addElement($zone_mots_cles);
Line 664... Line 664...
664
    $form->addRule($id, 'Des mots cl&eacute;s sont requis pour le site !', 'required', '', 'client');
664
    $form->addRule($id, 'Des mots cl&eacute;s sont requis pour le site !', 'required', '', 'client');
665
    
665
    
Line 805... Line 805...
805
    
805
    
806
    if (empty($aso_valeurs['gs_titre'])) {
806
    if (empty($aso_valeurs['gs_titre'])) {
807
        $message .= '<p class="pap_erreur">Le champ "Titre" ne doit pas &ecirc;tre vide.</p>';
807
        $message .= '<p class="pap_erreur">Le champ "Titre" ne doit pas &ecirc;tre vide.</p>';
808
    }
808
    }
809
    if (empty($aso_valeurs['gs_mots_cles'])) {
809
    if (empty($aso_valeurs['gs_mots_cles'])) {
810
        $message .= '<p class="pap_erreur">Le champ "Mots clés" ne doit pas &ecirc;tre vide.</p>';
810
        $message .= '<p class="pap_erreur">Le champ "Mots cl&eacute;s" ne doit pas &ecirc;tre vide.</p>';
811
    }
811
    }
812
    if (empty($aso_valeurs['gs_description'])) {
812
    if (empty($aso_valeurs['gs_description'])) {
813
        $message .= '<p class="pap_erreur">Le champ "Description" ne doit pas &ecirc;tre vide.</p>';
813
        $message .= '<p class="pap_erreur">Le champ "Description" ne doit pas &ecirc;tre vide.</p>';
814
    }
814
    }
Line 911... Line 911...
911
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
911
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
912
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
912
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
913
                        'Fichier n&deg; : '. __FILE__ .'<br /><p>';
913
                        'Fichier n&deg; : '. __FILE__ .'<br /><p>';
914
            return $message;
914
            return $message;
915
        }
915
        }
916
        $resultat = $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
916
        $resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
Line 917... Line 917...
917
        
917
        
918
       if (PEAR::isError($resultat)) {
918
       if (PEAR::isError($resultat)) {
919
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
919
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
920
                        'R&eacute;pertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
920
                        'R&eacute;pertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
Line 924... Line 924...
924
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
924
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
925
            return $message;
925
            return $message;
926
        }
926
        }
927
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
927
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
928
        foreach ($tab_rep_langue as $nom_rep_langue) {
928
        foreach ($tab_rep_langue as $nom_rep_langue) {
929
            $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
929
            $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
930
            foreach ($tab_rep_site as $nom_rep_site) {
930
            foreach ($tab_rep_site as $nom_rep_site) {
931
                $chemin_repertoire =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
931
                $chemin_repertoire =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
Line 932... Line 932...
932
                
932
                
933
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
933
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
934
                if (PEAR::isError($resultat)) {
934
                if (PEAR::isError($resultat)) {
935
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le r&eacute;pertoire par ftp.<br />'.
935
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le r&eacute;pertoire par ftp.<br />'.
Line 942... Line 942...
942
                }
942
                }
943
            }
943
            }
944
        }
944
        }
945
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
945
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
946
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
946
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
947
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
947
        $chemin_squelette_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
948
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
948
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
949
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
949
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
950
        if (PEAR::isError($resultat)) {
950
        if (PEAR::isError($resultat)) {
951
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
951
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
952
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
952
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
Line 956... Line 956...
956
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
956
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
957
                return $message;
957
                return $message;
958
        }
958
        }
959
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
959
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
960
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
960
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
961
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
961
        $chemin_style_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
962
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
962
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
963
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
963
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
964
        if (PEAR::isError($resultat)) {
964
        if (PEAR::isError($resultat)) {
965
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
965
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
966
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
966
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
Line 971... Line 971...
971
                return $message;
971
                return $message;
972
        }
972
        }
Line 973... Line 973...
973
        
973
        
974
        $chemin_image_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
974
        $chemin_image_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
975
                                GEN_DOSSIER_IMAGE.GEN_SEP;
975
                                GEN_DOSSIER_IMAGE.GEN_SEP;
976
        $chemin_image_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
976
        $chemin_image_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
977
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
977
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
978
        $resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);
978
        $resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);
979
        if (PEAR::isError($resultat)) {
979
        if (PEAR::isError($resultat)) {
980
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
980
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le dossier images par ftp.<br />'.
981
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
981
                        'Fichier origine : '. $chemin_image_defaut .'<br />'.
982
                        'Fichier copi&eacute; : '. $chemin_style_site .'<br />'.
982
                        'Fichier copi&eacute; : '. $chemin_image_site .'<br />'.
983
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
983
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
984
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
984
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
985
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
985
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
986
                return $message;
986
                return $message;
Line 1084... Line 1084...
1084
        if (DB::isError($resultat)) {
1084
        if (DB::isError($resultat)) {
1085
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
1085
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
1086
        }
1086
        }
1087
    }
1087
    }
Line 1088... Line 1088...
1088
    
1088
    
1089
    $message = '<p class="pap_info">'.'Succès de l\'ajout du site.'.'</p>';
1089
    $message = '<p class="pap_info">'.'Succ&eacute;s de l\'ajout du site.'.'</p>';
1090
    return $message;
1090
    return $message;
Line 1091... Line 1091...
1091
}
1091
}
1092
 
1092
 
Line 1119... Line 1119...
1119
                            GEN_DOSSIER_SQUELETTE,
1119
                            GEN_DOSSIER_SQUELETTE,
1120
                            GEN_DOSSIER_DOC);
1120
                            GEN_DOSSIER_DOC);
1121
    if (!GEN_FTP_UTILISE && $id_type_site != '103') {
1121
    if (!GEN_FTP_UTILISE && $id_type_site != '103') {
1122
        foreach ($tab_rep_langue as $nom_rep_langue) {
1122
        foreach ($tab_rep_langue as $nom_rep_langue) {
1123
            foreach ($tab_rep_site as $nom_rep_site) {
1123
            foreach ($tab_rep_site as $nom_rep_site) {
1124
                $chemin_repertoire =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1124
                $chemin_repertoire =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1125
                                        $nom_rep_langue.GEN_SEP.$nom_rep_site;
1125
                                        $nom_rep_langue.GEN_SEP.$nom_rep_site;
1126
                $vieux_umask = umask(0);
1126
                $vieux_umask = umask(0);
1127
                $resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
1127
                $resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
1128
                umask($vieux_umask);
1128
                umask($vieux_umask);
1129
                if ($resultat == false) {
1129
                if ($resultat == false) {
Line 1133... Line 1133...
1133
                                'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1133
                                'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1134
                    return $message;
1134
                    return $message;
1135
                }
1135
                }
1136
            }
1136
            }
1137
        }
1137
        }
1138
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1138
        $chemin_squelette_defaut =  PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1139
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1139
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1140
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1140
        $chemin_squelette_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1141
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1141
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1142
        if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
1142
        if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
1143
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de squellete par d&eacute;faut.<br />'.
1143
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de squellete par d&eacute;faut.<br />'.
1144
                        'Fichier : '. $chemin_squelette_site .'<br />'.
1144
                        'Fichier : '. $chemin_squelette_site .'<br />'.
1145
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1145
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1146
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1146
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1147
            return $message;
1147
            return $message;
1148
        }
1148
        }
1149
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1149
        $chemin_style_defaut =  PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1150
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1150
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1151
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1151
        $chemin_style_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1152
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1152
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1153
        if (!copy($chemin_style_defaut, $chemin_style_site)) {
1153
        if (!copy($chemin_style_defaut, $chemin_style_site)) {
1154
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de style par défaut.<br />'.
1154
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de style par défaut.<br />'.
1155
                        'Fichier : '. $chemin_style_site .'<br />'.
1155
                        'Fichier : '. $chemin_style_site .'<br />'.
1156
                        'Ligne n° : '. __LINE__ .'<br />'.
1156
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1157
                        'Fichier n° : '. __FILE__ .'<br /></p>';
1157
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1158
            return $message;
1158
            return $message;
1159
        }
1159
        }
1160
    } else if (GEN_FTP_UTILISE && $id_type_site != '103') {  // 103 est le type "site externe"
1160
    } else if (GEN_FTP_UTILISE && $id_type_site != '103') {  // 103 est le type "site externe"
1161
        // Création d'une connection ftp avec Net_FTP de PEAR
1161
        // Création d'une connection ftp avec Net_FTP de PEAR
1162
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
1162
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
Line 1172... Line 1172...
1172
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
1172
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
1173
                        'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
1173
                        'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
1174
                        'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
1174
                        'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
1175
                        'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
1175
                        'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
1176
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1176
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1177
                        'Ligne n° : '. __LINE__ .'<br />'.
1177
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1178
                        'Fichier n° : '. __FILE__ .'<br /><p>';
1178
                        'Fichier n&deg; : '. __FILE__ .'<br /><p>';
1179
            return $message;
1179
            return $message;
1180
        }
1180
        }
1181
        $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
1181
        $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
Line 1182... Line 1182...
1182
        
1182
        
1183
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
1183
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
1184
        foreach ($tab_rep_langue as $nom_rep_langue) {
1184
        foreach ($tab_rep_langue as $nom_rep_langue) {
1185
            $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
1185
            $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
1186
            foreach ($tab_rep_site as $nom_rep_site) {
1186
            foreach ($tab_rep_site as $nom_rep_site) {
Line 1187... Line 1187...
1187
                $chemin_repertoire =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
1187
                $chemin_repertoire =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
1188
                
1188
                
1189
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
1189
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
1190
                if (PEAR::isError($resultat)) {
1190
                if (PEAR::isError($resultat)) {
1191
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
1191
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
1192
                                'Répertoire : '. $chemin_repertoire .'<br />'.
1192
                                'R&eacute;pertoire : '. $chemin_repertoire .'<br />'.
1193
                                'Erreur origine : '. $resultat->getMessage() .'<br />'.
1193
                                'Erreur origine : '. $resultat->getMessage() .'<br />'.
1194
                                'Ligne n° : '. __LINE__ .'<br />'.
1194
                                'Ligne n&deg; : '. __LINE__ .'<br />'.
1195
                                'Fichier n° : '. __FILE__ .'<br /></p>';
1195
                                'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1196
                    return $message;
1196
                    return $message;
1197
                }
1197
                }
1198
            }
1198
            }
1199
        }
1199
        }
1200
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1200
        $chemin_squelette_defaut =  PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1201
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1201
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1202
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1202
        $chemin_squelette_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1203
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1203
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1204
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
1204
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
1205
        if (PEAR::isError($resultat)) {
1205
        if (PEAR::isError($resultat)) {
1206
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
1206
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
1207
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
1207
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
1208
                        'Fichier copié : '. $chemin_squelette_site .'<br />'.
1208
                        'Fichier copi&eacute; : '. $chemin_squelette_site .'<br />'.
1209
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
1209
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
1210
                        'Ligne n° : '. __LINE__ .'<br />'.
1210
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1211
                        'Fichier n° : '. __FILE__ .'<br /></p>';
1211
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1212
                return $message;
1212
                return $message;
1213
        }
1213
        }
1214
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1214
        $chemin_style_defaut =  PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1215
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1215
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1216
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1216
        $chemin_style_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1217
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1217
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1218
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
1218
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
1219
        if (PEAR::isError($resultat)) {
1219
        if (PEAR::isError($resultat)) {
1220
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
1220
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
1221
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
1221
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
1222
                        'Fichier copié : '. $chemin_style_site .'<br />'.
1222
                        'Fichier copi&eacute; : '. $chemin_style_site .'<br />'.
1223
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
1223
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
1224
                        'Ligne n° : '. __LINE__ .'<br />'.
1224
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1225
                        'Fichier n° : '. __FILE__ .'<br /></p>';
1225
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1226
                return $message;
1226
                return $message;
1227
        }
1227
        }
Line 1228... Line 1228...
1228
        $objet_pear_ftp->disconnect();
1228
        $objet_pear_ftp->disconnect();
Line 1229... Line 1229...
1229
    }
1229
    }
1230
    
1230
    
1231
    $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
1231
    $id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
1232
    
1232
    
1233
    if ($id_site == false) {
1233
    if ($id_site == false) {
1234
        $message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
1234
        $message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
Line 1235... Line 1235...
1235
                    'Ligne n° : '. __LINE__ .'<br />'.
1235
                    'Ligne n&deg; : '. __LINE__ .'<br />'.
1236
                    'Fichier n° : '. __FILE__ .'<br /></p>';
1236
                    'Fichier n&deg; : '. __FILE__ .'<br /></p>';
Line 1382... Line 1382...
1382
        if (DB::isError($resultat)) {
1382
        if (DB::isError($resultat)) {
1383
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
1383
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
1384
        }
1384
        }
1385
    }
1385
    }
Line 1386... Line 1386...
1386
    
1386
    
1387
    $message = '<p class="pap_info">'.'Succès de l\'ajout du site.'.'</p>';
1387
    $message = '<p class="pap_info">'.'Succ&eacute;s de l\'ajout du site.'.'</p>';
1388
    return $message;
1388
    return $message;
Line 1389... Line 1389...
1389
}
1389
}
Line 1428... Line 1428...
1428
            $chemin_site_nouveau = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
1428
            $chemin_site_nouveau = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
1429
            if (!rename($chemin_site_ancien, $chemin_site_nouveau)) {
1429
            if (!rename($chemin_site_ancien, $chemin_site_nouveau)) {
1430
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de changer le nom du dossier du site.<br />'.
1430
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de changer le nom du dossier du site.<br />'.
1431
                            'Ancien nom : '. $chemin_site_ancien .'<br />'.
1431
                            'Ancien nom : '. $chemin_site_ancien .'<br />'.
1432
                            'Nouveau nom : '. $chemin_site_nouveau .'<br />'.
1432
                            'Nouveau nom : '. $chemin_site_nouveau .'<br />'.
1433
                            'Ligne n° : '. __LINE__ .'<br />'.
1433
                            'Ligne n&deg; : '. __LINE__ .'<br />'.
1434
                            'Fichier n° : '. __FILE__ .'<br /></p>';
1434
                            'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1435
                return $message;
1435
                return $message;
1436
            }
1436
            }
1437
        } else {
1437
        } else {
1438
            $chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
1438
            $chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
1439
            $chemin_site_nouveau = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
1439
            $chemin_site_nouveau = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
1440
            // Création d'une connection ftp avec Net_FTP de PEAR
1440
            // Création d'une connection ftp avec Net_FTP de PEAR
1441
            // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
1441
            // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
1442
            // création de l'objet pear ftp
1442
            // création de l'objet pear ftp
1443
            $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
1443
            $objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
1444
            // création de la connexion
1444
            // création de la connexion
Line 1450... Line 1450...
1450
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
1450
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
1451
                            'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
1451
                            'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
1452
                            'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
1452
                            'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
1453
                            'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
1453
                            'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
1454
                            'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1454
                            'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1455
                            'Ligne n° : '. __LINE__ .'<br />'.
1455
                            'Ligne n&deg; : '. __LINE__ .'<br />'.
1456
                            'Fichier n° : '. __FILE__ .'<br /><p>';
1456
                            'Fichier n&deg; : '. __FILE__ .'<br /><p>';
1457
                return $message;
1457
                return $message;
1458
            }
1458
            }
1459
            $resultat = $objet_pear_ftp->putRecursive($chemin_site_ancien, $chemin_site_nouveau, false, FTP_BINARY);
1459
            $resultat = $objet_pear_ftp->putRecursive($chemin_site_ancien, $chemin_site_nouveau, false, FTP_BINARY);
1460
            if (PEAR::isError($resultat)) {
1460
            if (PEAR::isError($resultat)) {
1461
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier l\'ancien dossier du site.<br />'.
1461
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier l\'ancien dossier du site.<br />'.
1462
                            'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
1462
                            'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
1463
                            'Dossier site nouveau : '. $chemin_site_nouveau .'<br />'.
1463
                            'Dossier site nouveau : '. $chemin_site_nouveau .'<br />'.
1464
                            'Erreur origine : '. $resultat->getMessage() .'<br />'.
1464
                            'Erreur origine : '. $resultat->getMessage() .'<br />'.
1465
                            'Ligne n° : '. __LINE__ .'<br />'.
1465
                            'Ligne n&deg; : '. __LINE__ .'<br />'.
1466
                            'Fichier n° : '. __FILE__ .'<br /></p>';
1466
                            'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1467
                    return $message;
1467
                    return $message;
1468
            }
1468
            }
1469
            // On utilise la racine FTP pour rm
1469
            // On utilise la racine FTP pour rm
1470
            $chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
1470
            $chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
1471
            // Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
1471
            // Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
1472
            error_reporting(E_PARSE);
1472
            error_reporting(E_PARSE);
1473
            $resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
1473
            $resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
1474
            if (PEAR::isError($resultat)) {
1474
            if (PEAR::isError($resultat)) {
1475
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.
1475
                $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.
1476
                            'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
1476
                            'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
1477
                            'Erreur origine : '. $resultat->getMessage() .'<br />'.
1477
                            'Erreur origine : '. $resultat->getMessage() .'<br />'.
1478
                            'Ligne n° : '. __LINE__ .'<br />'.
1478
                            'Ligne n&deg; : '. __LINE__ .'<br />'.
1479
                            'Fichier n° : '. __FILE__ .'<br /></p>';
1479
                            'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1480
                    return $message;
1480
                    return $message;
1481
            }
1481
            }
1482
            // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
1482
            // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
1483
            error_reporting(GEN_DEBOGAGE_NIVEAU);
1483
            error_reporting(GEN_DEBOGAGE_NIVEAU);
1484
            $objet_pear_ftp->disconnect();
1484
            $objet_pear_ftp->disconnect();
Line 1621... Line 1621...
1621
    }
1621
    }
Line 1622... Line 1622...
1622
    
1622
    
1623
    // Nous vérifions que le site n'a pas le code alphanum correspondant au site par défaut d'administration (admin).
1623
    // Nous vérifions que le site n'a pas le code alphanum correspondant au site par défaut d'administration (admin).
1624
    if ($code_alpha_site_principal == GEN_SITE_DEFAUT) {
1624
    if ($code_alpha_site_principal == GEN_SITE_DEFAUT) {
1625
        $message =  '<p class="pap_erreur">Si vous voulez vraiment supprimer le site d\'administration par défaut de '.
1625
        $message =  '<p class="pap_erreur">Si vous voulez vraiment supprimer le site d\'administration par défaut de '.
1626
                    'Papyrus, veuillez commencer par changer la valeur de son code alphanumérique. Vous pourrez '.
1626
                    'Papyrus, veuillez commencer par changer la valeur de son code alphanum&eacute;rique. Vous pourrez '.
1627
                    'ensuite le supprimer via cette interface.</p>';
1627
                    'ensuite le supprimer via cette interface.</p>';
1628
        return $message;
1628
        return $message;
Line 1629... Line 1629...
1629
    }
1629
    }
Line 1704... Line 1704...
1704
    // Suppression des répertoires du site
1704
    // Suppression des répertoires du site
1705
    if (!GEN_FTP_UTILISE) {
1705
    if (!GEN_FTP_UTILISE) {
1706
        $chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal;
1706
        $chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal;
1707
        $resultat = supprimerDossier($chemin_repertoire, GEN_SEP);
1707
        $resultat = supprimerDossier($chemin_repertoire, GEN_SEP);
1708
        if (!$resultat) {
1708
        if (!$resultat) {
1709
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire.<br />'.
1709
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le r&eacute;pertoire.<br />'.
1710
                        'Répertoire : '. $chemin_repertoire .'<br />'.
1710
                        'R&eacute;pertoire : '. $chemin_repertoire .'<br />'.
1711
                        'Ligne n° : '. __LINE__ .'<br />'.
1711
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1712
                        'Fichier n° : '. __FILE__ .'<br /></p>';
1712
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1713
            return $message;
1713
            return $message;
1714
        }
1714
        }
1715
    } else {
1715
    } else {
1716
        // Création d'une connection ftp avec Net_FTP de PEAR
1716
        // Création d'une connection ftp avec Net_FTP de PEAR
1717
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
1717
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
Line 1727... Line 1727...
1727
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
1727
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de se connecter par ftp.<br />'.
1728
                        'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
1728
                        'Erreur connexion : '.$ftp_conn->getMessage().'<br />'.
1729
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1729
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1730
                        'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
1730
                        'Serveur : '. PAP_FTP_SERVEUR .'<br />'.
1731
                        'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
1731
                        'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
1732
                        'Ligne n° : '. __LINE__ .'<br />'.
1732
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1733
                        'Fichier n° : '. __FILE__ .'<br /><p>';
1733
                        'Fichier n&deg; : '. __FILE__ .'<br /><p>';
1734
            return $message;
1734
            return $message;
1735
        }
1735
        }
1736
        // Changement du niveau d'erreur pour éviter les Notices PHP dues à  Net_FTP
1736
        // Changement du niveau d'erreur pour éviter les Notices PHP dues à  Net_FTP
1737
        error_reporting(E_PARSE);
1737
        error_reporting(E_PARSE);
1738
        $chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
1738
        $chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
Line 1739... Line 1739...
1739
        
1739
        
1740
        if ($code_alpha_site_principal!='') {
1740
        if ($code_alpha_site_principal!='') {
1741
	        $resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
1741
	        $resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
1742
	        if (PEAR::isError($resultat)) {
1742
	        if (PEAR::isError($resultat)) {
1743
	            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire par ftp.<br />'.
1743
	            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le r&eacute;pertoire par ftp.<br />'.
1744
	                        'Erreur ftp : '.$resultat->getMessage().'<br />'.
1744
	                        'Erreur ftp : '.$resultat->getMessage().'<br />'.
1745
	                        'Répertoire : '. $chemin_repertoire .'<br />'.
1745
	                        'R&eacute;pertoire : '. $chemin_repertoire .'<br />'.
1746
	                        'Ligne n° : '. __LINE__ .'<br />'.
1746
	                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1747
	                        'Fichier n° : '. __FILE__ .'<br /></p>';
1747
	                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1748
	            return $message;
1748
	            return $message;
1749
	        }
1749
	        }
1750
        }
1750
        }
1751
        $objet_pear_ftp->disconnect();
1751
        $objet_pear_ftp->disconnect();
1752
        // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
1752
        // Retour au niveau d'erreur définit dans le fichier de config de Papyrus
1753
        error_reporting(GEN_DEBOGAGE_NIVEAU);
1753
        error_reporting(GEN_DEBOGAGE_NIVEAU);
1754
    }
1754
    }
1755
    $message = '<p class="pap_info">Succès de la suppression du site.</p>';
1755
    $message = '<p class="pap_info">Succ&eacute;s de la suppression du site.</p>';
1756
    return $message;
1756
    return $message;
Line 1757... Line 1757...
1757
}
1757
}
Line 1824... Line 1824...
1824
}
1824
}
Line 1825... Line 1825...
1825
    
1825
    
1826
// +- Fin du code source  --------------------------------------------------------------------------------+
1826
// +- Fin du code source  --------------------------------------------------------------------------------+
1827
/*
1827
/*
-
 
1828
* $Log: not supported by cvs2svn $
-
 
1829
* Revision 1.37  2007/04/24 13:27:57  alexandre_tb
-
 
1830
* encodage
1828
* $Log: not supported by cvs2svn $
1831
*
1829
* Revision 1.36  2007/04/20 13:48:31  alexandre_tb
1832
* Revision 1.36  2007/04/20 13:48:31  alexandre_tb
1830
* nettoyage accent
1833
* nettoyage accent
1831
*
1834
*
1832
* Revision 1.35  2007/04/20 10:42:42  neiluj
1835
* Revision 1.35  2007/04/20 10:42:42  neiluj