| /trunk/papyrus/applettes/inclure/langues/incl_langue_fr.inc.php |
|---|
| New file |
| 0,0 → 1,71 |
| <?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: incl_langue_fr.inc.php,v 1.1 2006-12-01 17:36:28 florian Exp $ |
| /** |
| * papyrus |
| * |
| * Description... |
| * |
| *@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.1 $ $Date: 2006-12-01 17:36:28 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | ENTÊTE du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | CORPS du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PIED du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |
| /trunk/papyrus/applettes/inclure/configuration/incl_configuration.inc.php |
|---|
| New file |
| 0,0 → 1,89 |
| <?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: incl_configuration.inc.php,v 1.1 2006-12-01 17:36:28 florian Exp $ |
| /** |
| * papyrus |
| * |
| * Description... |
| * |
| *@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.1 $ $Date: 2006-12-01 17:36:28 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | ENTÊTE du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | CORPS du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| /** Constante stockant la valeur de la langue par défaut pour l'applette MORE.*/ |
| define('INCL_I18N_DEFAUT', GEN_I18N_ID_DEFAUT); |
| // Chemin des fichiers à inclure. |
| /** Chemin vers la bibliothèque PEAR.*/ |
| define('INCL_CHEMIN_BIBLIOTHEQUE_PEAR', PAP_CHEMIN_API_PEAR); |
| // Chemin vers les dossiers de l'applette |
| /** Chemin vers l'applette Moteur de Recherche de Papyrus.*/ |
| define('INCL_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'inclure'.GEN_SEP); |
| /** Chemin vers les fichiers de traduction de l'applette Moteur de Recherche de Papyrus.*/ |
| define('INCL_CHEMIN_LANGUE', INCL_CHEMIN_APPLETTE.'langues'.GEN_SEP); |
| /** Chemin vers les fichiers de la bibliotheque de l'applette Moteur de Recherche de Papyrus.*/ |
| define('INCL_CHEMIN_BIBLIO', INCL_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP); |
| /** Chemin vers les fichiers squelettes de l'applette Moteur de Recherche de Papyrus.*/ |
| define('INCL_CHEMIN_SQUELETTE', INCL_CHEMIN_APPLETTE.'squelettes'.GEN_SEP); |
| // Configuration du rendu |
| /** Nom du fichier de squelette à utiliser pour la liste des pages.*/ |
| define('INCL_SQUELETTE_LISTE', 'incl_liste.tpl.html'); |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PIED du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |
| /trunk/papyrus/applettes/inclure/inclure.php |
|---|
| New file |
| 0,0 → 1,174 |
| <?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.1 2006-12-01 17:36:28 florian 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.1 $ $Date: 2006-12-01 17:36:28 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | ENTÊTE du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| $GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherInclure'; |
| $GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Ii]nclure(?: (?:(page="[^"]+")|(interwiki="[^"]+")))+\}\}'; |
| // -------------------------------------------------------------------------------------------------------- |
| //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) |
| { |
| $conf = array( |
| 'sites' => array( |
| 'Wikipedia' => array('preg' => '/<!-- start content -->(.*)<!-- end content -->/Umsi', 'url' => 'http://fr.wikipedia.org/wiki/%s'), |
| 'Wikipedia_fr' => array('preg' => '/<!-- start content -->(.*)<!-- end content -->/Umsi', 'url' => 'http://fr.wikipedia.org/wiki/%s'), |
| 'Wikipedia_en' => array('preg' => '/<!-- start content -->(.*)<!-- end content -->/Umsi', 'url' => 'http://en.wikipedia.org/wiki/%s'), |
| 'Wikini_eFlore' => array('preg' => '/<div class="page">(.*)<\/div>.*<div class="commentsheader">/Umsi', 'url' => 'http://wiki.tela-botanica.org/eflore/wakka.php?wiki=%s') |
| ), |
| 'css' => null, |
| 'encodage' => 'iso-8859-15' |
| ); |
| //echo '<pre>'.print_r($tab_applette_arguments, true).'</pre>'. |
| // Initialisation des variables |
| $sortie = ''; |
| $tab_arguments = $tab_applette_arguments; |
| unset($tab_arguments[0]); |
| foreach($tab_arguments as $argument) { |
| $tab_parametres = explode('=', $argument); |
| $options[$tab_parametres[0]] = trim($tab_parametres[1], '"'); |
| } |
| $site = $options['interwiki']; |
| $page = $options['page']; |
| $text = $tab_applette_arguments[0]; |
| $css = _formatConf(' class="%s"', 'css'); |
| if (isset($conf['sites'][$site])) { |
| $href = $conf['sites'][$site]['url']; |
| } else { |
| return $text; |
| } |
| // old form where page is at end, |
| // or new form with %s placeholder for sprintf()? |
| if (strpos($href, '%s') === false) { |
| // use the old form |
| $href = $href . $page; |
| } else { |
| // use the new form |
| $href = sprintf($href, $page); |
| } |
| $contenu = file_get_contents($href); |
| if ($contenu != false) { |
| $tab_matches = ''; |
| preg_match($conf['sites'][$site]['preg'], $contenu, $tab_matches); |
| $tab_encodage = ''; |
| preg_match('/<meta +http-equiv="Content-Type" +content="text\/html; *charset=(.+)"\/>/Ui', $contenu, $tab_encodage); |
| if (preg_match('/^(?:iso-8859-1|iso-8859-15)$/i', $conf['encodage']) && preg_match('/utf-8/i', $tab_encodage[1])) { |
| $sortie = utf8_decode($tab_matches[1]); |
| } else { |
| $sortie = $tab_matches[1]; |
| } |
| } else { |
| $sortie = '<p class="pap_erreur">'."Un problème a été rencontré lors de la tentative d'inclusion de la page : ". |
| '<a href="'.$href.'">'.$href.'</a></p>'; |
| } |
| return $sortie; |
| } |
| // +------------------------------------------------------------------------------------------------------+ |
| // | LISTE DES FONCTIONS | |
| // +------------------------------------------------------------------------------------------------------+ |
| /** |
| * |
| * Simple method to wrap a configuration in an sprintf() format. |
| * |
| * @access public |
| * |
| * @param string $key The configuration key. |
| * |
| * @param string $format The sprintf() format string. |
| * |
| * @return mixed The formatted configuration key value (if it exists) |
| * or null (if it does not). |
| * |
| */ |
| function _formatConf($format, $key) |
| { |
| if (isset($this->conf[$key])) { |
| return sprintf($format, $this->conf[$key]); |
| } else { |
| return null; |
| } |
| } |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |