Subversion Repositories Applications.papyrus

Rev

Rev 1372 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
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
// ----
1530 jp_milcent 36
// CVS : $Id: papyrus.php,v 1.17.6.1 2007-07-25 15:31:08 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
1530 jp_milcent 52
*@version           $Revision: 1.17.6.1 $ $Date: 2007-07-25 15:31:08 $
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
 
1530 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
288 jpm 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 $
1530 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
?>