WebSVN – Applications.papyrus – Diff – /branches/v5.0-ouadji/papyrus/applettes/syndication/syndication.php


<?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+"?)|'.
															'(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 des fichiers de traduction de l'applette SYND de Papyrus
if (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                                        |
// +------------------------------------------------------------------------------------------------------+
/** 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();
	
	//+----------------------------------------------------------------------------------------------------------------+
	// Gestion des arguments
	$balise = $tab_applette_arguments[0];
    $tab_arguments = $tab_applette_arguments;
	unset($tab_arguments[0]);
    foreach($tab_arguments as $argument) {
    	if ($argument != '') {
	    	$tab_parametres = explode('=', $argument, 2);
	    	$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
    	}
    }
	//
	//+----------------------------------------------------------------------------------------------------------------+
    // Gestion des erreurs de paramétrage
	if (!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 donnees
    if (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 {
					$feed = new XML_Feed_Parser(file_get_contents($url));
				} catch (XML_Feed_Parser_Exception $e) {
					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 pas
						if (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 iso
						if (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 titre
				if ( $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'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);
					$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 date
 
	krsort($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 squelettes
	extract($GLOBALS['_SYNDICATION_']);
	// Demarre le buffer
	ob_start();
	// Inclusion du fichier
	include($options['template']);
	// Recuperer le  contenu du buffer
	$sortie = ob_get_contents();
	// Arrete et detruit le buffer
	ob_end_clean();
	
	//+----------------------------------------------------------------------------------------------------------------+
	// Sortie
    return $sortie;
}
 
/* +--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 ----------------------------------------------------------------------------------------+
*/
?>

Subversion Repositories Applications.papyrus

(root)/branches/v5.0-ouadji/papyrus/applettes/syndication/syndication.php – Rev 1988 → 1998

Rev 1988		Rev 1998
1	`<?php`	1	`<?php`
2	`/vim: set expandtab tabstop=4 shiftwidth=4: /`	2	`/vim: set expandtab tabstop=4 shiftwidth=4: /`
3	`// +------------------------------------------------------------------------------------------------------+`	3	`// +------------------------------------------------------------------------------------------------------+`
4	`// \| PHP version 5.1 \|`	4	`// \| PHP version 5.1 \|`
5	`// +------------------------------------------------------------------------------------------------------+`	5	`// +------------------------------------------------------------------------------------------------------+`
6	`// \| Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) \|`	6	`// \| Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) \|`
7	`// +------------------------------------------------------------------------------------------------------+`	7	`// +------------------------------------------------------------------------------------------------------+`
8	`// \| This file is part of papyrus_bp. \|`	8	`// \| This file is part of papyrus_bp. \|`
9	`// \| \|`	9	`// \| \|`
10	`// \| Foobar is free software; you can redistribute it and/or modify \|`	10	`// \| Foobar is free software; you can redistribute it and/or modify \|`
11	`// \| it under the terms of the GNU General Public License as published by \|`	11	`// \| it under the terms of the GNU General Public License as published by \|`
12	`// \| the Free Software Foundation; either version 2 of the License, or \|`	12	`// \| the Free Software Foundation; either version 2 of the License, or \|`
13	`// \| (at your option) any later version. \|`	13	`// \| (at your option) any later version. \|`
14	`// \| \|`	14	`// \| \|`
15	`// \| Foobar is distributed in the hope that it will be useful, \|`	15	`// \| Foobar is distributed in the hope that it will be useful, \|`
16	`// \| but WITHOUT ANY WARRANTY; without even the implied warranty of \|`	16	`// \| but WITHOUT ANY WARRANTY; without even the implied warranty of \|`
17	`// \| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \|`	17	`// \| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \|`
18	`// \| GNU General Public License for more details. \|`	18	`// \| GNU General Public License for more details. \|`
19	`// \| \|`	19	`// \| \|`
20	`// \| You should have received a copy of the GNU General Public License \|`	20	`// \| You should have received a copy of the GNU General Public License \|`
21	`// \| along with Foobar; if not, write to the Free Software \|`	21	`// \| along with Foobar; if not, write to the Free Software \|`
22	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`	22	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`
23	`// +------------------------------------------------------------------------------------------------------+`	23	`// +------------------------------------------------------------------------------------------------------+`
24	`// CVS : $Id: syndication.php,v 1.11 2008-10-29 15:55:56 alexandre_tb Exp $`	24	`// CVS : $Id: syndication.php,v 1.11 2008-10-29 15:55:56 alexandre_tb Exp $`
25	`/**`	25	`/**`
26	`* papyrus_bp - syndication.php`	26	`* papyrus_bp - syndication.php`
27	`*`	27	`*`
28	`* Description :`	28	`* Description :`
29	`*`	29	`*`
30	`*@package papyrus_bp`	30	`*@package papyrus_bp`
31	`//Auteur original :`	31	`//Auteur original :`
32	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`	32	`*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>`
33	`//Autres auteurs :`	33	`//Autres auteurs :`
34	`*@author Aucun`	34	`*@author Aucun`
35	`*@copyright Tela-Botanica 1999-2006`	35	`*@copyright Tela-Botanica 1999-2006`
36	`*@version $Revision: 1.11 $ $Date: 2008-10-29 15:55:56 $`	36	`*@version $Revision: 1.11 $ $Date: 2008-10-29 15:55:56 $`
37	`// +------------------------------------------------------------------------------------------------------+`	37	`// +------------------------------------------------------------------------------------------------------+`
38	`*/`	38	`*/`
39		39
40	`// +------------------------------------------------------------------------------------------------------+`	40	`// +------------------------------------------------------------------------------------------------------+`