Subversion Repositories Applications.papyrus

Rev

Rev 2070 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1101 florian 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 5.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web.        |                                                                           |
9 
// |                                                                                                      |
10 
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de  |
11 
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous  |
12 
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site    |
13 
// | "http://www.cecill.info".                                                                            |
14 
// |                                                                                                      |
15 
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de      |
16 
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
17 
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le       |
18 
// | titulaire des droits patrimoniaux et les concédants successifs.                                      |
19 
// |                                                                                                      |
20 
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à       |
21 
// | l'utilisation,  à la modification et/ou au développement et à la reproduction du logiciel par        |
22 
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler  |
23 
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances  |
24 
// | informatiques approfondies. Les utilisateurs sont donc invités à charger  et  tester  l'adéquation   |
25 
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes   |
26 
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions  |
27 
// | de sécurité.                                                                                         |
28 
// |                                                                                                      |
29 
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la       |
30 
// | licence CeCILL, et que vous en avez accepté les termes.                                              |
31 
// +------------------------------------------------------------------------------------------------------+
1971 aperonnet 32 
// CVS : $Id: inclure.php,v 1.5 2008-11-19 09:26:48 aperonnet Exp $
1101 florian 33 
/**
34 
* Applette : Inclure
35 
*
36 
* Retourne toutes les pages Papyrus appartenant à une catégorie donnée.
37 
*
38 
*@package Applette
39 
*@subpackage Inclure
40 
//Auteur original :
41 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
42 
//Autres auteurs :
43 
*@author        Aucun
44 
*@copyright     Tela-Botanica 2000-2006
1971 aperonnet 45 
*@version       $Revision: 1.5 $ $Date: 2008-11-19 09:26:48 $
1101 florian 46 
// +------------------------------------------------------------------------------------------------------+
47 
*/
48 
 
49 
// +------------------------------------------------------------------------------------------------------+
50 
// |                                            ENTÊTE du PROGRAMME                                       |
51 
// +------------------------------------------------------------------------------------------------------+
52 
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherInclure';
2070 aurelien 53 
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Ii]nclure(?:\s*(?:(page="[^"]+")|(interwiki="[^"]+")|(identifie="1")|))+\s*\}\}';
1101 florian 54 
 
55 
// --------------------------------------------------------------------------------------------------------
56 
//Utilisation de la bibliothèque Papyrus pap_meta.fonct.php inclue par Papyrus
57 
//Utilisation de la bibliothèque PEAR NET_URL inclue par Papyrus
58 
/** Inclusion du fichier de configuration de cette application.*/
59 
require_once GEN_CHEMIN_APPLETTE.'inclure'.GEN_SEP.'configuration'.GEN_SEP.'incl_configuration.inc.php';
60 
 
61 
// Inclusion des fichiers de traduction de l'applette CATEG de Papyrus
62 
if (file_exists(INCL_CHEMIN_LANGUE.'incl_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
63 
    /** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
64 
    require_once INCL_CHEMIN_LANGUE.'incl_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
65 
} else {
66 
    /** Inclusion du fichier de traduction par défaut.*/
67 
    require_once INCL_CHEMIN_LANGUE.'incl_langue_'.INCL_I18N_DEFAUT.'.inc.php';
68 
}
69 
 
70 
// +------------------------------------------------------------------------------------------------------+
71 
// |                                            CORPS du PROGRAMME                                        |
72 
// +------------------------------------------------------------------------------------------------------+
73 
/** Fonction afficherInclure() - Retourne la liste des pages d'une catégorie.
74 
*
75 
* Cette fonction retourne la liste des pages appartenant à une catégorie donnée.
76 
*
77 
* @param  array contient les arguments de la fonction.
78 
* @param  array  tableau global de Papyrus.
79 
* @return string HTML la liste des listes de menus.
80 
*/
81 
function afficherInclure($tab_applette_arguments, $_GEN_commun)
82 
{
83 
	// Initialisation des variables
84 
    $sortie = '';
1118 jp_milcent 85 
	$GLOBALS['_INCLURE_']['informations'] = array();
86 
	$GLOBALS['_INCLURE_']['erreurs'] = array();
87 
 
88 
    //+----------------------------------------------------------------------------------------------------------------+
89 
	// Gestion des arguments
1101 florian 90 
	$tab_arguments = $tab_applette_arguments;
91 
	unset($tab_arguments[0]);
1118 jp_milcent 92 
	foreach($tab_arguments as $argument) {
1101 florian 93 
	    $tab_parametres = explode('=', $argument);
1118 jp_milcent 94 
	    if ($tab_parametres[0] != '' && $tab_parametres[1] != '') {
95 
	    	$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
96 
	    }
1101 florian 97 
    }
1118 jp_milcent 98 
 
99 
	//+----------------------------------------------------------------------------------------------------------------+
100 
    // Gestion des erreurs de paramètrage
101 
    $ok = true;
102 
    if (!isset($options['interwiki'])) {
103 
        $GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_INTERWIKI, $tab_applette_arguments[0]);
104 
        $ok = false;
1101 florian 105 
    } else {
1118 jp_milcent 106 
    	if (!isset($GLOBALS['_INCLURE_']['site'][$options['interwiki']])) {
107 
    	    $GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_SITE, $options['interwiki']);
108 
        	$ok = false;
109 
	    }
1101 florian 110 
    }
1118 jp_milcent 111 
    if (!isset($options['page'])) {
112 
        $GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_PAGE, $tab_applette_arguments[0]);
113 
        $ok = false;
1101 florian 114 
    }
115 
 
2070 aurelien 116 
    $identifie = false;
117 
    if (isset($options['identifie']) && $options['identifie'] == 1) {
118 
    	$identifie = true;
119 
    }
1118 jp_milcent 120 
 
121 
	//+----------------------------------------------------------------------------------------------------------------+
122 
	// Récupération des données
123 
    $GLOBALS['_INCLURE_']['sortie'] = '';
124 
    if ($ok) {
125 
		$href = $GLOBALS['_INCLURE_']['site'][$options['interwiki']]['url'];
126 
		$href = sprintf($href, $options['page']);
127 
 
128 
	    $contenu = file_get_contents($href);
1563 jp_milcent 129 
 
1118 jp_milcent 130 
	    if ($contenu != false) {
131 
		    $tab_matches = '';
132 
		    preg_match($GLOBALS['_INCLURE_']['site'][$options['interwiki']]['preg'], $contenu, $tab_matches);
133 
		    $tab_encodage = '';
1971 aperonnet 134 
		    if (preg_match('/charset=(.+)"/Ui', $contenu, $tab_encodage) || preg_match('/encoding="(.+)"/Ui', $contenu, $tab_encodage)) {
1563 jp_milcent 135 
			    if (preg_match('/^(?:iso-8859-1|iso-8859-15)$/i', $GLOBALS['_INCLURE_']['encodage']) && preg_match('/utf-8/i', $tab_encodage[1])) {
136 
			        $GLOBALS['_INCLURE_']['sortie'] = utf8_decode($tab_matches[1]);
137 
			    } else {
138 
			        $GLOBALS['_INCLURE_']['sortie'] = $tab_matches[1];
139 
			    }
1118 jp_milcent 140 
		    } else {
1563 jp_milcent 141 
		    	$GLOBALS['_INCLURE_']['informations'][] = sprintf(CATEG_LG_ERREUR_ENCODAGE, $href);
1118 jp_milcent 142 
		    }
1101 florian 143 
	    } else {
1118 jp_milcent 144 
	    	$GLOBALS['_INCLURE_']['informations'][] = sprintf(CATEG_LG_ERREUR_INCLUSION, $href);
1101 florian 145 
	    }
146 
    }
2093 drzraf 147 
 
148 
    // si l'applette appelle une page réservée aux membres identifiés et que celui ne l'est pas, on n'affiche rien
149 
    if ($identifie && $GLOBALS['_GEN_commun']['info_auth']->gsa_ce_type_auth == 1 && !$GLOBALS['_GEN_commun']['pear_auth']->getUserName()) {
150 
    	return '';
151 
    }
152 
 
1118 jp_milcent 153 
	//+----------------------------------------------------------------------------------------------------------------+
154 
    // Extrait les variables et les ajoutes à l'espace de noms local
155 
	// Gestion des squelettes
156 
	extract($GLOBALS['_INCLURE_']);
157 
	// Démarre le buffer
158 
	ob_start();
159 
	// Inclusion du fichier
160 
	include(INCL_CHEMIN_SQUELETTE.INCL_SQUELETTE_LISTE);
161 
	// Récupérer le  contenu du buffer
162 
	$sortie = ob_get_contents();
163 
	// Arrête et détruit le buffer
164 
	ob_end_clean();
165 
 
166 
	//+----------------------------------------------------------------------------------------------------------------+
167 
	// Sortie
1101 florian 168 
    return $sortie;
169 
}
170 
 
171 
/* +--Fin du code ----------------------------------------------------------------------------------------+
172 
*
173 
* $Log: not supported by cvs2svn $
1971 aperonnet 174 
* Revision 1.4  2007-08-28 14:23:55  jp_milcent
175 
* Amélioration de la gestion de l'inclusion.
176 
*
1563 jp_milcent 177 
* Revision 1.3  2007-08-28 14:14:13  jp_milcent
178 
* Correction de bogues empéchant l'affichage.
179 
*
1560 jp_milcent 180 
* Revision 1.2  2006-12-08 15:57:30  jp_milcent
181 
* Amélioration de la gestion du débogage de l'applette inclure.
182 
*
1118 jp_milcent 183 
* Revision 1.1  2006/12/01 17:36:28  florian
184 
* Ajout de l'apllette Inclure, provenant de l'action Inclure.
1101 florian 185 
*
1118 jp_milcent 186 
*
1101 florian 187 
* +-- Fin du code ----------------------------------------------------------------------------------------+
188 
*/
189 
?>