| Line 18... |
Line 18... |
| 18 |
// | |
|
18 |
// | |
|
| 19 |
// | You should have received a copy of the GNU Lesser General Public |
|
19 |
// | You should have received a copy of the GNU Lesser General Public |
|
| 20 |
// | License along with this library; if not, write to the Free Software |
|
20 |
// | License along with this library; if not, write to the Free Software |
|
| 21 |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
21 |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
| 22 |
// +------------------------------------------------------------------------------------------------------+
|
22 |
// +------------------------------------------------------------------------------------------------------+
|
| 23 |
// CVS : $Id: adsi_site.fonct.php,v 1.2 2004-07-06 17:08:01 jpm Exp $
|
23 |
// CVS : $Id: adsi_site.fonct.php,v 1.3 2004-09-23 16:51:27 jpm Exp $
|
| 24 |
/**
|
24 |
/**
|
| 25 |
* Bibliothèque de fonctions d'admininistration des projets
|
25 |
* Bibliothèque de fonctions d'admininistration des projets
|
| 26 |
*
|
26 |
*
|
| 27 |
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
|
27 |
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
|
| 28 |
* sur les projets (=sites gérés par Papyrus).
|
28 |
* sur les projets (=sites gérés par Papyrus).
|
| Line 33... |
Line 33... |
| 33 |
*@author Laurent COUDOUNEAU <lc@gsite.org>
|
33 |
*@author Laurent COUDOUNEAU <lc@gsite.org>
|
| 34 |
//Autres auteurs :
|
34 |
//Autres auteurs :
|
| 35 |
*@author Alexandre GRANIER <alexandre@tela-botanica.org>
|
35 |
*@author Alexandre GRANIER <alexandre@tela-botanica.org>
|
| 36 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
36 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
| 37 |
*@copyright Tela-Botanica 2000-2004
|
37 |
*@copyright Tela-Botanica 2000-2004
|
| 38 |
*@version $Revision: 1.2 $ $Date: 2004-07-06 17:08:01 $
|
38 |
*@version $Revision: 1.3 $ $Date: 2004-09-23 16:51:27 $
|
| 39 |
// +------------------------------------------------------------------------------------------------------+
|
39 |
// +------------------------------------------------------------------------------------------------------+
|
| 40 |
*/
|
40 |
*/
|
| Line 41... |
Line 41... |
| 41 |
|
41 |
|
| 42 |
// +------------------------------------------------------------------------------------------------------+
|
42 |
// +------------------------------------------------------------------------------------------------------+
|
| Line 257... |
Line 257... |
| 257 |
// création de l'objet pear ftp
|
257 |
// création de l'objet pear ftp
|
| 258 |
$objet_pear_ftp = new Net_FTP(GEN_FTP_SERVEUR, GEN_FTP_PORT);
|
258 |
$objet_pear_ftp = new Net_FTP(GEN_FTP_SERVEUR, GEN_FTP_PORT);
|
| 259 |
// création de la connexion
|
259 |
// création de la connexion
|
| 260 |
$ftp_conn = $objet_pear_ftp->connect(GEN_FTP_SERVEUR, GEN_FTP_PORT);
|
260 |
$ftp_conn = $objet_pear_ftp->connect(GEN_FTP_SERVEUR, GEN_FTP_PORT);
|
| 261 |
// identification
|
261 |
// identification
|
| 262 |
$ftp_login_result = $objet_pear_ftp->login(GEN_FTP_UTILISATEUR, GEN_FTP_MOT_DE_PASSE);;
|
262 |
$ftp_login_result = $objet_pear_ftp->login(GEN_FTP_UTILISATEUR, GEN_FTP_MOT_DE_PASSE);
|
| 263 |
// Gestion des erreurs ftp
|
263 |
// Gestion des erreurs ftp
|
| 264 |
if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
|
264 |
if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
|
| 265 |
die('ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
|
265 |
die('ERREUR Génésia admin : impossible de se connecter par ftp.<br />'.
|
| 266 |
'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
|
266 |
'Serveur : '. GEN_FTP_SERVEUR .'<br />'.
|
| 267 |
'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
|
267 |
'Utilisateur : '. GEN_FTP_UTILISATEUR .'<br />'.
|
| 268 |
'Ligne n° : '. __LINE__ .'<br />'.
|
268 |
'Ligne n° : '. __LINE__ .'<br />'.
|
| 269 |
'Fichier n° : '. __FILE__ .'<br />');
|
269 |
'Fichier n° : '. __FILE__ .'<br />'.
|
| - |
|
270 |
'Message erreur de connection : '.$ftp_conn->getMessage().'<br />'.
|
| - |
|
271 |
'Message erreur de login : '.$ftp_login_result->getMessage());
|
| 270 |
}
|
272 |
}
|
| 271 |
$chemin_squelettes = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/';
|
273 |
$chemin_squelettes = GEN_FTP_CHEMIN.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].'/'.$aso_valeurs['gs_ce_i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/';
|
| 272 |
$tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
|
274 |
$tab_squelettes = $objet_pear_ftp->ls($chemin_squelettes);
|
| 273 |
$aso_options = array();
|
275 |
$aso_options = array();
|
| 274 |
for ($i = 0; $i < count($tab_squelettes) ; $i++) {
|
276 |
for ($i = 0; $i < count($tab_squelettes) ; $i++) {
|
| Line 804... |
Line 806... |
| 804 |
}
|
806 |
}
|
| Line 805... |
Line 807... |
| 805 |
|
807 |
|
| 806 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
808 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
| 807 |
/*
|
809 |
/*
|
| - |
|
810 |
* $Log: not supported by cvs2svn $
|
| - |
|
811 |
* Revision 1.2 2004/07/06 17:08:01 jpm
|
| - |
|
812 |
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
|
| 808 |
* $Log: not supported by cvs2svn $
|
813 |
*
|
| 809 |
* Revision 1.1 2004/06/16 14:28:46 jpm
|
814 |
* Revision 1.1 2004/06/16 14:28:46 jpm
|
| 810 |
* Changement de nom de Génésia en Papyrus.
|
815 |
* Changement de nom de Génésia en Papyrus.
|
| 811 |
* Changement de l'arborescence.
|
816 |
* Changement de l'arborescence.
|
| 812 |
*
|
817 |
*
|