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.40 2007-10-04 12:57:37 ddelon Exp $
|
22 |
// CVS : $Id: adsi_site.fonct.php,v 1.41 2007-10-21 16:44:37 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.40 $ $Date: 2007-10-04 12:57:37 $
|
37 |
*@version $Revision: 1.41 $ $Date: 2007-10-21 16:44:37 $
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
39 |
*/
|
39 |
*/
|
Line 40... |
Line 40... |
40 |
|
40 |
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
Line 1134... |
Line 1134... |
1134 |
GEN_DOSSIER_SQUELETTE,
|
1134 |
GEN_DOSSIER_SQUELETTE,
|
1135 |
GEN_DOSSIER_DOC);
|
1135 |
GEN_DOSSIER_DOC);
|
1136 |
if (!GEN_FTP_UTILISE && $id_type_site != '103') {
|
1136 |
if (!GEN_FTP_UTILISE && $id_type_site != '103') {
|
1137 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1137 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1138 |
foreach ($tab_rep_site as $nom_rep_site) {
|
1138 |
foreach ($tab_rep_site as $nom_rep_site) {
|
1139 |
$chemin_repertoire = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1139 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1140 |
$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1140 |
$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1141 |
$vieux_umask = umask(0);
|
1141 |
$vieux_umask = umask(0);
|
1142 |
$resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
|
1142 |
$resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
|
1143 |
umask($vieux_umask);
|
1143 |
umask($vieux_umask);
|
1144 |
if ($resultat == false) {
|
1144 |
if ($resultat == false) {
|
Line 1150... |
Line 1150... |
1150 |
}
|
1150 |
}
|
1151 |
}
|
1151 |
}
|
1152 |
}
|
1152 |
}
|
1153 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1153 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1154 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1154 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1155 |
$chemin_squelette_site = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1155 |
$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1156 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1156 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1157 |
if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
|
1157 |
if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
|
1158 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
|
1158 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
|
1159 |
'Fichier : '. $chemin_squelette_site .'<br />'.
|
1159 |
'Fichier : '. $chemin_squelette_site .'<br />'.
|
1160 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1160 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1161 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1161 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1162 |
return $message;
|
1162 |
return $message;
|
1163 |
}
|
1163 |
}
|
1164 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1164 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1165 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1165 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1166 |
$chemin_style_site = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1166 |
$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1167 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1167 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1168 |
if (!copy($chemin_style_defaut, $chemin_style_site)) {
|
1168 |
if (!copy($chemin_style_defaut, $chemin_style_site)) {
|
1169 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.
|
1169 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.
|
1170 |
'Fichier : '. $chemin_style_site .'<br />'.
|
1170 |
'Fichier : '. $chemin_style_site .'<br />'.
|
1171 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1171 |
'Ligne n° : '. __LINE__ .'<br />'.
|
Line 1191... |
Line 1191... |
1191 |
'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
|
1191 |
'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
|
1192 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1192 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1193 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1193 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1194 |
return $message;
|
1194 |
return $message;
|
1195 |
}
|
1195 |
}
|
1196 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1196 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
Line 1197... |
Line 1197... |
1197 |
|
1197 |
|
1198 |
//$objet_pear_ftp->cd(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1198 |
//$objet_pear_ftp->cd(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1199 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1199 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1200 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
|
1200 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
|
1201 |
foreach ($tab_rep_site as $nom_rep_site) {
|
1201 |
foreach ($tab_rep_site as $nom_rep_site) {
|
Line 1202... |
Line 1202... |
1202 |
$chemin_repertoire = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1202 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1203 |
|
1203 |
|
1204 |
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
|
1204 |
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
|
1205 |
if (PEAR::isError($resultat)) {
|
1205 |
if (PEAR::isError($resultat)) {
|
Line 1212... |
Line 1212... |
1212 |
}
|
1212 |
}
|
1213 |
}
|
1213 |
}
|
1214 |
}
|
1214 |
}
|
1215 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1215 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1216 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1216 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1217 |
$chemin_squelette_site = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1217 |
$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1218 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1218 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1219 |
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
|
1219 |
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
|
1220 |
if (PEAR::isError($resultat)) {
|
1220 |
if (PEAR::isError($resultat)) {
|
1221 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
|
1221 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
|
1222 |
'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
|
1222 |
'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
|
Line 1226... |
Line 1226... |
1226 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1226 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1227 |
return $message;
|
1227 |
return $message;
|
1228 |
}
|
1228 |
}
|
1229 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1229 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1230 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1230 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1231 |
$chemin_style_site = PAP_CHEMIN_RACINEGEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1231 |
$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1232 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1232 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1233 |
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
|
1233 |
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
|
1234 |
if (PEAR::isError($resultat)) {
|
1234 |
if (PEAR::isError($resultat)) {
|
1235 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
1235 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
1236 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
1236 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
Line 1840... |
Line 1840... |
1840 |
}
|
1840 |
}
|
Line 1841... |
Line 1841... |
1841 |
|
1841 |
|
1842 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
1842 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
1843 |
/*
|
1843 |
/*
|
- |
|
1844 |
* $Log: not supported by cvs2svn $
|
- |
|
1845 |
* Revision 1.40 2007-10-04 12:57:37 ddelon
|
- |
|
1846 |
* retablisssement chemin ftp dans traduction site
|
1844 |
* $Log: not supported by cvs2svn $
|
1847 |
*
|
1845 |
* Revision 1.39 2007-06-26 14:18:53 florian
|
1848 |
* Revision 1.39 2007-06-26 14:18:53 florian
|
1846 |
* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier
|
1849 |
* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier
|
1847 |
*
|
1850 |
*
|
1848 |
* Revision 1.38 2007-06-25 12:15:06 alexandre_tb
|
1851 |
* Revision 1.38 2007-06-25 12:15:06 alexandre_tb
|