Subversion Repositories Applications.papyrus

Rev

Rev 1087 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1087 Rev 1269
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.32 2006-10-16 15:49:06 ddelon Exp $
 22 
// CVS : $Id: adsi_site.fonct.php,v 1.32.2.1 2007-03-19 14:57:44 alexandre_tb 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.32 $ $Date: 2006-10-16 15:49:06 $
 37 
*@version       $Revision: 1.32.2.1 $ $Date: 2007-03-19 14:57:44 $
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
39 
*/
 39 
*/
Line 40... Line 40...
40 
 
 40 
 
41 
// +------------------------------------------------------------------------------------------------------+
 41 
// +------------------------------------------------------------------------------------------------------+
Line 913... Line 913...
913 
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
 913 
                        'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
914 
                        'Ligne n° : '. __LINE__ .'<br />'.
 914 
                        'Ligne n° : '. __LINE__ .'<br />'.
915 
                        'Fichier n° : '. __FILE__ .'<br /><p>';
 915 
                        'Fichier n° : '. __FILE__ .'<br /><p>';
916 
            return $message;
 916 
            return $message;
917 
        }
 917 
        }
918 
        $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
 918 
        $resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
Line -... Line 919...
- 
 
 919
- 
 
 920 
       if (PEAR::isError($resultat)) {
- 
 
 921 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
- 
 
 922 
                        'Répertoire : '. PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
- 
 
 923 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
- 
 
 924 
                        'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
- 
 
 925 
                        'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 926 
                        'Fichier n° : '. __FILE__ .'<br /></p>';
- 
 
 927 
            return $message;
919
928 
        }
920 
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
 929 
        //$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
921 
        foreach ($tab_rep_langue as $nom_rep_langue) {
 930 
        foreach ($tab_rep_langue as $nom_rep_langue) {
922 
            $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
 931 
            $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
923 
            foreach ($tab_rep_site as $nom_rep_site) {
 932 
            foreach ($tab_rep_site as $nom_rep_site) {
Line 926... Line 935...
926 
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
 935 
                $resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
927 
                if (PEAR::isError($resultat)) {
 936 
                if (PEAR::isError($resultat)) {
928 
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
 937 
                    $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
929 
                                'Répertoire : '. $chemin_repertoire .'<br />'.
 938 
                                'Répertoire : '. $chemin_repertoire .'<br />'.
930 
                                'Erreur origine : '. $resultat->getMessage() .'<br />'.
 939 
                                'Erreur origine : '. $resultat->getMessage() .'<br />'.
- 
 
 940 
                                'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
931 
                                'Ligne n° : '. __LINE__ .'<br />'.
 941 
                                'Ligne n° : '. __LINE__ .'<br />'.
932 
                                'Fichier n° : '. __FILE__ .'<br /></p>';
 942 
                                'Fichier n° : '. __FILE__ .'<br /></p>';
933 
                    return $message;
 943 
                    return $message;
934 
                }
 944 
                }
935 
            }
 945 
            }
Line 1816... Line 1826...
1816 
}
 1826 
}
Line 1817... Line 1827...
1817
1827
1818 
// +- Fin du code source  --------------------------------------------------------------------------------+
 1828 
// +- Fin du code source  --------------------------------------------------------------------------------+
1819 
/*
 1829 
/*
- 
 
 1830 
* $Log: not supported by cvs2svn $
- 
 
 1831 
* Revision 1.32  2006/10/16 15:49:06  ddelon
- 
 
 1832 
* Refactorisation code mulitlinguisme et gestion menu invisibles
1820 
* $Log: not supported by cvs2svn $
 1833 
*
1821 
* Revision 1.31  2006/09/12 09:54:02  ddelon
 1834 
* Revision 1.31  2006/09/12 09:54:02  ddelon
1822 
* Affichage des identifications disponibles lors de la création d'un site. Un bug faisait que l'affichage de l'identification par défaut ne fonctionnait plus en creation.
 1835 
* Affichage des identifications disponibles lors de la création d'un site. Un bug faisait que l'affichage de l'identification par défaut ne fonctionnait plus en creation.
1823 
*
 1836 
*
1824 
* Revision 1.30  2006/07/19 13:57:35  ddelon
 1837 
* Revision 1.30  2006/07/19 13:57:35  ddelon