| 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.29 2006-03-23 20:24:58 ddelon Exp $
|
22 |
// CVS : $Id: adsi_site.fonct.php,v 1.30 2006-07-19 13:57:35 ddelon 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.29 $ $Date: 2006-03-23 20:24:58 $
|
37 |
*@version $Revision: 1.30 $ $Date: 2006-07-19 13:57:35 $
|
| 38 |
// +------------------------------------------------------------------------------------------------------+
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
| 39 |
*/
|
39 |
*/
|
| Line 40... |
Line 40... |
| 40 |
|
40 |
|
| 41 |
// +------------------------------------------------------------------------------------------------------+
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
| Line 1700... |
Line 1700... |
| 1700 |
return $message;
|
1700 |
return $message;
|
| 1701 |
}
|
1701 |
}
|
| 1702 |
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
|
1702 |
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
|
| 1703 |
error_reporting(E_PARSE);
|
1703 |
error_reporting(E_PARSE);
|
| 1704 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
|
1704 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
|
| - |
|
1705 |
|
| - |
|
1706 |
if ($code_alpha_site_principal!='') {
|
| 1705 |
$resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
|
1707 |
$resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
|
| 1706 |
if (PEAR::isError($resultat)) {
|
1708 |
if (PEAR::isError($resultat)) {
|
| 1707 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire par ftp.<br />'.
|
1709 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer le répertoire par ftp.<br />'.
|
| 1708 |
'Erreur ftp : '.$resultat->getMessage().'<br />'.
|
1710 |
'Erreur ftp : '.$resultat->getMessage().'<br />'.
|
| 1709 |
'Répertoire : '. $chemin_repertoire .'<br />'.
|
1711 |
'Répertoire : '. $chemin_repertoire .'<br />'.
|
| 1710 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1712 |
'Ligne n° : '. __LINE__ .'<br />'.
|
| 1711 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1713 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
| 1712 |
return $message;
|
1714 |
return $message;
|
| - |
|
1715 |
}
|
| 1713 |
}
|
1716 |
}
|
| 1714 |
$objet_pear_ftp->disconnect();
|
1717 |
$objet_pear_ftp->disconnect();
|
| 1715 |
// Retour au niveau d'erreur définit dans le fichier de config de Papyrus
|
1718 |
// Retour au niveau d'erreur définit dans le fichier de config de Papyrus
|
| 1716 |
error_reporting(GEN_DEBOGAGE_NIVEAU);
|
1719 |
error_reporting(GEN_DEBOGAGE_NIVEAU);
|
| 1717 |
}
|
1720 |
}
|
| Line 1787... |
Line 1790... |
| 1787 |
}
|
1790 |
}
|
| Line 1788... |
Line 1791... |
| 1788 |
|
1791 |
|
| 1789 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
1792 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
| 1790 |
/*
|
1793 |
/*
|
| - |
|
1794 |
* $Log: not supported by cvs2svn $
|
| - |
|
1795 |
* Revision 1.29 2006/03/23 20:24:58 ddelon
|
| - |
|
1796 |
* *** empty log message ***
|
| 1791 |
* $Log: not supported by cvs2svn $
|
1797 |
*
|
| 1792 |
* Revision 1.28 2006/03/15 23:44:19 ddelon
|
1798 |
* Revision 1.28 2006/03/15 23:44:19 ddelon
|
| 1793 |
* Gestion site
|
1799 |
* Gestion site
|
| 1794 |
*
|
1800 |
*
|
| 1795 |
* Revision 1.27 2006/03/15 23:35:25 ddelon
|
1801 |
* Revision 1.27 2006/03/15 23:35:25 ddelon
|