WebSVN – Applications.papyrus – Diff – /trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php/



// |                                                                                                      |
// | You should have received a copy of the GNU Lesser General Public                                     |
// | License along with this library; if not, write to the Free Software                                  |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: adsi_site.fonct.php,v 1.35 2007-04-20 10:42:42 neiluj Exp $
/**
* Bibliothèque de fonctions d'admininistration des projets
*
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
* sur les projets (=sites gérés par Papyrus).

*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
*@author        Laurent COUDOUNEAU <lc@gsite.org>
*@copyright     Tela-Botanica 2000-2004
*@version       $Revision: 1.35 $ $Date: 2007-04-20 10:42:42 $
// +------------------------------------------------------------------------------------------------------+
*/

 
// +------------------------------------------------------------------------------------------------------+

                    'Ligne n° : '. __LINE__ .'<br />'.
                    'Fichier n° : '. __FILE__ .'<br />');
                    //'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
                    //'Message erreur de login : '.$ftp_login_result->getMessage());
            }
            $chemin_squelettes =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;
            $tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
            $aso_options = array();
            for ($i = 0; $i < count($tab_squelettes) ; $i++) {
                if ($tab_squelettes[$i]['is_dir'] == false) {

                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
                        'Ligne n° : '. __LINE__ .'<br />'.
                        'Fichier n° : '. __FILE__ .'<br /><p>';
            return $message;
        }
        $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;

        
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
        foreach ($tab_rep_langue as $nom_rep_langue) {
            $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
            foreach ($tab_rep_site as $nom_rep_site) {

                $chemin_repertoire =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
                
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
                if (PEAR::isError($resultat)) {

                }
            }
        }
        $chemin_squelette_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
                                    GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
        $chemin_squelette_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                    $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
        $resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
        if (PEAR::isError($resultat)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
                        'Fichier origine : '. $chemin_squelette_defaut .'<br />'.

                        'Fichier n° : '. __FILE__ .'<br /></p>';
                return $message;
        }
        $chemin_style_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
                                GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
        $chemin_style_site =    PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
        $resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
        if (PEAR::isError($resultat)) {
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
                        'Fichier origine : '. $chemin_style_defaut .'<br />'.

}

    
// +- Fin du code source  --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* Revision 1.34  2007/04/20 09:21:41  neiluj
* correction bug ftp création/suppression/modification de site
* (changé PAP_FTP_RACINE en PAP_CHEMIN_RACINE)
* voir compatibilité chroot() du serveur FTP)
*
* Revision 1.33  2007/04/19 15:34:35  neiluj
* préparration release (livraison) "Narmer" - v0.25
*
* Revision 1.32  2006/10/16 15:49:06  ddelon

Subversion Repositories Applications.papyrus

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

Rev 1350		Rev 1357
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.34 2007-04-20 09:21:41 neiluj Exp $`	22	`// CVS : $Id: adsi_site.fonct.php,v 1.35 2007-04-20 10:42:42 neiluj Exp $`
23	`/**`	23	`/**`
24	`* Bibliothèque de fonctions d'admininistration des projets`	24	`* Bibliothèque de fonctions d'admininistration des projets`
25	`*`	25	`*`
26	`* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations`	26	`* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations`
27	`* sur les projets (=sites gérés par Papyrus).`	27	`* sur les projets (=sites gérés 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.34 $ $Date: 2007-04-20 09:21:41 $`	37	`*@version $Revision: 1.35 $ $Date: 2007-04-20 10:42:42 $`
38	`// +------------------------------------------------------------------------------------------------------+`	38	`// +------------------------------------------------------------------------------------------------------+`
39	`*/`	39	`*/`
Line 40...		Line 40...
40		40
41	`// +------------------------------------------------------------------------------------------------------+`	41	`// +------------------------------------------------------------------------------------------------------+`
Line 519...		Line 519...
519	`'Ligne n° : '. __LINE__ .'<br />'.`	519	`'Ligne n° : '. __LINE__ .'<br />'.`
520	`'Fichier n° : '. __FILE__ .'<br />');`	520	`'Fichier n° : '. __FILE__ .'<br />');`
521	`//'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.`	521	`//'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.`
522	`//'Message erreur de login : '.$ftp_login_result->getMessage());`	522	`//'Message erreur de login : '.$ftp_login_result->getMessage());`
523	`}`	523	`}`
524	`$chemin_squelettes = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	524	`$chemin_squelettes = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
525	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;`	525	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP;`
526	`$tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);`	526	`$tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);`
527	`$aso_options = array();`	527	`$aso_options = array();`
528	`for ($i = 0; $i < count($tab_squelettes) ; $i++) {`	528	`for ($i = 0; $i < count($tab_squelettes) ; $i++) {`
529	`if ($tab_squelettes[$i]['is_dir'] == false) {`	529	`if ($tab_squelettes[$i]['is_dir'] == false) {`
Line 1178...		Line 1178...
1178	`'Erreur login : '.$ftp_login_result->getMessage().'<br />'.`	1178	`'Erreur login : '.$ftp_login_result->getMessage().'<br />'.`
1179	`'Ligne n° : '. __LINE__ .'<br />'.`	1179	`'Ligne n° : '. __LINE__ .'<br />'.`
1180	`'Fichier n° : '. __FILE__ .'<br /><p>';`	1180	`'Fichier n° : '. __FILE__ .'<br /><p>';`
1181	`return $message;`	1181	`return $message;`
1182	`}`	1182	`}`
1183	`$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`	1183	`$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`
Line 1184...		Line 1184...
1184		1184
1185	`//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`	1185	`//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;`
1186	`foreach ($tab_rep_langue as $nom_rep_langue) {`	1186	`foreach ($tab_rep_langue as $nom_rep_langue) {`
1187	`$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;`	1187	`$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;`
1188	`foreach ($tab_rep_site as $nom_rep_site) {`	1188	`foreach ($tab_rep_site as $nom_rep_site) {`
Line 1189...		Line 1189...
1189	`$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;`	1189	`$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;`
1190		1190
1191	`$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;`	1191	`$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;`
1192	`if (PEAR::isError($resultat)) {`	1192	`if (PEAR::isError($resultat)) {`
Line 1199...		Line 1199...
1199	`}`	1199	`}`
1200	`}`	1200	`}`
1201	`}`	1201	`}`
1202	`$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	1202	`$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
1203	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	1203	`GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
1204	`$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	1204	`$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
1205	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`	1205	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;`
1206	`$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);`	1206	`$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);`
1207	`if (PEAR::isError($resultat)) {`	1207	`if (PEAR::isError($resultat)) {`
1208	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.`	1208	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.`
1209	`'Fichier origine : '. $chemin_squelette_defaut .'<br />'.`	1209	`'Fichier origine : '. $chemin_squelette_defaut .'<br />'.`
Line 1213...		Line 1213...
1213	`'Fichier n° : '. __FILE__ .'<br /></p>';`	1213	`'Fichier n° : '. __FILE__ .'<br /></p>';`
1214	`return $message;`	1214	`return $message;`
1215	`}`	1215	`}`
1216	`$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`	1216	`$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.`
1217	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	1217	`GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
1218	`$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`	1218	`$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.`
1219	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`	1219	`$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;`
1220	`$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);`	1220	`$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);`
1221	`if (PEAR::isError($resultat)) {`	1221	`if (PEAR::isError($resultat)) {`
1222	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.`	1222	`$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.`
1223	`'Fichier origine : '. $chemin_style_defaut .'<br />'.`	1223	`'Fichier origine : '. $chemin_style_defaut .'<br />'.`
Line 1826...		Line 1826...
1826	`}`	1826	`}`
Line 1827...		Line 1827...
1827		1827
1828	`// +- Fin du code source --------------------------------------------------------------------------------+`	1828	`// +- Fin du code source --------------------------------------------------------------------------------+`
1829	`/*`	1829	`/*`
-		1830	`* $Log: not supported by cvs2svn $`
-		1831	`* Revision 1.34 2007/04/20 09:21:41 neiluj`
-		1832	`* correction bug ftp création/suppression/modification de site`
-		1833	`* (changé PAP_FTP_RACINE en PAP_CHEMIN_RACINE)`
-		1834	`* voir compatibilité chroot() du serveur FTP)`
1830	`* $Log: not supported by cvs2svn $`	1835	`*`
1831	`* Revision 1.33 2007/04/19 15:34:35 neiluj`	1836	`* Revision 1.33 2007/04/19 15:34:35 neiluj`
1832	`* préparration release (livraison) "Narmer" - v0.25`	1837	`* préparration release (livraison) "Narmer" - v0.25`
1833	`*`	1838	`*`
1834	`* Revision 1.32 2006/10/16 15:49:06 ddelon`	1839	`* Revision 1.32 2006/10/16 15:49:06 ddelon`