Subversion Repositories Applications.papyrus

Rev

Go to most recent revision | Details | 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 
// +------------------------------------------------------------------------------------------------------+
32 
// CVS : $Id: inclure.php,v 1.1 2006-12-01 17:36:28 florian Exp $
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
45 
*@version       $Revision: 1.1 $ $Date: 2006-12-01 17:36:28 $
46 
// +------------------------------------------------------------------------------------------------------+
47 
*/
48 
 
49 
// +------------------------------------------------------------------------------------------------------+
50 
// |                                            ENTÊTE du PROGRAMME                                       |
51 
// +------------------------------------------------------------------------------------------------------+
52 
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherInclure';
53 
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Ii]nclure(?: (?:(page="[^"]+")|(interwiki="[^"]+")))+\}\}';
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 
	$conf = array(
84 
	    'sites' => array(
85 
	        'Wikipedia' => array('preg' => '/<!-- start content -->(.*)<!-- end content -->/Umsi', 'url' => 'http://fr.wikipedia.org/wiki/%s'),
86 
	        'Wikipedia_fr' => array('preg' => '/<!-- start content -->(.*)<!-- end content -->/Umsi', 'url' => 'http://fr.wikipedia.org/wiki/%s'),
87 
	        'Wikipedia_en' => array('preg' => '/<!-- start content -->(.*)<!-- end content -->/Umsi', 'url' => 'http://en.wikipedia.org/wiki/%s'),
88 
	        'Wikini_eFlore' => array('preg' => '/<div class="page">(.*)<\/div>.*<div class="commentsheader">/Umsi', 'url' => 'http://wiki.tela-botanica.org/eflore/wakka.php?wiki=%s')
89 
	        ),
90 
	    'css' => null,
91 
	    'encodage' => 'iso-8859-15'
92 
	);
93 
	//echo '<pre>'.print_r($tab_applette_arguments, true).'</pre>'.
94 
	// Initialisation des variables
95 
    $sortie = '';
96 
	$tab_arguments = $tab_applette_arguments;
97 
	unset($tab_arguments[0]);
98 
    foreach($tab_arguments as $argument) {
99 
	    $tab_parametres = explode('=', $argument);
100 
	    $options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
101 
    }
102 
 
103 
    $site = $options['interwiki'];
104 
    $page = $options['page'];
105 
    $text = $tab_applette_arguments[0];
106 
    $css = _formatConf(' class="%s"', 'css');
107 
 
108 
    if (isset($conf['sites'][$site])) {
109 
        $href = $conf['sites'][$site]['url'];
110 
    } else {
111 
        return $text;
112 
    }
113 
 
114 
    // old form where page is at end,
115 
    // or new form with %s placeholder for sprintf()?
116 
    if (strpos($href, '%s') === false) {
117 
        // use the old form
118 
        $href = $href . $page;
119 
    } else {
120 
        // use the new form
121 
        $href = sprintf($href, $page);
122 
    }
123 
 
124 
    $contenu = file_get_contents($href);
125 
    if ($contenu != false) {
126 
	    $tab_matches = '';
127 
	    preg_match($conf['sites'][$site]['preg'], $contenu, $tab_matches);
128 
	    $tab_encodage = '';
129 
	    preg_match('/<meta +http-equiv="Content-Type" +content="text\/html; *charset=(.+)"\/>/Ui', $contenu, $tab_encodage);
130 
	    if (preg_match('/^(?:iso-8859-1|iso-8859-15)$/i', $conf['encodage']) && preg_match('/utf-8/i', $tab_encodage[1])) {
131 
	        $sortie = utf8_decode($tab_matches[1]);
132 
	    } else {
133 
	        $sortie = $tab_matches[1];
134 
	    }
135 
    } else {
136 
    	$sortie = '<p class="pap_erreur">'."Un problème a été rencontré lors de la tentative d'inclusion de la page : ".
137 
    	'<a href="'.$href.'">'.$href.'</a></p>';
138 
    }
139 
    return $sortie;
140 
}
141 
 
142 
// +------------------------------------------------------------------------------------------------------+
143 
// |                                            LISTE DES FONCTIONS                                       |
144 
// +------------------------------------------------------------------------------------------------------+
145 
 
146 
/**
147 
*
148 
* Simple method to wrap a configuration in an sprintf() format.
149 
*
150 
* @access public
151 
*
152 
* @param string $key The configuration key.
153 
*
154 
* @param string $format The sprintf() format string.
155 
*
156 
* @return mixed The formatted configuration key value (if it exists)
157 
* or null (if it does not).
158 
*
159 
*/
160 
function _formatConf($format, $key)
161 
{
162 
    if (isset($this->conf[$key])) {
163 
        return sprintf($format, $this->conf[$key]);
164 
    } else {
165 
        return null;
166 
    }
167 
}
168 
/* +--Fin du code ----------------------------------------------------------------------------------------+
169 
*
170 
* $Log: not supported by cvs2svn $
171 
*
172 
* +-- Fin du code ----------------------------------------------------------------------------------------+
173 
*/
174 
?>