Line 37... |
Line 37... |
37 |
*@version $Revision: 1.42 $ $Date: 2007-10-23 13:31:22 $
|
37 |
*@version $Revision: 1.42 $ $Date: 2007-10-23 13:31:22 $
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
39 |
*/
|
39 |
*/
|
Line 40... |
Line 40... |
40 |
|
40 |
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
41 |
// +------------------------------------------------------------------------------------------------------+
|
42 |
// | ENTÊTE du PROGRAMME |
|
42 |
// | ENT�TE du PROGRAMME |
|
43 |
// +------------------------------------------------------------------------------------------------------+
|
43 |
// +------------------------------------------------------------------------------------------------------+
|
44 |
if (GEN_FTP_UTILISE) {
|
44 |
if (GEN_FTP_UTILISE) {
|
45 |
/** Inclusion bibliotheque de PEAR gerant le FTP.*/
|
45 |
/** Inclusion bibliotheque de PEAR gerant le FTP.*/
|
46 |
require_once ADSI_CHEMIN_BIBLIOTHEQUE_PEAR.'Net/FTP.php';
|
46 |
require_once ADSI_CHEMIN_BIBLIOTHEQUE_PEAR.'Net/FTP.php';
|
Line 52... |
Line 52... |
52 |
/** Fonction ADMIN_afficherListeSites()- Genere le xhtml permettant de choisir un site parmis une liste.
|
52 |
/** Fonction ADMIN_afficherListeSites()- Genere le xhtml permettant de choisir un site parmis une liste.
|
53 |
*
|
53 |
*
|
54 |
* Cette fonction fournie une liste des sites principaux geres par papyrus.
|
54 |
* Cette fonction fournie une liste des sites principaux geres par papyrus.
|
55 |
*
|
55 |
*
|
56 |
* @param string l'objet Pear DB.
|
56 |
* @param string l'objet Pear DB.
|
57 |
* @param string l'url de la page à laquelle renvoyer le formulaire.
|
57 |
* @param string l'url de la page � laquelle renvoyer le formulaire.
|
58 |
* @param string un message important à destination de l'utilisateur.
|
58 |
* @param string un message important � destination de l'utilisateur.
|
59 |
* return string le code XHTML a retourner.
|
59 |
* return string le code XHTML a retourner.
|
60 |
*/
|
60 |
*/
|
61 |
function ADMIN_afficherFormListeSites(&$db, $url, $message = '')
|
61 |
function ADMIN_afficherFormListeSites(&$db, $url, $message = '')
|
62 |
{
|
62 |
{
|
Line 185... |
Line 185... |
185 |
}
|
185 |
}
|
Line 186... |
Line 186... |
186 |
|
186 |
|
187 |
|
187 |
|
188 |
|
188 |
|
189 |
//----------------------------------------------------------------------------
|
189 |
//----------------------------------------------------------------------------
|
190 |
// Création du formulaire
|
190 |
// Cr�ation du formulaire
|
191 |
$form =& new HTML_QuickForm('form_sites', 'post', str_replace('&', '&', $url));
|
191 |
$form =& new HTML_QuickForm('form_sites', 'post', str_replace('&', '&', $url));
|
192 |
$tab_index = 1000;
|
192 |
$tab_index = 1000;
|
Line 252... |
Line 252... |
252 |
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
|
252 |
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
|
253 |
$label = 'Traduire';
|
253 |
$label = 'Traduire';
|
254 |
$form->addElement('submit', $id, $label, $aso_attributs);
|
254 |
$form->addElement('submit', $id, $label, $aso_attributs);
|
Line 255... |
Line 255... |
255 |
|
255 |
|
256 |
$id = 'form_sites_supprimer';
|
256 |
$id = 'form_sites_supprimer';
|
257 |
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onclick' => 'javascript:return confirm(\''.'êtes vous sûr de vouloir supprimer ce site ?'.'\');');
|
257 |
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onclick' => 'javascript:return confirm(\''.'�tes vous s�r de vouloir supprimer ce site ?'.'\');');
|
258 |
$label = 'Supprimer';
|
258 |
$label = 'Supprimer';
|
Line 259... |
Line 259... |
259 |
$form->addElement('submit', $id, $label, $aso_attributs);
|
259 |
$form->addElement('submit', $id, $label, $aso_attributs);
|
260 |
|
260 |
|
Line 268... |
Line 268... |
268 |
|
268 |
|
269 |
// Construction de la page.
|
269 |
// Construction de la page.
|
270 |
return ADMIN_contruirePage($titre, $sortie, $message);
|
270 |
return ADMIN_contruirePage($titre, $sortie, $message);
|
Line 271... |
Line 271... |
271 |
}
|
271 |
}
|
272 |
|
272 |
|
273 |
/** Fonction ADMIN_validerFormListesSites() - Valide les données issues du formulaire de liste de sites.
|
273 |
/** Fonction ADMIN_validerFormListesSites() - Valide les donn�es issues du formulaire de liste de sites.
|
274 |
*
|
274 |
*
|
275 |
* Cette fonction valide les données du formulaire de liste de site.
|
275 |
* Cette fonction valide les donn�es du formulaire de liste de site.
|
276 |
*
|
276 |
*
|
277 |
* @param string l'objet pear de connexion à la base de données.
|
277 |
* @param string l'objet pear de connexion � la base de donn�es.
|
278 |
* @param string le tableau contenant les valeurs du formulaire.
|
278 |
* @param string le tableau contenant les valeurs du formulaire.
|
279 |
* @return string retourne les messages d'erreurs sinon rien.
|
279 |
* @return string retourne les messages d'erreurs sinon rien.
|
280 |
*/
|
280 |
*/
|
Line 288... |
Line 288... |
288 |
}
|
288 |
}
|
Line 289... |
Line 289... |
289 |
|
289 |
|
290 |
return $message;
|
290 |
return $message;
|
Line 291... |
Line 291... |
291 |
}
|
291 |
}
|
292 |
|
292 |
|
293 |
/** Fonction ADMIN_afficherFormSite()- Génère un formulaire pour gen_site.
|
293 |
/** Fonction ADMIN_afficherFormSite()- G�n�re un formulaire pour gen_site.
|
294 |
*
|
294 |
*
|
295 |
* Cette fonction retourne un formulaire pour modification ou pour ajout.
|
295 |
* Cette fonction retourne un formulaire pour modification ou pour ajout.
|
296 |
*
|
296 |
*
|
Line 401... |
Line 401... |
401 |
// Information precedent le formulaire (en modification)
|
401 |
// Information precedent le formulaire (en modification)
|
402 |
if ((isset($aso_valeurs['modification'])||isset($aso_valeurs['traduction']))&&isset($aso_valeurs['gs_id_site'])) {
|
402 |
if ((isset($aso_valeurs['modification'])||isset($aso_valeurs['traduction']))&&isset($aso_valeurs['gs_id_site'])) {
|
403 |
$sortie .= '<p>'.'Identifiant de ce site : '.'<span id="adsi_site_id">'.$aso_valeurs['gs_id_site'].'</span></p>'."\n";
|
403 |
$sortie .= '<p>'.'Identifiant de ce site : '.'<span id="adsi_site_id">'.$aso_valeurs['gs_id_site'].'</span></p>'."\n";
|
404 |
}
|
404 |
}
|
405 |
//-------------------------------------------------------------------------------------------------------------------
|
405 |
//-------------------------------------------------------------------------------------------------------------------
|
406 |
// Création du formulaire
|
406 |
// Cr�ation du formulaire
|
407 |
$form =& new HTML_QuickForm('site', 'post', str_replace('&', '&', $url));
|
407 |
$form =& new HTML_QuickForm('site', 'post', str_replace('&', '&', $url));
|
408 |
$tab_index = 1000;
|
408 |
$tab_index = 1000;
|
409 |
$squelette =& $form->defaultRenderer();
|
409 |
$squelette =& $form->defaultRenderer();
|
410 |
$squelette->setFormTemplate("\n".'<form {attributes}>'."\n".'{content}'."\n".'</form>'."\n");
|
410 |
$squelette->setFormTemplate("\n".'<form {attributes}>'."\n".'{content}'."\n".'</form>'."\n");
|
411 |
$squelette->setElementTemplate( '<p class="formulaire_element"><span class="form_label">'."\n".
|
411 |
$squelette->setElementTemplate( '<p class="formulaire_element"><span class="form_label">'."\n".
|
Line 475... |
Line 475... |
475 |
if (DB::isError($resultat)) {
|
475 |
if (DB::isError($resultat)) {
|
476 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
|
476 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
|
477 |
}
|
477 |
}
|
478 |
$aso_options = array();
|
478 |
$aso_options = array();
|
479 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
|
479 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
|
480 |
// Test pour connaître le type d'authentification.
|
480 |
// Test pour conna�tre le type d'authentification.
|
481 |
$type = '';
|
481 |
$type = '';
|
482 |
if ($ligne->gsa_ce_type_auth == '1' ) {
|
482 |
if ($ligne->gsa_ce_type_auth == '1' ) {
|
483 |
$type = 'Base de données';
|
483 |
$type = 'Base de données';
|
484 |
} else if ($ligne->gsa_ce_type_auth == '2' ) {
|
484 |
} else if ($ligne->gsa_ce_type_auth == '2' ) {
|
485 |
$type = 'LDAP';
|
485 |
$type = 'LDAP';
|
Line 693... |
Line 693... |
693 |
|
693 |
|
694 |
$partie_entete_fin = "\n".'</fieldset>'."\n";
|
694 |
$partie_entete_fin = "\n".'</fieldset>'."\n";
|
Line 695... |
Line 695... |
695 |
$form->addElement('html', $partie_entete_fin);
|
695 |
$form->addElement('html', $partie_entete_fin);
|
696 |
|
696 |
|
697 |
if ($aso_valeurs['modification'] || $aso_valeurs['traduction']) {
|
697 |
if ($aso_valeurs['modification'] || $aso_valeurs['traduction']) {
|
698 |
// Requete pour connaitre les informations sur l'administrateur ayant fait la dernière modif
|
698 |
// Requete pour connaitre les informations sur l'administrateur ayant fait la derni�re modif
|
699 |
$requete_admin = 'SELECT * '.
|
699 |
$requete_admin = 'SELECT * '.
|
700 |
'FROM gen_annuaire '.
|
700 |
'FROM gen_annuaire '.
|
701 |
'WHERE ga_id_administrateur = '.$aso_valeurs['gs_ce_admin'];
|
701 |
'WHERE ga_id_administrateur = '.$aso_valeurs['gs_ce_admin'];
|
Line 753... |
Line 753... |
753 |
|
753 |
|
754 |
/** Fonction ADMIN_validerFormAjouterSite() - Valide les donnees issues du formulaire pour gen_site.
|
754 |
/** Fonction ADMIN_validerFormAjouterSite() - Valide les donnees issues du formulaire pour gen_site.
|
755 |
*
|
755 |
*
|
756 |
* Cette fonction valide les donnees a ajouter dans la table gen_site.
|
756 |
* Cette fonction valide les donnees a ajouter dans la table gen_site.
|
757 |
*
|
757 |
*
|
758 |
* @param string l'objet pear de connexion a la base de données.
|
758 |
* @param string l'objet pear de connexion a la base de donn�es.
|
759 |
* @param string le tableau contenant les valeurs du formulaire.
|
759 |
* @param string le tableau contenant les valeurs du formulaire.
|
760 |
* @return string retourne les messages d'erreurs sinon rien.
|
760 |
* @return string retourne les messages d'erreurs sinon rien.
|
761 |
*/
|
761 |
*/
|
762 |
function ADMIN_validerFormSite(&$db, $aso_valeurs)
|
762 |
function ADMIN_validerFormSite(&$db, $aso_valeurs)
|
Line 769... |
Line 769... |
769 |
}
|
769 |
}
|
770 |
if (empty($aso_valeurs['gs_code_alpha'])) {
|
770 |
if (empty($aso_valeurs['gs_code_alpha'])) {
|
771 |
$message .= '<p class="pap_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';
|
771 |
$message .= '<p class="pap_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';
|
772 |
}
|
772 |
}
|
773 |
if ($aso_valeurs['gs_code_num'] == '') {
|
773 |
if ($aso_valeurs['gs_code_num'] == '') {
|
774 |
// Note: ne pas utilisez empty() car si on veut saisir 0, cela est considéré comme vide!
|
774 |
// Note: ne pas utilisez empty() car si on veut saisir 0, cela est conscid�r� comme vide!
|
775 |
$message .= '<p class="pap_erreur">Le champ "Code numérique" ne doit pas être vide.</p>';
|
775 |
$message .= '<p class="pap_erreur">Le champ "Code numérique" ne doit pas être vide.</p>';
|
776 |
}
|
776 |
}
|
777 |
if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
|
777 |
if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
|
778 |
$message .= '<p class="pap_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';
|
778 |
$message .= '<p class="pap_erreur">Le champ "Code numérique" doit contenir un nombre.</p>';
|
779 |
}
|
779 |
}
|
Line 837... |
Line 837... |
837 |
'Vous conscidérez donc ce site comme étant externe. Il est nécessaire de cocher la case "oui"!'.'</p>';
|
837 |
'Vous conscidérez donc ce site comme étant externe. Il est nécessaire de cocher la case "oui"!'.'</p>';
|
838 |
}
|
838 |
}
|
839 |
return $message;
|
839 |
return $message;
|
840 |
}
|
840 |
}
|
Line 841... |
Line 841... |
841 |
|
841 |
|
842 |
/** Fonction ADMIN_enregistrerSite() - Ajoute un site à Papyrus.
|
842 |
/** Fonction ADMIN_enregistrerSite() - Ajoute un site � Papyrus.
|
843 |
*
|
843 |
*
|
844 |
* Cette fonction ajoute le site à Papyrus, c'est à dire :
|
844 |
* Cette fonction ajoute le site � Papyrus, c'est � dire :
|
845 |
* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
|
845 |
* - 1. Cr�ation des r�pertoire du projet en fonction du nom et des sous-r�pertoires.
|
846 |
* - 2. Insertion d'une ligne dans la table "gen_site".
|
846 |
* - 2. Insertion d'une ligne dans la table "gen_site".
|
847 |
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
|
847 |
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables li�es si n�cessaire.
|
848 |
*
|
848 |
*
|
849 |
* @param string l'objet pear de connexion à la base de données.
|
849 |
* @param string l'objet pear de connexion � la base de donn�es.
|
850 |
* @param string le tableau contenant les valeurs du formulaire.
|
850 |
* @param string le tableau contenant les valeurs du formulaire.
|
851 |
* @param int identifiant de l'administrateur réalisant cette création.
|
851 |
* @param int identifiant de l'administrateur r�alisant cette cr�ation.
|
852 |
* @return string retourne un message en cas de succès ou d'échec.
|
852 |
* @return string retourne un message en cas de succ�s ou d'�chec.
|
853 |
*/
|
853 |
*/
|
854 |
function ADMIN_enregistrerSite(&$db, $aso_valeurs, $id_admin)
|
854 |
function ADMIN_enregistrerSite(&$db, $aso_valeurs, $id_admin)
|
855 |
{
|
855 |
{
|
856 |
// Nous verifions si nous avons a faire a un site externe.
|
856 |
// Nous verifions si nous avons a faire a un site externe.
|
857 |
$id_type_site = '102';// par defaut on considère que c'est un site "principal"
|
857 |
$id_type_site = '102';// par defaut on conscid�re que c'est un site "principal"
|
858 |
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
|
858 |
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
|
859 |
$id_type_site = '103';// c'est un site "externe"
|
859 |
$id_type_site = '103';// c'est un site "externe"
|
Line 860... |
Line 860... |
860 |
}
|
860 |
}
|
Line 928... |
Line 928... |
928 |
return $message;
|
928 |
return $message;
|
929 |
}
|
929 |
}
|
930 |
$resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
930 |
$resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
Line 931... |
Line 931... |
931 |
|
931 |
|
932 |
if (PEAR::isError($resultat)) {
|
932 |
if (PEAR::isError($resultat)) {
|
933 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
|
933 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de cr�er le r�pertoire par ftp.<br />'.
|
934 |
'Répertoire : '. PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
|
934 |
'Répertoire : '. PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
|
935 |
'Erreur origine : '. $resultat->getMessage() .'<br />'.
|
935 |
'Erreur origine : '. $resultat->getMessage() .'<br />'.
|
936 |
'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
|
936 |
'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
|
937 |
'Ligne n° : '. __LINE__ .'<br />'.
|
937 |
'Ligne n° : '. __LINE__ .'<br />'.
|
938 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
938 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
Line 1062... |
Line 1062... |
1062 |
$resultat = $db->query($requete);
|
1062 |
$resultat = $db->query($requete);
|
1063 |
if (DB::isError($resultat)) {
|
1063 |
if (DB::isError($resultat)) {
|
1064 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1064 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1065 |
}
|
1065 |
}
|
Line 1066... |
Line 1066... |
1066 |
|
1066 |
|
1067 |
// Gestion du site par défaut
|
1067 |
// Gestion du site par d�faut
|
1068 |
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
|
1068 |
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
|
1069 |
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
|
1069 |
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
|
1070 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1070 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1071 |
'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
|
1071 |
'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
|
Line 1109... |
Line 1109... |
1109 |
* Cette fonction traduit un site a Papyrus, c'est a dire :
|
1109 |
* Cette fonction traduit un site a Papyrus, c'est a dire :
|
1110 |
* - 1. Creation des repertoire du projet en fonction du nom et des sous-repertoires.
|
1110 |
* - 1. Creation des repertoire du projet en fonction du nom et des sous-repertoires.
|
1111 |
* - 2. Insertion d'une ligne dans la table "gen_site".
|
1111 |
* - 2. Insertion d'une ligne dans la table "gen_site".
|
1112 |
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liees si necessaire.
|
1112 |
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liees si necessaire.
|
1113 |
*
|
1113 |
*
|
1114 |
* @param string l'objet pear de connexion a la base de données.
|
1114 |
* @param string l'objet pear de connexion a la base de donn�es.
|
1115 |
* @param string le tableau contenant les valeurs du formulaire.
|
1115 |
* @param string le tableau contenant les valeurs du formulaire.
|
1116 |
* @param int identifiant de l'administrateur realisant cette création.
|
1116 |
* @param int identifiant de l'administrateur realisant cette cr�ation.
|
1117 |
* @return string retourne un message en cas de succes ou d'echec.
|
1117 |
* @return string retourne un message en cas de succes ou d'echec.
|
1118 |
*/
|
1118 |
*/
|
Line 1119... |
Line 1119... |
1119 |
|
1119 |
|
1120 |
function ADMIN_traduireSite(&$db, $aso_valeurs, $id_admin)
|
1120 |
function ADMIN_traduireSite(&$db, $aso_valeurs, $id_admin)
|
Line 1125... |
Line 1125... |
1125 |
$id_type_site = '103';// c'est un site "externe"
|
1125 |
$id_type_site = '103';// c'est un site "externe"
|
1126 |
}
|
1126 |
}
|
Line 1127... |
Line 1127... |
1127 |
|
1127 |
|
1128 |
// Ajout des repertoires des sites "principaux" soit par manipulation de fichier soit par FTP en fonction de la constante definie
|
1128 |
// Ajout des repertoires des sites "principaux" soit par manipulation de fichier soit par FTP en fonction de la constante definie
|
1129 |
// par l'utilisateur dans le fichier de config avancee.
|
1129 |
// par l'utilisateur dans le fichier de config avancee.
|
1130 |
$tab_rep_langue = array(GEN_DOSSIER_GENERIQUE, $aso_valeurs['gs_ce_i18n']);
|
1130 |
$tab_rep_langue = array($aso_valeurs['gs_ce_i18n']);
|
1131 |
$tab_rep_site = array( GEN_DOSSIER_IMAGE,
|
1131 |
$tab_rep_site = array( GEN_DOSSIER_IMAGE,
|
1132 |
GEN_DOSSIER_STYLE,
|
1132 |
GEN_DOSSIER_STYLE,
|
1133 |
GEN_DOSSIER_SCRIPT,
|
1133 |
GEN_DOSSIER_SCRIPT,
|
1134 |
GEN_DOSSIER_SQUELETTE,
|
1134 |
GEN_DOSSIER_SQUELETTE,
|
Line 1164... |
Line 1164... |
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_RACINE.GEN_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 />'.
|
1172 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1172 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1173 |
return $message;
|
1173 |
return $message;
|
1174 |
}
|
1174 |
}
|
Line 1175... |
Line 1175... |
1175 |
|
1175 |
|
1176 |
$chemin_image_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1176 |
$chemin_image_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1177 |
GEN_DOSSIER_IMAGE.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.
|
1178 |
$chemin_image_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
Line 1179... |
Line 1179... |
1179 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
|
1179 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_IMAGE.GEN_SEP;
|
1180 |
|
1180 |
|
1181 |
if (!copy($chemin_image_defaut, $chemin_image_site)) {
|
1181 |
if (!copy($chemin_image_defaut, $chemin_image_site)) {
|
Line 1185... |
Line 1185... |
1185 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1185 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1186 |
return $message;
|
1186 |
return $message;
|
1187 |
}
|
1187 |
}
|
Line 1188... |
Line 1188... |
1188 |
|
1188 |
|
1189 |
} 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"
|
1190 |
// Création d'une connection ftp avec Net_FTP de PEAR
|
1190 |
// Cr�ation d'une connection ftp avec Net_FTP de PEAR
|
Line 1191... |
Line 1191... |
1191 |
// 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
|
1192 |
|
1192 |
|
1193 |
// création de l'objet pear ftp
|
1193 |
// cr�ation de l'objet pear ftp
|
1194 |
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1194 |
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1195 |
// création de la connexion
|
1195 |
// cr�ation de la connexion
|
1196 |
$ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1196 |
$ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1197 |
// identification
|
1197 |
// identification
|
1198 |
$ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
|
1198 |
$ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
|
Line 1205... |
Line 1205... |
1205 |
'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
|
1205 |
'Erreur login : '.$ftp_login_result->getMessage().'<br />'.
|
1206 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1206 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1207 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1207 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1208 |
return $message;
|
1208 |
return $message;
|
1209 |
}
|
1209 |
}
|
1210 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1210 |
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
Line 1211... |
Line 1211... |
1211 |
|
1211 |
|
1212 |
//$objet_pear_ftp->cd(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1212 |
//$objet_pear_ftp->cd(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
|
1213 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1213 |
foreach ($tab_rep_langue as $nom_rep_langue) {
|
1214 |
$objet_pear_ftp->mkdir(PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
|
1214 |
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
|
1215 |
foreach ($tab_rep_site as $nom_rep_site) {
|
1215 |
foreach ($tab_rep_site as $nom_rep_site) {
|
Line 1216... |
Line 1216... |
1216 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1216 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue.GEN_SEP.$nom_rep_site;
|
1217 |
|
1217 |
|
1218 |
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
|
1218 |
$resultat = $objet_pear_ftp->mkdir($chemin_repertoire) ;
|
1219 |
if (PEAR::isError($resultat)) {
|
1219 |
if (PEAR::isError($resultat)) {
|
Line 1226... |
Line 1226... |
1226 |
}
|
1226 |
}
|
1227 |
}
|
1227 |
}
|
1228 |
}
|
1228 |
}
|
1229 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1229 |
$chemin_squelette_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1230 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1230 |
GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1231 |
$chemin_squelette_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1231 |
$chemin_squelette_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1232 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1232 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_SQUELETTE.GEN_SEP.GEN_FICHIER_SQUELETTE;
|
1233 |
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_site, true, FTP_BINARY);
|
1233 |
$resultat = $objet_pear_ftp->put($chemin_squelette_defaut, $chemin_squelette_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 le squelette defaut par ftp.<br />'.
|
1235 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier le squelette defaut par ftp.<br />'.
|
1236 |
'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
|
1236 |
'Fichier origine : '. $chemin_squelette_defaut .'<br />'.
|
Line 1240... |
Line 1240... |
1240 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1240 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1241 |
return $message;
|
1241 |
return $message;
|
1242 |
}
|
1242 |
}
|
1243 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1243 |
$chemin_style_defaut = PAP_CHEMIN_RACINE.GEN_CHEMIN_COMMUN.GEN_DOSSIER_GENERIQUE.GEN_SEP.
|
1244 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1244 |
GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1245 |
$chemin_style_site = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1245 |
$chemin_style_site = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.
|
1246 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1246 |
$aso_valeurs['gs_ce_i18n'].GEN_SEP.GEN_DOSSIER_STYLE.GEN_SEP.GEN_FICHIER_STYLE;
|
1247 |
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
|
1247 |
$resultat = $objet_pear_ftp->put($chemin_style_defaut, $chemin_style_site, true, FTP_BINARY);
|
1248 |
if (PEAR::isError($resultat)) {
|
1248 |
if (PEAR::isError($resultat)) {
|
1249 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
1249 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de copier les styles defaut par ftp.<br />'.
|
1250 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
1250 |
'Fichier origine : '. $chemin_style_defaut .'<br />'.
|
Line 1274... |
Line 1274... |
1274 |
}
|
1274 |
}
|
Line 1275... |
Line 1275... |
1275 |
|
1275 |
|
Line 1276... |
Line 1276... |
1276 |
$id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
|
1276 |
$id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
|
1277 |
|
1277 |
|
1278 |
if ($id_site == false) {
|
1278 |
if ($id_site == false) {
|
1279 |
$message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
|
1279 |
$message = '<p class="erreur"> ERREUR G�n�sia admin : impossible de r�cup�rer un identifiant pour la table gen_site.<br />'.
|
1280 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1280 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1281 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1281 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
Line 1282... |
Line 1282... |
1282 |
return $message;
|
1282 |
return $message;
|
1283 |
}
|
1283 |
}
|
1284 |
|
1284 |
|
1285 |
// Modification de la requete si nous avons à faire à un site externe.
|
1285 |
// Modification de la requete si nous avons � faire � un site externe.
|
1286 |
$requete_complement = ', gs_url = NULL';
|
1286 |
$requete_complement = ', gs_url = NULL';
|
Line 1308... |
Line 1308... |
1308 |
$resultat = $db->query($requete);
|
1308 |
$resultat = $db->query($requete);
|
1309 |
if (DB::isError($resultat)) {
|
1309 |
if (DB::isError($resultat)) {
|
1310 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
|
1310 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
|
1311 |
}
|
1311 |
}
|
Line 1312... |
Line 1312... |
1312 |
|
1312 |
|
1313 |
// Recherche du nouveau numéro d'ordre de ce site "principal" ou "externe"
|
1313 |
// Recherche du nouveau num�ro d'ordre de ce site "principal" ou "externe"
|
1314 |
$requete = 'SELECT MAX(gsr_ordre) AS max_ordre '.
|
1314 |
$requete = 'SELECT MAX(gsr_ordre) AS max_ordre '.
|
1315 |
'FROM gen_site_relation '.
|
1315 |
'FROM gen_site_relation '.
|
1316 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1316 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1317 |
'AND gsr_id_valeur IN (102, 103) ';// 102 = site "principal" et 103 = site "externe"
|
1317 |
'AND gsr_id_valeur IN (102, 103) ';// 102 = site "principal" et 103 = site "externe"
|
Line 1378... |
Line 1378... |
1378 |
$nouvel_ordre = 2;
|
1378 |
$nouvel_ordre = 2;
|
1379 |
}
|
1379 |
}
|
Line 1380... |
Line 1380... |
1380 |
|
1380 |
|
1381 |
|
1381 |
|
Line 1382... |
Line 1382... |
1382 |
// 2 : insertion information traduction site en cours (si inexistant ?) (et la mise a jour, c'est ailleurs
|
1382 |
// 2 : insertion information traduction site en cours (si inexistant ?) (et la mise a jour, c'est ailleurs
|
1383 |
// dans les mises à jour
|
1383 |
// dans les mises � jour
|
1384 |
|
1384 |
|
1385 |
$requete = 'INSERT INTO gen_site_relation '.
|
1385 |
$requete = 'INSERT INTO gen_site_relation '.
|
Line 1391... |
Line 1391... |
1391 |
if (DB::isError($resultat)) {
|
1391 |
if (DB::isError($resultat)) {
|
1392 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1392 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1393 |
}
|
1393 |
}
|
Line 1394... |
Line 1394... |
1394 |
|
1394 |
|
1395 |
|
1395 |
|
1396 |
// Gestion du site par défaut
|
1396 |
// Gestion du site par d�faut
|
1397 |
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
|
1397 |
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
|
1398 |
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
|
1398 |
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
|
1399 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1399 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1400 |
'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
|
1400 |
'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
|
1401 |
$resultat_supr_defaut = $db->query($requete_supr_defaut);
|
1401 |
$resultat_supr_defaut = $db->query($requete_supr_defaut);
|
1402 |
if (DB::isError($resultat_supr_defaut)) {
|
1402 |
if (DB::isError($resultat_supr_defaut)) {
|
Line 1403... |
Line 1403... |
1403 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
|
1403 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
|
1404 |
}
|
1404 |
}
|
1405 |
|
1405 |
|
1406 |
// Requete d'insertion de la relations site par défaut
|
1406 |
// Requete d'insertion de la relations site par d�faut
|
1407 |
$requete = 'INSERT INTO gen_site_relation '.
|
1407 |
$requete = 'INSERT INTO gen_site_relation '.
|
1408 |
'SET gsr_id_site_01 = '.$id_site.', '.
|
1408 |
'SET gsr_id_site_01 = '.$id_site.', '.
|
Line 1435... |
Line 1435... |
1435 |
|
1435 |
|
1436 |
|
1436 |
|
1437 |
|
1437 |
|
1438 |
/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.
|
1438 |
/** Fonction ADMIN_modifierSite() - Modifie un site de Papyrus.
|
1439 |
*
|
1439 |
*
|
1440 |
* Cette fonction modifie un site géré par Papyrus.
|
1440 |
* Cette fonction modifie un site g�r� par Papyrus.
|
1441 |
* Il faudrait aussi pouvoir renomer le dossier du site si le code alpha change.
|
1441 |
* Il faudrait aussi pouvoir renomer le dossier du site si le code alpha change.
|
1442 |
*
|
1442 |
*
|
1443 |
* @param string l'objet pear de connexion à la base de données.
|
1443 |
* @param string l'objet pear de connexion � la base de donn�es.
|
1444 |
* @param string le tableau contenant les valeurs du formulaire.
|
1444 |
* @param string le tableau contenant les valeurs du formulaire.
|
1445 |
* @param int identifiant de l'administrateur réalisant cette modification.
|
1445 |
* @param int identifiant de l'administrateur r�alisant cette modification.
|
1446 |
* @return string retourne un message en cas de succès ou d'échec.
|
1446 |
* @return string retourne un message en cas de succ�s ou d'�chec.
|
1447 |
*/
|
1447 |
*/
|
1448 |
function ADMIN_modifierSite(&$db, $aso_valeurs, $id_admin)
|
1448 |
function ADMIN_modifierSite(&$db, $aso_valeurs, $id_admin)
|
Line 1449... |
Line 1449... |
1449 |
{
|
1449 |
{
|
1450 |
// Initialisation de variables
|
1450 |
// Initialisation de variables
|
1451 |
$message_complement = '';
|
1451 |
$message_complement = '';
|
1452 |
|
1452 |
|
1453 |
// Récupération de l'ancien code alphanumérique
|
1453 |
// R�cup�ration de l'ancien code alphanum�rique
|
1454 |
$requete = 'SELECT gs_code_alpha '.
|
1454 |
$requete = 'SELECT gs_code_alpha '.
|
1455 |
'FROM gen_site '.
|
1455 |
'FROM gen_site '.
|
1456 |
'WHERE gs_id_site = '.$aso_valeurs['gs_id_site'];
|
1456 |
'WHERE gs_id_site = '.$aso_valeurs['gs_id_site'];
|
Line 1457... |
Line 1457... |
1457 |
$ancien_code_alphnum = $db->getOne($requete);
|
1457 |
$ancien_code_alphnum = $db->getOne($requete);
|
1458 |
if (DB::isError($ancien_code_alphnum)) {
|
1458 |
if (DB::isError($ancien_code_alphnum)) {
|
1459 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $ancien_code_alphnum->getMessage(), $requete) );
|
1459 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $ancien_code_alphnum->getMessage(), $requete) );
|
1460 |
}
|
1460 |
}
|
1461 |
|
1461 |
|
1462 |
// Nous vérifions si nous avons à faire à un site externe.
|
1462 |
// Nous v�rifions si nous avons � faire � un site externe.
|
1463 |
$id_type_site = '102';// par défaut on considère que c'est un site "principal"
|
1463 |
$id_type_site = '102';// par d�faut on conscid�re que c'est un site "principal"
|
Line 1464... |
Line 1464... |
1464 |
$requete_complement = ', gs_url = NULL ';
|
1464 |
$requete_complement = ', gs_url = NULL ';
|
1465 |
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
|
1465 |
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
|
1466 |
$requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'" ';
|
1466 |
$requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'" ';
|
1467 |
$id_type_site = '103';// c'est un site "externe"
|
1467 |
$id_type_site = '103';// c'est un site "externe"
|
1468 |
}
|
1468 |
}
|
1469 |
|
1469 |
|
Line 1481... |
Line 1481... |
1481 |
return $message;
|
1481 |
return $message;
|
1482 |
}
|
1482 |
}
|
1483 |
} else {
|
1483 |
} else {
|
1484 |
$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
|
1484 |
$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
|
1485 |
$chemin_site_nouveau = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
|
1485 |
$chemin_site_nouveau = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP;
|
1486 |
// Création d'une connection ftp avec Net_FTP de PEAR
|
1486 |
// Cr�ation d'une connection ftp avec Net_FTP de PEAR
|
1487 |
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
|
1487 |
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
|
1488 |
// création de l'objet pear ftp
|
1488 |
// cr�ation de l'objet pear ftp
|
1489 |
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1489 |
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1490 |
// création de la connexion
|
1490 |
// cr�ation de la connexion
|
1491 |
$ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1491 |
$ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1492 |
// identification
|
1492 |
// identification
|
1493 |
$ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
|
1493 |
$ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
|
1494 |
// Gestion des erreurs ftp
|
1494 |
// Gestion des erreurs ftp
|
1495 |
if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
|
1495 |
if ((PEAR::isError($ftp_conn) || PEAR::isError($ftp_login_result))) {
|
Line 1512... |
Line 1512... |
1512 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1512 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1513 |
return $message;
|
1513 |
return $message;
|
1514 |
}
|
1514 |
}
|
1515 |
// On utilise la racine FTP pour rm
|
1515 |
// On utilise la racine FTP pour rm
|
1516 |
$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
|
1516 |
$chemin_site_ancien = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$ancien_code_alphnum.GEN_SEP;
|
1517 |
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
|
1517 |
// Changement du niveau d'erreur pour �viter les Notices PHP dues � Net_FTP
|
1518 |
error_reporting(E_PARSE);
|
1518 |
error_reporting(E_PARSE);
|
1519 |
$resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
|
1519 |
$resultat = $objet_pear_ftp->rm($chemin_site_ancien, true);
|
1520 |
if (PEAR::isError($resultat)) {
|
1520 |
if (PEAR::isError($resultat)) {
|
1521 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.
|
1521 |
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de supprimer l\'ancien dossier du site.<br />'.
|
1522 |
'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
|
1522 |
'Dossier site ancien : '. $chemin_site_ancien .'<br />'.
|
1523 |
'Erreur origine : '. $resultat->getMessage() .'<br />'.
|
1523 |
'Erreur origine : '. $resultat->getMessage() .'<br />'.
|
1524 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1524 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1525 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1525 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1526 |
return $message;
|
1526 |
return $message;
|
1527 |
}
|
1527 |
}
|
1528 |
// Retour au niveau d'erreur définit dans le fichier de config de Papyrus
|
1528 |
// Retour au niveau d'erreur d�finit dans le fichier de config de Papyrus
|
1529 |
error_reporting(GEN_DEBOGAGE_NIVEAU);
|
1529 |
error_reporting(GEN_DEBOGAGE_NIVEAU);
|
1530 |
$objet_pear_ftp->disconnect();
|
1530 |
$objet_pear_ftp->disconnect();
|
1531 |
}
|
1531 |
}
|
1532 |
}
|
1532 |
}
|
Line 1533... |
Line 1533... |
1533 |
|
1533 |
|
1534 |
// Requete de mise à jour des infos d'un site dans gen_site
|
1534 |
// Requete de mise � jour des infos d'un site dans gen_site
|
1535 |
$requete = 'UPDATE gen_site '.
|
1535 |
$requete = 'UPDATE gen_site '.
|
1536 |
'SET gs_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
|
1536 |
'SET gs_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
|
1537 |
'gs_ce_auth = '.$aso_valeurs['gs_ce_auth'].', '.
|
1537 |
'gs_ce_auth = '.$aso_valeurs['gs_ce_auth'].', '.
|
1538 |
'gs_fichier_squelette = "'.$aso_valeurs['gs_fichier_squelette'].'", '.
|
1538 |
'gs_fichier_squelette = "'.$aso_valeurs['gs_fichier_squelette'].'", '.
|
Line 1552... |
Line 1552... |
1552 |
if (DB::isError($resultat)) {
|
1552 |
if (DB::isError($resultat)) {
|
1553 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
|
1553 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
|
1554 |
}
|
1554 |
}
|
1555 |
// Gestion du site externe
|
1555 |
// Gestion du site externe
|
1556 |
if ($id_type_site == 103) {
|
1556 |
if ($id_type_site == 103) {
|
1557 |
// Vérification pour voir si nous avons à faire à une transformation d'un site "principal" en site "externe"
|
1557 |
// V�rification pour voir si nous avons � faire � une transformation d'un site "principal" en site "externe"
|
1558 |
$requete = 'SELECT COUNT(gsr_id_site_01) AS nbre_relation '.
|
1558 |
$requete = 'SELECT COUNT(gsr_id_site_01) AS nbre_relation '.
|
1559 |
'FROM gen_site_relation '.
|
1559 |
'FROM gen_site_relation '.
|
1560 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1560 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1561 |
'AND gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].' '.
|
1561 |
'AND gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].' '.
|
1562 |
'AND gsr_id_valeur = 102 ';// 102 = site "principal"
|
1562 |
'AND gsr_id_valeur = 102 ';// 102 = site "principal"
|
1563 |
$nbre_relation = $db->getOne($requete);
|
1563 |
$nbre_relation = $db->getOne($requete);
|
1564 |
if (DB::isError($nbre_relation)) {
|
1564 |
if (DB::isError($nbre_relation)) {
|
1565 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $nbre_relation->getMessage(), $requete) );
|
1565 |
die( BOG_afficherErreurSql(__FILE__, __LINE__, $nbre_relation->getMessage(), $requete) );
|
1566 |
}
|
1566 |
}
|
Line 1567... |
Line 1567... |
1567 |
|
1567 |
|
1568 |
// Nous supprimons l'ancienne relation si nécessaire
|
1568 |
// Nous supprimons l'ancienne relation si n�cessaire
|
1569 |
if ($nbre_relation >= 1) {
|
1569 |
if ($nbre_relation >= 1) {
|
1570 |
$requete_supr_ext = 'DELETE FROM gen_site_relation '.
|
1570 |
$requete_supr_ext = 'DELETE FROM gen_site_relation '.
|
1571 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1571 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1572 |
'AND gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].' '.
|
1572 |
'AND gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].' '.
|
1573 |
'AND gsr_id_valeur = 102 ';// 102 = site "principal"
|
1573 |
'AND gsr_id_valeur = 102 ';// 102 = site "principal"
|
1574 |
$resultat_supr_ext = $db->query($requete_supr_ext);
|
1574 |
$resultat_supr_ext = $db->query($requete_supr_ext);
|
1575 |
if (DB::isError($resultat_supr_ext)) {
|
1575 |
if (DB::isError($resultat_supr_ext)) {
|
1576 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_ext->getMessage(), $requete_supr_ext));
|
1576 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_ext->getMessage(), $requete_supr_ext));
|
1577 |
}
|
1577 |
}
|
1578 |
$message_complement = 'Le site "principal" a été transformé en site "externe". Si nécessaire, veuillez '.
|
1578 |
$message_complement = 'Le site "principal" a �t� transform� en site "externe". Si n�cessaire, veuillez '.
|
1579 |
'supprimer manuellement par FTP, le dossier contenant les fichiers de ce site sur '.
|
1579 |
'supprimer manuellement par FTP, le dossier contenant les fichiers de ce site sur '.
|
1580 |
'le serveur!';
|
1580 |
'le serveur!';
|
Line 1581... |
Line 1581... |
1581 |
}
|
1581 |
}
|
1582 |
|
1582 |
|
1583 |
// Vérification pour voir si le site est déjà "externe"
|
1583 |
// V�rification pour voir si le site est d�j� "externe"
|
1584 |
$requete = 'SELECT COUNT(gsr_id_site_01) AS nbre_relation '.
|
1584 |
$requete = 'SELECT COUNT(gsr_id_site_01) AS nbre_relation '.
|
1585 |
'FROM gen_site_relation '.
|
1585 |
'FROM gen_site_relation '.
|
1586 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1586 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
Line 1614... |
Line 1614... |
1614 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1614 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1615 |
}
|
1615 |
}
|
Line 1616... |
Line 1616... |
1616 |
|
1616 |
|
Line 1617... |
Line 1617... |
1617 |
}
|
1617 |
}
|
1618 |
|
1618 |
|
1619 |
// Gestion du site par défaut
|
1619 |
// Gestion du site par d�faut
|
1620 |
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
|
1620 |
if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
|
1621 |
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
|
1621 |
$requete_supr_defaut = 'DELETE FROM gen_site_relation '.
|
1622 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1622 |
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
|
1623 |
'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
|
1623 |
'AND gsr_id_valeur = 101 ';// 101 = site par "defaut"
|
1624 |
$resultat_supr_defaut = $db->query($requete_supr_defaut);
|
1624 |
$resultat_supr_defaut = $db->query($requete_supr_defaut);
|
1625 |
if (DB::isError($resultat_supr_defaut)) {
|
1625 |
if (DB::isError($resultat_supr_defaut)) {
|
Line 1626... |
Line 1626... |
1626 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
|
1626 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
|
1627 |
}
|
1627 |
}
|
1628 |
|
1628 |
|
1629 |
// Requete d'insertion de la relations site par défaut
|
1629 |
// Requete d'insertion de la relations site par d�faut
|
1630 |
$requete = 'INSERT INTO gen_site_relation '.
|
1630 |
$requete = 'INSERT INTO gen_site_relation '.
|
1631 |
'SET gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].', '.
|
1631 |
'SET gsr_id_site_01 = '.$aso_valeurs['gs_id_site'].', '.
|
Line 1636... |
Line 1636... |
1636 |
if (DB::isError($resultat)) {
|
1636 |
if (DB::isError($resultat)) {
|
1637 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1637 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1638 |
}
|
1638 |
}
|
1639 |
}
|
1639 |
}
|
Line 1640... |
Line 1640... |
1640 |
|
1640 |
|
1641 |
$message = '<p class="pap_info">'.'Succès de la modification du site.'.'</p>';
|
1641 |
$message = '<p class="pap_info">'.'Succ�s de la modification du site.'.'</p>';
|
1642 |
$message .= '<p class="pap_info">'.$message_complement.'</p>';
|
1642 |
$message .= '<p class="pap_info">'.$message_complement.'</p>';
|
1643 |
return $message;
|
1643 |
return $message;
|
Line 1644... |
Line 1644... |
1644 |
}
|
1644 |
}
|
1645 |
|
1645 |
|
1646 |
/** Fonction ADMIN_supprimerSite() - Ajoute un site à Papyrus.
|
1646 |
/** Fonction ADMIN_supprimerSite() - Ajoute un site � Papyrus.
|
1647 |
*
|
1647 |
*
|
1648 |
* Cette fonction ajoute le site à Papyrus, c'est à dire :
|
1648 |
* Cette fonction ajoute le site � Papyrus, c'est � dire :
|
1649 |
* - 1. Création des répertoire du projet en fonction du nom et des sous-répertoires.
|
1649 |
* - 1. Cr�ation des r�pertoire du projet en fonction du nom et des sous-r�pertoires.
|
1650 |
* - 2. Insertion d'une ligne dans la table "gen_site".
|
1650 |
* - 2. Insertion d'une ligne dans la table "gen_site".
|
1651 |
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables liées si nécessaire.
|
1651 |
* - 3. Insertion d'une ligne dans la table "gen_site_auth" et ses tables li�es si n�cessaire.
|
1652 |
*
|
1652 |
*
|
1653 |
* @param string l'objet pear de connexion à la base de données.
|
1653 |
* @param string l'objet pear de connexion � la base de donn�es.
|
1654 |
* @param string le tableau contenant les valeurs du formulaire.
|
1654 |
* @param string le tableau contenant les valeurs du formulaire.
|
1655 |
* @param int identifiant de l'administrateur réalisant cette création.
|
1655 |
* @param int identifiant de l'administrateur r�alisant cette cr�ation.
|
1656 |
* @return string retourne un message en cas de succès ou d'échec.
|
1656 |
* @return string retourne un message en cas de succ�s ou d'�chec.
|
1657 |
*/
|
1657 |
*/
|
1658 |
function ADMIN_supprimerSite(&$db, $aso_valeurs)
|
1658 |
function ADMIN_supprimerSite(&$db, $aso_valeurs)
|
1659 |
{
|
1659 |
{
|
1660 |
// Recherche du coda alpha du site principal afin de pouvoir détruire ses répertoires
|
1660 |
// Recherche du coda alpha du site principal afin de pouvoir d�truire ses r�pertoires
|
1661 |
$requete = 'SELECT gs_code_alpha '.
|
1661 |
$requete = 'SELECT gs_code_alpha '.
|
1662 |
'FROM gen_site '.
|
1662 |
'FROM gen_site '.
|
1663 |
'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];
|
1663 |
'WHERE gs_id_site = '.$aso_valeurs['form_sites_id_site'];
|
1664 |
$code_alpha_site_principal = $db->getOne($requete);
|
1664 |
$code_alpha_site_principal = $db->getOne($requete);
|
1665 |
if (DB::isError($code_alpha_site_principal)) {
|
1665 |
if (DB::isError($code_alpha_site_principal)) {
|
Line 1666... |
Line 1666... |
1666 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $code_alpha_site_principal->getMessage(), $requete));
|
1666 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $code_alpha_site_principal->getMessage(), $requete));
|
1667 |
}
|
1667 |
}
|
1668 |
|
1668 |
|
1669 |
// Nous vérifions que le site n'a pas le code alphanum correspondant au site par défaut d'administration (admin).
|
1669 |
// Nous v�rifions que le site n'a pas le code alphanum correspondant au site par d�faut d'administration (admin).
|
1670 |
if ($code_alpha_site_principal == GEN_SITE_DEFAUT) {
|
1670 |
if ($code_alpha_site_principal == GEN_SITE_DEFAUT) {
|
1671 |
$message = '<p class="pap_erreur">Si vous voulez vraiment supprimer le site d\'administration par défaut de '.
|
1671 |
$message = '<p class="pap_erreur">Si vous voulez vraiment supprimer le site d\'administration par d�faut de '.
|
1672 |
'Papyrus, veuillez commencer par changer la valeur de son code alphanumérique. Vous pourrez '.
|
1672 |
'Papyrus, veuillez commencer par changer la valeur de son code alphanumérique. Vous pourrez '.
|
Line 1673... |
Line 1673... |
1673 |
'ensuite le supprimer via cette interface.</p>';
|
1673 |
'ensuite le supprimer via cette interface.</p>';
|
1674 |
return $message;
|
1674 |
return $message;
|
1675 |
}
|
1675 |
}
|
1676 |
|
1676 |
|
1677 |
// Recherche des différents sites liés à celui que l'on veut détruire
|
1677 |
// Recherche des diff�rents sites li�s � celui que l'on veut d�truire
|
1678 |
// Cela comprend le site à détruire lui même car il possède la relations
|
1678 |
// Cela comprend le site � d�truire lui m�me car il poss�de la relations
|
1679 |
// sur lui meme "site principale".
|
1679 |
// sur lui meme "site principale".
|
Line 1685... |
Line 1685... |
1685 |
if (DB::isError($resultat)) {
|
1685 |
if (DB::isError($resultat)) {
|
1686 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1686 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
|
1687 |
}
|
1687 |
}
|
Line 1688... |
Line 1688... |
1688 |
|
1688 |
|
1689 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
|
1689 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
|
1690 |
// Requete de suppression des sites liés dans gen_site
|
1690 |
// Requete de suppression des sites li�s dans gen_site
|
1691 |
$requete_supr_site = 'DELETE FROM gen_site '.
|
1691 |
$requete_supr_site = 'DELETE FROM gen_site '.
|
1692 |
'WHERE gs_id_site = '.$ligne->gs_id_site;
|
1692 |
'WHERE gs_id_site = '.$ligne->gs_id_site;
|
1693 |
$resultat_supr_site = $db->query($requete_supr_site);
|
1693 |
$resultat_supr_site = $db->query($requete_supr_site);
|
1694 |
if (DB::isError($resultat_supr_site)) {
|
1694 |
if (DB::isError($resultat_supr_site)) {
|
1695 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site->getMessage(), $requete_supr_site));
|
1695 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site->getMessage(), $requete_supr_site));
|
Line 1696... |
Line 1696... |
1696 |
}
|
1696 |
}
|
1697 |
|
1697 |
|
1698 |
// Requete de suppression des relations des sites à détruire
|
1698 |
// Requete de suppression des relations des sites � d�truire
|
1699 |
$requete_supr_site_relation = 'DELETE FROM gen_site_relation '.
|
1699 |
$requete_supr_site_relation = 'DELETE FROM gen_site_relation '.
|
1700 |
'WHERE gsr_id_site_01 = '.$ligne->gs_id_site;
|
1700 |
'WHERE gsr_id_site_01 = '.$ligne->gs_id_site;
|
1701 |
$resultat_supr_site_relation = $db->query($requete_supr_site_relation);
|
1701 |
$resultat_supr_site_relation = $db->query($requete_supr_site_relation);
|
1702 |
if (DB::isError($resultat_supr_site_relation)) {
|
1702 |
if (DB::isError($resultat_supr_site_relation)) {
|
Line 1703... |
Line 1703... |
1703 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site_relation->getMessage(), $requete_supr_site_relation));
|
1703 |
die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_site_relation->getMessage(), $requete_supr_site_relation));
|
1704 |
}
|
1704 |
}
|
1705 |
|
1705 |
|
1706 |
// Recherche des différents menus liés au site à détruire
|
1706 |
// Recherche des diff�rents menus li�s au site � d�truire
|
1707 |
$requete_menu = 'SELECT gm_id_menu '.
|
1707 |
$requete_menu = 'SELECT gm_id_menu '.
|
1708 |
'FROM gen_menu '.
|
1708 |
'FROM gen_menu '.
|
Line 1745... |
Line 1745... |
1745 |
}
|
1745 |
}
|
1746 |
$resultat_menu->free();
|
1746 |
$resultat_menu->free();
|
1747 |
}
|
1747 |
}
|
1748 |
$resultat->free();
|
1748 |
$resultat->free();
|
Line 1749... |
Line 1749... |
1749 |
|
1749 |
|
1750 |
// Suppression des répertoires du site
|
1750 |
// Suppression des r�pertoires du site
|
1751 |
if (!GEN_FTP_UTILISE) {
|
1751 |
if (!GEN_FTP_UTILISE) {
|
1752 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal;
|
1752 |
$chemin_repertoire = PAP_CHEMIN_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal;
|
1753 |
$resultat = supprimerDossier($chemin_repertoire, GEN_SEP);
|
1753 |
$resultat = supprimerDossier($chemin_repertoire, GEN_SEP);
|
1754 |
if (!$resultat) {
|
1754 |
if (!$resultat) {
|
Line 1757... |
Line 1757... |
1757 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1757 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1758 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1758 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1759 |
return $message;
|
1759 |
return $message;
|
1760 |
}
|
1760 |
}
|
1761 |
} else {
|
1761 |
} else {
|
1762 |
// Création d'une connection ftp avec Net_FTP de PEAR
|
1762 |
// Cr�ation d'une connection ftp avec Net_FTP de PEAR
|
1763 |
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
|
1763 |
// voir http://pear.php.net/manual/fr/package.networking.net-ftp.php
|
Line 1764... |
Line 1764... |
1764 |
|
1764 |
|
1765 |
// création de l'objet pear ftp
|
1765 |
// cr�ation de l'objet pear ftp
|
1766 |
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1766 |
$objet_pear_ftp = new Net_FTP(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1767 |
// création de la connexion
|
1767 |
// cr�ation de la connexion
|
1768 |
$ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1768 |
$ftp_conn = $objet_pear_ftp->connect(PAP_FTP_SERVEUR, PAP_FTP_PORT);
|
1769 |
// identification
|
1769 |
// identification
|
1770 |
$ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
|
1770 |
$ftp_login_result = $objet_pear_ftp->login(PAP_FTP_UTILISATEUR, PAP_FTP_MOT_DE_PASSE);
|
1771 |
// Gestion des erreurs ftp
|
1771 |
// Gestion des erreurs ftp
|
Line 1777... |
Line 1777... |
1777 |
'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
|
1777 |
'Utilisateur : '. PAP_FTP_UTILISATEUR .'<br />'.
|
1778 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1778 |
'Ligne n° : '. __LINE__ .'<br />'.
|
1779 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1779 |
'Fichier n° : '. __FILE__ .'<br /><p>';
|
1780 |
return $message;
|
1780 |
return $message;
|
1781 |
}
|
1781 |
}
|
1782 |
// Changement du niveau d'erreur pour éviter les Notices PHP dues à Net_FTP
|
1782 |
// Changement du niveau d'erreur pour �viter les Notices PHP dues � Net_FTP
|
1783 |
error_reporting(E_PARSE);
|
1783 |
error_reporting(E_PARSE);
|
1784 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
|
1784 |
$chemin_repertoire = PAP_FTP_RACINE.GEN_CHEMIN_SITES.$code_alpha_site_principal.'/';
|
Line 1785... |
Line 1785... |
1785 |
|
1785 |
|
1786 |
if ($code_alpha_site_principal!='') {
|
1786 |
if ($code_alpha_site_principal!='') {
|
Line 1793... |
Line 1793... |
1793 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1793 |
'Fichier n° : '. __FILE__ .'<br /></p>';
|
1794 |
return $message;
|
1794 |
return $message;
|
1795 |
}
|
1795 |
}
|
1796 |
}
|
1796 |
}
|
1797 |
$objet_pear_ftp->disconnect();
|
1797 |
$objet_pear_ftp->disconnect();
|
1798 |
// Retour au niveau d'erreur définit dans le fichier de config de Papyrus
|
1798 |
// Retour au niveau d'erreur d�finit dans le fichier de config de Papyrus
|
1799 |
error_reporting(GEN_DEBOGAGE_NIVEAU);
|
1799 |
error_reporting(GEN_DEBOGAGE_NIVEAU);
|
1800 |
}
|
1800 |
}
|
1801 |
$message = '<p class="pap_info">Succés de la suppression du site.</p>';
|
1801 |
$message = '<p class="pap_info">Succés de la suppression du site.</p>';
|
1802 |
return $message;
|
1802 |
return $message;
|
1803 |
}
|
1803 |
}
|
Line 1869... |
Line 1869... |
1869 |
return $message;
|
1869 |
return $message;
|
1870 |
}
|
1870 |
}
|
Line 1871... |
Line 1871... |
1871 |
|
1871 |
|
1872 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
1872 |
// +- Fin du code source --------------------------------------------------------------------------------+
|
1873 |
/*
|
1873 |
/*
|
- |
|
1874 |
* $Log: adsi_site.fonct.php,v $
|
- |
|
1875 |
* Revision 1.42 2007-10-23 13:31:22 ddelon
|
- |
|
1876 |
* Ajout copie images lors traduction d'un site
|
1874 |
* $Log: not supported by cvs2svn $
|
1877 |
*
|
1875 |
* Revision 1.41 2007-10-21 16:44:37 ddelon
|
1878 |
* Revision 1.41 2007-10-21 16:44:37 ddelon
|
1876 |
* Pb Pap chemin
|
1879 |
* Pb Pap chemin
|
1877 |
*
|
1880 |
*
|
1878 |
* Revision 1.40 2007-10-04 12:57:37 ddelon
|
1881 |
* Revision 1.40 2007-10-04 12:57:37 ddelon
|
1879 |
* retablisssement chemin ftp dans traduction site
|
1882 |
* retablisssement chemin ftp dans traduction site
|
1880 |
*
|
1883 |
*
|
1881 |
* Revision 1.39 2007-06-26 14:18:53 florian
|
1884 |
* Revision 1.39 2007-06-26 14:18:53 florian
|
1882 |
* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier
|
1885 |
* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier
|
1883 |
*
|
1886 |
*
|
1884 |
* Revision 1.38 2007-06-25 12:15:06 alexandre_tb
|
1887 |
* Revision 1.38 2007-06-25 12:15:06 alexandre_tb
|
1885 |
* merge from narmer
|
1888 |
* merge from narmer
|
1886 |
*
|
1889 |
*
|
Line 1892... |
Line 1895... |
1892 |
*
|
1895 |
*
|
1893 |
* Revision 1.35 2007/04/20 10:42:42 neiluj
|
1896 |
* Revision 1.35 2007/04/20 10:42:42 neiluj
|
1894 |
* suite oubli, fix des derniers bugs FTP
|
1897 |
* suite oubli, fix des derniers bugs FTP
|
1895 |
*
|
1898 |
*
|
1896 |
* Revision 1.34 2007/04/20 09:21:41 neiluj
|
1899 |
* Revision 1.34 2007/04/20 09:21:41 neiluj
|
1897 |
* correction bug ftp création/suppression/modification de site
|
1900 |
* correction bug ftp création/suppression/modification de site
|
1898 |
* (changé PAP_FTP_RACINE en PAP_CHEMIN_RACINE)
|
1901 |
* (changé PAP_FTP_RACINE en PAP_CHEMIN_RACINE)
|
1899 |
* voir compatibilité chroot() du serveur FTP)
|
1902 |
* voir compatibilité chroot() du serveur FTP)
|
1900 |
*
|
1903 |
*
|
1901 |
* Revision 1.33 2007/04/19 15:34:35 neiluj
|
1904 |
* Revision 1.33 2007/04/19 15:34:35 neiluj
|
1902 |
* préparration release (livraison) "Narmer" - v0.25
|
1905 |
* préparration release (livraison) "Narmer" - v0.25
|
1903 |
*
|
1906 |
*
|
1904 |
* Revision 1.32 2006/10/16 15:49:06 ddelon
|
1907 |
* Revision 1.32 2006/10/16 15:49:06 ddelon
|
1905 |
* Refactorisation code mulitlinguisme et gestion menu invisibles
|
1908 |
* Refactorisation code mulitlinguisme et gestion menu invisibles
|
1906 |
*
|
1909 |
*
|
1907 |
* Revision 1.31 2006/09/12 09:54:02 ddelon
|
1910 |
* Revision 1.31 2006/09/12 09:54:02 ddelon
|
1908 |
* Affichage des identifications disponibles lors de la création d'un site. Un bug faisait que l'affichage de l'identification par défaut ne fonctionnait plus en creation.
|
1911 |
* Affichage des identifications disponibles lors de la création d'un site. Un bug faisait que l'affichage de l'identification par défaut ne fonctionnait plus en creation.
|
1909 |
*
|
1912 |
*
|
1910 |
* Revision 1.30 2006/07/19 13:57:35 ddelon
|
1913 |
* Revision 1.30 2006/07/19 13:57:35 ddelon
|
1911 |
* Bug suppression de site
|
1914 |
* Bug suppression de site
|
1912 |
*
|
1915 |
*
|
1913 |
* Revision 1.29 2006/03/23 20:24:58 ddelon
|
1916 |
* Revision 1.29 2006/03/23 20:24:58 ddelon
|
Line 1927... |
Line 1930... |
1927 |
*
|
1930 |
*
|
1928 |
* Revision 1.25.2.1 2006/01/19 21:26:20 ddelon
|
1931 |
* Revision 1.25.2.1 2006/01/19 21:26:20 ddelon
|
1929 |
* Multilinguisme site + bug ftp
|
1932 |
* Multilinguisme site + bug ftp
|
1930 |
*
|
1933 |
*
|
1931 |
* Revision 1.25 2005/10/17 13:48:59 jp_milcent
|
1934 |
* Revision 1.25 2005/10/17 13:48:59 jp_milcent
|
1932 |
* Ajout d'un espace après le texte "Dernière modification par".
|
1935 |
* Ajout d'un espace apr�s le texte "Derni�re modification par".
|
1933 |
*
|
1936 |
*
|
1934 |
* Revision 1.24 2005/09/23 14:32:54 florian
|
1937 |
* Revision 1.24 2005/09/23 14:32:54 florian
|
1935 |
* compatibilité XHTML + correction interface
|
1938 |
* compatibilité XHTML + correction interface
|
1936 |
*
|
1939 |
*
|
1937 |
* Revision 1.23 2005/09/20 17:01:22 ddelon
|
1940 |
* Revision 1.23 2005/09/20 17:01:22 ddelon
|
1938 |
* php5 et bugs divers
|
1941 |
* php5 et bugs divers
|
1939 |
*
|
1942 |
*
|
1940 |
* Revision 1.22 2005/05/27 16:06:16 jpm
|
1943 |
* Revision 1.22 2005/05/27 16:06:16 jpm
|
1941 |
* Gestion des infos sur l'admin modifiant les infos.
|
1944 |
* Gestion des infos sur l'admin modifiant les infos.
|
1942 |
*
|
1945 |
*
|
1943 |
* Revision 1.21 2005/04/08 13:29:04 jpm
|
1946 |
* Revision 1.21 2005/04/08 13:29:04 jpm
|
1944 |
* Utiliation de références.
|
1947 |
* Utiliation de r�f�rences.
|
1945 |
* Correction du double & dans les urls du formulaire.
|
1948 |
* Correction du double & dans les urls du formulaire.
|
1946 |
*
|
1949 |
*
|
1947 |
* Revision 1.20 2005/03/08 11:17:47 jpm
|
1950 |
* Revision 1.20 2005/03/08 11:17:47 jpm
|
1948 |
* Suppression de l'inclusion d'un fichier inutile.
|
1951 |
* Suppression de l'inclusion d'un fichier inutile.
|
1949 |
*
|
1952 |
*
|
Line 1955... |
Line 1958... |
1955 |
*
|
1958 |
*
|
1956 |
* Revision 1.17 2005/02/17 17:51:11 florian
|
1959 |
* Revision 1.17 2005/02/17 17:51:11 florian
|
1957 |
* Correction bug FTP
|
1960 |
* Correction bug FTP
|
1958 |
*
|
1961 |
*
|
1959 |
* Revision 1.16 2005/02/17 16:44:55 florian
|
1962 |
* Revision 1.16 2005/02/17 16:44:55 florian
|
1960 |
* correction du bug sur les sites par défaut
|
1963 |
* correction du bug sur les sites par d�faut
|
1961 |
*
|
1964 |
*
|
1962 |
* Revision 1.15 2005/01/04 19:52:50 alex
|
1965 |
* Revision 1.15 2005/01/04 19:52:50 alex
|
1963 |
* correction de bug de copie de répertoire récursif de PEAR.
|
1966 |
* correction de bug de copie de r�pertoire r�cursif de PEAR.
|
1964 |
*
|
1967 |
*
|
1965 |
* Revision 1.14 2004/12/03 19:22:53 jpm
|
1968 |
* Revision 1.14 2004/12/03 19:22:53 jpm
|
1966 |
* Gestion des types de sites externes gérés par Papyrus.
|
1969 |
* Gestion des types de sites externes g�r�s par Papyrus.
|
1967 |
*
|
1970 |
*
|
1968 |
* Revision 1.13 2004/12/03 16:37:34 jpm
|
1971 |
* Revision 1.13 2004/12/03 16:37:34 jpm
|
1969 |
* Correction d'un bogue qui empêcher la mise à jour des url des sites externes.
|
1972 |
* Correction d'un bogue qui emp�cher la mise � jour des url des sites externes.
|
1970 |
*
|
1973 |
*
|
1971 |
* Revision 1.12 2004/12/01 17:22:58 jpm
|
1974 |
* Revision 1.12 2004/12/01 17:22:58 jpm
|
1972 |
* Ajout d'une confirmation javascript pour la suppression d'un site.
|
1975 |
* Ajout d'une confirmation javascript pour la suppression d'un site.
|
1973 |
*
|
1976 |
*
|
1974 |
* Revision 1.11 2004/11/30 16:43:51 jpm
|
1977 |
* Revision 1.11 2004/11/30 16:43:51 jpm
|
1975 |
* Correction de bogues.
|
1978 |
* Correction de bogues.
|
1976 |
*
|
1979 |
*
|
1977 |
* Revision 1.10 2004/11/29 17:05:28 jpm
|
1980 |
* Revision 1.10 2004/11/29 17:05:28 jpm
|
1978 |
* Correction d'un bogue concernat les cases à cocher.
|
1981 |
* Correction d'un bogue concernat les cases � cocher.
|
1979 |
*
|
1982 |
*
|
1980 |
* Revision 1.9 2004/11/26 13:13:51 jpm
|
1983 |
* Revision 1.9 2004/11/26 13:13:51 jpm
|
1981 |
* Mise en commentaire de variable passée dans un message d'erreur car elles semblent provoquer un bogue et ne sont pas obligatoire.
|
1984 |
* Mise en commentaire de variable pass�e dans un message d'erreur car elles semblent provoquer un bogue et ne sont pas obligatoire.
|
1982 |
*
|
1985 |
*
|
1983 |
* Revision 1.8 2004/11/03 17:59:59 jpm
|
1986 |
* Revision 1.8 2004/11/03 17:59:59 jpm
|
1984 |
* Corrections bogues erreurs variable inconnue.
|
1987 |
* Corrections bogues erreurs variable inconnue.
|
1985 |
*
|
1988 |
*
|
1986 |
* Revision 1.7 2004/10/26 18:41:28 jpm
|
1989 |
* Revision 1.7 2004/10/26 18:41:28 jpm
|
1987 |
* Gestion des sites externes à Papyrus.
|
1990 |
* Gestion des sites externes � Papyrus.
|
1988 |
*
|
1991 |
*
|
1989 |
* Revision 1.6 2004/10/22 17:25:31 jpm
|
1992 |
* Revision 1.6 2004/10/22 17:25:31 jpm
|
1990 |
* Changement du nom de la class CSS d'erreur.
|
1993 |
* Changement du nom de la class CSS d'erreur.
|
1991 |
*
|
1994 |
*
|
1992 |
* Revision 1.5 2004/10/19 15:57:55 jpm
|
1995 |
* Revision 1.5 2004/10/19 15:57:55 jpm
|
1993 |
* Amélioration de la gestion des fichiers sur le serveur.
|
1996 |
* Am�lioration de la gestion des fichiers sur le serveur.
|
1994 |
* Ajout d'une contrainte pour éviter la suppression par erreur du site par défaut.
|
1997 |
* Ajout d'une contrainte pour �viter la suppression par erreur du site par d�faut.
|
1995 |
*
|
1998 |
*
|
1996 |
* Revision 1.4 2004/10/18 18:27:41 jpm
|
1999 |
* Revision 1.4 2004/10/18 18:27:41 jpm
|
1997 |
* Correction problèmes FTP et manipulation de fichiers.
|
2000 |
* Correction probl�mes FTP et manipulation de fichiers.
|
1998 |
*
|
2001 |
*
|
1999 |
* Revision 1.3 2004/09/23 16:51:27 jpm
|
2002 |
* Revision 1.3 2004/09/23 16:51:27 jpm
|
2000 |
* Ajout d'informations supplémentaires sur les messages d'erreur.
|
2003 |
* Ajout d'informations suppl�mentaires sur les messages d'erreur.
|
2001 |
*
|
2004 |
*
|
2002 |
* Revision 1.2 2004/07/06 17:08:01 jpm
|
2005 |
* Revision 1.2 2004/07/06 17:08:01 jpm
|
2003 |
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
|
2006 |
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
|
2004 |
*
|
2007 |
*
|
2005 |
* Revision 1.1 2004/06/16 14:28:46 jpm
|
2008 |
* Revision 1.1 2004/06/16 14:28:46 jpm
|
2006 |
* Changement de nom de Papyrus en Papyrus.
|
2009 |
* Changement de nom de G�n�sia en Papyrus.
|
2007 |
* Changement de l'arborescence.
|
2010 |
* Changement de l'arborescence.
|
2008 |
*
|
2011 |
*
|
2009 |
* Revision 1.20 2004/05/10 14:32:14 jpm
|
2012 |
* Revision 1.20 2004/05/10 14:32:14 jpm
|
2010 |
* Changement du titre.
|
2013 |
* Changement du titre.
|
2011 |
*
|
2014 |
*
|
2012 |
* Revision 1.19 2004/05/10 12:23:39 jpm
|
2015 |
* Revision 1.19 2004/05/10 12:23:39 jpm
|
2013 |
* Modification formulaire.
|
2016 |
* Modification formulaire.
|
2014 |
*
|
2017 |
*
|
2015 |
* Revision 1.18 2004/05/07 16:33:53 jpm
|
2018 |
* Revision 1.18 2004/05/07 16:33:53 jpm
|
2016 |
* Amélioration des formulaires.
|
2019 |
* Am�lioration des formulaires.
|
2017 |
*
|
2020 |
*
|
2018 |
* Revision 1.17 2004/05/07 07:22:51 jpm
|
2021 |
* Revision 1.17 2004/05/07 07:22:51 jpm
|
2019 |
* Ajout de la gestion des modification et suppression de site.
|
2022 |
* Ajout de la gestion des modification et suppression de site.
|
2020 |
* Amélioration de la création des sites.
|
2023 |
* Am�lioration de la cr�ation des sites.
|
2021 |
*
|
2024 |
*
|
2022 |
* Revision 1.16 2004/04/30 16:22:53 jpm
|
2025 |
* Revision 1.16 2004/04/30 16:22:53 jpm
|
2023 |
* Poursuite de l'administration des sites.
|
2026 |
* Poursuite de l'administration des sites.
|
2024 |
*
|
2027 |
*
|
2025 |
* Revision 1.14 2004/04/02 15:58:39 jpm
|
2028 |
* Revision 1.14 2004/04/02 15:58:39 jpm
|
Line 2030... |
Line 2033... |
2030 |
*
|
2033 |
*
|
2031 |
* Revision 1.12 2004/03/24 20:01:02 jpm
|
2034 |
* Revision 1.12 2004/03/24 20:01:02 jpm
|
2032 |
* Traduction, mise en forme, ajout de commentaire pour les fonctions listProjects() et updateProject().
|
2035 |
* Traduction, mise en forme, ajout de commentaire pour les fonctions listProjects() et updateProject().
|
2033 |
*
|
2036 |
*
|
2034 |
* Revision 1.11 2004/03/24 10:06:01 jpm
|
2037 |
* Revision 1.11 2004/03/24 10:06:01 jpm
|
2035 |
* Ajout des commentaires d'entête.
|
2038 |
* Ajout des commentaires d'ent�te.
|
2036 |
* Début mise en conformité avec la convention de codage.
|
2039 |
* D�but mise en conformit� avec la convention de codage.
|
2037 |
* Début traitement de la fonction listant les projets.
|
2040 |
* D�but traitement de la fonction listant les projets.
|
2038 |
*
|
2041 |
*
|
2039 |
*
|
2042 |
*
|
2040 |
*/
|
2043 |
*/
|
2041 |
?>
|
2044 |
?>
|