WebSVN – Applications.papyrus – Diff – /trunk/papyrus/pap_initialise_info.inc.php

 // | You should have received a copy of the GNU Lesser General Public                                     |
 // | License along with this library; if not, write to the Free Software                                  |
 // | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 // |                                                                                                      |
 // +------------------------------------------------------------------------------------------------------+
-// CVS : $Id: pap_initialise_info.inc.php,v 1.24 2006-03-02 10:49:49 ddelon Exp $
+// CVS : $Id: pap_initialise_info.inc.php,v 1.25 2006-10-11 18:04:11 jp_milcent Exp $
 /**
 *Initialisation de Papyrus : vérification et récupération de paramètres généraux.
+*
 * La page contient le code initialisant l'éxecution du rendu d'une page par Papyrus.
 * Nous y trouvons la recherche des informations disponibles sur :
 *@author            Jean-Pascal MILCENT <jpm@tela-botanica.org>
 //Autres auteurs :
 *@author            Alexandre GRANIER <alex@tela-botanica.org>
 *@author            Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
 *@copyright         Tela-Botanica 2000-2004
-*@version           $Revision: 1.24 $ $Date: 2006-03-02 10:49:49 $
+*@version           $Revision: 1.25 $ $Date: 2006-10-11 18:04:11 $
 // +------------------------------------------------------------------------------------------------------+
 */
 // +------------------------------------------------------------------------------------------------------+
 require_once PAP_CHEMIN_API_PEAR.'Net/URL.php';
 /** Inclusion de la bibliothèque de fonctions servant à l'initialisation des variables globales de Papyrus. */
 require_once GEN_CHEMIN_BIBLIO.'pap_initialisation.fonct.php';
 /** Inclusion de la classe Papyrus gérant les URL : Utilisé pour l'url demandée par le client.*/
 require_once GEN_CHEMIN_BIBLIO_CLASSE.'pap_url.class.php';
+/** Inclusion de la bibliothèque de fonctions servant au menu pour la réecriture d'url. */
+require_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';
 // +------------------------------------------------------------------------------------------------------+
 // |                                            CORPS du PROGRAMME                                        |
+// +------------------------------------------------------------------------------------------------------+
+// +------------------------------------------------------------------------------------------------------+
+// Gestion de la réecriture d'url et des url erreur 404
+if ((! isset($_GET[GEN_URL_CLE_SITE]) || empty($_GET[GEN_URL_CLE_SITE])) && (! isset($_GET[GEN_URL_CLE_MENU]) || empty($_GET[GEN_URL_CLE_MENU])) ) {
+	if (defined('PAP_URL_REECRITURE') AND PAP_URL_REECRITURE == '1') {
+		$tab_type_reecriture = array('MENU', 'SITE');
+		foreach ($tab_type_reecriture as $reecriture) {
+			if (PAP_URL_REECRITURE_SEP == '/') {
+				$masque_reecriture = '/^(\/.*?)'.constant('PAP_URL_REECRITURE_'.$reecriture).'\\'.PAP_URL_REECRITURE_SEP.'([^\/]+?)(?:\?(.*)|)$/';
+			} else {
+				$masque_reecriture = '/^(\/.*?)'.constant('PAP_URL_REECRITURE_'.$reecriture).PAP_URL_REECRITURE_SEP.'([^\/]+?)(?:\?(.*)|)$/';
+			}
+			if (preg_match($masque_reecriture, rawurldecode($_SERVER['REQUEST_URI']), $tab_raccourci)) {
+				$chemin_vers_papyrus = $tab_raccourci[1];
+				$raccourci = $tab_raccourci[2];
+				$parametres = '';
+				if (isset($tab_raccourci[3])) {
+					$parametres = $tab_raccourci[3];
+				}
+				if ($reecriture == 'SITE') {
+					/** Inclusion de la bibliothèque de fonctions servant au site pour la réecriture d'url. */
+					require_once GEN_CHEMIN_BIBLIO.'pap_site.fonct.php';
+				}
+				// Nous cherchons à savoir si le raccourci est entièrement numérique ou pas.
+				if (preg_match('/^[0-9]+$/', $raccourci)) {
+					// Nous vérifions si nous utilisons les codes numériques ou alphanumérique dans les url
+					if (constant('GEN_URL_ID_TYPE_'.$reecriture) != 'int') {
+						$_GET[constant('GEN_URL_CLE_'.$reecriture)] = call_user_func('GEN_retourner'.$reecriture.'CodeAlpha', $db, $raccourci);
+					} else {
+						$_GET[constant('GEN_URL_CLE_'.$reecriture)] = $raccourci;
+					}
+				} else {
+					// Nous vérifions si nous utilisons les codes numériques ou alphanumérique dans les url
+					if (constant('GEN_URL_ID_TYPE_'.$reecriture) != 'int') {
+						$_GET[constant('GEN_URL_CLE_'.$reecriture)] = $raccourci;
+					} else {
+						$_GET[constant('GEN_URL_CLE_'.$reecriture)] = call_user_func('GEN_retourner'.$reecriture.'CodeNum', $db, $raccourci);
+					}
+				}
+			}
+		}
+	}
+	// Aucune information n'a été trouvée, redirection vers la page de gestion des erreurs 404
+	if ((! isset($_GET[GEN_URL_CLE_SITE]) || empty($_GET[GEN_URL_CLE_SITE])) && (! isset($_GET[GEN_URL_CLE_MENU]) || empty($_GET[GEN_URL_CLE_MENU]))) {
+		// Utilisation de la fonction statique de Pear HTTP pour négocier l'i18n.
+		$aso_i18n_possible = array(GEN_I18N_ID_DEFAUT => true);
+		$i18n = HTTP::negotiateLanguage($aso_i18n_possible, GEN_I18N_ID_DEFAUT);
+		if (file_exists(sprintf(PAP_FICHIER_ERREUR_404, $i18n))) {
+			header ('Location: '.sprintf(PAP_URL_ERREUR_404, $chemin_vers_papyrus, $i18n, $_SERVER['REQUEST_URI']));
+		} else {
+			header('Location: /');
+		}
+		exit(0);
+	}
 // +------------------------------------------------------------------------------------------------------+
 // +------------------------------------------------------------------------------------------------------+
 // Gestion des sites : disponibles sur le serveur courant.
                 'AND GSR01.gsr_id_valeur = 101 '.// 101 = site défaut
                 'AND GSR01.gsr_id_site_01 = gs_id_site '.
                 'AND GSR02.gsr_id_site_01 = GSR02.gsr_id_site_02 '.
                 'AND GSR02.gsr_id_valeur IN ('.$site_liste_id.') '.
                 'AND GSR02.gsr_id_site_01 = gs_id_site';
     $resultat = $db->query($requete);
     if (DB::isError($resultat)) {
         die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
+    }
     // Aucun site trouvé
     if ($resultat->numRows() == 0) {
         // Appel à l'application Installateur si nécessaire
         /** <br> Inclusion du programme Installateur de Papyrus.
         * L'abscence de site oblige à relancer l'installation et le script sql qui regénèrera la base de données.*/
     $resultat = $db->query($requete);
     (DB::isError($resultat))
         ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
        : '';
     $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
     $resultat->free();
     if ($_GEN_commun['info_menu']->gm_ce_site != 0) {
         // Récupération des infos du site
         $requete =  'SELECT * '.
                     'FROM gen_site, gen_site_relation '.
                     'WHERE gsr_id_site_01 = gsr_id_site_02 '.
                     'AND gsr_id_valeur IN ('.$site_liste_id.') '.
                     'AND gsr_id_site_01 = gs_id_site '.
                     'AND gs_id_site = '. $_GEN_commun['info_menu']->gm_ce_site;
         $resultat = $db->query($requete);
         (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
         $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
         $_GEN_commun['url_site'] = (GEN_URL_ID_TYPE_SITE == 'int')
             ? $_GEN_commun['info_site']->gs_code_num
             : $_GEN_commun['info_site']->gs_code_alpha;
         $requete =  'SELECT * '.
                     'FROM gen_site, gen_site_relation '.
                     'WHERE gsr_id_site_01 = gsr_id_site_02 '.
                     'AND gsr_id_valeur = 101 '.
                     'AND gsr_id_site_01 = gs_id_site ';
         $resultat = $db->query($requete);
         (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
         $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
         $_GEN_commun['url_site'] = (GEN_URL_ID_TYPE_SITE == 'int')
             ? $_GEN_commun['info_site']->gs_code_num
             : $_GEN_commun['info_site']->gs_code_alpha;
         $resultat->free();
+    }
 } else {
     // Récupération de la valeur identifiant le site depuis l'url
     $_GEN_commun['url_site'] = $_GET[GEN_URL_CLE_SITE];
     // Récupération des informations sur le site
     $requete =  'SELECT * '.
                 'FROM gen_site, gen_site_relation '.
                 'WHERE gsr_id_site_01 = gsr_id_site_02 '.
                 'AND gsr_id_valeur IN ('.$site_liste_id.') '.
                 'AND gsr_id_site_01 = gs_id_site '.
                 'AND ';
     $requete .= (GEN_URL_ID_TYPE_SITE == 'int')
         ? 'gs_code_num = '.$_GEN_commun['url_site']
         : 'gs_code_alpha = "'.$_GEN_commun['url_site'].'"';
     $resultat = $db->query($requete);
     (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
     $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
     $resultat->free();
+}
     $_GEN_commun['i18n'] = $_GET[GEN_URL_CLE_I18N];
 } else {
   $_GEN_commun['i18n'] = GEN_I18N_ID_DEFAUT;
+}
-//print "hola";
-//print $_GEN_commun['i18n'];
-//print "hola";
 // Nous récupérons des informations sur l'internationalisation
 $requete =  'SELECT * '.
             'FROM gen_i18n '.
 $resultat->free();
 // +------------------------------------------------------------------------------------------------------+
 // Gestion de l'objet URL
 $_GEN_commun['url'] = & new Pap_URL(PAP_URL);
-$_GEN_commun['url'] = & new Pap_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
+$_GEN_commun['url']->setId($_GEN_commun['info_menu']->gm_id_menu);
     $_GEN_commun['url']->addQueryString(GEN_URL_CLE_FORMAT, $_GEN_commun['url_format']);
+}
 /* +--Fin du code ---------------------------------------------------------------------------------------+
+* $Log: not supported by cvs2svn $
+* Revision 1.24  2006/03/02 10:49:49  ddelon
+* Fusion branche multilinguisme dans branche principale
 * $Log: not supported by cvs2svn $
 * Revision 1.23.2.2  2005/12/20 14:40:24  ddelon
 * Fusion Head vers Livraison
+*
 * Revision 1.23.2.1  2005/12/01 23:31:57  ddelon

Subversion Repositories Applications.papyrus

(root)/trunk/papyrus/pap_initialise_info.inc.php – Rev 754 → 1029