Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
4 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
// +------------------------------------------------------------------------------------------------------+
1026 jp_milcent 22
// CVS : $Id: pap_meta.fonct.php,v 1.5 2006-10-10 12:05:52 jp_milcent Exp $
4 jpm 23
/**
24
* Bibliothèque de fonctions permettant d'inclure des balises META.
25
*
26
* Cet ensemble de fonctions permet de manipuler les balise meta à intégrer dans l'entête
27
* des pages html. Cela peut être très pratique pour les applications voulant définir précisément
28
* ces informations.
29
*
30
*@package Papyrus
31
*@subpackage Fonctions
32
//Auteur original :
33
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
34
//Autres auteurs :
35
*@author        Aucun
36
*@copyright     Tela-Botanica 2000-2004
1026 jp_milcent 37
*@version       $Revision: 1.5 $ $Date: 2006-10-10 12:05:52 $
4 jpm 38
// +------------------------------------------------------------------------------------------------------+
39
*/
40
 
41
// +------------------------------------------------------------------------------------------------------+
42
// |                                           LISTE de FONCTIONS                                         |
43
// +------------------------------------------------------------------------------------------------------+
44
 
45
 
46
/** Fonction GEN_stockerMetaHttpEquiv() - Permet de stocker des informations Http-Equiv.
47
*
212 jpm 48
* Papyrus permet à une application donnée de stocker les balises meta contenant l'attribut http-equiv
4 jpm 49
* à intégrer dans l'entête de la page.
50
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
212 jpm 51
* dans une variable (tableau associatif) globale utilisée par Papyrus.
4 jpm 52
*
53
* @param    string  la clé du tableau des meta http-equiv, l'information présente dans l'attribut http-equiv.
54
* @param    string  le contenu présent dans l'attribut content.
55
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
56
*/
57
function GEN_stockerMetaHttpEquiv($id_http_equiv, $content)
58
{
212 jpm 59
    if (empty($GLOBALS['_GEN_commun']['meta_http_equiv'][$id_http_equiv])) {
60
        $GLOBALS['_GEN_commun']['meta_http_equiv'][$id_http_equiv] = $content;
4 jpm 61
    } else {
212 jpm 62
        die('ERREUR Papyrus : cette balise meta à déjà été enregistré par GEN_stockerMetaHttpEquiv(). <br />'.
4 jpm 63
            'Identifiant : '. $id_http_equiv .'<br />'.
64
            'Ligne n° : '. __LINE__ .'<br />'.
65
            'Fichier : '. __FILE__);
66
    }
67
}
212 jpm 68
 
69
/** Fonction GEN_modifierMetaHttpEquiv() - Permet de modifier les informations d'une balise http-equiv.
70
*
71
* Papyrus permet à une application donnée de modifier les balises meta contenant l'attribut http-equiv
72
* à intégrer dans l'entête de la page.
73
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
74
* dans une variable (tableau associatif) globale utilisée par Papyrus.
75
*
76
* @param    string  la clé du tableau des meta http-equiv, l'information présente dans l'attribut http-equiv.
77
* @param    string  le contenu présent dans l'attribut content.
78
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
79
*/
80
function GEN_modifierMetaHttpEquiv($id_http_equiv, $content)
81
{
82
    if ($content != '') {
83
        $GLOBALS['_GEN_commun']['meta_http_equiv'][$id_http_equiv] = $content;
84
    } else {
85
        die('ERREUR Papyrus : cette balise ne peut avoir un contenu vide. <br />'.
86
            'Contenu : '. $content .'<br />'.
87
            'Ligne n° : '. __LINE__ .'<br />'.
88
            'Fichier : '. __FILE__);
89
    }
2149 mathias 90
}
91
 
92
/**
93
 * Stocke une <meta> du type <meta property="truc" content="chose">
94
 * @param string $id
95
 * @param string $property
96
 * @param string $content
97
 */
98
function GEN_stockerMetaProperty($id, $property, $content)
99
{
100
    if (empty($GLOBALS['_GEN_commun']['meta_property'][$id])) {
101
        $GLOBALS['_GEN_commun']['meta_property'][$id] = array($property, $content);
102
    } else {
103
        die('ERREUR Papyrus : cette balise meta à déjà été enregistrée par GEN_stockerMetaProperty(). <br />'.
104
            'Identifiant : '. $id .'<br />'.
105
            'Ligne n° : '. __LINE__ .'<br />'.
106
            'Fichier : '. __FILE__);
107
    }
108
}
109
 
110
/**
111
 * Modifie une <meta> du type <meta property="truc" content="chose">
112
 * @param string $id
113
 * @param string $property
114
 * @param string $content
115
 */
116
function GEN_modifierMetaProperty($id, $property, $content)
117
{
118
    if ($property != '' && $content != '') {
119
        $GLOBALS['_GEN_commun']['meta_property'][$id] = array($property, $content);
120
    } else {
121
        die('ERREUR Papyrus : cette balise ne peut avoir une propriété ou un contenu vide. <br />'.
122
            'Contenu : '. $content .'<br />'.
123
            'Ligne n° : '. __LINE__ .'<br />'.
124
            'Fichier : '. __FILE__);
125
    }
212 jpm 126
}
4 jpm 127
 
128
/** Fonction GEN_stockerMetaName() - Permet de stocker des informations pour la balise meta.
129
*
212 jpm 130
* Papyrus permet à une application donnée de stocker les balises meta contenant l'attribut name
4 jpm 131
* à intégrer dans l'entête de la page.
132
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
212 jpm 133
* dans une variable (tableau associatif) globale utilisée par Papyrus.
4 jpm 134
*
135
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
136
* @param    string  le contenu présent dans l'attribut content.
137
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
138
*/
139
function GEN_stockerMetaName($id_name, $content)
140
{
212 jpm 141
    if (empty($GLOBALS['_GEN_commun']['meta_name'][$id_name])) {
142
        $GLOBALS['_GEN_commun']['meta_name'][$id_name] = $content;
4 jpm 143
    } else {
212 jpm 144
        die('ERREUR Papyrus : cette balise meta à déjà été enregistré par GEN_stockerMetaName(). <br />'.
4 jpm 145
            'Identifiant : '. $id_name .'<br />'.
146
            'Ligne n° : '. __LINE__ .'<br />'.
147
            'Fichier : '. __FILE__);
148
    }
149
}
212 jpm 150
 
151
/** Fonction GEN_modifierMetaName() - Permet de modifier les informations d'une balise meta.
152
*
153
* Papyrus permet à une application donnée de modifier les balises meta contenant l'attribut name
154
* à intégrer dans l'entête de la page.
155
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
156
* dans une variable (tableau associatif) globale utilisée par Papyrus.
157
*
158
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
159
* @param    string  le contenu présent dans l'attribut content.
160
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
161
*/
162
function GEN_modifierMetaName($id_name, $content)
163
{
164
    if ($content != '') {
165
        $GLOBALS['_GEN_commun']['meta_name'][$id_name] = $content;
166
    } else {
167
        die('ERREUR Papyrus : cette balise ne peut avoir un contenu vide. <br />'.
168
            'Contenu : '. $content .'<br />'.
169
            'Ligne n° : '. __LINE__ .'<br />'.
170
            'Fichier : '. __FILE__);
171
    }
172
}
4 jpm 173
 
174
/** Fonction GEN_stockerMetaNameDC() - Permet de stocker des informations Dublin Core pour la balise meta.
175
*
212 jpm 176
* Papyrus permet à une application donnée de stocker des informations Dublin Core pour les balises meta
4 jpm 177
* à intégrer dans l'entête de la page.
178
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
212 jpm 179
* dans une variable (tableau associatif) globale utilisée par Papyrus.
4 jpm 180
*
181
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
182
* @param    string  le contenu présent dans l'attribut content.
183
* @param    string  le contenu présent dans l'attribut lang.
184
* @param    string  le contenu présent dans l'attribut scheme.
185
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
186
*/
187
function GEN_stockerMetaNameDC($id_name, $content, $lang = '', $scheme = '')
188
{
212 jpm 189
    if (empty($GLOBALS['_GEN_commun']['meta_name_dc'][$id_name])) {
190
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['contenu'] = $content;
191
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['langue'] = $lang;
192
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['scheme'] = $scheme;
4 jpm 193
    } else {
212 jpm 194
        die('ERREUR Papyrus : cette balise meta à déjà été enregistré par GEN_stockerMetaNameDC(). <br />'.
4 jpm 195
            'Identifiant : '. $id_name .'<br />'.
196
            'Ligne n° : '. __LINE__ .'<br />'.
197
            'Fichier : '. __FILE__);
198
    }
199
}
212 jpm 200
 
201
/** Fonction GEN_modifierMetaNameDC() - Permet de modifier les informations d'une balise meta DC.
202
*
203
* Papyrus permet à une application donnée de modifier les balises meta DC contenant l'attribut name
204
* à intégrer dans l'entête de la page.
205
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
206
* dans une variable (tableau associatif) globale utilisée par Papyrus.
207
*
208
* @param    string  la clé du tableau des meta name DC, l'information présente dans l'attribut name.
209
* @param    string  le contenu présent dans l'attribut content.
210
* @param    string  le contenu présent dans l'attribut lang.
211
* @param    string  le contenu présent dans l'attribut scheme.
212
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
213
*/
214
function GEN_modifierMetaNameDC($id_name, $content, $lang = '', $scheme = '')
215
{
216
    if ($content != '') {
217
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['contenu'] = $content;
218
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['langue'] = $lang;
219
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['scheme'] = $scheme;
220
    } else {
221
        die('ERREUR Papyrus : cette balise ne peut avoir un contenu vide. <br />'.
222
            'Contenu : '. $content .'<br />'.
223
            'Ligne n° : '. __LINE__ .'<br />'.
224
            'Fichier : '. __FILE__);
225
    }
226
}
4 jpm 227
 
228
/** Fonction GEN_afficherMeta() - Permet d'afficher les meta informations.
229
*
212 jpm 230
* Cette fonction affiche les meta informations Http-Equiv, Meta ou DC stockées
231
* dans une variable (tableau associatif) globale utilisée par Papyrus.
4 jpm 232
*
212 jpm 233
* @param    string  le type de balise meta à afficher (http-equiv, name ou dc).
4 jpm 234
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
235
*/
236
function GEN_afficherMeta($type = 'name')
237
{
238
    $sortie = '';
239
 
212 jpm 240
    if ($type == 'http-equiv' && isset($GLOBALS['_GEN_commun']['meta_http_equiv'])) {
241
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_http_equiv'])) {
4 jpm 242
            $sortie .= str_repeat(' ', 8).'<meta http-equiv="'.$cle.'" content="'.$valeur.'" />'."\n";
243
        }
244
        if (empty($sortie)) {
245
            $sortie .= '<!-- Aucune balise meta http-equiv -->'."\n";
246
        }
2149 mathias 247
    } else if ($type == 'name' && isset($GLOBALS['_GEN_commun']['meta_name'])) {
212 jpm 248
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_name'])) {
4 jpm 249
            if (! empty($valeur['contenu'])) {
250
                $sortie .= str_repeat(' ', 8).'<meta name="'.$cle.'" content="'.$valeur.'" />'."\n";
251
            }
252
        }
253
        if (empty($sortie)) {
254
            $sortie .= '<!-- Aucune balise meta name -->'."\n";
255
        }
2149 mathias 256
    } else if ($type == 'property' && isset($GLOBALS['_GEN_commun']['meta_property'])) {
257
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_property'])) {
258
            if (! empty($valeur['contenu'])) {
259
                $sortie .= str_repeat(' ', 8).'<meta property="'.$valeur[0].'" content="'.$valeur[1].'" />'."\n";
260
            }
261
        }
262
        if (empty($sortie)) {
263
            $sortie .= '<!-- Aucune balise meta property -->'."\n";
264
        }
212 jpm 265
    } else if ($type == 'dc' && isset($GLOBALS['_GEN_commun']['meta_name_dc'])) {
266
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_name_dc'])) {
4 jpm 267
            if (! empty($valeur['contenu'])) {
268
                $sortie .= str_repeat(' ', 8).'<meta name="'.$cle.'" ';
269
                if (! empty($valeur['langue'])) {
270
                    $sortie .= 'lang="'.$valeur['langue'].'" ';
271
                }
272
                if (! empty($valeur['scheme'])) {
273
                    $sortie .= 'scheme="'.$valeur['scheme'].'" ';
274
                }
275
                $sortie .= 'content="'.$valeur['contenu'].'" />'."\n";
276
            }
277
        }
278
        // Ajout du schéma du Dublin Core si on affiche des informations DC
279
        if (! empty($sortie)) {
280
            $tmp = $sortie;
281
            $sortie = str_repeat(' ', 8).'<link rel="schema.DC" href="http://purl.org/dc/elements/1.1/" />'."\n";
282
            $sortie .= $tmp;
283
        } else {
284
            $sortie .= '<!-- Aucune balise meta name Dublin Core -->'."\n";
285
        }
286
    }
287
 
288
    return $sortie;
289
}
215 jpm 290
 
291
/** Fonction GEN_viderMeta() - Permet de vider les informations d'un type de balise meta.
292
*
293
* Papyrus permet à une application donnée de modifier les balises meta contenant l'attribut name
294
* à intégrer dans l'entête de la page.
295
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
296
* dans une variable (tableau associatif) globale utilisée par Papyrus.
297
*
298
* @param    string  le type de balise meta à vider (http-equiv, name ou dc).
299
* @return   void    la variable (tableau associatif) globale contenant les infos meta est vidée.
300
*/
301
function GEN_viderMeta($type)
302
{
303
    if ($type == 'http-equiv') {
1026 jp_milcent 304
        if (count($GLOBALS['_GEN_commun']['meta_http_equiv']) > 0) {
305
        	foreach ($GLOBALS['_GEN_commun']['meta_http_equiv'] as $cle => $val) {
306
            	$GLOBALS['_GEN_commun']['meta_http_equiv'][$cle] = null;
307
        	}
215 jpm 308
        }
309
    } else if ($type == 'meta') {
1026 jp_milcent 310
        if (count($GLOBALS['_GEN_commun']['meta']) > 0) {
311
        	foreach ($GLOBALS['_GEN_commun']['meta'] as $cle => $val) {
312
            	$GLOBALS['_GEN_commun']['meta'][$cle] = null;
313
        	}
215 jpm 314
        }
2149 mathias 315
    } else if ($type == 'property') {
316
        if (count($GLOBALS['_GEN_commun']['meta_property']) > 0) {
317
        	foreach ($GLOBALS['_GEN_commun']['meta_property'] as $cle => $val) {
318
            	$GLOBALS['_GEN_commun']['meta_property'][$cle] = null;
319
        	}
320
        }
215 jpm 321
    } else if ($type == 'dc') {
1026 jp_milcent 322
        if (count($GLOBALS['_GEN_commun']['meta_name_dc']) > 0) {
323
        	foreach ($GLOBALS['_GEN_commun']['meta_name_dc'] as $cle => $val) {
324
            	$GLOBALS['_GEN_commun']['meta_name_dc'][$cle] = null;
325
        	}
215 jpm 326
        }
327
    } else {
328
        die('ERREUR Papyrus : le type de balise est incorrect. <br />'.
832 florian 329
            'Contenu : <br />'.
215 jpm 330
            'Ligne n° : '. __LINE__ .'<br />'.
331
            'Fichier : '. __FILE__);
332
    }
333
}
4 jpm 334
 
335
/* +--Fin du code ----------------------------------------------------------------------------------------+
336
*
2100 drzraf 337
* $Log: pap_meta.fonct.php,v $
338
* Revision 1.5  2006-10-10 12:05:52  jp_milcent
339
* Ajout de tests à la fonction GEN_viderMeta pour éviter les warning quand les tableaux sont vides.
340
*
1026 jp_milcent 341
* Revision 1.4  2006/04/28 12:41:49  florian
342
* corrections erreurs chemin
343
*
832 florian 344
* Revision 1.3  2004/12/06 19:45:45  jpm
345
* Ajout d'une fonction permettant de vider les tableaux des meta.
346
*
215 jpm 347
* Revision 1.2  2004/12/06 17:58:02  jpm
348
* Ajout de fonctions permettant de modifier le contenu des balises meta : http-equiv, name et name DC.
349
*
212 jpm 350
* Revision 1.1  2004/06/15 15:12:12  jpm
351
* Changement de nom et d'arborescence de Genesia en Papyrus.
352
*
4 jpm 353
* Revision 1.1  2004/04/20 15:24:54  jpm
354
* Ajout de la bibliotheque de fonctions gérant les meta.
355
*
356
*
357
* +-- Fin du code ----------------------------------------------------------------------------------------+
358
*/
359
?>