Subversion Repositories Applications.papyrus

Rev

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 
// +------------------------------------------------------------------------------------------------------+
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 
    }
90 
}
4 jpm 91 
 
92 
/** Fonction GEN_stockerMetaName() - Permet de stocker des informations pour la balise meta.
93 
*
212 jpm 94 
* Papyrus permet à une application donnée de stocker les balises meta contenant l'attribut name
4 jpm 95 
* à intégrer dans l'entête de la page.
96 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
212 jpm 97 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
4 jpm 98 
*
99 
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
100 
* @param    string  le contenu présent dans l'attribut content.
101 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
102 
*/
103 
function GEN_stockerMetaName($id_name, $content)
104 
{
212 jpm 105 
    if (empty($GLOBALS['_GEN_commun']['meta_name'][$id_name])) {
106 
        $GLOBALS['_GEN_commun']['meta_name'][$id_name] = $content;
4 jpm 107 
    } else {
212 jpm 108 
        die('ERREUR Papyrus : cette balise meta à déjà été enregistré par GEN_stockerMetaName(). <br />'.
4 jpm 109 
            'Identifiant : '. $id_name .'<br />'.
110 
            'Ligne n° : '. __LINE__ .'<br />'.
111 
            'Fichier : '. __FILE__);
112 
    }
113 
}
212 jpm 114 
 
115 
/** Fonction GEN_modifierMetaName() - Permet de modifier les informations d'une balise meta.
116 
*
117 
* Papyrus permet à une application donnée de modifier les balises meta contenant l'attribut name
118 
* à intégrer dans l'entête de la page.
119 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
120 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
121 
*
122 
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
123 
* @param    string  le contenu présent dans l'attribut content.
124 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
125 
*/
126 
function GEN_modifierMetaName($id_name, $content)
127 
{
128 
    if ($content != '') {
129 
        $GLOBALS['_GEN_commun']['meta_name'][$id_name] = $content;
130 
    } else {
131 
        die('ERREUR Papyrus : cette balise ne peut avoir un contenu vide. <br />'.
132 
            'Contenu : '. $content .'<br />'.
133 
            'Ligne n° : '. __LINE__ .'<br />'.
134 
            'Fichier : '. __FILE__);
135 
    }
136 
}
4 jpm 137 
 
138 
/** Fonction GEN_stockerMetaNameDC() - Permet de stocker des informations Dublin Core pour la balise meta.
139 
*
212 jpm 140 
* Papyrus permet à une application donnée de stocker des informations Dublin Core pour les balises meta
4 jpm 141 
* à intégrer dans l'entête de la page.
142 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
212 jpm 143 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
4 jpm 144 
*
145 
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
146 
* @param    string  le contenu présent dans l'attribut content.
147 
* @param    string  le contenu présent dans l'attribut lang.
148 
* @param    string  le contenu présent dans l'attribut scheme.
149 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
150 
*/
151 
function GEN_stockerMetaNameDC($id_name, $content, $lang = '', $scheme = '')
152 
{
212 jpm 153 
    if (empty($GLOBALS['_GEN_commun']['meta_name_dc'][$id_name])) {
154 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['contenu'] = $content;
155 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['langue'] = $lang;
156 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['scheme'] = $scheme;
4 jpm 157 
    } else {
212 jpm 158 
        die('ERREUR Papyrus : cette balise meta à déjà été enregistré par GEN_stockerMetaNameDC(). <br />'.
4 jpm 159 
            'Identifiant : '. $id_name .'<br />'.
160 
            'Ligne n° : '. __LINE__ .'<br />'.
161 
            'Fichier : '. __FILE__);
162 
    }
163 
}
212 jpm 164 
 
165 
/** Fonction GEN_modifierMetaNameDC() - Permet de modifier les informations d'une balise meta DC.
166 
*
167 
* Papyrus permet à une application donnée de modifier les balises meta DC contenant l'attribut name
168 
* à intégrer dans l'entête de la page.
169 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
170 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
171 
*
172 
* @param    string  la clé du tableau des meta name DC, l'information présente dans l'attribut name.
173 
* @param    string  le contenu présent dans l'attribut content.
174 
* @param    string  le contenu présent dans l'attribut lang.
175 
* @param    string  le contenu présent dans l'attribut scheme.
176 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
177 
*/
178 
function GEN_modifierMetaNameDC($id_name, $content, $lang = '', $scheme = '')
179 
{
180 
    if ($content != '') {
181 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['contenu'] = $content;
182 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['langue'] = $lang;
183 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['scheme'] = $scheme;
184 
    } else {
185 
        die('ERREUR Papyrus : cette balise ne peut avoir un contenu vide. <br />'.
186 
            'Contenu : '. $content .'<br />'.
187 
            'Ligne n° : '. __LINE__ .'<br />'.
188 
            'Fichier : '. __FILE__);
189 
    }
190 
}
4 jpm 191 
 
192 
/** Fonction GEN_afficherMeta() - Permet d'afficher les meta informations.
193 
*
212 jpm 194 
* Cette fonction affiche les meta informations Http-Equiv, Meta ou DC stockées
195 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
4 jpm 196 
*
212 jpm 197 
* @param    string  le type de balise meta à afficher (http-equiv, name ou dc).
4 jpm 198 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
199 
*/
200 
function GEN_afficherMeta($type = 'name')
201 
{
202 
    $sortie = '';
203 
 
212 jpm 204 
    if ($type == 'http-equiv' && isset($GLOBALS['_GEN_commun']['meta_http_equiv'])) {
205 
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_http_equiv'])) {
4 jpm 206 
            $sortie .= str_repeat(' ', 8).'<meta http-equiv="'.$cle.'" content="'.$valeur.'" />'."\n";
207 
        }
208 
        if (empty($sortie)) {
209 
            $sortie .= '<!-- Aucune balise meta http-equiv -->'."\n";
210 
        }
212 jpm 211 
    }else if ($type == 'name' && isset($GLOBALS['_GEN_commun']['meta_name'])) {
212 
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_name'])) {
4 jpm 213 
            if (! empty($valeur['contenu'])) {
214 
                $sortie .= str_repeat(' ', 8).'<meta name="'.$cle.'" content="'.$valeur.'" />'."\n";
215 
            }
216 
        }
217 
        if (empty($sortie)) {
218 
            $sortie .= '<!-- Aucune balise meta name -->'."\n";
219 
        }
212 jpm 220 
    } else if ($type == 'dc' && isset($GLOBALS['_GEN_commun']['meta_name_dc'])) {
221 
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_name_dc'])) {
4 jpm 222 
            if (! empty($valeur['contenu'])) {
223 
                $sortie .= str_repeat(' ', 8).'<meta name="'.$cle.'" ';
224 
                if (! empty($valeur['langue'])) {
225 
                    $sortie .= 'lang="'.$valeur['langue'].'" ';
226 
                }
227 
                if (! empty($valeur['scheme'])) {
228 
                    $sortie .= 'scheme="'.$valeur['scheme'].'" ';
229 
                }
230 
                $sortie .= 'content="'.$valeur['contenu'].'" />'."\n";
231 
            }
232 
        }
233 
        // Ajout du schéma du Dublin Core si on affiche des informations DC
234 
        if (! empty($sortie)) {
235 
            $tmp = $sortie;
236 
            $sortie = str_repeat(' ', 8).'<link rel="schema.DC" href="http://purl.org/dc/elements/1.1/" />'."\n";
237 
            $sortie .= $tmp;
238 
        } else {
239 
            $sortie .= '<!-- Aucune balise meta name Dublin Core -->'."\n";
240 
        }
241 
    }
242 
 
243 
    return $sortie;
244 
}
215 jpm 245 
 
246 
/** Fonction GEN_viderMeta() - Permet de vider les informations d'un type de balise meta.
247 
*
248 
* Papyrus permet à une application donnée de modifier les balises meta contenant l'attribut name
249 
* à intégrer dans l'entête de la page.
250 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
251 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
252 
*
253 
* @param    string  le type de balise meta à vider (http-equiv, name ou dc).
254 
* @return   void    la variable (tableau associatif) globale contenant les infos meta est vidée.
255 
*/
256 
function GEN_viderMeta($type)
257 
{
258 
    if ($type == 'http-equiv') {
1026 jp_milcent 259 
        if (count($GLOBALS['_GEN_commun']['meta_http_equiv']) > 0) {
260 
        	foreach ($GLOBALS['_GEN_commun']['meta_http_equiv'] as $cle => $val) {
261 
            	$GLOBALS['_GEN_commun']['meta_http_equiv'][$cle] = null;
262 
        	}
215 jpm 263 
        }
264 
    } else if ($type == 'meta') {
1026 jp_milcent 265 
        if (count($GLOBALS['_GEN_commun']['meta']) > 0) {
266 
        	foreach ($GLOBALS['_GEN_commun']['meta'] as $cle => $val) {
267 
            	$GLOBALS['_GEN_commun']['meta'][$cle] = null;
268 
        	}
215 jpm 269 
        }
270 
    } else if ($type == 'dc') {
1026 jp_milcent 271 
        if (count($GLOBALS['_GEN_commun']['meta_name_dc']) > 0) {
272 
        	foreach ($GLOBALS['_GEN_commun']['meta_name_dc'] as $cle => $val) {
273 
            	$GLOBALS['_GEN_commun']['meta_name_dc'][$cle] = null;
274 
        	}
215 jpm 275 
        }
276 
    } else {
277 
        die('ERREUR Papyrus : le type de balise est incorrect. <br />'.
832 florian 278 
            'Contenu : <br />'.
215 jpm 279 
            'Ligne n° : '. __LINE__ .'<br />'.
280 
            'Fichier : '. __FILE__);
281 
    }
282 
}
4 jpm 283 
 
284 
/* +--Fin du code ----------------------------------------------------------------------------------------+
285 
*
286 
* $Log: not supported by cvs2svn $
1026 jp_milcent 287 
* Revision 1.4  2006/04/28 12:41:49  florian
288 
* corrections erreurs chemin
289 
*
832 florian 290 
* Revision 1.3  2004/12/06 19:45:45  jpm
291 
* Ajout d'une fonction permettant de vider les tableaux des meta.
292 
*
215 jpm 293 
* Revision 1.2  2004/12/06 17:58:02  jpm
294 
* Ajout de fonctions permettant de modifier le contenu des balises meta : http-equiv, name et name DC.
295 
*
212 jpm 296 
* Revision 1.1  2004/06/15 15:12:12  jpm
297 
* Changement de nom et d'arborescence de Genesia en Papyrus.
298 
*
4 jpm 299 
* Revision 1.1  2004/04/20 15:24:54  jpm
300 
* Ajout de la bibliotheque de fonctions gérant les meta.
301 
*
302 
*
303 
* +-- Fin du code ----------------------------------------------------------------------------------------+
304 
*/
305 
?>