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.36.2.1 2007-04-24 13:26:21 alexandre_tb Exp $
|
22 |
// CVS : $Id: adsi_site.fonct.php,v 1.36.2.2 2007-05-24 10:10:03 neiluj 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.36.2.1 $ $Date: 2007-04-24 13:26:21 $
|
37 |
*@version $Revision: 1.36.2.2 $ $Date: 2007-05-24 10:10:03 $
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
39 |
*/
|
39 |
*/
|
Line 40... |
Line 40... |
40 |
|
40 |
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
Line 911... |
Line 911... |
911 |
'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
|
911 |
'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
|
912 |
'Ligne n° : '. __LINE__ .'<br />'.
|
912 |
'Ligne n° : '. __LINE__ .'<br />'.
|
913 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
913 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
914 |
return $message;
|
914 |
return $message;
|
915 |
}
|
915 |
}
|
916 |
$resultat = $objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
916 |
$resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
Line 917... |
Line 917... |
917 |
|
917 |
|
918 |
if (PEAR::isError($resultat)) {
|
918 |
if (PEAR::isError($resultat)) {
|
919 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
|
919 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
|
920 |
'Répertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
|
920 |
'Répertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
|
Line 924... |
Line 924... |
924 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
924 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
925 |
return $message;
|
925 |
return $message;
|
926 |
}
|
926 |
}
|
927 |
//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
927 |
//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
928 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
928 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
929 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
|
929 |
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
|
930 |
foreach ($tab_rep_site as $nom_rep_site) {
|
930 |
foreach ($tab_rep_site as $nom_rep_site) {
|
931 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
931 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
Line 932... |
Line 932... |
932 |
|
932 |
|
933 |
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
|
933 |
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
|
934 |
if (PEAR::isError($resultat)) {
|
934 |
if (PEAR::isError($resultat)) {
|
935 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
|
935 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
|
Line 942... |
Line 942... |
942 |
}
|
942 |
}
|
943 |
}
|
943 |
}
|
944 |
}
|
944 |
}
|
945 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
945 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
946 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
946 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
947 |
$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
947 |
$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
948 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
948 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
949 |
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
|
949 |
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
|
950 |
if (PEAR::isError($resultat)) {
|
950 |
if (PEAR::isError($resultat)) {
|
951 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
|
951 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
|
952 |
'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
|
952 |
'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
|
Line 956... |
Line 956... |
956 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
956 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
957 |
return $message;
|
957 |
return $message;
|
958 |
}
|
958 |
}
|
959 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
959 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
960 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
960 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
961 |
$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
961 |
$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
962 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
962 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
963 |
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
|
963 |
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
|
964 |
if (PEAR::isError($resultat)) {
|
964 |
if (PEAR::isError($resultat)) {
|
965 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
965 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
966 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
966 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
Line 971... |
Line 971... |
971 |
return $message;
|
971 |
return $message;
|
972 |
}
|
972 |
}
|
Line 973... |
Line 973... |
973 |
|
973 |
|
974 |
$chemin_image_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
974 |
$chemin_image_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
975 |
GEN_DOSSIER_IMAGE.GEN_SEP;
|
975 |
GEN_DOSSIER_IMAGE.GEN_SEP;
|
976 |
$chemin_image_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
976 |
$chemin_image_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
977 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
|
977 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
|
978 |
$resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);
|
978 |
$resultat = $objet_pear_ftp->putRecursive($chemin_image_defaut, $chemin_image_site, false, FTP_BINARY);
|
979 |
if (PEAR::isError($resultat)) {
|
979 |
if (PEAR::isError($resultat)) {
|
980 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
980 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le dossier images par ftp.<br />'.
|
981 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
981 |
'Fichier origine : '. $chemin_image_defaut .'<br />'.
|
982 |
'Fichier copié : '. $chemin_style_site .'<br />'.
|
982 |
'Fichier copié : '. $chemin_image_site .'<br />'.
|
983 |
'Erreur origine : '. $resultat->getMessage() .'<br />'.
|
983 |
'Erreur origine : '. $resultat->getMessage() .'<br />'.
|
984 |
'Ligne n° : '. __LINE__ .'<br />'.
|
984 |
'Ligne n° : '. __LINE__ .'<br />'.
|
985 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
985 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
986 |
return $message;
|
986 |
return $message;
|
Line 1119... |
Line 1119... |
1119 |
GEN_DOSSIER_SQUELETTE,
|
1119 |
GEN_DOSSIER_SQUELETTE,
|
1120 |
GEN_DOSSIER_DOC);
|
1120 |
GEN_DOSSIER_DOC);
|
1121 |
if (!GEN_FTP_UTILISE && $id_type_site != '103') {
|
1121 |
if (!GEN_FTP_UTILISE && $id_type_site != '103') {
|
1122 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1122 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1123 |
foreach ($tab_rep_site as $nom_rep_site) {
|
1123 |
foreach ($tab_rep_site as $nom_rep_site) {
|
1124 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1124 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1125 |
$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1125 |
$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1126 |
$vieux_umask = umask(0);
|
1126 |
$vieux_umask = umask(0);
|
1127 |
$resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
|
1127 |
$resultat = creerDossier($chemin_repertoire, 0777, GEN_SEP);
|
1128 |
umask($vieux_umask);
|
1128 |
umask($vieux_umask);
|
1129 |
if ($resultat == false) {
|
1129 |
if ($resultat == false) {
|
Line 1133... |
Line 1133... |
1133 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1133 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1134 |
return $message;
|
1134 |
return $message;
|
1135 |
}
|
1135 |
}
|
1136 |
}
|
1136 |
}
|
1137 |
}
|
1137 |
}
|
1138 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1138 |
$chemin_squelette_defaut = PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1139 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1139 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1140 |
$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1140 |
$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1141 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1141 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1142 |
if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
|
1142 |
if (!copy($chemin_squelette_defaut, $chemin_squelette_site)) {
|
1143 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
|
1143 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de squellete par défaut.<br />'.
|
1144 |
'Fichier : '. $chemin_squelette_site .'<br />'.
|
1144 |
'Fichier : '. $chemin_squelette_site .'<br />'.
|
1145 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1145 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1146 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1146 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1147 |
return $message;
|
1147 |
return $message;
|
1148 |
}
|
1148 |
}
|
1149 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1149 |
$chemin_style_defaut = PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1150 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1150 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1151 |
$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1151 |
$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1152 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1152 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1153 |
if (!copy($chemin_style_defaut, $chemin_style_site)) {
|
1153 |
if (!copy($chemin_style_defaut, $chemin_style_site)) {
|
1154 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.
|
1154 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le fichier de style par défaut.<br />'.
|
1155 |
'Fichier : '. $chemin_style_site .'<br />'.
|
1155 |
'Fichier : '. $chemin_style_site .'<br />'.
|
1156 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1156 |
'Ligne n° : '. __LINE__ .'<br />'.
|
Line 1176... |
Line 1176... |
1176 |
'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
|
1176 |
'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
|
1177 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1177 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1178 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1178 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1179 |
return $message;
|
1179 |
return $message;
|
1180 |
}
|
1180 |
}
|
1181 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1181 |
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
Line 1182... |
Line 1182... |
1182 |
|
1182 |
|
1183 |
//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1183 |
//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1184 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1184 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1185 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
|
1185 |
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
|
1186 |
foreach ($tab_rep_site as $nom_rep_site) {
|
1186 |
foreach ($tab_rep_site as $nom_rep_site) {
|
Line 1187... |
Line 1187... |
1187 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1187 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1188 |
|
1188 |
|
1189 |
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
|
1189 |
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
|
1190 |
if (PEAR::isError($resultat)) {
|
1190 |
if (PEAR::isError($resultat)) {
|
Line 1195... |
Line 1195... |
1195 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1195 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1196 |
return $message;
|
1196 |
return $message;
|
1197 |
}
|
1197 |
}
|
1198 |
}
|
1198 |
}
|
1199 |
}
|
1199 |
}
|
1200 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1200 |
$chemin_squelette_defaut = PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1201 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1201 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1202 |
$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1202 |
$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1203 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1203 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1204 |
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
|
1204 |
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
|
1205 |
if (PEAR::isError($resultat)) {
|
1205 |
if (PEAR::isError($resultat)) {
|
1206 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
|
1206 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
|
1207 |
'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
|
1207 |
'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
|
Line 1209... |
Line 1209... |
1209 |
'Erreur origine : '. $resultat->getMessage() .'<br />'.
|
1209 |
'Erreur origine : '. $resultat->getMessage() .'<br />'.
|
1210 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1210 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1211 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1211 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1212 |
return $message;
|
1212 |
return $message;
|
1213 |
}
|
1213 |
}
|
1214 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1214 |
$chemin_style_defaut = PAP_FTP_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1215 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1215 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1216 |
$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1216 |
$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1217 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1217 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1218 |
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
|
1218 |
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
|
1219 |
if (PEAR::isError($resultat)) {
|
1219 |
if (PEAR::isError($resultat)) {
|
1220 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
1220 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
1221 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
1221 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
Line 1433... |
Line 1433... |
1433 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1433 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1434 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1434 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1435 |
return $message;
|
1435 |
return $message;
|
1436 |
}
|
1436 |
}
|
1437 |
} else {
|
1437 |
} else {
|
1438 |
$chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
|
1438 |
$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
|
1439 |
$chemin_site_nouveau = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
|
1439 |
$chemin_site_nouveau = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
|
1440 |
// Création d'une connection ftp avec Net_FTP de PEAR
|
1440 |
// Création d'une connection ftp avec Net_FTP de PEAR
|
1441 |
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
|
1441 |
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
|
1442 |
// création de l'objet pear ftp
|
1442 |
// création de l'objet pear ftp
|
1443 |
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1443 |
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1444 |
// création de la connexion
|
1444 |
// création de la connexion
|
Line 1465... |
Line 1465... |
1465 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1465 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1466 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1466 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1467 |
return $message;
|
1467 |
return $message;
|
1468 |
}
|
1468 |
}
|
1469 |
// On utilise la racine FTP pour rm
|
1469 |
// On utilise la racine FTP pour rm
|
1470 |
$chemin_site_ancien = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
|
1470 |
$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
|
1471 |
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
|
1471 |
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
|
1472 |
error_reporting(E_PARSE);
|
1472 |
error_reporting(E_PARSE);
|
1473 |
$resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
|
1473 |
$resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
|
1474 |
if (PEAR::isError($resultat)) {
|
1474 |
if (PEAR::isError($resultat)) {
|
1475 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.
|
1475 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.
|
Line 1733... |
Line 1733... |
1733 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1733 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1734 |
return $message;
|
1734 |
return $message;
|
1735 |
}
|
1735 |
}
|
1736 |
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
|
1736 |
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
|
1737 |
error_reporting(E_PARSE);
|
1737 |
error_reporting(E_PARSE);
|
1738 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
|
1738 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
|
Line 1739... |
Line 1739... |
1739 |
|
1739 |
|
1740 |
if ($code_alpha_site_principal!='') {
|
1740 |
if ($code_alpha_site_principal!='') {
|
1741 |
$resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
|
1741 |
$resultat = $objet_pear_ftp->rm($chemin_repertoire, true);
|
1742 |
if (PEAR::isError($resultat)) {
|
1742 |
if (PEAR::isError($resultat)) {
|
Line 1824... |
Line 1824... |
1824 |
}
|
1824 |
}
|
Line 1825... |
Line 1825... |
1825 |
|
1825 |
|
1826 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
1826 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
1827 |
/*
|
1827 |
/*
|
- |
|
1828 |
* $Log: not supported by cvs2svn $
|
- |
|
1829 |
* Revision 1.36.2.1 2007-04-24 13:26:21 alexandre_tb
|
- |
|
1830 |
* encodage
|
1828 |
* $Log: not supported by cvs2svn $
|
1831 |
*
|
1829 |
* Revision 1.36 2007/04/20 13:48:31 alexandre_tb
|
1832 |
* Revision 1.36 2007/04/20 13:48:31 alexandre_tb
|
1830 |
* nettoyage accent
|
1833 |
* nettoyage accent
|
1831 |
*
|
1834 |
*
|
1832 |
* Revision 1.35 2007/04/20 10:42:42 neiluj
|
1835 |
* Revision 1.35 2007/04/20 10:42:42 neiluj
|