Subversion Repositories Applications.papyrus

Rev

Rev 1563 | Go to most recent revision | Blame | Compare with Previous | 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.5 2008-11-19 09:26:48 aperonnet 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.5 $ $Date: 2008-11-19 09:26:48 $
// +------------------------------------------------------------------------------------------------------+
*/

// +------------------------------------------------------------------------------------------------------+
// |                                            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 Papyrus
if (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 squelettes
        extract($GLOBALS['_INCLURE_']);
        // Démarre le buffer
        ob_start();
        // Inclusion du fichier
        include(INCL_CHEMIN_SQUELETTE.INCL_SQUELETTE_LISTE);
        // Récupérer le  contenu du buffer
        $sortie = ob_get_contents();
        // Arrête et détruit le buffer
        ob_end_clean();
        
        //+----------------------------------------------------------------------------------------------------------------+
        // Sortie
    return $sortie;
}

/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.4  2007-08-28 14:23:55  jp_milcent
* Amélioration de la gestion de l'inclusion.
*
* Revision 1.3  2007-08-28 14:14:13  jp_milcent
* Correction de bogues empéchant l'affichage.
*
* 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 ----------------------------------------------------------------------------------------+
*/
?>