| 3 |
jpm |
1 |
<?php
|
|
|
2 |
//vim: set expandtab tabstop=4 shiftwidth=4:
|
|
|
3 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
4 |
// | PHP version 4.1 |
|
|
|
5 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
6 |
// | Copyright (C) 2001 COUDOUNEAU Laurent (lc@gsite.org) |
|
|
|
7 |
// | Copyright (C) 1999-2004 Tela Botanica (accueil@tela-botanica.org) |
|
|
|
8 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
9 |
// | |
|
|
|
10 |
// | This library is free software; you can redistribute it and/or |
|
|
|
11 |
// | modify it under the terms of the GNU Lesser General Public |
|
|
|
12 |
// | License as published by the Free Software Foundation; either |
|
|
|
13 |
// | version 2.1 of the License, or (at your option) any later version. |
|
|
|
14 |
// | |
|
|
|
15 |
// | This library is distributed in the hope that it will be useful, |
|
|
|
16 |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
|
17 |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
|
|
18 |
// | Lesser General Public License for more details. |
|
|
|
19 |
// | |
|
|
|
20 |
// | You should have received a copy of the GNU Lesser General Public |
|
|
|
21 |
// | License along with this library; if not, write to the Free Software |
|
|
|
22 |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
|
|
23 |
// | |
|
|
|
24 |
// +------------------------------------------------------------------------------------------------------+
|
| 290 |
jpm |
25 |
// CVS : $Id: papyrus.php,v 1.11 2005-03-02 11:04:31 jpm Exp $
|
| 3 |
jpm |
26 |
/**
|
|
|
27 |
* Papyrus : programme principale appelant différent fichier à inclure dans un ordre précis.
|
|
|
28 |
*
|
|
|
29 |
* La page contient l'appel aux fonctions de l'application de vérification de l'installation puis
|
|
|
30 |
* l'appel du fichier réalisant l'initialisation. Enfin, l'appel du fichier réalisant le rendu et
|
|
|
31 |
* retournant la page au navigateur client.
|
|
|
32 |
*
|
|
|
33 |
*@package Papyrus
|
|
|
34 |
//Auteur original :
|
|
|
35 |
*@author Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
|
|
|
36 |
//Autres auteurs :
|
|
|
37 |
*@author Alexandre GRANIER <alex@tela-botanica.org>
|
|
|
38 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
|
|
39 |
*@copyright Tela-Botanica 2000-2004
|
| 290 |
jpm |
40 |
*@version $Revision: 1.11 $ $Date: 2005-03-02 11:04:31 $
|
| 3 |
jpm |
41 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
42 |
*/
|
|
|
43 |
|
|
|
44 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
45 |
// | ENTÊTE du PROGRAMME |
|
|
|
46 |
// +------------------------------------------------------------------------------------------------------+
|
| 95 |
jpm |
47 |
// Création des variables globale de Papyrus
|
| 191 |
jpm |
48 |
$GLOBALS['_GEN_commun'] = array();
|
|
|
49 |
$GLOBALS['_PAPYRUS_'] = array();
|
|
|
50 |
$GLOBALS['_DEBOGAGE_'] = '';
|
|
|
51 |
$GLOBALS['_CHRONO_'] = array();
|
| 3 |
jpm |
52 |
|
|
|
53 |
// Première mesure du chronométrage
|
| 288 |
jpm |
54 |
$GLOBALS['_CHRONO_']['depart'] = microtime();
|
| 12 |
jpm |
55 |
|
| 95 |
jpm |
56 |
// Vérification de la configuration de Papyrus
|
|
|
57 |
/** Inclusion du programme de vérification de Papyrus.
|
|
|
58 |
* Il vérifie différent paramètres nécessaire au bon fonctionnement de Papyrus,
|
|
|
59 |
* dont la présence des fichiers de configuration.
|
|
|
60 |
* C'est en fonction des paramètres déterminés par ce programme que l'application
|
|
|
61 |
* Installateur est appelée si besoin est.*/
|
|
|
62 |
require_once 'papyrus/pap_verification.inc.php';
|
| 288 |
jpm |
63 |
$GLOBALS['_CHRONO_']['Vérification'] = microtime();
|
| 95 |
jpm |
64 |
|
|
|
65 |
/** Inclusion API débogage : Gestionnaire d'erreur
|
|
|
66 |
* Ajout de la bibliothèque de fonctions permettant d'encpasuler les erreurs PHP.*/
|
| 288 |
jpm |
67 |
include_once GEN_CHEMIN_API.'debogage/BOG_Gestionnaire_Erreur.class.php';
|
| 3 |
jpm |
68 |
|
| 95 |
jpm |
69 |
/** Inclusion API débogage : chronométrage
|
|
|
70 |
* Ajout de la bibliothèque de fonctions permettant d'analyser le temps d'execution de Papyrus.*/
|
| 288 |
jpm |
71 |
include_once GEN_CHEMIN_API.'debogage/BOG_chrono.fonct.php';
|
| 3 |
jpm |
72 |
|
| 95 |
jpm |
73 |
/** Inclusion API débogage : Gestionnaire d'erreurs sql
|
|
|
74 |
* Ajout de la bibliothèque de fonctions de débogage d'erreurs SQL.*/
|
| 288 |
jpm |
75 |
require_once GEN_CHEMIN_API.'debogage/BOG_sql.fonct.php';
|
| 3 |
jpm |
76 |
|
|
|
77 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
78 |
// | CORPS du PROGRAMME |
|
| 95 |
jpm |
79 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
80 |
|
|
|
81 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
82 |
// Création du gestionnaire d'erreur de Papyrus
|
| 288 |
jpm |
83 |
$GLOBALS['_PAPYRUS_']['erreur'] = &new BOG_Gestionnaire_Erreur(GEN_DEBOGAGE_CONTEXTE, GEN_CSS_ERREUR);
|
| 3 |
jpm |
84 |
|
| 95 |
jpm |
85 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
86 |
// Appel de l'application Installateur de Papyrus si nécessaire
|
| 288 |
jpm |
87 |
if ($GLOBALS['_GEN_commun']['erreur_instal_afaire'] == true) {
|
| 95 |
jpm |
88 |
include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';
|
| 288 |
jpm |
89 |
$GLOBALS['_GEN_commun']['sortie'] = afficherContenuCorps();
|
| 95 |
jpm |
90 |
include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
|
|
|
91 |
// Fin du programme Papyrus.
|
|
|
92 |
exit(0);
|
|
|
93 |
}
|
|
|
94 |
|
| 3 |
jpm |
95 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
96 |
// Gestion de la connexion à la base de données
|
| 12 |
jpm |
97 |
require_once GEN_CHEMIN_PAP.'pap_connecte_bdd.inc.php';
|
| 288 |
jpm |
98 |
$GLOBALS['_CHRONO_']['Connexion BdD'] = microtime();
|
| 3 |
jpm |
99 |
|
|
|
100 |
// +------------------------------------------------------------------------------------------------------+
|
| 95 |
jpm |
101 |
// Initialisation des informations provenant de la base de données de Papyrus
|
|
|
102 |
/** <br> Inclusion du programme d'initialisation de Papyrus.
|
| 3 |
jpm |
103 |
* Nous récupérons alors les infos sur le site, la langue, le menu, l'application liée et les informations sur la page
|
| 95 |
jpm |
104 |
* depuis la base de données de Papyrus. Ces informations correspondent au paramètres passés dans l'url demandée par
|
| 3 |
jpm |
105 |
* l'utilisateur.Nous créons aussi la représentation sous forme d'objet de l'URL
|
|
|
106 |
* courante demandée par l'utilisateur.
|
|
|
107 |
*/
|
| 12 |
jpm |
108 |
require_once GEN_CHEMIN_PAP.'pap_initialise_info.inc.php';
|
| 288 |
jpm |
109 |
$GLOBALS['_CHRONO_']['Initialisation des info'] = microtime();
|
| 95 |
jpm |
110 |
|
|
|
111 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
112 |
// Inclusion des fichiers de traduction de Papyrus
|
| 288 |
jpm |
113 |
if (file_exists(GEN_CHEMIN_LANGUE.'pap_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
|
| 95 |
jpm |
114 |
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
|
| 288 |
jpm |
115 |
require_once GEN_CHEMIN_LANGUE.'pap_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
|
| 95 |
jpm |
116 |
} else {
|
|
|
117 |
/** Inclusion du fichier de traduction par défaut.*/
|
|
|
118 |
require_once GEN_CHEMIN_LANGUE.'pap_langue_'.GEN_I18N_ID_DEFAUT.'.inc.php';
|
|
|
119 |
}
|
|
|
120 |
|
|
|
121 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
122 |
// Réglage supplémentaire du gestionnaire d'erreurs
|
| 288 |
jpm |
123 |
$GLOBALS['_PAPYRUS_']['erreur']->ecrireLangue($GLOBALS['_GEN_commun']['i18n']);
|
|
|
124 |
$GLOBALS['_PAPYRUS_']['erreur']->ecrireTxtTete(PAP_LANG_DEBOG_TETE);
|
|
|
125 |
$GLOBALS['_PAPYRUS_']['erreur']->ecrireTxtPied(PAP_LANG_DEBOG_PIED);
|
|
|
126 |
$GLOBALS['_PAPYRUS_']['erreur']->ecrireTraduction(array(PAP_LANG_DEBOG_NIVEAU, PAP_LANG_DEBOG_FICHIER, PAP_LANG_DEBOG_LIGNE, PAP_LANG_DEBOG_CONTEXTE));
|
| 3 |
jpm |
127 |
|
|
|
128 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
129 |
// Initialisation de l'authentification si nécessaire
|
| 95 |
jpm |
130 |
/** <br> Inclusion du programme d'initialisation de Auth et des Sessions utilisées par Papyrus.
|
| 3 |
jpm |
131 |
* Suite à la récupération des infos sur le site, la langue, le menu, l'application liée et les infos sur la page,
|
|
|
132 |
* nous demandons l'identification et nous déclenchons une session si le site le demande.
|
|
|
133 |
*/
|
| 288 |
jpm |
134 |
if ($GLOBALS['_GEN_commun']['info_site']->gs_ce_auth > 0) {
|
| 12 |
jpm |
135 |
include_once GEN_CHEMIN_PAP.'pap_initialise_auth.inc.php';
|
| 288 |
jpm |
136 |
$GLOBALS['_CHRONO_']['Initialisation auth'] = microtime();
|
| 3 |
jpm |
137 |
}
|
|
|
138 |
|
|
|
139 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
140 |
// Mise en cache de la page si nécessaire
|
| 95 |
jpm |
141 |
/** <br> Inclusion du programme de gestion du cache de Papyrus.
|
| 3 |
jpm |
142 |
* Nous supprimons, si l'application le demande, les pages en cache périmées et nous recherchons
|
|
|
143 |
* la page demandée dans le cache.Si la page est trouvé nous la renvoyons et le programme
|
|
|
144 |
* s'arrête ici. Sinon, nous continuons.
|
|
|
145 |
*/
|
| 288 |
jpm |
146 |
if (isset($GLOBALS['_GEN_commun']['info_application']->cache) && $GLOBALS['_GEN_commun']['info_application']->cache) {
|
| 12 |
jpm |
147 |
include_once GEN_CHEMIN_PAP.'pap_cache.inc.php';
|
| 3 |
jpm |
148 |
}
|
|
|
149 |
|
|
|
150 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
151 |
// Réalisation du rendu de la page
|
|
|
152 |
/** <br> Inclusion du programme de rendu de Génésia.
|
|
|
153 |
* Il appelle l'application demandée et créé la page grâce au fichier squelette et aux balises incluses dedans.
|
|
|
154 |
*/
|
| 12 |
jpm |
155 |
require_once GEN_CHEMIN_PAP.'pap_rendu.inc.php';
|
| 288 |
jpm |
156 |
$GLOBALS['_CHRONO_']['Rendu'] = microtime();
|
| 3 |
jpm |
157 |
|
|
|
158 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
159 |
// Gestion du stockage en cache de la page demandée et de son envoi au navigateur client si nécessaire.
|
|
|
160 |
/** <br> Inclusion du programme d'envoi de la page demandée.
|
|
|
161 |
* Il stocke la page en cache et la renvoi après compression s'il existe des données à renvoyer.
|
|
|
162 |
*/
|
| 288 |
jpm |
163 |
if (! empty($GLOBALS['_GEN_commun']['sortie'])) {
|
| 3 |
jpm |
164 |
if (GEN_DEBOGAGE) {
|
|
|
165 |
// En cas de chronométrage, nous insérons le tableau des résultats.
|
| 288 |
jpm |
166 |
$GLOBALS['_GEN_commun']['sortie'] = str_replace('<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'CHRONOMETRAGE -->', BOG_afficherChrono(12), $GLOBALS['_GEN_commun']['sortie']);
|
| 95 |
jpm |
167 |
// Gestion des erreurs et du débogage
|
| 288 |
jpm |
168 |
$GLOBALS['_DEBOGAGE_'] .= $GLOBALS['_PAPYRUS_']['erreur']->retournerErreurs();
|
| 290 |
jpm |
169 |
$GLOBALS['_GEN_commun']['sortie'] = str_replace('<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'DEBOGAGE -->', $GLOBALS['_DEBOGAGE_'], $GLOBALS['_GEN_commun']['sortie']);
|
| 3 |
jpm |
170 |
}
|
| 12 |
jpm |
171 |
include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
|
| 3 |
jpm |
172 |
}
|
|
|
173 |
|
| 95 |
jpm |
174 |
// Fin du programme Papyrus.
|
|
|
175 |
exit(0);
|
| 3 |
jpm |
176 |
|
|
|
177 |
|
|
|
178 |
/* +--Fin du code ---------------------------------------------------------------------------------------+
|
|
|
179 |
* $Log: not supported by cvs2svn $
|
| 290 |
jpm |
180 |
* Revision 1.10 2005/02/28 13:50:01 jpm
|
|
|
181 |
* Modification de l'utilisation d'une variable globale.
|
|
|
182 |
*
|
| 288 |
jpm |
183 |
* Revision 1.9 2004/11/29 17:14:26 jpm
|
|
|
184 |
* Correction d'un bogue concernant la variable privée _DEBOGAGE_.
|
|
|
185 |
*
|
| 191 |
jpm |
186 |
* Revision 1.8 2004/11/29 15:54:31 jpm
|
|
|
187 |
* Changement de nom de variable et légères corrections.
|
|
|
188 |
*
|
| 188 |
jpm |
189 |
* Revision 1.7 2004/11/24 18:33:05 jpm
|
|
|
190 |
* Ajout de la variable globale _PAPYRUS_.
|
|
|
191 |
*
|
| 168 |
jpm |
192 |
* Revision 1.6 2004/10/22 17:24:53 jpm
|
|
|
193 |
* Amélioration de l'inclusion des fichiers et des tests.
|
|
|
194 |
*
|
| 95 |
jpm |
195 |
* Revision 1.5 2004/09/28 14:57:53 jpm
|
|
|
196 |
* Création d'une balise propre au débogage.
|
|
|
197 |
*
|
| 58 |
jpm |
198 |
* Revision 1.4 2004/09/10 16:39:04 jpm
|
|
|
199 |
* Ajout des infos de débogage à la sortie.
|
|
|
200 |
*
|
| 35 |
jpm |
201 |
* Revision 1.3 2004/07/06 17:27:23 jpm
|
|
|
202 |
* Suppression d'inclusion du fichier de fonctions inutilisées dans Papyrus.
|
|
|
203 |
*
|
| 32 |
jpm |
204 |
* Revision 1.2 2004/06/16 15:10:24 jpm
|
|
|
205 |
* Ajout de constantes de chemins.
|
|
|
206 |
*
|
| 12 |
jpm |
207 |
* Revision 1.1 2004/06/15 10:15:12 jpm
|
|
|
208 |
* Changement de nom et d'arborescence de Genesia en Papyrus.
|
|
|
209 |
*
|
| 3 |
jpm |
210 |
* Revision 1.16 2004/04/28 12:04:31 jpm
|
|
|
211 |
* Changement du modèle de la base de données.
|
|
|
212 |
*
|
|
|
213 |
* Revision 1.15 2004/04/22 08:31:49 jpm
|
|
|
214 |
* Transformation de $GS_GLOBAL en $_GEN_commun.
|
|
|
215 |
*
|
|
|
216 |
* Revision 1.14 2004/04/21 16:24:29 jpm
|
|
|
217 |
* Ajout d'un fichier spécifique pour la connexion à la base de données et incluant les classes DataObject de Pear.
|
|
|
218 |
*
|
|
|
219 |
* Revision 1.12 2004/04/21 08:02:14 jpm
|
|
|
220 |
* Ajout de mesure du temps d'éxecution de Génésia.
|
|
|
221 |
*
|
|
|
222 |
* Revision 1.11 2004/04/09 16:33:34 jpm
|
|
|
223 |
* Changement des noms de fichier gen_initialisation...
|
|
|
224 |
*
|
|
|
225 |
* Revision 1.10 2004/04/09 16:19:40 jpm
|
|
|
226 |
* Ajout des fichiers indépendants d'envoi et de cache.
|
|
|
227 |
*
|
|
|
228 |
* Revision 1.9 2004/04/08 14:13:47 jpm
|
|
|
229 |
* Ajout de l'inclusion du fichier de vérification.
|
|
|
230 |
*
|
|
|
231 |
* Revision 1.8 2004/04/02 16:28:12 jpm
|
|
|
232 |
* Ajout de l'inclusion du fichier gen_initialisation_pear.inc.php.
|
|
|
233 |
*
|
|
|
234 |
* Revision 1.7 2004/04/01 11:27:13 jpm
|
|
|
235 |
* Ajout et modification de commentaires pour PhpDocumentor.
|
|
|
236 |
*
|
|
|
237 |
* Revision 1.6 2004/03/31 16:49:30 jpm
|
|
|
238 |
* Modifications mineures.
|
|
|
239 |
*
|
|
|
240 |
* Revision 1.5 2004/03/27 11:01:06 jpm
|
|
|
241 |
* Ajout de l'appel des fonctions d'installation.
|
|
|
242 |
*
|
|
|
243 |
* Revision 1.4 2004/03/25 11:51:06 jpm
|
|
|
244 |
* Changement nom dossier noyau en génésia dans les chemins.
|
|
|
245 |
*
|
|
|
246 |
* Revision 1.3 2004/03/23 17:06:14 jpm
|
|
|
247 |
* Ajout de commentaire dans l'entête.
|
|
|
248 |
*
|
|
|
249 |
* Revision 1.2 2004/03/23 16:30:42 jpm
|
|
|
250 |
* Ajout de commentaires.
|
|
|
251 |
* Changement des noms des fichiers appelés.
|
|
|
252 |
*
|
|
|
253 |
* Revision 1.1 2004/03/23 10:22:34 jpm
|
|
|
254 |
* Page principale de l'application Génésia.
|
|
|
255 |
*
|
|
|
256 |
*
|
|
|
257 |
* +--Fin du code ----------------------------------------------------------------------------------------+
|
|
|
258 |
*/
|
|
|
259 |
?>
|