Rev 2094 | 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) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |// +------------------------------------------------------------------------------------------------------+// | This file is part of papyrus_bp. |// | |// | Foobar is free software; you can redistribute it and/or modify |// | it under the terms of the GNU General Public License as published by |// | the Free Software Foundation; either version 2 of the License, or |// | (at your option) any later version. |// | |// | Foobar is distributed in the hope that it will be useful, |// | but WITHOUT ANY WARRANTY; without even the implied warranty of |// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |// | GNU General Public License for more details. |// | |// | You should have received a copy of the GNU General Public License |// | along with Foobar; if not, write to the Free Software |// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |// +------------------------------------------------------------------------------------------------------+// CVS : $Id: syndication.php,v 1.11 2008-10-29 15:55:56 alexandre_tb Exp $/*** papyrus_bp - syndication.php** Description :**@package papyrus_bp//Auteur original :*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>//Autres auteurs :*@author Aucun*@copyright Tela-Botanica 1999-2006*@version $Revision: 1.11 $ $Date: 2008-10-29 15:55:56 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTÊTE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherSyndication';$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Ss]yndication'.'(?:\s*'.'(?:'.'(url="[^"]*")|'.'(titre="[^"]*")|'.'(nb="?\d+"?)|'.'(tailledesc="?\d+"?)|'.'(voirsuite="[^"]*")|'.'(dureecache="?\d+"?)|'.'(id="[^"]*")|'.'(nbmax="?\d+"?)|'.'(nouvellefenetre="?(?:0|1)"?)|'.'(formatdate="[^"]*")|'.'(formatdatepro="[^"]*")|'.'(template=".*")|'.')'.')+'.'\s*\}\}';// +------------------------------------------------------------------------------------------------------+/** Inclusion du fichier de configuration de cette application.*/require_once GEN_CHEMIN_APPLETTE.'syndication'.GEN_SEP.'configuration'.GEN_SEP.'synd_configuration.inc.php';/** Inclusion du fichier de fonctions de cette application.*/require_once GEN_CHEMIN_APPLETTE.'syndication'.GEN_SEP.'bibliotheque'.GEN_SEP.'syndication.fonct.php';// Inclusion des fichiers de traduction de l'applette SYND de Papyrusif (file_exists(SYND_CHEMIN_LANGUE.'synd_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/require_once SYND_CHEMIN_LANGUE.'synd_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';} else {/** Inclusion du fichier de traduction par défaut.*/require_once SYND_CHEMIN_LANGUE.'synd_langue_'.SYND_I18N_DEFAUT.'.inc.php';}/** Inclusion du fichier de la bibliotheque permettant de manipuler les flux RSS.*///require_once(MAGPIE_DIR.'rss_fetch.inc');require_once PAP_CHEMIN_API_PEAR.'XML/Feed/Parser.php';// +------------------------------------------------------------------------------------------------------+// | CORPS du PROGRAMME |// +------------------------------------------------------------------------------------------------------+// l'applette est un peu teubée et ne comprend pas certains flux// pourtant valides, par sécurité, on supprime donc certains caractèresfunction supprimerXmlDangereux($xml){$ret = "";$encours;if (empty($xml)){return $ret;}$lg = strlen($xml);for ($i=0; $i < $lg; $i++){$encours = ord($xml{$i});if (($encours == 0x9) ||($encours == 0xA) ||($encours == 0xD) ||(($encours >= 0x20) && ($encours <= 0xD7FF)) ||(($encours >= 0xE000) && ($encours <= 0xFFFD)) ||(($encours >= 0x10000) && ($encours <= 0x10FFFF))){$ret .= chr($encours);}else{$ret .= " ";}}return $ret;}/** Fonction afficherSyndication() - Retourne la liste des pages des sites syndiqués.** Cette fonction retourne la liste des pages des sites syndiqués.** @param array contient les arguments de la fonction.* @param array tableau global de Papyrus.* @return string XHTML la liste des pages.*/function afficherSyndication($tab_applette_arguments, $_GEN_commun){// Initialisation des variables$sortie = '';$GLOBALS['_SYNDICATION_']['erreurs'] = array();$GLOBALS['_SYNDICATION_']['informations'] = array();$GLOBALS['_SYNDICATION_']['sites'] = array();$string_arguments = "";//+----------------------------------------------------------------------------------------------------------------+// Gestion des arguments$balise = $tab_applette_arguments[0];$tab_arguments = $tab_applette_arguments;unset($tab_arguments[0]);foreach($tab_arguments as $argument) {if ($argument != '') {$string_arguments .= $argument;$tab_parametres = explode('=', $argument, 2);$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');}}$id_cache = md5($string_arguments);//Greg : possibilité d'ajouter une durée au cacheif (!isset($options['dureecache'])) {$options['dureecache'] = CACHE_LIFETIME;}if($contenu_cache = verifierCache($id_cache, $options['dureecache'])) {return $contenu_cache;}////+----------------------------------------------------------------------------------------------------------------+// Gestion des erreurs de paramétrageif (!isset($options['url'])) {$GLOBALS['_SYNDICATION_']['erreurs'][] = sprintf(SYND_LG_ERREUR_URL, $balise);}if (!isset($options['titre'])) {$options['titre'] = '';}if (!isset($options['nb'])) {$options['nb'] = SYND_NOMBRE;}if (!isset($options['nbmax'])) {$options['nbmax'] = SYND_NOMBRE_MAX;}if (!isset($options['nouvellefenetre'])) {$options['nouvellefenetre'] = SYND_OUVRIR_LIEN_RSS_NOUVELLE_FENETRE;}if (!isset($options['formatdate'])) {$options['formatdate'] = SYND_FORMAT_DATE;}if (!isset($options['formatdatepro'])) {$options['formatdatepro'] = false;}if (!isset($options['template'])) {$options['template'] = SYND_CHEMIN_SQUELETTE.SYND_SQUELETTE_LISTE;} else {if (file_exists(SYND_CHEMIN_SQUELETTE.$options['template'])) {$options['template'] = SYND_CHEMIN_SQUELETTE.$options['template'];}}//+----------------------------------------------------------------------------------------------------------------+// Recuperation des donneesif (count($GLOBALS['_SYNDICATION_']['erreurs']) == 0) {$tab_url = array_map('trim', explode(',', $options['url']));foreach ($tab_url as $cle => $url) {if ($url != '') {$aso_site = array();// Liste des encodages acceptés pour les flux$encodages = 'UTF-8, ISO-8859-1, ISO-8859-15';try {$xml = file_get_contents($url);$xml = supprimerXmlDangereux($xml);$feed = new XML_Feed_Parser($xml);} catch (XML_Feed_Parser_Exception $e) {creer_cache('erreur', $xml, 86400);return('Le flux RSS est invalide : ' . $e->getMessage());}if ($options['template'] != '' && !file_exists($options['template'])) {$i = 0 ;$res= '';foreach ($feed as $item) {// Le test suivant pour savoir s il faut reduire l excendent de description// Si {all} est present dans le template on ne reduit pasif (preg_match ('/{all}/', $options['template'])) {$template = str_replace('{all}', '', $options['template']);$all = true ;} else {$all = false;}if (isset($item->summary)) {$item->description = mb_convert_encoding($item->summary, 'HTML-ENTITIES', $encodages);} else {if (strlen($item->description) > 200 && !$all) {$item->description = substr(mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages), 0, 300).'... <a href="'.htmlentities($item->link).'">Lire la suite</a>';}}if (!isset($item->pubdate)) {$item->pubdate = date('dmY');}// Le code ci-apres est pour rattraper les dates du type 01012005 parsees par magpie// lorsque les flux donne des dates au format isoif (preg_match('/^([0-3][0-9])([0-1][0-9])([0-9][0-9][0-9][0-9])$/', $item->pubdate, $match)) {$item->pubdate = $match[3].'-'.$match[2].'-'.$match[1];//echo $item['pubdate'];}$res .= str_replace ('{num}', ++$i,str_replace ('{item}', '<a href="'.htmlentities($item->link).'" target="_top">'.mb_convert_encoding($item->title, 'HTML-ENTITIES', $encodages).'</a>',str_replace ('{date}', strftime('%d.%m.%Y',strtotime($item->pubdate)),str_replace ('{description}', mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages), $options['template'])))) ;$res .= "\n";if ($i > $options['nb']) {break;}}return $res;}// Gestion du titreif ( $options['titre'] == '' ) {$aso_site['titre'] = mb_convert_encoding($feed->title, 'HTML-ENTITIES', $encodages);} else if ( $options['titre'] != '0' ) {$aso_site['titre'] = $options['titre'];}//Gestion de l'IDif ( $options['id'] != '' ) {$aso_site['id'] = $options['id'];}//Gestion du lien vers la suiteif ( $options['voirsuite'] != '' ) {$aso_site['voirsuite'] = $options['voirsuite'];}// Gestion de l'url du site$aso_site['url'] = htmlentities($feed->link);// Ouverture du lien dans une nouvelle fenetre$aso_site['ext'] = false;if ($options['nouvellefenetre'] == 1) {$aso_site['ext'] = true;}// Gestion des pages syndiquees$i = 0;$nb_item = $feed->numberEntries;foreach ($feed as $item) {if ($options['nb'] != 0 && $nb_item >= $options['nb'] && $i >= $options['nb']) {break;}$i++;$aso_page = array();$aso_page['site'] = $aso_site;$aso_page['url'] = htmlentities($item->link);$aso_page['titre'] = mb_convert_encoding($item->title, 'HTML-ENTITIES', $encodages);$aso_page['description'] = mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages);/* Extraction de l'image si incluse dans description */$image = "";$description = $aso_page['description'];$taille = $options['tailledesc'];if (!(strpos($description, '<img') === false)) {$pos_debut = strpos($description, '<img');$pos_fin_image = strpos($description, '>', $posimage) + 1;$image = substr($description, $pos_debut, ($pos_fin_image - $pos_debut));$description = substr_replace($description,' ', $pos_debut, ($pos_fin_image - $pos_debut));}$aso_page['image'] = $image;$aso_page['description_sans_image'] = $description;if ($taille != null) {//Attention : si on coupe simplement, on peut couper une balise en plein milieu.//On va donc vérifier//1. recherche de tags simples <i> ou <b>$description = html_entity_decode($description);$description = strip_tags($description, "<i><b>");//Va-ton couper un mot ?if ($description[$taille] != ' ' && $description[$taille+1] != ' ' && $description[$taille-1] != ' ') {$strpos = strpos($description, ' ', $taille);if ($strpos === true) {$taille = $strpos;}}$description = substr($description, 0, $taille);$description.='(...)';$pattern = '#<([ib])[ ]*[a-z]*>(.*?)</\1>#i';//1. remplacer toutes le s balises fermées$chaine = preg_replace($pattern, '$2', $description);$nb_occurences_i = substr_count($chaine, '<i');for ($occurences = 0; $occurences < $nb_occurences_i; $occurences++) {$description .= "</i>";}$nb_occurences_b = substr_count($chaine, '<b');for ($occurences = 0; $occurences < $nb_occurences_b; $occurences++) {$description .= "</b>";}}$aso_page['description_light'] = $description;//Greg : ajout GUID$aso_page['guid'] = mb_convert_encoding($item->model->getElementsByTagName('guid')->item(0)->nodeValue, 'HTML-ENTITIES', $encodages);$aso_page['category'] = mb_convert_encoding($item->model->getElementsByTagName('category')->item(0)->nodeValue, 'HTML-ENTITIES', $encodages);$aso_page['author'] = mb_convert_encoding($item->author, 'HTML-ENTITIES', $encodages);$aso_page['date'] = $item->pubDate;if ($options['formatdatepro']) {switch ($options['formatdatepro']) {case 'jm' :$aso_page['date'] = strftime('%d.%m', $aso_page['date']);break;case 'jma' :$aso_page['date'] = strftime('%d.%m.%Y', $aso_page['date']);break;case 'jmh' :$aso_page['date'] = strftime('%d.%m %H:%M', $aso_page['date']);break;case 'jmah' :$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);break;default :$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);}} else {switch ($options['formatdate']) {case 'jm' :$aso_page['date'] = strftime('%d.%m', $aso_page['date']);break;case 'jma' :$aso_page['date'] = strftime('%d.%m.%Y', $aso_page['date']);break;case 'jmh' :$aso_page['date'] = strftime('%d.%m %H:%M', $aso_page['date']);break;case 'jmah' :$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);break;default :$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);}}$aso_site['pages'][] = $aso_page;$GLOBALS['_SYNDICATION_']['pages'][strtotime($aso_page['date'])] = $aso_page;}$GLOBALS['_SYNDICATION_']['sites'][] = $aso_site;}}}// Trie des pages par datekrsort($GLOBALS['_SYNDICATION_']['pages']);$GLOBALS['_SYNDICATION_']['sites'] = array_slice($GLOBALS['_SYNDICATION_']['sites'],0,$options['nbmax'],true) ;$GLOBALS['_SYNDICATION_']['pages'] = array_slice($GLOBALS['_SYNDICATION_']['pages'],0,$options['nbmax'],true) ;//+----------------------------------------------------------------------------------------------------------------+// Extrait les variables et les ajoutes a l'espace de noms local// Gestion des squelettesextract($GLOBALS['_SYNDICATION_']);// Demarre le bufferob_start();// Inclusion du fichierinclude($options['template']);// Recuperer le contenu du buffer$sortie = ob_get_contents();creer_cache($id_cache,$sortie, $options['dureecache']);// Arrete et detruit le bufferob_end_clean();//+----------------------------------------------------------------------------------------------------------------+// Sortiereturn $sortie;}function transcribe_cp1252_to_latin1($cp1252) {return strtr($cp1252,array("\x80" => "e", "\x81" => " ", "\x82" => "'", "\x83" => 'f',"\x84" => '"', "\x85" => "...", "\x86" => "+", "\x87" => "#","\x88" => "^", "\x89" => "0/00", "\x8A" => "S", "\x8B" => "<","\x8C" => "OE", "\x8D" => " ", "\x8E" => "Z", "\x8F" => " ","\x90" => " ", "\x91" => "`", "\x92" => "'", "\x93" => '"',"\x94" => '"', "\x95" => "*", "\x96" => "-", "\x97" => "--","\x98" => "~", "\x99" => "(TM)", "\x9A" => "s", "\x9B" => ">","\x9C" => "oe", "\x9D" => " ", "\x9E" => "z", "\x9F" => "Y"));}/* +--Fin du code ----------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* Revision 1.10 2007-12-13 14:10:51 alexandre_tb* Fusion avec la livraison AHA : 13 decembre 2007** Revision 1.9 2007-12-03 14:54:14 jp_milcent* Fusion avec la livraison AHA : 3 décembre 2007** Revision 1.7.2.2 2007-12-03 14:52:21 jp_milcent* Correction bogue : & dans les urls.** Revision 1.8 2007-11-30 14:17:30 jp_milcent* Fusion avec la livraison AHA : 30 novembre 2007** Revision 1.7.2.1 2007-11-30 14:15:02 jp_milcent* Amélioration du décodage utf8.** Revision 1.7 2007-07-25 15:09:44 jp_milcent* Fusion avec la livraison Narmer.** Revision 1.5.2.4 2007-07-25 15:07:52 jp_milcent* Correction problème url.** Revision 1.5.2.3 2007-07-25 14:50:21 jp_milcent* Corrections, meilleure utilisation de XML_Feed_Parser.** Revision 1.5.2.2 2007-07-25 09:45:07 jp_milcent* Utilisation de XML_Feed_Parser de Pear pour l'applette Syndication.** Revision 1.6 2007-06-25 12:15:07 alexandre_tb* merge from narmer** Revision 1.5.2.1 2007-06-06 15:24:37 jp_milcent* Amélioration de la compatibilité avec les anciennes version des balises de l'applette syndication.** Revision 1.5 2007-04-20 12:50:18 florian* correction bugs suite au merge** Revision 1.4 2007/03/28 15:53:27 florian* correction pb date, encodage utf-8** Revision 1.3 2007/01/23 14:17:19 alexandre_tb* backport : hack pour rattraper les dates du type 01012005 parsees par magpie* lorsque les flux donne des dates au format iso** Revision 1.2 2006/12/13 17:20:51 jp_milcent* Correction bogue : paramètre nb non pris en compte** Revision 1.1 2006/12/13 17:06:36 jp_milcent* Ajout de l'applette Syndication.*** +-- Fin du code ----------------------------------------------------------------------------------------+*/?>