Subversion Repositories Applications.papyrus

Rev

Go to most recent revision | Details | 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
// +------------------------------------------------------------------------------------------------------+
22
// CVS : $Id: pap_rendu.inc.php,v 1.1 2004-06-16 08:13:58 jpm Exp $
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
38
*@version       $Revision: 1.1 $ $Date: 2004-06-16 08:13:58 $
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.*/
47
include_once GEN_CHEMIN_PAP.'bibliotheque/fonctions/pap_meta.fonct.php';
48
 
49
/** <BR> Inclusion de la bibliothèque de fonctions servant à l'insertion de styles pour une page donnée.*/
50
include_once GEN_CHEMIN_PAP.'bibliotheque/fonctions/pap_style.fonct.php';
51
 
52
/** <BR> Inclusion de la bibliothèque de fonctions servant à l'insertion de scripts pour une page donnée.*/
53
include_once GEN_CHEMIN_PAP.'bibliotheque/fonctions/pap_script.fonct.php';
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'])) {
65
        $chemin_squelette = $_GEN_commun['traduction_info_site']->gs_fichier_squelette;
66
    } else {
67
        $chemin_squelette = $_GEN_commun['info_site']->gs_fichier_squelette;
68
    }
69
} else {
70
    if (isset($_GEN_commun['traduction_info_menu'])) {
71
        $chemin_squelette = $_GEN_commun['traduction_info_menu']->gs_fichier_squelette;
72
    } else {
73
        $chemin_squelette = $_GEN_commun['info_menu']->gm_fichier_squelette;
74
    }
75
}
76
// Si l'information concernant le chemin est réellement un chemin
77
if (! file_exists($chemin_squelette)) {
78
    //Si ce n'est qu'un nom de fichier squelette
79
    $chemin_test =  GEN_CHEMIN_SITES.
80
                    $_GEN_commun['info_site']->gs_code_alpha.'/'.
81
                    $_GEN_commun['i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/'.$chemin_squelette;
82
    if (! file_exists($chemin_test)) {
83
        die('ERREUR Génésia : Impossible de trouver de fichier de squelette. <br />'.
84
            'Chemin fichier squelette : '.$chemin_squelette.' <br />'.
85
            'Ligne n° : '. __LINE__ .'<br />'.
86
            'Fichier : '. __FILE__ );
87
    } else {
88
        $chemin_squelette = $chemin_test;
89
    }
90
}
91
 
92
// +------------------------------------------------------------------------------------------------------+
93
// Récupération du contenu du fichier de squelette de la page demandée.
94
 
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
}
101
/*
102
// Lecture du fichier de squelette XHTML en PHP 4.3
103
// $contenu_squelette = file_get_contents ($squelette);
104
*/
105
 
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)) {
111
    $titre = htmlentities($_GEN_commun['info_menu']->gm_titre);
112
} else if (! empty($_GEN_commun['info_menu']->gm_titre_alternatif)) {
113
    $titre = htmlentities($_GEN_commun['info_menu']->gm_titre_alternatif);
114
} else {
115
    $titre = htmlentities($_GEN_commun['info_menu']->gm_nom);
116
}
117
 
118
// Construction du nom du site
119
$nom_site = htmlentities($_GEN_commun['info_site']->gs_nom);
120
 
121
// Construction des Meta "http-equiv".
122
$_GEN_commun['meta_http_equiv'] = array();
123
$jeu_de_caracteres = htmlentities($_GEN_commun['info_i18n']->gi_jeu_de_caracteres);
124
$langue = htmlentities($_GEN_commun['info_i18n_langue']->gil_id_langue);
125
GEN_stockerMetaHttpEquiv('Content-Type', 'text/html; charset='.$jeu_de_caracteres);
126
GEN_stockerMetaHttpEquiv('Content-style-type', 'text/css');
127
GEN_stockerMetaHttpEquiv('Content-script-type', 'text/javascript');
128
GEN_stockerMetaHttpEquiv('Content-language', $langue);
129
 
130
// Construction des Meta "name".
131
$_GEN_commun['meta_name'] = array();
132
$robot = htmlentities($_GEN_commun['info_menu']->gm_robot);
133
$auteur = htmlentities($_GEN_commun['info_menu']->gm_auteur);
134
if (empty($auteur)) {
135
    $auteur = htmlentities($_GEN_commun['info_site']->gs_auteur);
136
}
137
$mots_cles = htmlentities($_GEN_commun['info_menu']->gm_mots_cles);
138
if (empty($mots_cles)) {
139
    $auteur = htmlentities($_GEN_commun['info_site']->gs_mots_cles);
140
}
141
$description_libre = htmlentities($_GEN_commun['info_menu']->gm_description_libre);
142
if (empty($description_libre)) {
143
    $description_libre = htmlentities($_GEN_commun['info_site']->gs_description);
144
}
145
GEN_stockerMetaName('revisit-after', '15 days');
146
GEN_stockerMetaName('robots', $robot);
147
GEN_stockerMetaName('author', $auteur);
148
GEN_stockerMetaName('keywords', $mots_cles);
149
GEN_stockerMetaName('description', $description_libre);
150
 
151
// Construction des Meta Meta "name" du Dublin Core.
152
$titre_alternatif = htmlentities($_GEN_commun['info_menu']->gm_titre_alternatif);
153
$auteur = htmlentities($_GEN_commun['info_menu']->gm_auteur);
154
$description_resume = htmlentities($_GEN_commun['info_menu']->gm_description_resume);
155
$description_table_matieres = htmlentities($_GEN_commun['info_menu']->gm_description_table_matieres);
156
$publieur = htmlentities($_GEN_commun['info_menu']->gm_editeur);
157
$contributeur = htmlentities($_GEN_commun['info_menu']->gm_contributeur);
158
$date_creation = htmlentities($_GEN_commun['info_menu']->gm_date_creation);
159
$date_soumission = htmlentities($_GEN_commun['info_menu']->gm_date_soumission);
160
$date_acceptation = htmlentities($_GEN_commun['info_menu']->gm_date_acceptation);
161
$periode_validite = htmlentities($_GEN_commun['info_menu']->gm_date_debut_validite);
162
$date_copyright = htmlentities($_GEN_commun['info_menu']->gm_date_copyright);
163
$source = htmlentities($_GEN_commun['info_menu']->gm_source);
164
$langue_rfc_3066 = $langue.'-'.htmlentities($_GEN_commun['info_i18n_pays']->gip_id_pays);
165
$type_portee_spatiale = htmlentities($_GEN_commun['info_menu']->gm_ce_type_portee_spatiale);
166
$portee_spatiale = htmlentities($_GEN_commun['info_menu']->gm_portee_spatiale);
167
$type_portee_temporelle = htmlentities($_GEN_commun['info_menu']->gm_ce_type_portee_temporelle);
168
$portee_temporelle = htmlentities($_GEN_commun['info_menu']->gm_portee_temporelle);
169
$licence = htmlentities($_GEN_commun['info_menu']->gm_licence);
170
$public = htmlentities($_GEN_commun['info_menu']->gm_public);
171
$public_niveau = htmlentities($_GEN_commun['info_menu']->gm_public_niveau);
172
GEN_stockerMetaNameDC('DC.Title', $titre, $langue);
173
GEN_stockerMetaNameDC('DC.Title.alternative', $titre_alternatif, $langue);
174
GEN_stockerMetaNameDC('DC.Creator', $auteur);
175
GEN_stockerMetaNameDC('DC.Subject', $mots_cles, $langue);
176
GEN_stockerMetaNameDC('DC.Description', $description_libre, $langue);
177
GEN_stockerMetaNameDC('DC.Description.abstract', $description_resume, $langue);
178
GEN_stockerMetaNameDC('DC.Description.tableOfContents', $description_table_matieres, $langue);
179
GEN_stockerMetaNameDC('DC.Publisher', $publieur);
180
GEN_stockerMetaNameDC('DC.Contributor', $contributeur);
181
GEN_stockerMetaNameDC('DC.Date.created', $date_creation, '', 'W3CDTF');
182
GEN_stockerMetaNameDC('DC.Date.valid', $periode_validite, '', 'W3CDTF');
183
//Ajouter la gestion des dates valid et available en utilisant les dates de la table gen_page_contenu.
184
GEN_stockerMetaNameDC('DC.Date.dateSubmitted', $date_soumission, '', 'W3CDTF');
185
GEN_stockerMetaNameDC('DC.Date.dateCopyrighted', $date_copyright, '', 'W3CDTF');
186
GEN_stockerMetaNameDC('DC.Date.dateAccepted', $date_acceptation, '', 'W3CDTF');
187
GEN_stockerMetaNameDC('DC.Source', $source, '', 'URI');
188
GEN_stockerMetaNameDC('DC.Language', $langue_rfc_3066, '', 'RFC3066');
189
GEN_stockerMetaNameDC('DC.Coverage.spatial', $portee_spatiale, '', $type_portee_spatiale);
190
GEN_stockerMetaNameDC('DC.Coverage.temporal', $portee_temporelle, '', $type_portee_temporelle);
191
GEN_stockerMetaNameDC('DC.Rights', $licence, '', 'URI');
192
GEN_stockerMetaNameDC('DC.Audience', $public);
193
GEN_stockerMetaNameDC('DC.Audience.educationLevel', $public_niveau);
194
 
195
// Construction des CSS
196
// Déclaration des constantes contenant les CSS à afficher sur la page.
197
$_GEN_commun['style_type']  = 'text/css';
198
$_GEN_commun['style_integree']  = '';
199
$_GEN_commun['style_externe']   = array();
200
if (GEN_DEBOGAGE) {
201
    GEN_stockerStyleExterne('Débogage', GEN_CHEMIN_PAP.'presentations/css/debogage.css');
202
}
203
 
204
// Construction du Javascript
205
// Déclaration des constantes contenant le Javascript à afficher sur la page.
206
$_GEN_commun['script_type']    = 'text/javascript';
207
$_GEN_commun['script_code']     = '';
208
$_GEN_commun['script_fonction'] = array();
209
$_GEN_commun['script_fichier']  = array();
210
 
211
// +------------------------------------------------------------------------------------------------------+
212
// Gestion des inclusions des fichiers d'applettes
213
 
214
for ($i = 0; $i < count($_GEN_commun['info_applette']); $i++) {
215
    // Nous vérifions que le chemin vers l'applette existe.
216
    if (file_exists($_GEN_commun['info_applette'][$i]->gap_chemin)) {
217
        include_once($_GEN_commun['info_applette'][$i]->gap_chemin);
218
        // Nous récupérons l'expression régulière de la balise pour l'utiliser lors de l'appel
219
        // de la fonction de l'applette. L'appel des fonctions des applettes à lieu aprés l'appel
220
        // de l'application pour permettre à l'appli de modifier certains paramêtres (identification, ordre des menus).
221
        $_GEN_commun['info_applette'][$i]->applette_balise = $_GEN_commun['info_applette_balise'];
222
        $_GEN_commun['info_applette'][$i]->applette_fonction = $_GEN_commun['info_applette_nom_fonction'];
223
    } else {
224
        // Ne devrait pas arréter le programme! Mais instancier le gestionnaire de déboguage.
225
        die('ERREUR Génésia : Impossible de trouver le fichier de l\'applette. <br />'.
226
            'Nom applette : '.$_GEN_commun['info_applette'][$i]->gap_nom.' <br />'.
227
            'Chemin fichier applette : '.$_GEN_commun['info_applette'][$i]->gap_chemin.' <br />'.
228
            'Ligne n° : '. __LINE__ .'<br />'.
229
            'Fichier : '. __FILE__ );
230
    }
231
}
232
 
233
// +------------------------------------------------------------------------------------------------------+
234
// Gestion de l'intégration de l'application liée au menu
235
 
236
// Une fois les applettes appelées est executées nous appelons l'application qui peut avoir
237
// besoins des infos des applettes (c'est le cas, pour l'applette IDENTIFICATION).
238
$application_chemin = $_GEN_commun['info_application']->gap_chemin;
239
 
240
// $application_chemin contient le chemin de l'application
241
// Si $application_chemin est vide, on défini putFrame comme ne retournant rien.
242
 
243
if ( empty($application_chemin) ) {
244
    function afficherContenuCorps()
245
    {
246
        echo('Pas d\'application.') ;
247
    }
248
} else {
249
    if (file_exists($application_chemin)) {
250
        include_once($application_chemin);
251
    } else {
252
        die('ERREUR Génésia : application impossible à charger. <br />'.
253
            'Chemin application : '.$application_chemin.' <br />'.
254
            'Ligne n° : '. __LINE__ .'<br />'.
255
            'Fichier : '. __FILE__ );
256
    }
257
}
258
 
259
// +------------------------------------------------------------------------------------------------------+
260
// Recherche des informations provenant de l'application pour la complétion du squelette
261
 
262
// Tableau associatif contenant les différentes parties du contenu à afficher
263
$aso_zone_contenu = array();
264
 
265
// Contenu tête
266
// Appel de la fonction afficherContenuTete() si elle existe.
267
$aso_zone_contenu['contenu_tete'] = (function_exists('afficherContenuTete') ? afficherContenuTete() : str_repeat(' ', 12).'&nbsp;');
268
 
269
// Contenu corps
270
// Appel de la fonction afficherContenuCorps().
271
if (function_exists('afficherContenuCorps') ) {
272
    $aso_zone_contenu['contenu_corps'] = afficherContenuCorps();
273
} else {
274
    $aso_zone_contenu['contenu_corps'] =
275
        'ERREUR Génésia : fonction afficherContenuCorps() introuvable dans l\'application demandée. <br />'.
276
        'Ligne n° : '. __LINE__ .'<br />'.
277
        'Fichier : '. __FILE__;
278
}
279
// Contenu pied
280
// Appel de la fonction afficherContenuPied() si elle existe.
281
$aso_zone_contenu['contenu_pied'] = (function_exists('afficherContenuPied') ? afficherContenuPied() : str_repeat(' ', 12).'&nbsp;');
282
 
283
// +------------------------------------------------------------------------------------------------------+
284
// Gestion des appels des fonctions d'applettes
285
 
286
for ($i = 0; $i < count($_GEN_commun['info_applette']); $i++) {
287
    // Recherche du nombre de balise d'une applette donnée présentes dans le squelette
288
    $nbr_balise = preg_match_all(   '/<!-- ('.$_GEN_commun['info_applette'][$i]->applette_balise.') -->/',
289
                                    $contenu_squelette,
290
                                    $tab_applet_arguments,
291
                                    PREG_SET_ORDER);
292
    // Si on trouve au moins une balise, on lance la boucle pour les remplacer
293
    for ($j = 0; $j <= ($nbr_balise - 1); $j++) {
294
        // Nous vérifions que le nom de la fonction principale de l'applette existe.
295
        if (function_exists($_GEN_commun['info_applette'][$i]->applette_fonction)) {
296
            $contenu_applette = call_user_func($_GEN_commun['info_applette'][$i]->applette_fonction, $tab_applet_arguments[$j], $_GEN_commun);
297
        } else {
298
            $contenu_applette = '<!-- '."\n".
299
                                $tab_applet_arguments[$j][1].' : '.
300
                                'fonction de l\'applette "'.$_GEN_commun['info_applette'][$i]->gap_nom.'" introuvable! '."\n".
301
                                'Fonction : '.$_GEN_commun['info_applette'][$i]->applette_fonction."\n".
302
                                ' -->';
303
        }
304
        // Remplacement des balises d'applette de Génésia dans le squelette
305
        $contenu_squelette = str_replace('<!-- '.$tab_applet_arguments[$j][1].' -->', $contenu_applette, $contenu_squelette);
306
    }
307
}
308
 
309
// +------------------------------------------------------------------------------------------------------+
310
// Continuation recherche d'info provenant de Génésia pour la complétion du squelette
311
 
312
// Une fois l'application appelé est executé nous affichons le contenu de l'entête qui a pu
313
// être modifié par l'application.
314
$meta_http_equiv = GEN_afficherMeta('http-equiv');
315
$meta_name = GEN_afficherMeta('name');
316
$meta_name_dc = GEN_afficherMeta('dc');
317
// Nous récupérons tout les styles CSS pour l'afficher dans l'entête de la page.
318
$styles = GEN_afficherStyle();
319
// Nous récupérons tout le Javascript pour l'afficher dans l'entête de la page.
320
$scripts = GEN_afficherScript();
321
 
322
// +------------------------------------------------------------------------------------------------------+
323
// Remplacement des balises Génésia dans le squelette
324
 
325
// Balise de l'entête (head) de la page xhtml
326
$contenu_squelette = str_replace('<!-- TITRE_PAGE -->', $titre, $contenu_squelette);
327
$contenu_squelette = str_replace('<!-- META_HTTP_EQUIV -->', $meta_http_equiv, $contenu_squelette);
328
$contenu_squelette = str_replace('<!-- META_NAME -->', $meta_name, $contenu_squelette);
329
$contenu_squelette = str_replace('<!-- META_NAME_DC -->', $meta_name_dc, $contenu_squelette);
330
$contenu_squelette = str_replace('<!-- STYLES -->', $styles, $contenu_squelette);
331
$contenu_squelette = str_replace('<!-- SCRIPTS -->', $scripts, $contenu_squelette);
332
// Balise du corps (body) de la page xhtml
333
$contenu_squelette = str_replace('<!-- NOM_SITE -->', $nom_site, $contenu_squelette);
334
$contenu_squelette = str_replace('<!-- CONTENU_TETE -->', $aso_zone_contenu['contenu_tete'], $contenu_squelette);
335
$contenu_squelette = str_replace('<!-- CONTENU_CORPS -->', $aso_zone_contenu['contenu_corps'], $contenu_squelette);
336
$contenu_squelette = str_replace('<!-- CONTENU_PIED -->', $aso_zone_contenu['contenu_pied'], $contenu_squelette);
337
 
338
// +------------------------------------------------------------------------------------------------------+
339
// Stokage du squelette dans un variable globale aprés avoir remplacer les balises Papyrus.
340
$_GEN_commun['sortie'] = $contenu_squelette;
341
 
342
/* +--Fin du code ---------------------------------------------------------------------------------------+
343
*
344
* $Log: not supported by cvs2svn $
345
* Revision 1.32  2004/05/10 12:24:55  jpm
346
* Amélioration de la recherche des fichiers de squelette.
347
*
348
* Revision 1.31  2004/05/05 10:42:35  jpm
349
* Amélioration de la gestion de l'internationalisation.
350
*
351
* Revision 1.30  2004/05/05 08:25:37  jpm
352
* Modification de la façon d'ajouter la feuille de style de débogage pour qu'elle soit prise en compte par défaut.
353
*
354
* Revision 1.29  2004/05/03 14:12:04  jpm
355
* Suppression du fichier bibliothèquie de fonctions sur gen_menu.
356
*
357
* Revision 1.28  2004/05/03 11:21:58  jpm
358
* Fin de la gestion des applettes et suppression de l'info_menu_hierarchie de _GEN_commun.
359
*
360
* Revision 1.27  2004/05/01 17:22:55  jpm
361
* Appel de la bibliothèque de fonctions concernant les menus.
362
*
363
* Revision 1.26  2004/05/01 16:19:36  jpm
364
* Suppression du code ayant pu être transformé en applettes (menu multi-niveaux, menu unique, menu commun, identification, sélecteur de sites).
365
*
366
* Revision 1.25  2004/05/01 11:39:38  jpm
367
* Déplacement du code gérant les applettes et du code de récupération du contenu du fichier squelette.
368
*
369
* Revision 1.24  2004/04/28 12:04:31  jpm
370
* Changement du modèle de la base de données.
371
*
372
* Revision 1.23  2004/04/22 08:30:47  jpm
373
* Transformation de $GS_GLOBAL en $_GEN_commun.
374
*
375
* Revision 1.22  2004/04/21 07:55:02  jpm
376
* Ajout de la feuille de style de débogage si le débogage de Génésia est activé.
377
*
378
* Revision 1.19  2004/04/09 16:20:54  jpm
379
* Extraction de la gestion du cache et de l'envoi.
380
* Gestion des tables i18n.
381
*
382
* Revision 1.18  2004/04/08 12:29:48  jpm
383
* Début amélioration de la gestion du cache et de la compression des pages de Génésia.
384
*
385
* Revision 1.17  2004/04/05 16:38:04  jpm
386
* Utilisation des nouvelles fonctions gérant l'insertion du Javascript.
387
*
388
* Revision 1.16  2004/04/02 16:30:56  jpm
389
* Gestion de la balise Génésia IDENTIFICATION permettant l'envoie d'un formulaire de login.
390
*
391
* Revision 1.15  2004/04/01 11:27:13  jpm
392
* Ajout et modification de commentaires pour PhpDocumentor.
393
*
394
* Revision 1.14  2004/03/31 16:50:10  jpm
395
* Prise en compte du nouveau modèle de Génésia révision 1.9.
396
*
397
* Revision 1.13  2004/03/27 11:07:45  jpm
398
* Modification des commentaires vis à vis du nouveau modèle.
399
* Mise en conformité avec la convention de codage.
400
* Amélioration du code.
401
*
402
* Revision 1.12  2004/03/23 17:06:44  jpm
403
* Ajout de commentaire dans l'entête.
404
* Mise en conformité avec la convention de codage.
405
*
406
* +-- Fin du code ----------------------------------------------------------------------------------------+
407
*/
408
?>