Subversion Repositories Applications.papyrus

<?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 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();

		$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 cache

	if (!isset($options['dureecache'])) {

		$options['dureecache'] = CACHE_LIFETIME;

	}

	if($contenu_cache = verifierCache($id_cache, $options['dureecache'])) {

		return $contenu_cache;

	}

	//

	//+----------------------------------------------------------------------------------------------------------------+

    // 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 {

					$xml = file_get_contents($url);

					$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 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'ID

				if ( $options['id'] != '' ) {

					$aso_site['id'] = $options['id'];

				}

				//Gestion du lien vers la suite

				if ( $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 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();

	creer_cache($id_cache,$sortie, $options['dureecache']);

	// Arrete et detruit le buffer

	ob_end_clean();

	//+----------------------------------------------------------------------------------------------------------------+

	// Sortie

    return $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 ----------------------------------------------------------------------------------------+

*/

?>