
Forum » » Le coin des codeurs » » mettre un fil RSS dans un bloc
Posté : 24-02-2012 17:59 
<?php
// --------------------------------------------------------
// d'après parse_flux-2 pour lire des fichiers RSS/RDF/Atom
// Dominique WOJYLAC < http://wojylac.free.fr>
// Distribué sous GNU General Public License.
//
// Version 2.1c
// ---------------------------------------------------------
// fonction destinée à nettoyer le texte  ;récupéré
// que l'on pourrait séparer de ce code&n bsp;en la mettant dans un fichier à inclure
// fonction destinée à nettoyer le texte  ;récupéré
// que l'on pourrait séparer de ce code&n bsp;en la mettant dans un fichier à inclure
function clean_text($text, $encodage = '',$long) {
if ($encodage == 'utf-8') {
$text = utf8_decode ($text);
}
$avant = array(
'<',
'>',
'"',
'&',
'|@|' // pour traitement correct des caractères spéciaux préalabl ement remplacés (voir plus bas)
);
$apres = array(
'<',
'>',
'"',
'&',
'&#'
);
$text = substr(str_replace($avant, $ap res, $text),0,$long).' ...';
return $text;
}
function lit_RSS($flux,$delai,$nbnews,$affichage,$long) {
// chemin relatif vers le dossier cache
// le répertoire "cache" doit être autorisé& nbsp;en écriture
// ne pas oublier / Ã la fin
$dir_cache = './cache/';
// nom du fichier mis en cache
//$file_cache = 'flux.html';
$url_explode = explode('/',$flux);
$file_cache = ($url_explode[2]).'.html';
if (!is_dir($dir_cache)) {
exit ('Répertoire cache "'.$dir_cache .'" inexistant !');
}
!include!_once('rss_read.inc.php');
$rss = new rss_read();
//$flux = ' ©e par la fonction." target="_blank" class="" class="noir">http://npds.org/backend.php'; //adresse du flux&nbs p;passée par la fonction.
// voir la doc pour cette fonction
$date_modif = $rss -> get_last_modified($flux);
if ($date_modif > 0) {
// le serveur distant a reto urné une date de dermière modification
// on remettra à jour immé diatement en cas de modification postérieure
// Ã la date du fichier&nbs p;en cache
$delai = 0;
}
else {
// on impose la mise à   ;jour avec une certaine periodicité
$date_modif = time();
// le delai entre deux rafra ichissements en secondes à régler suivant le&nb sp;type de fil ici 2 heures
//$delai = 600; //délai passé&n bsp;par la fonction
}
// le fichier est-il en cache et suffisamm ent jeune
$file_cache = $dir_cache.$file_cache;
$en_cache = file_exists($file_cache);
if ($en_cache) {
$en_cache = ($date_modif < fil emtime($file_cache) + $delai);
}
if (!$en_cache) {
// il est considéré comme n'étant pas en cache on le génére
$content = '';
// caractères parasites pouvant être contenus dans le fils rss et à r emplacer par d'autres
// doit être invoqué avant  ;parsefile
// cette fonction est optionnelle et ne doit être utilisée que pour ce rtains fils.
$avant = array('&#','•');
$apres = array('|@|','-');
$rss -> to_replace_with($avant, $ap res);
// parser le fichier news
$res = $rss -> parsefile($flux );
if ($res) {
$encode = $rss  ;-> get_encoding();
// recupération de s données sur le channel
$channel = $rss&nbs p;-> get_channel();
// nombre d'items&n bsp;
//$nbnews = $rss&nb sp;-> get_num_items(); // nombre de news à &nb sp;afficher passé par la fonction
// recup array  ;des données
$items = $rss -> get_items();
if ($items) {
$cont ent .= '<ul>';
for($ i = 0; $i < $nbnews; $i++) {
  ; if ($affichage == '1') {
  ; $content .= '<li>&nb sp;'.$items[$i]['link'].'</li>'."\n";
  ; } else {
  ; $content .= '<li>&nb sp;<a href="'.$items[$i]['link'].'" target="_blank" class="">'.clean_text($items[$i]['title'], $encode, $long).'</a ></li>'."\n";
  ; }
}
$cont ent .= '</ul>';
}
// affichage site,& nbsp;url, description
$content .= ' <p align = 'right'><a href="'. $channel['link '].'" target="_blank" class=""> Lire la suite ...</a></p>';
} // fin if $rss
$fd = fopen($file_cache, "w");
fputs($fd, $content);
fclose($fd);
} else {
//Ouverture du fich ier en lecture seule
$handle = fopen($fi le_cache, 'r');
//Si on a réu ssi à ouvrir le fichier
if ($handle)
{
$cont ent = '';
//Tan t que l'on est pas à la fin du fi chier
while (!feof($handle))
{
  ; //On lit la ligne courante &n bsp;
  ; $content .= fgets($handle);
}
//On& nbsp;ferme le fichier
fclos e($handle);
} else {
$cont ent = 'Erreur de lecture du fichier en cache';
}
} // fin if !$en_cache
themesidebox($block_title,$content);
} // fin de fonction
?>
Cet article provient de NPDS REvolution 16
https://lab.grottes-et-karsts-de-chine.org/viewtopic.php?topic=25384&forum=5