Subversion Repositories Applications.papyrus

Rev

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

Rev 1657 Rev 1664
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.41 2007-10-21 16:44:37 ddelon Exp $
 22 
// CVS : $Id: adsi_site.fonct.php,v 1.42 2007-10-23 13:31:22 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.41 $ $Date: 2007-10-21 16:44:37 $
 37 
*@version       $Revision: 1.42 $ $Date: 2007-10-23 13:31:22 $
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
39 
*/
 39 
*/
Line 40... Line 40...
40 
 
 40 
 
41 
// +------------------------------------------------------------------------------------------------------+
 41 
// +------------------------------------------------------------------------------------------------------+
Line 1170... Line 1170...
1170 
                        'Fichier : '. $chemin_style_site .'<br />'.
 1170 
                        'Fichier : '. $chemin_style_site .'<br />'.
1171 
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
 1171 
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1172 
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
 1172 
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1173 
            return $message;
 1173 
            return $message;
1174 
        }
 1174 
        }
- 
 
 1175
- 
 
 1176 
        $chemin_image_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
- 
 
 1177 
                                GEN_DOSSIER_IMAGE.GEN_SEP;
- 
 
 1178 
        $chemin_image_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 1179 
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
- 
 
 1180
- 
 
 1181 
		if (!copy($chemin_image_defaut, $chemin_image_site)) {
- 
 
 1182 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr&eacute;er les fichhiers image par defaut.<br />'.
- 
 
 1183 
                        'Fichier : '. $chemin_style_site .'<br />'.
- 
 
 1184 
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
- 
 
 1185 
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
- 
 
 1186 
            return $message;
- 
 
 1187 
        }
- 
 
 1188
1175 
    } else if (GEN_FTP_UTILISE && $id_type_site != '103') {  // 103 est le type "site externe"
 1189 
    } else if (GEN_FTP_UTILISE && $id_type_site != '103') {  // 103 est le type "site externe"
1176 
        // Création d'une connection ftp avec Net_FTP de PEAR
 1190 
        // Création d'une connection ftp avec Net_FTP de PEAR
1177 
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
 1191 
        // voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
Line 1178... Line 1192...
1178
1192
Line 1238... Line 1252...
1238 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
 1252 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
1239 
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
 1253 
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
1240 
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
 1254 
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
1241 
                return $message;
 1255 
                return $message;
1242 
        }
 1256 
        }
- 
 
 1257
- 
 
 1258 
        $chemin_image_defaut =  PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
- 
 
 1259 
                                GEN_DOSSIER_IMAGE.GEN_SEP;
- 
 
 1260 
        $chemin_image_site =    PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
- 
 
 1261 
                                $aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
- 
 
 1262 
        $resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);
- 
 
 1263 
        if (PEAR::isError($resultat)) {
- 
 
 1264 
            $message =  '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le dossier images par ftp.<br />'.
- 
 
 1265 
                        'Fichier origine : '. $chemin_image_defaut .'<br />'.
- 
 
 1266 
                        'Fichier copi&eacute; : '. $chemin_image_site .'<br />'.
- 
 
 1267 
                        'Erreur origine : '. $resultat->getMessage() .'<br />'.
- 
 
 1268 
                        'Ligne n&deg; : '. __LINE__ .'<br />'.
- 
 
 1269 
                        'Fichier n&deg; : '. __FILE__ .'<br /></p>';
- 
 
 1270 
                return $message;
- 
 
 1271 
        }
- 
 
 1272 
 
1243 
        $objet_pear_ftp->disconnect();
 1273 
        $objet_pear_ftp->disconnect();
1244 
    }
 1274 
    }
Line 1245... Line 1275...
1245
1275
Line 1840... Line 1870...
1840 
}
 1870 
}
Line 1841... Line 1871...
1841
1871
1842 
// +- Fin du code source  --------------------------------------------------------------------------------+
 1872 
// +- Fin du code source  --------------------------------------------------------------------------------+
1843 
/*
 1873 
/*
- 
 
 1874 
* $Log: not supported by cvs2svn $
- 
 
 1875 
* Revision 1.41  2007-10-21 16:44:37  ddelon
- 
 
 1876 
* Pb Pap chemin
1844 
* $Log: not supported by cvs2svn $
 1877 
*
1845 
* Revision 1.40  2007-10-04 12:57:37  ddelon
 1878 
* Revision 1.40  2007-10-04 12:57:37  ddelon
1846 
* retablisssement chemin ftp dans traduction site
 1879 
* retablisssement chemin ftp dans traduction site
1847 
*
 1880 
*
1848 
* Revision 1.39  2007-06-26 14:18:53  florian
 1881 
* Revision 1.39  2007-06-26 14:18:53  florian