Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
5 jpm 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// | This library is free software; you can redistribute it and/or                                        |
9 
// | modify it under the terms of the GNU Lesser General Public                                           |
10 
// | License as published by the Free Software Foundation; either                                         |
11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
12 
// |                                                                                                      |
13 
// | This library is distributed in the hope that it will be useful,                                      |
14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16 
// | Lesser General Public License for more details.                                                      |
17 
// |                                                                                                      |
18 
// | You should have received a copy of the GNU Lesser General Public                                     |
19 
// | License along with this library; if not, write to the Free Software                                  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21 
// +------------------------------------------------------------------------------------------------------+
252 jpm 22 
// CVS : $Id: pap_rendu.inc.php,v 1.10 2005-01-26 16:20:46 jpm Exp $
5 jpm 23 
/**
24 
* Rendu : programme traitant l'url demandée et retournant la page compressé au navigateur.
25 
*
26 
* Ce programme contient la partie collectant les informations sur la page demandée par le navigateur client.
27 
* Elle vérifie que la page ne soit pas déjà présente en cache et la renvoie si elle est disponible.
28 
* Elle recherche ensuite l'application liée à la page demandée. Elle exécute cette application et récupère le
29 
* contenu XHTML à afficher, le stocke en cache, le compresse et le renvoi au navigateur client.
30 
*
31 
*@package Papyrus
32 
//Auteur original :
33 
*@author        Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
34 
//Autres auteurs :
35 
*@author        Alexandre GRANIER <alexadandre@tela-botanica.org>
36 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
37 
*@copyright     Tela-Botanica 2000-2004
252 jpm 38 
*@version       $Revision: 1.10 $ $Date: 2005-01-26 16:20:46 $
5 jpm 39 
// +------------------------------------------------------------------------------------------------------+
40 
*/
41 
 
42 
// +------------------------------------------------------------------------------------------------------+
43 
// |                                            ENTÊTE du PROGRAMME                                       |
44 
// +------------------------------------------------------------------------------------------------------+
45 
 
46 
/** <BR> Inclusion de la bibliothèque de fonctions servant à l'insertion de meta informations pour une page donnée.*/
14 jpm 47 
include_once GEN_CHEMIN_BIBLIO.'pap_meta.fonct.php';
5 jpm 48 
 
49 
/** <BR> Inclusion de la bibliothèque de fonctions servant à l'insertion de styles pour une page donnée.*/
14 jpm 50 
include_once GEN_CHEMIN_BIBLIO.'pap_style.fonct.php';
5 jpm 51 
 
52 
/** <BR> Inclusion de la bibliothèque de fonctions servant à l'insertion de scripts pour une page donnée.*/
14 jpm 53 
include_once GEN_CHEMIN_BIBLIO.'pap_script.fonct.php';
5 jpm 54 
 
55 
// +------------------------------------------------------------------------------------------------------+
56 
// |                                            CORPS du PROGRAMME                                        |
57 
// +------------------------------------------------------------------------------------------------------+
58 
 
59 
// +------------------------------------------------------------------------------------------------------+
60 
// Recherche du squelette de la page demandée.
61 
 
62 
// Ouverture du squelette
63 
if (empty($_GEN_commun['info_menu']->gm_fichier_squelette)) {
64 
    if (isset($_GEN_commun['traduction_info_site'])) {
169 jpm 65 
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $_GEN_commun['traduction_info_site']->gs_fichier_squelette;
5 jpm 66 
    } else {
169 jpm 67 
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $_GEN_commun['info_site']->gs_fichier_squelette;
5 jpm 68 
    }
69 
} else {
70 
    if (isset($_GEN_commun['traduction_info_menu'])) {
169 jpm 71 
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $_GEN_commun['traduction_info_menu']->gs_fichier_squelette;
5 jpm 72 
    } else {
169 jpm 73 
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $_GEN_commun['info_menu']->gm_fichier_squelette;
5 jpm 74 
    }
75 
}
76 
// Si l'information concernant le chemin est réellement un chemin
169 jpm 77 
if (! file_exists($GLOBALS['_PAPYRUS_']['general']['chemin_squelette'])) {
5 jpm 78 
    //Si ce n'est qu'un nom de fichier squelette
169 jpm 79 
    $GLOBALS['_PAPYRUS_']['general']['chemin_test'] =  GEN_CHEMIN_SITES.
5 jpm 80 
                    $_GEN_commun['info_site']->gs_code_alpha.'/'.
169 jpm 81 
                    $_GEN_commun['i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/'.$GLOBALS['_PAPYRUS_']['general']['chemin_squelette'];
82 
    if (! file_exists($GLOBALS['_PAPYRUS_']['general']['chemin_test'])) {
83 
        die('ERREUR Papyrus : Impossible de trouver de fichier de squelette. <br />'.
84 
            'Chemin fichier squelette : '.$GLOBALS['_PAPYRUS_']['general']['chemin_squelette'].' <br />'.
5 jpm 85 
            'Ligne n° : '. __LINE__ .'<br />'.
86 
            'Fichier : '. __FILE__ );
87 
    } else {
169 jpm 88 
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $GLOBALS['_PAPYRUS_']['general']['chemin_test'];
5 jpm 89 
    }
90 
}
91 
 
92 
// +------------------------------------------------------------------------------------------------------+
93 
// Récupération du contenu du fichier de squelette de la page demandée.
159 jpm 94 
/*
5 jpm 95 
// Lecture du fichier de squelette XHTML en PHP 4.1.2
96 
$tab_fichier_squelette = file($chemin_squelette);
97 
$contenu_squelette = '';
98 
for ($i = 0; $i < count($tab_fichier_squelette); $i++) {
99 
    $contenu_squelette .= $tab_fichier_squelette[$i];
100 
}
159 jpm 101 
*/
5 jpm 102 
// Lecture du fichier de squelette XHTML en PHP 4.3
169 jpm 103 
$GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] = file_get_contents($GLOBALS['_PAPYRUS_']['general']['chemin_squelette']);
5 jpm 104 
 
159 jpm 105 
 
5 jpm 106 
// +------------------------------------------------------------------------------------------------------+
107 
// Recherche des informations pour la complétion de l'entête du squelette de la page demandée.
108 
 
109 
// Construction du titre.
110 
if (! empty($_GEN_commun['info_menu']->gm_titre)) {
169 jpm 111 
    $GLOBALS['_PAPYRUS_']['page']['titre'] = htmlentities($_GEN_commun['info_menu']->gm_titre);
5 jpm 112 
} else if (! empty($_GEN_commun['info_menu']->gm_titre_alternatif)) {
169 jpm 113 
    $GLOBALS['_PAPYRUS_']['page']['titre'] = htmlentities($_GEN_commun['info_menu']->gm_titre_alternatif);
5 jpm 114 
} else {
169 jpm 115 
    $GLOBALS['_PAPYRUS_']['page']['titre'] = htmlentities($_GEN_commun['info_menu']->gm_nom);
5 jpm 116 
}
169 jpm 117 
$GLOBALS['_PAPYRUS_']['rendu']['TITRE_PAGE'] = $GLOBALS['_PAPYRUS_']['page']['titre'];
5 jpm 118 
 
112 jpm 119 
// Construction des infos sur le site
169 jpm 120 
$GLOBALS['_PAPYRUS_']['page']['nom_site'] = htmlentities($_GEN_commun['info_site']->gs_nom);
121 
$GLOBALS['_PAPYRUS_']['rendu']['SITE_NOM'] = $GLOBALS['_PAPYRUS_']['page']['nom_site'];
122 
$GLOBALS['_PAPYRUS_']['page']['langue_site'] = htmlentities($_GEN_commun['i18n']);
123 
$GLOBALS['_PAPYRUS_']['rendu']['SITE_LANGUE'] = $GLOBALS['_PAPYRUS_']['page']['langue_site'];
124 
$GLOBALS['_PAPYRUS_']['page']['code_alpha_site'] = htmlentities($_GEN_commun['info_site']->gs_code_alpha);
125 
$GLOBALS['_PAPYRUS_']['rendu']['SITE_CODE_ALPHA'] = $GLOBALS['_PAPYRUS_']['page']['code_alpha_site'];
5 jpm 126 
 
127 
// Construction des Meta "http-equiv".
128 
$_GEN_commun['meta_http_equiv'] = array();
169 jpm 129 
$GLOBALS['_PAPYRUS_']['page']['jeu_de_caracteres'] = htmlentities($_GEN_commun['info_i18n']->gi_jeu_de_caracteres);
130 
$GLOBALS['_PAPYRUS_']['rendu']['SITE_JEU_DE_CARACTERES'] = $GLOBALS['_PAPYRUS_']['page']['jeu_de_caracteres'];
131 
$GLOBALS['_PAPYRUS_']['page']['langue'] = htmlentities($_GEN_commun['info_i18n_langue']->gil_id_langue);
132 
$GLOBALS['_PAPYRUS_']['rendu']['SITE_LANGUE'] = $GLOBALS['_PAPYRUS_']['page']['langue'];
133 
GEN_stockerMetaHttpEquiv('Content-Type', 'text/html; charset='.$GLOBALS['_PAPYRUS_']['page']['jeu_de_caracteres']);
5 jpm 134 
GEN_stockerMetaHttpEquiv('Content-style-type', 'text/css');
135 
GEN_stockerMetaHttpEquiv('Content-script-type', 'text/javascript');
169 jpm 136 
GEN_stockerMetaHttpEquiv('Content-language', $GLOBALS['_PAPYRUS_']['page']['langue']);
5 jpm 137 
 
138 
// Construction des Meta "name".
139 
$_GEN_commun['meta_name'] = array();
169 jpm 140 
$GLOBALS['_PAPYRUS_']['page']['robot'] = htmlentities($_GEN_commun['info_menu']->gm_robot);
141 
$GLOBALS['_PAPYRUS_']['page']['auteur'] = htmlentities($_GEN_commun['info_menu']->gm_auteur);
252 jpm 142 
if (empty($GLOBALS['_PAPYRUS_']['page']['auteur'])) {
169 jpm 143 
    $GLOBALS['_PAPYRUS_']['page']['auteur'] = htmlentities($_GEN_commun['info_site']->gs_auteur);
5 jpm 144 
}
169 jpm 145 
$GLOBALS['_PAPYRUS_']['page']['mots_cles'] = htmlentities($_GEN_commun['info_menu']->gm_mots_cles);
146 
if (empty($GLOBALS['_PAPYRUS_']['page']['mots_cles'])) {
252 jpm 147 
    $GLOBALS['_PAPYRUS_']['page']['mots_cles'] = htmlentities($_GEN_commun['info_site']->gs_mots_cles);
5 jpm 148 
}
169 jpm 149 
$GLOBALS['_PAPYRUS_']['page']['description_libre'] = htmlentities($_GEN_commun['info_menu']->gm_description_libre);
252 jpm 150 
if (empty($GLOBALS['_PAPYRUS_']['page']['description_libre'])) {
169 jpm 151 
    $GLOBALS['_PAPYRUS_']['page']['description_libre'] = htmlentities($_GEN_commun['info_site']->gs_description);
5 jpm 152 
}
153 
GEN_stockerMetaName('revisit-after', '15 days');
169 jpm 154 
GEN_stockerMetaName('robots', $GLOBALS['_PAPYRUS_']['page']['robot']);
155 
GEN_stockerMetaName('author', $GLOBALS['_PAPYRUS_']['page']['auteur']);
156 
GEN_stockerMetaName('keywords', $GLOBALS['_PAPYRUS_']['page']['mots_cles']);
157 
GEN_stockerMetaName('description', $GLOBALS['_PAPYRUS_']['page']['description_libre']);
5 jpm 158 
 
159 
// Construction des Meta Meta "name" du Dublin Core.
169 jpm 160 
$GLOBALS['_PAPYRUS_']['page']['titre_alternatif'] = htmlentities($_GEN_commun['info_menu']->gm_titre_alternatif);
161 
$GLOBALS['_PAPYRUS_']['page']['auteur'] = htmlentities($_GEN_commun['info_menu']->gm_auteur);
162 
$GLOBALS['_PAPYRUS_']['page']['description_resume'] = htmlentities($_GEN_commun['info_menu']->gm_description_resume);
163 
$GLOBALS['_PAPYRUS_']['page']['description_table_matieres'] = htmlentities($_GEN_commun['info_menu']->gm_description_table_matieres);
164 
$GLOBALS['_PAPYRUS_']['page']['publieur'] = htmlentities($_GEN_commun['info_menu']->gm_editeur);
165 
$GLOBALS['_PAPYRUS_']['page']['contributeur'] = htmlentities($_GEN_commun['info_menu']->gm_contributeur);
166 
$GLOBALS['_PAPYRUS_']['page']['date_creation'] = htmlentities($_GEN_commun['info_menu']->gm_date_creation);
167 
$GLOBALS['_PAPYRUS_']['page']['date_soumission'] = htmlentities($_GEN_commun['info_menu']->gm_date_soumission);
168 
$GLOBALS['_PAPYRUS_']['page']['date_acceptation'] = htmlentities($_GEN_commun['info_menu']->gm_date_acceptation);
169 
$GLOBALS['_PAPYRUS_']['page']['periode_validite'] = htmlentities($_GEN_commun['info_menu']->gm_date_debut_validite);
170 
$GLOBALS['_PAPYRUS_']['page']['date_copyright'] = htmlentities($_GEN_commun['info_menu']->gm_date_copyright);
171 
$GLOBALS['_PAPYRUS_']['page']['source'] = htmlentities($_GEN_commun['info_menu']->gm_source);
213 jpm 172 
if ($_GEN_commun['info_i18n_pays']->gip_id_pays != '') {
173 
    $GLOBALS['_PAPYRUS_']['page']['langue_rfc_3066'] = $GLOBALS['_PAPYRUS_']['page']['langue'].'-'.htmlentities($_GEN_commun['info_i18n_pays']->gip_id_pays);
174 
} else {
175 
    $GLOBALS['_PAPYRUS_']['page']['langue_rfc_3066'] = $GLOBALS['_PAPYRUS_']['page']['langue'];
176 
}
169 jpm 177 
$GLOBALS['_PAPYRUS_']['page']['type_portee_spatiale'] = htmlentities($_GEN_commun['info_menu']->gm_ce_type_portee_spatiale);
178 
$GLOBALS['_PAPYRUS_']['page']['portee_spatiale'] = htmlentities($_GEN_commun['info_menu']->gm_portee_spatiale);
179 
$GLOBALS['_PAPYRUS_']['page']['type_portee_temporelle'] = htmlentities($_GEN_commun['info_menu']->gm_ce_type_portee_temporelle);
180 
$GLOBALS['_PAPYRUS_']['page']['portee_temporelle'] = htmlentities($_GEN_commun['info_menu']->gm_portee_temporelle);
181 
$GLOBALS['_PAPYRUS_']['page']['licence'] = htmlentities($_GEN_commun['info_menu']->gm_licence);
182 
$GLOBALS['_PAPYRUS_']['page']['public'] = htmlentities($_GEN_commun['info_menu']->gm_public);
183 
$GLOBALS['_PAPYRUS_']['page']['public_niveau'] = htmlentities($_GEN_commun['info_menu']->gm_public_niveau);
184 
GEN_stockerMetaNameDC('DC.Title', $GLOBALS['_PAPYRUS_']['page']['titre'], $GLOBALS['_PAPYRUS_']['page']['langue']);
185 
GEN_stockerMetaNameDC('DC.Title.alternative', $GLOBALS['_PAPYRUS_']['page']['titre_alternatif'], $GLOBALS['_PAPYRUS_']['page']['langue']);
186 
GEN_stockerMetaNameDC('DC.Creator', $GLOBALS['_PAPYRUS_']['page']['auteur']);
187 
GEN_stockerMetaNameDC('DC.Subject', $GLOBALS['_PAPYRUS_']['page']['mots_cles'], $GLOBALS['_PAPYRUS_']['page']['langue']);
188 
GEN_stockerMetaNameDC('DC.Description', $GLOBALS['_PAPYRUS_']['page']['description_libre'], $GLOBALS['_PAPYRUS_']['page']['langue']);
189 
GEN_stockerMetaNameDC('DC.Description.abstract', $GLOBALS['_PAPYRUS_']['page']['description_resume'], $GLOBALS['_PAPYRUS_']['page']['langue']);
190 
GEN_stockerMetaNameDC('DC.Description.tableOfContents', $GLOBALS['_PAPYRUS_']['page']['description_table_matieres'], $GLOBALS['_PAPYRUS_']['page']['langue']);
191 
GEN_stockerMetaNameDC('DC.Publisher', $GLOBALS['_PAPYRUS_']['page']['publieur']);
192 
GEN_stockerMetaNameDC('DC.Contributor', $GLOBALS['_PAPYRUS_']['page']['contributeur']);
193 
GEN_stockerMetaNameDC('DC.Date.created', $GLOBALS['_PAPYRUS_']['page']['date_creation'], '', 'W3CDTF');
194 
GEN_stockerMetaNameDC('DC.Date.valid', $GLOBALS['_PAPYRUS_']['page']['periode_validite'], '', 'W3CDTF');
5 jpm 195 
//Ajouter la gestion des dates valid et available en utilisant les dates de la table gen_page_contenu.
169 jpm 196 
GEN_stockerMetaNameDC('DC.Date.dateSubmitted', $GLOBALS['_PAPYRUS_']['page']['date_soumission'], '', 'W3CDTF');
197 
GEN_stockerMetaNameDC('DC.Date.dateCopyrighted', $GLOBALS['_PAPYRUS_']['page']['date_copyright'], '', 'W3CDTF');
198 
GEN_stockerMetaNameDC('DC.Date.dateAccepted', $GLOBALS['_PAPYRUS_']['page']['date_acceptation'], '', 'W3CDTF');
199 
GEN_stockerMetaNameDC('DC.Source', $GLOBALS['_PAPYRUS_']['page']['source'], '', 'URI');
200 
GEN_stockerMetaNameDC('DC.Language', $GLOBALS['_PAPYRUS_']['page']['langue_rfc_3066'], '', 'RFC3066');
201 
GEN_stockerMetaNameDC('DC.Coverage.spatial', $GLOBALS['_PAPYRUS_']['page']['portee_spatiale'], '', $GLOBALS['_PAPYRUS_']['page']['type_portee_spatiale']);
202 
GEN_stockerMetaNameDC('DC.Coverage.temporal', $GLOBALS['_PAPYRUS_']['page']['portee_temporelle'], '', $GLOBALS['_PAPYRUS_']['page']['type_portee_temporelle']);
203 
GEN_stockerMetaNameDC('DC.Rights', $GLOBALS['_PAPYRUS_']['page']['licence'], '', 'URI');
204 
GEN_stockerMetaNameDC('DC.Audience', $GLOBALS['_PAPYRUS_']['page']['public']);
205 
GEN_stockerMetaNameDC('DC.Audience.educationLevel', $GLOBALS['_PAPYRUS_']['page']['public_niveau']);
5 jpm 206 
 
207 
// Construction des CSS
208 
// Déclaration des constantes contenant les CSS à afficher sur la page.
209 
$_GEN_commun['style_type']  = 'text/css';
210 
$_GEN_commun['style_integree']  = '';
211 
$_GEN_commun['style_externe']   = array();
212 
if (GEN_DEBOGAGE) {
213 
    GEN_stockerStyleExterne('Débogage', GEN_CHEMIN_PAP.'presentations/css/debogage.css');
214 
}
215 
 
216 
// Construction du Javascript
217 
// Déclaration des constantes contenant le Javascript à afficher sur la page.
218 
$_GEN_commun['script_type']    = 'text/javascript';
219 
$_GEN_commun['script_code']     = '';
220 
$_GEN_commun['script_fonction'] = array();
221 
$_GEN_commun['script_fichier']  = array();
222 
 
223 
// +------------------------------------------------------------------------------------------------------+
224 
// Gestion des inclusions des fichiers d'applettes
225 
 
226 
for ($i = 0; $i < count($_GEN_commun['info_applette']); $i++) {
227 
    // Nous vérifions que le chemin vers l'applette existe.
228 
    if (file_exists($_GEN_commun['info_applette'][$i]->gap_chemin)) {
229 
        include_once($_GEN_commun['info_applette'][$i]->gap_chemin);
230 
        // Nous récupérons l'expression régulière de la balise pour l'utiliser lors de l'appel
231 
        // de la fonction de l'applette. L'appel des fonctions des applettes à lieu aprés l'appel
232 
        // de l'application pour permettre à l'appli de modifier certains paramêtres (identification, ordre des menus).
233 
        $_GEN_commun['info_applette'][$i]->applette_balise = $_GEN_commun['info_applette_balise'];
234 
        $_GEN_commun['info_applette'][$i]->applette_fonction = $_GEN_commun['info_applette_nom_fonction'];
235 
    } else {
236 
        // Ne devrait pas arréter le programme! Mais instancier le gestionnaire de déboguage.
169 jpm 237 
        die('ERREUR Papyrus : Impossible de trouver le fichier de l\'applette. <br />'.
5 jpm 238 
            'Nom applette : '.$_GEN_commun['info_applette'][$i]->gap_nom.' <br />'.
239 
            'Chemin fichier applette : '.$_GEN_commun['info_applette'][$i]->gap_chemin.' <br />'.
240 
            'Ligne n° : '. __LINE__ .'<br />'.
241 
            'Fichier : '. __FILE__ );
242 
    }
243 
}
244 
 
245 
// +------------------------------------------------------------------------------------------------------+
246 
// Gestion de l'intégration de l'application liée au menu
247 
 
248 
// Une fois les applettes appelées est executées nous appelons l'application qui peut avoir
249 
// besoins des infos des applettes (c'est le cas, pour l'applette IDENTIFICATION).
169 jpm 250 
$GLOBALS['_PAPYRUS_']['general']['application_chemin'] = '';
92 jpm 251 
if (isset($_GEN_commun['info_application']->gap_chemin)) {
169 jpm 252 
    $GLOBALS['_PAPYRUS_']['general']['application_chemin'] = $_GEN_commun['info_application']->gap_chemin;
92 jpm 253 
}
5 jpm 254 
 
255 
// $application_chemin contient le chemin de l'application
256 
// Si $application_chemin est vide, on défini putFrame comme ne retournant rien.
257 
 
169 jpm 258 
if (empty($GLOBALS['_PAPYRUS_']['general']['application_chemin']) ) {
5 jpm 259 
    function afficherContenuCorps()
260 
    {
92 jpm 261 
        return '<p class="pap_erreur">'.'Pas d\'application.'.'</p>';
5 jpm 262 
    }
263 
} else {
169 jpm 264 
    if (file_exists($GLOBALS['_PAPYRUS_']['general']['application_chemin'])) {
265 
        include_once($GLOBALS['_PAPYRUS_']['general']['application_chemin']);
5 jpm 266 
    } else {
169 jpm 267 
        die('ERREUR Papyrus : application impossible à charger. <br />'.
268 
            'Chemin application : '.$GLOBALS['_PAPYRUS_']['general']['application_chemin'].' <br />'.
5 jpm 269 
            'Ligne n° : '. __LINE__ .'<br />'.
270 
            'Fichier : '. __FILE__ );
271 
    }
272 
}
273 
 
274 
// +------------------------------------------------------------------------------------------------------+
275 
// Recherche des informations provenant de l'application pour la complétion du squelette
276 
 
118 jpm 277 
// Contenu navigation
278 
// Appel de la fonction afficherContenuNavigation() si elle existe.
169 jpm 279 
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_NAVIGATION'] = (function_exists('afficherContenuNavigation') ? afficherContenuNavigation() : '<!-- '.'Aucune navigation'.' -->');
118 jpm 280 
 
5 jpm 281 
// Contenu tête
282 
// Appel de la fonction afficherContenuTete() si elle existe.
169 jpm 283 
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_TETE'] = (function_exists('afficherContenuTete') ? afficherContenuTete() : '<!-- '.'Aucun contenu tête'.' -->');
5 jpm 284 
 
285 
// Contenu corps
286 
// Appel de la fonction afficherContenuCorps().
287 
if (function_exists('afficherContenuCorps') ) {
169 jpm 288 
    $GLOBALS['_PAPYRUS_']['rendu']['CONTENU_CORPS'] = afficherContenuCorps();
5 jpm 289 
} else {
169 jpm 290 
    $GLOBALS['_PAPYRUS_']['rendu']['CONTENU_CORPS'] =
291 
        'ERREUR Papyrus : fonction afficherContenuCorps() introuvable dans l\'application demandée. <br />'.
5 jpm 292 
        'Ligne n° : '. __LINE__ .'<br />'.
293 
        'Fichier : '. __FILE__;
294 
}
295 
// Contenu pied
296 
// Appel de la fonction afficherContenuPied() si elle existe.
169 jpm 297 
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_PIED'] = (function_exists('afficherContenuPied') ? afficherContenuPied() : '<!-- '.'Aucun contenu pied'.' -->');
5 jpm 298 
 
299 
// +------------------------------------------------------------------------------------------------------+
159 jpm 300 
// Gestion de l'espace de nom pour les balise Papyrus
301 
$_GEN_commun['balise_prefixe'] = 'PAPYRUS_';
302 
 
303 
// +------------------------------------------------------------------------------------------------------+
5 jpm 304 
// Gestion des appels des fonctions d'applettes
305 
 
306 
for ($i = 0; $i < count($_GEN_commun['info_applette']); $i++) {
307 
    // Recherche du nombre de balise d'une applette donnée présentes dans le squelette
169 jpm 308 
    $GLOBALS['_PAPYRUS_']['applette']['nbr_balise'] = preg_match_all(   '/<!-- '.$_GEN_commun['balise_prefixe'].'('.$_GEN_commun['info_applette'][$i]->applette_balise.') -->/',
309 
                                    $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'],
310 
                                    $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'],
5 jpm 311 
                                    PREG_SET_ORDER);
312 
    // Si on trouve au moins une balise, on lance la boucle pour les remplacer
169 jpm 313 
    for ($j = 0; $j <= ($GLOBALS['_PAPYRUS_']['applette']['nbr_balise'] - 1); $j++) {
5 jpm 314 
        // Nous vérifions que le nom de la fonction principale de l'applette existe.
315 
        if (function_exists($_GEN_commun['info_applette'][$i]->applette_fonction)) {
184 jpm 316 
            // Nous comptabilisons le nombre d'utilisation des applettes dans un squelette:
317 
            if (!isset($GLOBALS['_PAPYRUS_']['applette']['comptage'][$_GEN_commun['info_applette'][$i]->applette_fonction])) {
318 
                $GLOBALS['_PAPYRUS_']['applette']['comptage'][$_GEN_commun['info_applette'][$i]->applette_fonction] = 1;
319 
            } else {
320 
                $GLOBALS['_PAPYRUS_']['applette']['comptage'][$_GEN_commun['info_applette'][$i]->applette_fonction]++;
321 
            }
169 jpm 322 
            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'] =
184 jpm 323 
                call_user_func( $_GEN_commun['info_applette'][$i]->applette_fonction,
324 
                                    $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j],
325 
                                    $_GEN_commun);
5 jpm 326 
        } else {
169 jpm 327 
            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'] =
328 
                                '<!-- '."\n".
329 
                                $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j][1].' : '.
5 jpm 330 
                                'fonction de l\'applette "'.$_GEN_commun['info_applette'][$i]->gap_nom.'" introuvable! '."\n".
331 
                                'Fonction : '.$_GEN_commun['info_applette'][$i]->applette_fonction."\n".
332 
                                ' -->';
333 
        }
334 
        // Remplacement des balises d'applette de Génésia dans le squelette
169 jpm 335 
        $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] =
336 
                            str_replace(   '<!-- '.$_GEN_commun['balise_prefixe'].$GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j][1].' -->',
337 
                                            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'],
338 
                                            $GLOBALS['_PAPYRUS_']['general']['contenu_squelette']);
5 jpm 339 
    }
340 
}
341 
 
342 
// +------------------------------------------------------------------------------------------------------+
159 jpm 343 
// Continuation recherche d'info provenant de Papyrus pour la complétion du squelette
5 jpm 344 
 
345 
// Une fois l'application appelé est executé nous affichons le contenu de l'entête qui a pu
346 
// être modifié par l'application.
169 jpm 347 
$GLOBALS['_PAPYRUS_']['rendu']['META_HTTP_EQUIV'] = GEN_afficherMeta('http-equiv');
348 
$GLOBALS['_PAPYRUS_']['rendu']['META_NAME'] = GEN_afficherMeta('name');
349 
$GLOBALS['_PAPYRUS_']['rendu']['META_NAME_DC'] = GEN_afficherMeta('dc');
5 jpm 350 
// Nous récupérons tout les styles CSS pour l'afficher dans l'entête de la page.
169 jpm 351 
$GLOBALS['_PAPYRUS_']['rendu']['STYLES'] = GEN_afficherStyle();
5 jpm 352 
// Nous récupérons tout le Javascript pour l'afficher dans l'entête de la page.
169 jpm 353 
$GLOBALS['_PAPYRUS_']['rendu']['SCRIPTS'] = GEN_afficherScript();
5 jpm 354 
 
355 
// +------------------------------------------------------------------------------------------------------+
159 jpm 356 
// Remplacement des balises Papyrus dans le squelette
169 jpm 357 
foreach ($GLOBALS['_PAPYRUS_']['rendu'] as $GLOBALS['_PAPYRUS_']['tmp']['cle'] => $GLOBALS['_PAPYRUS_']['tmp']['val']) {
358 
    $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] =
359 
                    str_replace(   '<!-- '.$_GEN_commun['balise_prefixe'].$GLOBALS['_PAPYRUS_']['tmp']['cle'].' -->',
360 
                                    $GLOBALS['_PAPYRUS_']['tmp']['val'],
361 
                                    $GLOBALS['_PAPYRUS_']['general']['contenu_squelette']);
362 
}
5 jpm 363 
 
364 
// +------------------------------------------------------------------------------------------------------+
365 
// Stokage du squelette dans un variable globale aprés avoir remplacer les balises Papyrus.
169 jpm 366 
$_GEN_commun['sortie'] = $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'];
5 jpm 367 
 
368 
/* +--Fin du code ---------------------------------------------------------------------------------------+
369 
*
370 
* $Log: not supported by cvs2svn $
252 jpm 371 
* Revision 1.9  2004/12/06 19:39:40  jpm
372 
* Correction langue DC.
373 
*
213 jpm 374 
* Revision 1.8  2004/11/26 19:02:07  jpm
375 
* Comptabilisation du nombre d'appel de chaque applette dans le squelette.
376 
*
184 jpm 377 
* Revision 1.7  2004/11/24 18:33:29  jpm
378 
* Encapsulation des variables dans le tableau global _PAPYRUS_.
379 
*
169 jpm 380 
* Revision 1.6  2004/11/15 17:40:21  jpm
381 
* Gestion d'un espace de nom pour les balises Papyrus.
382 
*
159 jpm 383 
* Revision 1.5  2004/10/26 18:42:54  jpm
384 
* Gestion de la fonction de navigation pour les appli Papyrus.
385 
*
118 jpm 386 
* Revision 1.4  2004/10/25 16:28:47  jpm
387 
* Ajout de nouvelles balises Papyrus, ajout vérification mise à jour de Papyrus, meilleure gestion des sessions...
388 
*
112 jpm 389 
* Revision 1.3  2004/10/22 17:23:35  jpm
390 
* Amélioration de la gestion de l'erreur si pas d'appli.
391 
*
92 jpm 392 
* Revision 1.2  2004/06/17 08:04:44  jpm
393 
* Changement de constante pour les chemin d'accès à la biblio de code de Papyrus.
394 
*
14 jpm 395 
* Revision 1.1  2004/06/16 08:13:58  jpm
396 
* Changement de nom de Génésia en Papyrus.
397 
* Changement de l'arborescence.
398 
*
5 jpm 399 
* Revision 1.32  2004/05/10 12:24:55  jpm
400 
* Amélioration de la recherche des fichiers de squelette.
401 
*
402 
* Revision 1.31  2004/05/05 10:42:35  jpm
403 
* Amélioration de la gestion de l'internationalisation.
404 
*
405 
* Revision 1.30  2004/05/05 08:25:37  jpm
406 
* Modification de la façon d'ajouter la feuille de style de débogage pour qu'elle soit prise en compte par défaut.
407 
*
408 
* Revision 1.29  2004/05/03 14:12:04  jpm
409 
* Suppression du fichier bibliothèquie de fonctions sur gen_menu.
410 
*
411 
* Revision 1.28  2004/05/03 11:21:58  jpm
412 
* Fin de la gestion des applettes et suppression de l'info_menu_hierarchie de _GEN_commun.
413 
*
414 
* Revision 1.27  2004/05/01 17:22:55  jpm
415 
* Appel de la bibliothèque de fonctions concernant les menus.
416 
*
417 
* Revision 1.26  2004/05/01 16:19:36  jpm
418 
* Suppression du code ayant pu être transformé en applettes (menu multi-niveaux, menu unique, menu commun, identification, sélecteur de sites).
419 
*
420 
* Revision 1.25  2004/05/01 11:39:38  jpm
421 
* Déplacement du code gérant les applettes et du code de récupération du contenu du fichier squelette.
422 
*
423 
* Revision 1.24  2004/04/28 12:04:31  jpm
424 
* Changement du modèle de la base de données.
425 
*
426 
* Revision 1.23  2004/04/22 08:30:47  jpm
427 
* Transformation de $GS_GLOBAL en $_GEN_commun.
428 
*
429 
* Revision 1.22  2004/04/21 07:55:02  jpm
430 
* Ajout de la feuille de style de débogage si le débogage de Génésia est activé.
431 
*
432 
* Revision 1.19  2004/04/09 16:20:54  jpm
433 
* Extraction de la gestion du cache et de l'envoi.
434 
* Gestion des tables i18n.
435 
*
436 
* Revision 1.18  2004/04/08 12:29:48  jpm
437 
* Début amélioration de la gestion du cache et de la compression des pages de Génésia.
438 
*
439 
* Revision 1.17  2004/04/05 16:38:04  jpm
440 
* Utilisation des nouvelles fonctions gérant l'insertion du Javascript.
441 
*
442 
* Revision 1.16  2004/04/02 16:30:56  jpm
443 
* Gestion de la balise Génésia IDENTIFICATION permettant l'envoie d'un formulaire de login.
444 
*
445 
* Revision 1.15  2004/04/01 11:27:13  jpm
446 
* Ajout et modification de commentaires pour PhpDocumentor.
447 
*
448 
* Revision 1.14  2004/03/31 16:50:10  jpm
449 
* Prise en compte du nouveau modèle de Génésia révision 1.9.
450 
*
451 
* Revision 1.13  2004/03/27 11:07:45  jpm
452 
* Modification des commentaires vis à vis du nouveau modèle.
453 
* Mise en conformité avec la convention de codage.
454 
* Amélioration du code.
455 
*
456 
* Revision 1.12  2004/03/23 17:06:44  jpm
457 
* Ajout de commentaire dans l'entête.
458 
* Mise en conformité avec la convention de codage.
459 
*
460 
* +-- Fin du code ----------------------------------------------------------------------------------------+
461 
*/
462 
?>