Subversion Repositories Applications.papyrus

Rev

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

Rev 1635 Rev 1657
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.40 2007-10-04 12:57:37 ddelon Exp $
22
// CVS : $Id: adsi_site.fonct.php,v 1.41 2007-10-21 16:44:37 ddelon 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.40 $ $Date: 2007-10-04 12:57:37 $
37
*@version       $Revision: 1.41 $ $Date: 2007-10-21 16:44:37 $
38
// +------------------------------------------------------------------------------------------------------+
38
// +------------------------------------------------------------------------------------------------------+
39
*/
39
*/
Line 40... Line 40...
40
 
40
 
41
// +------------------------------------------------------------------------------------------------------+
41
// +------------------------------------------------------------------------------------------------------+
Line 1134... Line 1134...
1134
                            GEN_DOSSIER_SQUELETTE,
1134
                            GEN_DOSSIER_SQUELETTE,
1135
                            GEN_DOSSIER_DOC);
1135
                            GEN_DOSSIER_DOC);
1136
    if (!GEN_FTP_UTILISE && $id_type_site != '103') {
1136
    if (!GEN_FTP_UTILISE && $id_type_site != '103') {
1137
        foreach ($tab_rep_langue as $nom_rep_langue) {
1137
        foreach ($tab_rep_langue as $nom_rep_langue) {
1138
            foreach ($tab_rep_site as $nom_rep_site) {
1138
            foreach ($tab_rep_site as $nom_rep_site) {
1139
                $chemin_repertoire =    PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1139
                $chemin_repertoire =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1140
                                        $nom_rep_langue.GEN_SEP.$nom_rep_site;
1140
                                        $nom_rep_langue.GEN_SEP.$nom_rep_site;
1141
                $vieux_umask = umask(0);
1141
                $vieux_umask = umask(0);
1142
                $resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
1142
                $resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
1143
                umask($vieux_umask);
1143
                umask($vieux_umask);
1144
                if ($resultat == false) {
1144
                if ($resultat == false) {
Line 1150... Line 1150...
1150
                }
1150
                }
1151
            }
1151
            }
1152
        }
1152
        }
1153
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1153
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1154
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1154
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1155
        $chemin_squelette_site =    PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1155
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1156
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1156
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1157
        if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
1157
        if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
1158
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de squellete par d&eacute;faut.<br />'.
1158
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de squellete par d&eacute;faut.<br />'.
1159
                        'Fichier : '. $chemin_squelette_site .'<br />'.
1159
                        'Fichier : '. $chemin_squelette_site .'<br />'.
1160
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1160
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1161
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1161
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1162
            return $message;
1162
            return $message;
1163
        }
1163
        }
1164
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1164
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1165
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1165
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1166
        $chemin_style_site =    PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1166
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1167
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1167
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1168
        if (!copy($chemin_style_defaut, $chemin_style_site)) {
1168
        if (!copy($chemin_style_defaut, $chemin_style_site)) {
1169
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de style par défaut.<br />'.
1169
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er le fichier de style par défaut.<br />'.
1170
                        'Fichier : '. $chemin_style_site .'<br />'.
1170
                        'Fichier : '. $chemin_style_site .'<br />'.
1171
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1171
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
Line 1191... Line 1191...
1191
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1191
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
1192
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1192
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1193
                        'Fichier n&deg; : '. __FILE__ .'<br /><p>';
1193
                        'Fichier n&deg; : '. __FILE__ .'<br /><p>';
1194
            return $message;
1194
            return $message;
1195
        }
1195
        }
1196
        $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
1196
        $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
Line 1197... Line 1197...
1197
        
1197
        
1198
        //$objet_pear_ftp->cd(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
1198
        //$objet_pear_ftp->cd(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
1199
        foreach ($tab_rep_langue as $nom_rep_langue) {
1199
        foreach ($tab_rep_langue as $nom_rep_langue) {
1200
            $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
1200
            $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
1201
            foreach ($tab_rep_site as $nom_rep_site) {
1201
            foreach ($tab_rep_site as $nom_rep_site) {
Line 1202... Line 1202...
1202
                $chemin_repertoire =    PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
1202
                $chemin_repertoire =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
1203
                
1203
                
1204
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
1204
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
1205
                if (PEAR::isError($resultat)) {
1205
                if (PEAR::isError($resultat)) {
Line 1212... Line 1212...
1212
                }
1212
                }
1213
            }
1213
            }
1214
        }
1214
        }
1215
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1215
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1216
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1216
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1217
        $chemin_squelette_site =    PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1217
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1218
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1218
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
1219
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
1219
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
1220
        if (PEAR::isError($resultat)) {
1220
        if (PEAR::isError($resultat)) {
1221
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
1221
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
1222
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
1222
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
Line 1226... Line 1226...
1226
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1226
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1227
                return $message;
1227
                return $message;
1228
        }
1228
        }
1229
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1229
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
1230
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1230
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1231
        $chemin_style_site =    PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1231
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
1232
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1232
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
1233
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
1233
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
1234
        if (PEAR::isError($resultat)) {
1234
        if (PEAR::isError($resultat)) {
1235
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
1235
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
1236
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
1236
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.
Line 1840... Line 1840...
1840
}
1840
}
Line 1841... Line 1841...
1841
    
1841
    
1842
// +- Fin du code source  --------------------------------------------------------------------------------+
1842
// +- Fin du code source  --------------------------------------------------------------------------------+
1843
/*
1843
/*
-
 
1844
* $Log: not supported by cvs2svn $
-
 
1845
* Revision 1.40  2007-10-04 12:57:37  ddelon
-
 
1846
* retablisssement chemin ftp dans traduction site
1844
* $Log: not supported by cvs2svn $
1847
*
1845
* Revision 1.39  2007-06-26 14:18:53  florian
1848
* Revision 1.39  2007-06-26 14:18:53  florian
1846
* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier
1849
* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier
1847
*
1850
*
1848
* Revision 1.38  2007-06-25 12:15:06  alexandre_tb
1851
* Revision 1.38  2007-06-25 12:15:06  alexandre_tb