3 |
jpm |
1 |
<?php
|
|
|
2 |
//vim: set expandtab tabstop=4 shiftwidth=4:
|
405 |
ddelon |
3 |
|
|
|
4 |
// Copyright (C) 1999-2004 Tela Botanica (accueil@tela-botanica.org)
|
|
|
5 |
//
|
|
|
6 |
// Ce logiciel est un programme informatique servant à gérer du contenu et des
|
|
|
7 |
// applications web.
|
|
|
8 |
|
|
|
9 |
// Ce logiciel est régi par la licence CeCILL soumise au droit français et
|
|
|
10 |
// respectant les principes de diffusion des logiciels libres. Vous pouvez
|
|
|
11 |
// utiliser, modifier et/ou redistribuer ce programme sous les conditions
|
|
|
12 |
// de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA
|
|
|
13 |
// sur le site "http://www.cecill.info".
|
|
|
14 |
|
|
|
15 |
// En contrepartie de l'accessibilité au code source et des droits de copie,
|
|
|
16 |
// de modification et de redistribution accordés par cette licence, il n'est
|
|
|
17 |
// offert aux utilisateurs qu'une garantie limitée. Pour les mêmes raisons,
|
|
|
18 |
// seule une responsabilité restreinte pèse sur l'auteur du programme, le
|
|
|
19 |
// titulaire des droits patrimoniaux et les concédants successifs.
|
|
|
20 |
|
|
|
21 |
// A cet égard l'attention de l'utilisateur est attirée sur les risques
|
|
|
22 |
// associés au chargement, à l'utilisation, à la modification et/ou au
|
|
|
23 |
// développement et à la reproduction du logiciel par l'utilisateur étant
|
|
|
24 |
// donné sa spécificité de logiciel libre, qui peut le rendre complexe à
|
|
|
25 |
// manipuler et qui le réserve donc à des développeurs et des professionnels
|
|
|
26 |
// avertis possédant des connaissances informatiques approfondies. Les
|
|
|
27 |
// utilisateurs sont donc invités à charger et tester l'adéquation du
|
|
|
28 |
// logiciel à leurs besoins dans des conditions permettant d'assurer la
|
|
|
29 |
// sécurité de leurs systèmes et ou de leurs données et, plus généralement,
|
|
|
30 |
// à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.
|
|
|
31 |
|
|
|
32 |
// Le fait que vous puissiez accéder à cet en-tête signifie que vous avez
|
|
|
33 |
// pris connaissance de la licence CeCILL, et que vous en avez accepté les
|
|
|
34 |
// termes.
|
|
|
35 |
// ----
|
1531 |
jp_milcent |
36 |
// CVS : $Id: papyrus.php,v 1.18 2007-07-25 15:32:21 jp_milcent Exp $
|
405 |
ddelon |
37 |
|
3 |
jpm |
38 |
/**
|
405 |
ddelon |
39 |
* Papyrus : Programme principal appelant différent fichier à inclure dans un ordre précis.
|
3 |
jpm |
40 |
*
|
|
|
41 |
* La page contient l'appel aux fonctions de l'application de vérification de l'installation puis
|
|
|
42 |
* l'appel du fichier réalisant l'initialisation. Enfin, l'appel du fichier réalisant le rendu et
|
|
|
43 |
* retournant la page au navigateur client.
|
|
|
44 |
*
|
|
|
45 |
*@package Papyrus
|
|
|
46 |
//Auteur original :
|
405 |
ddelon |
47 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
3 |
jpm |
48 |
//Autres auteurs :
|
|
|
49 |
*@author Alexandre GRANIER <alex@tela-botanica.org>
|
405 |
ddelon |
50 |
*@author Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
|
3 |
jpm |
51 |
*@copyright Tela-Botanica 2000-2004
|
1531 |
jp_milcent |
52 |
*@version $Revision: 1.18 $ $Date: 2007-07-25 15:32:21 $
|
3 |
jpm |
53 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
54 |
*/
|
|
|
55 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
56 |
// | ENTÊTE du PROGRAMME |
|
|
|
57 |
// +------------------------------------------------------------------------------------------------------+
|
412 |
ddelon |
58 |
|
95 |
jpm |
59 |
// Création des variables globale de Papyrus
|
191 |
jpm |
60 |
$GLOBALS['_GEN_commun'] = array();
|
|
|
61 |
$GLOBALS['_PAPYRUS_'] = array();
|
|
|
62 |
$GLOBALS['_DEBOGAGE_'] = '';
|
|
|
63 |
$GLOBALS['_CHRONO_'] = array();
|
3 |
jpm |
64 |
|
|
|
65 |
// Première mesure du chronométrage
|
288 |
jpm |
66 |
$GLOBALS['_CHRONO_']['depart'] = microtime();
|
545 |
ddelon |
67 |
|
12 |
jpm |
68 |
|
95 |
jpm |
69 |
// Vérification de la configuration de Papyrus
|
|
|
70 |
/** Inclusion du programme de vérification de Papyrus.
|
|
|
71 |
* Il vérifie différent paramètres nécessaire au bon fonctionnement de Papyrus,
|
|
|
72 |
* dont la présence des fichiers de configuration.
|
|
|
73 |
* C'est en fonction des paramètres déterminés par ce programme que l'application
|
|
|
74 |
* Installateur est appelée si besoin est.*/
|
|
|
75 |
require_once 'papyrus/pap_verification.inc.php';
|
433 |
ddelon |
76 |
$GLOBALS['_CHRONO_']['Vérification'] = microtime();
|
|
|
77 |
|
1531 |
jp_milcent |
78 |
// Utilisation par defaut de l'api PEAR fourni par Papyrus
|
|
|
79 |
ini_set('include_path', PAP_CHEMIN_API_PEAR.PATH_SEPARATOR.ini_get('include_path'));
|
95 |
jpm |
80 |
|
|
|
81 |
/** Inclusion API débogage : Gestionnaire d'erreur
|
|
|
82 |
* Ajout de la bibliothèque de fonctions permettant d'encpasuler les erreurs PHP.*/
|
288 |
jpm |
83 |
include_once GEN_CHEMIN_API.'debogage/BOG_Gestionnaire_Erreur.class.php';
|
3 |
jpm |
84 |
|
95 |
jpm |
85 |
/** Inclusion API débogage : chronométrage
|
|
|
86 |
* Ajout de la bibliothèque de fonctions permettant d'analyser le temps d'execution de Papyrus.*/
|
288 |
jpm |
87 |
include_once GEN_CHEMIN_API.'debogage/BOG_chrono.fonct.php';
|
3 |
jpm |
88 |
|
95 |
jpm |
89 |
/** Inclusion API débogage : Gestionnaire d'erreurs sql
|
|
|
90 |
* Ajout de la bibliothèque de fonctions de débogage d'erreurs SQL.*/
|
288 |
jpm |
91 |
require_once GEN_CHEMIN_API.'debogage/BOG_sql.fonct.php';
|
3 |
jpm |
92 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
93 |
// | CORPS du PROGRAMME |
|
95 |
jpm |
94 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
95 |
|
|
|
96 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
97 |
// Création du gestionnaire d'erreur de Papyrus
|
2062 |
gduche |
98 |
$GLOBALS['_PAPYRUS_']['erreur'] = new BOG_Gestionnaire_Erreur(GEN_DEBOGAGE_CONTEXTE, GEN_CSS_ERREUR);
|
3 |
jpm |
99 |
|
95 |
jpm |
100 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
101 |
// Appel de l'application Installateur de Papyrus si nécessaire
|
288 |
jpm |
102 |
if ($GLOBALS['_GEN_commun']['erreur_instal_afaire'] == true) {
|
95 |
jpm |
103 |
include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';
|
288 |
jpm |
104 |
$GLOBALS['_GEN_commun']['sortie'] = afficherContenuCorps();
|
95 |
jpm |
105 |
include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
|
|
|
106 |
// Fin du programme Papyrus.
|
|
|
107 |
exit(0);
|
|
|
108 |
}
|
|
|
109 |
|
3 |
jpm |
110 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
111 |
// Gestion de la connexion à la base de données
|
12 |
jpm |
112 |
require_once GEN_CHEMIN_PAP.'pap_connecte_bdd.inc.php';
|
288 |
jpm |
113 |
$GLOBALS['_CHRONO_']['Connexion BdD'] = microtime();
|
3 |
jpm |
114 |
|
|
|
115 |
// +------------------------------------------------------------------------------------------------------+
|
95 |
jpm |
116 |
// Initialisation des informations provenant de la base de données de Papyrus
|
|
|
117 |
/** <br> Inclusion du programme d'initialisation de Papyrus.
|
3 |
jpm |
118 |
* 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 |
119 |
* depuis la base de données de Papyrus. Ces informations correspondent au paramètres passés dans l'url demandée par
|
3 |
jpm |
120 |
* l'utilisateur.Nous créons aussi la représentation sous forme d'objet de l'URL
|
|
|
121 |
* courante demandée par l'utilisateur.
|
|
|
122 |
*/
|
12 |
jpm |
123 |
require_once GEN_CHEMIN_PAP.'pap_initialise_info.inc.php';
|
288 |
jpm |
124 |
$GLOBALS['_CHRONO_']['Initialisation des info'] = microtime();
|
95 |
jpm |
125 |
|
|
|
126 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
127 |
// Inclusion des fichiers de traduction de Papyrus
|
288 |
jpm |
128 |
if (file_exists(GEN_CHEMIN_LANGUE.'pap_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
|
95 |
jpm |
129 |
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
|
288 |
jpm |
130 |
require_once GEN_CHEMIN_LANGUE.'pap_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
|
95 |
jpm |
131 |
} else {
|
|
|
132 |
/** Inclusion du fichier de traduction par défaut.*/
|
|
|
133 |
require_once GEN_CHEMIN_LANGUE.'pap_langue_'.GEN_I18N_ID_DEFAUT.'.inc.php';
|
|
|
134 |
}
|
|
|
135 |
|
|
|
136 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
137 |
// Réglage supplémentaire du gestionnaire d'erreurs
|
288 |
jpm |
138 |
$GLOBALS['_PAPYRUS_']['erreur']->ecrireLangue($GLOBALS['_GEN_commun']['i18n']);
|
|
|
139 |
$GLOBALS['_PAPYRUS_']['erreur']->ecrireTxtTete(PAP_LANG_DEBOG_TETE);
|
|
|
140 |
$GLOBALS['_PAPYRUS_']['erreur']->ecrireTxtPied(PAP_LANG_DEBOG_PIED);
|
|
|
141 |
$GLOBALS['_PAPYRUS_']['erreur']->ecrireTraduction(array(PAP_LANG_DEBOG_NIVEAU, PAP_LANG_DEBOG_FICHIER, PAP_LANG_DEBOG_LIGNE, PAP_LANG_DEBOG_CONTEXTE));
|
3 |
jpm |
142 |
|
|
|
143 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
144 |
// Initialisation de l'authentification si nécessaire
|
95 |
jpm |
145 |
/** <br> Inclusion du programme d'initialisation de Auth et des Sessions utilisées par Papyrus.
|
3 |
jpm |
146 |
* Suite à la récupération des infos sur le site, la langue, le menu, l'application liée et les infos sur la page,
|
|
|
147 |
* nous demandons l'identification et nous déclenchons une session si le site le demande.
|
|
|
148 |
*/
|
288 |
jpm |
149 |
if ($GLOBALS['_GEN_commun']['info_site']->gs_ce_auth > 0) {
|
12 |
jpm |
150 |
include_once GEN_CHEMIN_PAP.'pap_initialise_auth.inc.php';
|
288 |
jpm |
151 |
$GLOBALS['_CHRONO_']['Initialisation auth'] = microtime();
|
3 |
jpm |
152 |
}
|
|
|
153 |
|
|
|
154 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
155 |
// Mise en cache de la page si nécessaire
|
95 |
jpm |
156 |
/** <br> Inclusion du programme de gestion du cache de Papyrus.
|
3 |
jpm |
157 |
* Nous supprimons, si l'application le demande, les pages en cache périmées et nous recherchons
|
|
|
158 |
* la page demandée dans le cache.Si la page est trouvé nous la renvoyons et le programme
|
|
|
159 |
* s'arrête ici. Sinon, nous continuons.
|
|
|
160 |
*/
|
288 |
jpm |
161 |
if (isset($GLOBALS['_GEN_commun']['info_application']->cache) && $GLOBALS['_GEN_commun']['info_application']->cache) {
|
12 |
jpm |
162 |
include_once GEN_CHEMIN_PAP.'pap_cache.inc.php';
|
3 |
jpm |
163 |
}
|
|
|
164 |
|
|
|
165 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
166 |
// Réalisation du rendu de la page
|
|
|
167 |
/** <br> Inclusion du programme de rendu de Génésia.
|
|
|
168 |
* Il appelle l'application demandée et créé la page grâce au fichier squelette et aux balises incluses dedans.
|
|
|
169 |
*/
|
12 |
jpm |
170 |
require_once GEN_CHEMIN_PAP.'pap_rendu.inc.php';
|
545 |
ddelon |
171 |
|
288 |
jpm |
172 |
$GLOBALS['_CHRONO_']['Rendu'] = microtime();
|
3 |
jpm |
173 |
|
|
|
174 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
175 |
// Gestion du stockage en cache de la page demandée et de son envoi au navigateur client si nécessaire.
|
|
|
176 |
/** <br> Inclusion du programme d'envoi de la page demandée.
|
|
|
177 |
* Il stocke la page en cache et la renvoi après compression s'il existe des données à renvoyer.
|
|
|
178 |
*/
|
288 |
jpm |
179 |
if (! empty($GLOBALS['_GEN_commun']['sortie'])) {
|
3 |
jpm |
180 |
if (GEN_DEBOGAGE) {
|
|
|
181 |
// En cas de chronométrage, nous insérons le tableau des résultats.
|
288 |
jpm |
182 |
$GLOBALS['_GEN_commun']['sortie'] = str_replace('<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'CHRONOMETRAGE -->', BOG_afficherChrono(12), $GLOBALS['_GEN_commun']['sortie']);
|
95 |
jpm |
183 |
// Gestion des erreurs et du débogage
|
288 |
jpm |
184 |
$GLOBALS['_DEBOGAGE_'] .= $GLOBALS['_PAPYRUS_']['erreur']->retournerErreurs();
|
290 |
jpm |
185 |
$GLOBALS['_GEN_commun']['sortie'] = str_replace('<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'DEBOGAGE -->', $GLOBALS['_DEBOGAGE_'], $GLOBALS['_GEN_commun']['sortie']);
|
3 |
jpm |
186 |
}
|
12 |
jpm |
187 |
include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
|
3 |
jpm |
188 |
}
|
|
|
189 |
|
95 |
jpm |
190 |
// Fin du programme Papyrus.
|
|
|
191 |
exit(0);
|
3 |
jpm |
192 |
|
|
|
193 |
|
|
|
194 |
/* +--Fin du code ---------------------------------------------------------------------------------------+
|
|
|
195 |
* $Log: not supported by cvs2svn $
|
1531 |
jp_milcent |
196 |
* Revision 1.17 2005-10-17 13:41:35 ddelon
|
|
|
197 |
* Projet Wikini
|
|
|
198 |
*
|
545 |
ddelon |
199 |
* Revision 1.16 2005/08/31 17:34:52 ddelon
|
|
|
200 |
* Integrateur Wikini et administration des Wikini
|
|
|
201 |
*
|
436 |
ddelon |
202 |
* Revision 1.15 2005/08/18 10:20:05 ddelon
|
|
|
203 |
* Integrateur Wikini et Acces PEAR
|
|
|
204 |
*
|
433 |
ddelon |
205 |
* Revision 1.14 2005/07/11 15:41:50 ddelon
|
|
|
206 |
* test message information
|
|
|
207 |
*
|
413 |
ddelon |
208 |
* Revision 1.13 2005/07/11 15:26:25 ddelon
|
|
|
209 |
* test message information
|
|
|
210 |
*
|
412 |
ddelon |
211 |
* Revision 1.12 2005/07/05 10:06:58 ddelon
|
|
|
212 |
* Copyright
|
|
|
213 |
*
|
405 |
ddelon |
214 |
* Revision 1.11 2005/03/02 11:04:31 jpm
|
|
|
215 |
* Modification de l'utilisation d'une variable globale.
|
|
|
216 |
*
|
290 |
jpm |
217 |
* Revision 1.10 2005/02/28 13:50:01 jpm
|
|
|
218 |
* Modification de l'utilisation d'une variable globale.
|
|
|
219 |
*
|
288 |
jpm |
220 |
* Revision 1.9 2004/11/29 17:14:26 jpm
|
|
|
221 |
* Correction d'un bogue concernant la variable privée _DEBOGAGE_.
|
|
|
222 |
*
|
191 |
jpm |
223 |
* Revision 1.8 2004/11/29 15:54:31 jpm
|
|
|
224 |
* Changement de nom de variable et légères corrections.
|
|
|
225 |
*
|
188 |
jpm |
226 |
* Revision 1.7 2004/11/24 18:33:05 jpm
|
|
|
227 |
* Ajout de la variable globale _PAPYRUS_.
|
|
|
228 |
*
|
168 |
jpm |
229 |
* Revision 1.6 2004/10/22 17:24:53 jpm
|
|
|
230 |
* Amélioration de l'inclusion des fichiers et des tests.
|
|
|
231 |
*
|
95 |
jpm |
232 |
* Revision 1.5 2004/09/28 14:57:53 jpm
|
|
|
233 |
* Création d'une balise propre au débogage.
|
|
|
234 |
*
|
58 |
jpm |
235 |
* Revision 1.4 2004/09/10 16:39:04 jpm
|
|
|
236 |
* Ajout des infos de débogage à la sortie.
|
|
|
237 |
*
|
35 |
jpm |
238 |
* Revision 1.3 2004/07/06 17:27:23 jpm
|
|
|
239 |
* Suppression d'inclusion du fichier de fonctions inutilisées dans Papyrus.
|
|
|
240 |
*
|
32 |
jpm |
241 |
* Revision 1.2 2004/06/16 15:10:24 jpm
|
|
|
242 |
* Ajout de constantes de chemins.
|
|
|
243 |
*
|
12 |
jpm |
244 |
* Revision 1.1 2004/06/15 10:15:12 jpm
|
|
|
245 |
* Changement de nom et d'arborescence de Genesia en Papyrus.
|
|
|
246 |
*
|
3 |
jpm |
247 |
* Revision 1.16 2004/04/28 12:04:31 jpm
|
|
|
248 |
* Changement du modèle de la base de données.
|
|
|
249 |
*
|
|
|
250 |
* Revision 1.15 2004/04/22 08:31:49 jpm
|
|
|
251 |
* Transformation de $GS_GLOBAL en $_GEN_commun.
|
|
|
252 |
*
|
|
|
253 |
* Revision 1.14 2004/04/21 16:24:29 jpm
|
|
|
254 |
* Ajout d'un fichier spécifique pour la connexion à la base de données et incluant les classes DataObject de Pear.
|
|
|
255 |
*
|
|
|
256 |
* Revision 1.12 2004/04/21 08:02:14 jpm
|
|
|
257 |
* Ajout de mesure du temps d'éxecution de Génésia.
|
|
|
258 |
*
|
|
|
259 |
* Revision 1.11 2004/04/09 16:33:34 jpm
|
|
|
260 |
* Changement des noms de fichier gen_initialisation...
|
|
|
261 |
*
|
|
|
262 |
* Revision 1.10 2004/04/09 16:19:40 jpm
|
|
|
263 |
* Ajout des fichiers indépendants d'envoi et de cache.
|
|
|
264 |
*
|
|
|
265 |
* Revision 1.9 2004/04/08 14:13:47 jpm
|
|
|
266 |
* Ajout de l'inclusion du fichier de vérification.
|
|
|
267 |
*
|
|
|
268 |
* Revision 1.8 2004/04/02 16:28:12 jpm
|
|
|
269 |
* Ajout de l'inclusion du fichier gen_initialisation_pear.inc.php.
|
|
|
270 |
*
|
|
|
271 |
* Revision 1.7 2004/04/01 11:27:13 jpm
|
|
|
272 |
* Ajout et modification de commentaires pour PhpDocumentor.
|
|
|
273 |
*
|
|
|
274 |
* Revision 1.6 2004/03/31 16:49:30 jpm
|
|
|
275 |
* Modifications mineures.
|
|
|
276 |
*
|
|
|
277 |
* Revision 1.5 2004/03/27 11:01:06 jpm
|
|
|
278 |
* Ajout de l'appel des fonctions d'installation.
|
|
|
279 |
*
|
|
|
280 |
* Revision 1.4 2004/03/25 11:51:06 jpm
|
|
|
281 |
* Changement nom dossier noyau en génésia dans les chemins.
|
|
|
282 |
*
|
|
|
283 |
* Revision 1.3 2004/03/23 17:06:14 jpm
|
|
|
284 |
* Ajout de commentaire dans l'entête.
|
|
|
285 |
*
|
|
|
286 |
* Revision 1.2 2004/03/23 16:30:42 jpm
|
|
|
287 |
* Ajout de commentaires.
|
|
|
288 |
* Changement des noms des fichiers appelés.
|
|
|
289 |
*
|
|
|
290 |
* Revision 1.1 2004/03/23 10:22:34 jpm
|
|
|
291 |
* Page principale de l'application Génésia.
|
|
|
292 |
*
|
|
|
293 |
*
|
|
|
294 |
* +--Fin du code ----------------------------------------------------------------------------------------+
|
|
|
295 |
*/
|
|
|
296 |
?>
|