Rev 609 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/***************************************************************************\* SPIP, Systeme de publication pour l'internet ** ** Copyright (c) 2001-2005 ** Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James ** ** Ce programme est un logiciel libre distribue sous licence GNU/GPL. ** Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *\***************************************************************************///// Ce fichier ne sera execute qu'une foisif (defined("_INC_RSS")) return;define("_INC_RSS", "1");// mais d'abord un tri par date (inverse)function trier_par_date($a, $b) {return ($a['date'] < $b['date']);}//// Prend un tableau et l'affiche au format rss// (fonction inverse de analyser_backend)// A completer (il manque des tests, des valeurs par defaut, les enclosures,// differents formats de sortie, etc.)//function affiche_rss($rss, $intro = '', $fmt='') {if (!$fmt) $fmt = 'rss';if (function_exists($f = 'affiche_rss_'.$fmt)) {return $f($rss, $intro);}elsespip_log("Format $fmt inconnu");}function affiche_rss_rss($rss, $intro = '') {// entetes$u = '<'.'?xml version="1.0" encoding="'.lire_meta('charset').'"?'.">\n";$u .= '<rss version="0.91" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>'.texte_backend($intro['title']).'</title><link>'.texte_backend(url_absolue($intro['url'])).'</link><description>'.texte_backend($intro['description']).'</description><language>'.texte_backend($intro['language']).'</language>';// elementsif (is_array($rss)) {usort($rss, 'trier_par_date');foreach ($rss as $article) {if ($article['email'])$article['author'].=' <'.$article['email'].'>';$u .= '<item><title>'.texte_backend($article['title']).'</title><link>'.texte_backend(url_absolue($article['url'])).'</link><date>'.texte_backend($article['date']).'</date><description>'.texte_backend(liens_absolus($article['description'])).'</description><author>'.texte_backend($article['author']).'</author><dc:date>'.date_iso($article['date']).'</dc:date><dc:format>text/html</dc:format><dc:language>'.texte_backend($article['lang']).'</dc:language><dc:creator>'.texte_backend($article['author']).'</dc:creator></item>';}}// pied$u .= '</channel></rss>';return array($u, 'Content-Type: text/xml; charset='.lire_meta('charset'));}function affiche_rss_ical($rss, $intro = '') {// entetes$u ='BEGIN:VCALENDARCALSCALE:GREGORIANX-WR-CALNAME;VALUE=TEXT:'.filtrer_ical($intro['title']).'X-WR-RELCALID:'.filtrer_ical(url_absolue($intro['url'])).'';// elementsif (is_array($rss)) {usort($rss, 'trier_par_date');foreach ($rss as $article) {// Regler la date de fin a h+60minif (!$article['enddate'])$article['enddate'] = date_ical($article['date'],60);else$article['enddate'] = date_ical($article['enddate']);// Type d'evenementif ($article['type'] == 'todo')$type = 'VTODO';else$type = 'VEVENT';$u .='BEGIN:'.$type.'SUMMARY:'.filtrer_ical($article['title']).'URL:'.filtrer_ical(url_absolue($article['url'])).'DTSTAMP:'. date_ical($article['date']).'DTSTART:'. date_ical($article['date']).'DTEND:'. $article['enddate'].'DESCRIPTION:'.filtrer_ical(liens_absolus($article['description'])).'ORGANIZER:'.filtrer_ical($article['author']).'CATEGORIES:--END:'.$type.'';}}// pied$u .= 'END:VCALENDAR';return array($u, 'Content-Type: text/calendar; charset=utf-8');}//// Creer un bouton qui renvoie vers la bonne url spip_rssfunction bouton_spip_rss($op, $args, $fmt='rss') {include_ecrire("inc_acces.php3");if (is_array($args))foreach ($args as $val => $var)if ($var) $a .= $val.'-'.$var.':';$a = substr($a,0,-1);$link = new Link("spip_rss.php?op=$op");if ($a) $link->addVar('args', $a);$link->addVar('id', $GLOBALS['connect_id_auteur']);$cle = afficher_low_sec($GLOBALS['connect_id_auteur'], "rss $op $a");$link->addVar('cle', $cle);$link->addVar('lang', $GLOBALS['spip_lang']);$url = $link->getUrl();switch($fmt) {case 'ical':$url = preg_replace(',^.*?://,', 'webcal://', url_absolue($url)). "&fmt=ical";$button = 'iCal';break;case 'rss':default:$url = url_absolue($url);$button = 'RSS';break;}return "<a href='". $url. "'>". '<span class="rss-button">'.$button.'</span>'. "</a>";}//// Fonctions de remplissage du RSS//// Suivi des revisions d'articlesfunction rss_suivi_versions($a) {include_ecrire("inc_suivi_revisions.php");include_ecrire("lab_revisions.php");include_ecrire("lab_diff.php");include_ecrire("inc_presentation.php3");$rss = afficher_suivi_versions (0, $a['id_secteur'], $a['id_auteur'], $a['lang_choisie'], true, true);return $rss;}// Suivi des forumsfunction rss_suivi_forums($a, $query_forum='', $lien_moderation=false) {include_ecrire("inc_forum.php3");$result_forum = spip_query("SELECT *FROM spip_forumWHERE " . $query_forum . "ORDER BY date_heure DESC LIMIT 0,20");while ($t = spip_fetch_array($result_forum)) {$item = array();$item['title'] = typo($t['titre']);if ($a['page'] == 'public'AND $t['statut']<>'publie')$item['title'] .= ' ('.$t['statut'].')';$item['date'] = $t['date_heure'];$item['author'] = $t['auteur'];$item['email'] = $t['email_auteur'];if ($lien_moderation)$item['url'] = _DIR_RESTREINT_ABS.'controle_forum.php3?page='.$a['page'].'&debut_id_forum='.$t['id_forum'];else$item['url'] = generer_url_forum($t['id_forum']);$item['description'] = propre($t['texte']);if ($GLOBALS['les_notes']) {$item['description'] .= '<hr />'.$GLOBALS['les_notes'];$GLOBALS['les_notes'] = '';}if ($t['nom_site'] OR vider_url($t['url_site']))$item['description'] .= propre("\n- [".$t['nom_site']."->".$t['url_site']."]<br />");$rss[] = $item;}return $rss;}// Suivi de la messagerie priveefunction rss_suivi_messagerie($a) {$rss = array();// 1. les messages$s = spip_query("SELECT * FROM spip_messages AS messages,spip_auteurs_messages AS lien WHERE lien.id_auteur=".$a['id_auteur']." AND lien.id_message=messages.id_messageGROUP BY messages.id_message ORDER BY messages.date_heure DESC");while ($t = spip_fetch_array($s)) {if ($compte++<10) {$auteur = spip_fetch_array(spip_query("SELECTauteurs.nom AS nom, auteurs.email AS emailFROM spip_auteurs AS auteurs,spip_auteurs_messages AS lienWHERE lien.id_message=".$t['id_message']."AND lien.id_auteur!=".$t['id_auteur']."AND lien.id_auteur = auteurs.id_auteur"));$item = array('title' => typo($t['titre']),'date' => $t['date_heure'],'author' => typo($auteur['nom']),'email' => $auteur['email'],'description' => propre($t['texte']),'url' => _DIR_RESTREINT_ABS.'message.php3?id_message='.$t['id_message']);$rss[] = $item;}$messages_vus[] = $t['id_message'];}// 2. les reponses aux messagesif ($messages_vus) {$s = spip_query("SELECT * FROM spip_forum WHERE id_messageIN (".join(',', $messages_vus).")ORDER BY date_heure DESC LIMIT 0,10");while ($t = spip_fetch_array($s)) {$item = array('title' => typo($t['titre']),'date' => $t['date_heure'],'description' => propre($t['texte']),'author' => typo($t['auteur']),'email' => $t['email_auteur'],'url' => _DIR_RESTREINT_ABS.'message.php3?id_message='.$t['id_message'].'#'.$t['id_forum']);$rss[] = $item;}}return $rss;}// Suivi de la page "a suivre" : articles, breves, sites proposes et publiesfunction rss_a_suivre($a) {$rss_articles = rss_articles("statut = 'prop'");$rss_breves = rss_breves("statut = 'prop'");$rss_sites = rss_sites("statut = 'prop'");return array_merge($rss_articles, $rss_breves, $rss_sites);}function rss_articles($critere) {$s = spip_query("SELECT * FROM spip_articles WHERE $critereORDER BY date DESC LIMIT 0,10");while ($t = spip_fetch_array($s)) {$auteur = spip_fetch_array(spip_query("SELECTauteurs.nom AS nom, auteurs.email AS emailFROM spip_auteurs AS auteurs,spip_auteurs_articles AS lienWHERE lien.id_article=".$t['id_article']."AND lien.id_auteur = auteurs.id_auteur"));$item = array('title' => typo($t['titre']),'date' => $t['date'],'author' => typo($auteur['nom']),'email' => $auteur['email'],'description' => propre(couper("{{".$t['chapo']."}}\n\n".$t['texte'],300)),'url' => _DIR_RESTREINT_ABS.'articles.php3?id_article='.$t['id_article']);if ($t['statut'] == 'prop')$item['title'] = _T('info_article_propose').' : '.$item['title'];$rss[] = $item;}return $rss;}function rss_breves($critere) {$s = spip_query("SELECT * FROM spip_breves WHERE $critereORDER BY date_heure DESC LIMIT 0,10");while ($t = spip_fetch_array($s)) {$item = array('title' => typo($t['titre']),'date' => $t['date_heure'],'description' => propre(couper($t['texte'],300)),'url' => _DIR_RESTREINT_ABS.'breves_voir.php3?id_breve='.$t['id_breve']);if ($t['statut'] == 'prop')$item['title'] = _T('titre_breve_proposee').' : '.$item['title'];$rss[] = $item;}return $rss;}function rss_sites($critere) {$s = spip_query("SELECT * FROM spip_syndic WHERE $critereORDER BY date DESC LIMIT 0,10");while ($t = spip_fetch_array($s)) {$item = array('title' => typo($t['titre']." ".$t['url_site']),'date' => $t['date'],'description' => propre(couper($t['texte'],300)),'url' => _DIR_RESTREINT_ABS.'sites.php3?id_syndic='.$t['id_syndic']);if ($t['statut'] == 'prop')$item['title'] = _T('info_site_attente').' : '.$item['title'];$rss[] = $item;}return $rss;}?>