Rev 1372 | Blame | Last modification | View Log | RSS feed
<?php/*vim: set expandtab tabstop=4 shiftwidth=4: */// +------------------------------------------------------------------------------------------------------+// | PHP version 5.1 |// +------------------------------------------------------------------------------------------------------+// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |// +------------------------------------------------------------------------------------------------------+// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |// | |// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |// | "http://www.cecill.info". |// | |// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |// | titulaire des droits patrimoniaux et les concédants successifs. |// | |// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |// | de sécurité. |// | |// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |// | licence CeCILL, et que vous en avez accepté les termes. |// +------------------------------------------------------------------------------------------------------+// CVS : $Id: inclure.php,v 1.2.2.1 2007-08-02 12:45:45 jp_milcent Exp $/*** Applette : Inclure** Retourne toutes les pages Papyrus appartenant à une catégorie donnée.**@package Applette*@subpackage Inclure//Auteur original :*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>//Autres auteurs :*@author Aucun*@copyright Tela-Botanica 2000-2006*@version $Revision: 1.2.2.1 $ $Date: 2007-08-02 12:45:45 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTÊTE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherInclure';$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Ii]nclure(?:\s*(?:(page="[^"]+")|(interwiki="[^"]+")|))+\s*\}\}';// --------------------------------------------------------------------------------------------------------//Utilisation de la bibliothèque Papyrus pap_meta.fonct.php inclue par Papyrus//Utilisation de la bibliothèque PEAR NET_URL inclue par Papyrus/** Inclusion du fichier de configuration de cette application.*/require_once GEN_CHEMIN_APPLETTE.'inclure'.GEN_SEP.'configuration'.GEN_SEP.'incl_configuration.inc.php';// Inclusion des fichiers de traduction de l'applette CATEG de Papyrusif (file_exists(INCL_CHEMIN_LANGUE.'incl_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/require_once INCL_CHEMIN_LANGUE.'incl_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';} else {/** Inclusion du fichier de traduction par défaut.*/require_once INCL_CHEMIN_LANGUE.'incl_langue_'.INCL_I18N_DEFAUT.'.inc.php';}// +------------------------------------------------------------------------------------------------------+// | CORPS du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/** Fonction afficherInclure() - Retourne la liste des pages d'une catégorie.** Cette fonction retourne la liste des pages appartenant à une catégorie donnée.** @param array contient les arguments de la fonction.* @param array tableau global de Papyrus.* @return string HTML la liste des listes de menus.*/function afficherInclure($tab_applette_arguments, $_GEN_commun){// Initialisation des variables$sortie = '';$GLOBALS['_INCLURE_']['informations'] = array();$GLOBALS['_INCLURE_']['erreurs'] = array();//+----------------------------------------------------------------------------------------------------------------+// Gestion des arguments$tab_arguments = $tab_applette_arguments;unset($tab_arguments[0]);foreach($tab_arguments as $argument) {$tab_parametres = explode('=', $argument);if ($tab_parametres[0] != '' && $tab_parametres[1] != '') {$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');}}//+----------------------------------------------------------------------------------------------------------------+// Gestion des erreurs de paramètrage$ok = true;if (!isset($options['interwiki'])) {$GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_INTERWIKI, $tab_applette_arguments[0]);$ok = false;} else {if (!isset($GLOBALS['_INCLURE_']['site'][$options['interwiki']])) {$GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_SITE, $options['interwiki']);$ok = false;}}if (!isset($options['page'])) {$GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_PAGE, $tab_applette_arguments[0]);$ok = false;}//+----------------------------------------------------------------------------------------------------------------+// Récupération des données$GLOBALS['_INCLURE_']['sortie'] = '';if ($ok) {$href = $GLOBALS['_INCLURE_']['site'][$options['interwiki']]['url'];$href = sprintf($href, $options['page']);$contenu = file_get_contents($href);if ($contenu != false) {$tab_matches = '';preg_match($GLOBALS['_INCLURE_']['site'][$options['interwiki']]['preg'], $contenu, $tab_matches);$tab_encodage = '';if (preg_match('/charset=(.+)"/Ui', $contenu, $tab_encodage) || preg_match('/encoding="(.+)"/Ui', $contenu, $tab_encodage)) {if (preg_match('/^(?:iso-8859-1|iso-8859-15)$/i', $GLOBALS['_INCLURE_']['encodage']) && preg_match('/utf-8/i', $tab_encodage[1])) {$GLOBALS['_INCLURE_']['sortie'] = utf8_decode($tab_matches[1]);} else {$GLOBALS['_INCLURE_']['sortie'] = $tab_matches[1];}} else {$GLOBALS['_INCLURE_']['informations'][] = sprintf(CATEG_LG_ERREUR_ENCODAGE, $href);}} else {$GLOBALS['_INCLURE_']['informations'][] = sprintf(CATEG_LG_ERREUR_INCLUSION, $href);}}//+----------------------------------------------------------------------------------------------------------------+// Extrait les variables et les ajoutes à l'espace de noms local// Gestion des squelettesextract($GLOBALS['_INCLURE_']);// Démarre le bufferob_start();// Inclusion du fichierinclude(INCL_CHEMIN_SQUELETTE.INCL_SQUELETTE_LISTE);// Récupérer le contenu du buffer$sortie = ob_get_contents();// Arrête et détruit le bufferob_end_clean();//+----------------------------------------------------------------------------------------------------------------+// Sortiereturn $sortie;}/* +--Fin du code ----------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* Revision 1.2 2006-12-08 15:57:30 jp_milcent* Amélioration de la gestion du débogage de l'applette inclure.** Revision 1.1 2006/12/01 17:36:28 florian* Ajout de l'apllette Inclure, provenant de l'action Inclure.*** +-- Fin du code ----------------------------------------------------------------------------------------+*/?>