Subversion Repositories Applications.papyrus

Rev

Rev 212 | Go to most recent revision | Details | 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
// +------------------------------------------------------------------------------------------------------+
22
// CVS : $Id: pap_meta.fonct.php,v 1.1 2004-06-15 15:12:12 jpm Exp $
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
37
*@version       $Revision: 1.1 $ $Date: 2004-06-15 15:12:12 $
38
// +------------------------------------------------------------------------------------------------------+
39
*/
40
 
41
// +------------------------------------------------------------------------------------------------------+
42
// |                                           LISTE de FONCTIONS                                         |
43
// +------------------------------------------------------------------------------------------------------+
44
 
45
 
46
/** Fonction GEN_stockerMetaHttpEquiv() - Permet de stocker des informations Http-Equiv.
47
*
48
* Génésia permet à une application donnée de stocker les balises meta contenant l'attribut http-equiv
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
51
* dans une variable (tableau associatif) globale utilisée par Génésia.
52
*
53
* @global   array   "meta_http_equiv" : utilisé pour stocker les informations des meta contenant l'attribut http-equiv.
54
* @param    string  la clé du tableau des meta http-equiv, l'information présente dans l'attribut http-equiv.
55
* @param    string  le contenu présent dans l'attribut content.
56
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
57
*/
58
function GEN_stockerMetaHttpEquiv($id_http_equiv, $content)
59
{
60
    global $_GEN_commun;
61
 
62
    if (empty($_GEN_commun['meta_http_equiv'][$id_http_equiv])) {
63
        $_GEN_commun['meta_http_equiv'][$id_http_equiv] = $content;
64
    } else {
65
        die('ERREUR Génésia : cette balise meta à déjà été enregistré par GEN_stockerMetaHttpEquiv(). <br />'.
66
            'Identifiant : '. $id_http_equiv .'<br />'.
67
            'Ligne n° : '. __LINE__ .'<br />'.
68
            'Fichier : '. __FILE__);
69
    }
70
}
71
 
72
/** Fonction GEN_stockerMetaName() - Permet de stocker des informations pour la balise meta.
73
*
74
* Génésia permet à une application donnée de stocker les balises meta contenant l'attribut name
75
* à intégrer dans l'entête de la page.
76
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
77
* dans une variable (tableau associatif) globale utilisée par Génésia.
78
*
79
* @global   array   "meta_name" : utilisé pour stocker les informations des meta contenant l'attribut name.
80
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
81
* @param    string  le contenu présent dans l'attribut content.
82
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
83
*/
84
function GEN_stockerMetaName($id_name, $content)
85
{
86
    global $_GEN_commun;
87
 
88
    if (empty($_GEN_commun['meta_name'][$id_name])) {
89
        $_GEN_commun['meta_name'][$id_name] = $content;
90
    } else {
91
        die('ERREUR Génésia : cette balise meta à déjà été enregistré par GEN_stockerMetaName(). <br />'.
92
            'Identifiant : '. $id_name .'<br />'.
93
            'Ligne n° : '. __LINE__ .'<br />'.
94
            'Fichier : '. __FILE__);
95
    }
96
}
97
 
98
 
99
/** Fonction GEN_stockerMetaNameDC() - Permet de stocker des informations Dublin Core pour la balise meta.
100
*
101
* Génésia permet à une application donnée de stocker des informations Dublin Core pour les balises meta
102
* à intégrer dans l'entête de la page.
103
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
104
* dans une variable (tableau associatif) globale utilisée par Génésia.
105
*
106
* @global   array   "meta_name_dc" : utilisé pour stocker les informations des meta contenant l'attribut name.
107
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
108
* @param    string  le contenu présent dans l'attribut content.
109
* @param    string  le contenu présent dans l'attribut lang.
110
* @param    string  le contenu présent dans l'attribut scheme.
111
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
112
*/
113
function GEN_stockerMetaNameDC($id_name, $content, $lang = '', $scheme = '')
114
{
115
    global $_GEN_commun;
116
 
117
    if (empty($_GEN_commun['meta_name_dc'][$id_name])) {
118
        $_GEN_commun['meta_name_dc'][$id_name]['contenu'] = $content;
119
        $_GEN_commun['meta_name_dc'][$id_name]['langue'] = $lang;
120
        $_GEN_commun['meta_name_dc'][$id_name]['scheme'] = $scheme;
121
    } else {
122
        die('ERREUR Génésia : cette balise meta à déjà été enregistré par GEN_stockerMetaNameDC(). <br />'.
123
            'Identifiant : '. $id_name .'<br />'.
124
            'Ligne n° : '. __LINE__ .'<br />'.
125
            'Fichier : '. __FILE__);
126
    }
127
}
128
 
129
/** Fonction GEN_afficherMeta() - Permet d'afficher les meta informations.
130
*
131
* Cette fonction affiche les meta informations Http-Equiv stockées
132
* dans une variable (tableau associatif) globale utilisée par Génésia.
133
*
134
* @global   array   "meta_http_equiv" : utilisé pour stocker les informations des meta contenant l'attribut http-equiv
135
* et "meta_name" : utilisé pour stocker les informations des meta contenant l'attribut name.
136
* @param    string  le type de balise meta à afficher (http-equiv, name, dc).
137
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
138
*/
139
function GEN_afficherMeta($type = 'name')
140
{
141
    global $_GEN_commun;
142
    $sortie = '';
143
 
144
    if ($type == 'http-equiv' && isset($_GEN_commun['meta_http_equiv'])) {
145
        while (list($cle, $valeur) = each($_GEN_commun['meta_http_equiv'])) {
146
            $sortie .= str_repeat(' ', 8).'<meta http-equiv="'.$cle.'" content="'.$valeur.'" />'."\n";
147
        }
148
        if (empty($sortie)) {
149
            $sortie .= '<!-- Aucune balise meta http-equiv -->'."\n";
150
        }
151
    }else if ($type == 'name' && isset($_GEN_commun['meta_name'])) {
152
        while (list($cle, $valeur) = each($_GEN_commun['meta_name'])) {
153
            if (! empty($valeur['contenu'])) {
154
                $sortie .= str_repeat(' ', 8).'<meta name="'.$cle.'" content="'.$valeur.'" />'."\n";
155
            }
156
        }
157
        if (empty($sortie)) {
158
            $sortie .= '<!-- Aucune balise meta name -->'."\n";
159
        }
160
    } else if ($type == 'dc' && isset($_GEN_commun['meta_name_dc'])) {
161
        while (list($cle, $valeur) = each($_GEN_commun['meta_name_dc'])) {
162
            if (! empty($valeur['contenu'])) {
163
                $sortie .= str_repeat(' ', 8).'<meta name="'.$cle.'" ';
164
                if (! empty($valeur['langue'])) {
165
                    $sortie .= 'lang="'.$valeur['langue'].'" ';
166
                }
167
                if (! empty($valeur['scheme'])) {
168
                    $sortie .= 'scheme="'.$valeur['scheme'].'" ';
169
                }
170
                $sortie .= 'content="'.$valeur['contenu'].'" />'."\n";
171
            }
172
        }
173
        // Ajout du schéma du Dublin Core si on affiche des informations DC
174
        if (! empty($sortie)) {
175
            $tmp = $sortie;
176
            $sortie = str_repeat(' ', 8).'<link rel="schema.DC" href="http://purl.org/dc/elements/1.1/" />'."\n";
177
            $sortie .= $tmp;
178
        } else {
179
            $sortie .= '<!-- Aucune balise meta name Dublin Core -->'."\n";
180
        }
181
    }
182
 
183
    return $sortie;
184
}
185
 
186
 
187
/* +--Fin du code ----------------------------------------------------------------------------------------+
188
*
189
* $Log: not supported by cvs2svn $
190
* Revision 1.1  2004/04/20 15:24:54  jpm
191
* Ajout de la bibliotheque de fonctions gérant les meta.
192
*
193
*
194
* +-- Fin du code ----------------------------------------------------------------------------------------+
195
*/
196
?>