Subversion Repositories Sites.tela-botanica.org

Compare Revisions

Ignore whitespace Rev 3 → Rev 4

/trunk/actu/ecrire/inc_rss.php3
New file
0,0 → 1,372
<?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 fois
if (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);
}
else
spip_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>
';
 
// elements
if (is_array($rss)) {
usort($rss, 'trier_par_date');
foreach ($rss as $article) {
if ($article['email'])
$article['author'].=' &lt;'.$article['email'].'&gt;';
$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:VCALENDAR
CALSCALE:GREGORIAN
X-WR-CALNAME;VALUE=TEXT:'.filtrer_ical($intro['title']).'
X-WR-RELCALID:'.filtrer_ical(url_absolue($intro['url'])).'
';
 
// elements
if (is_array($rss)) {
usort($rss, 'trier_par_date');
foreach ($rss as $article) {
 
// Regler la date de fin a h+60min
if (!$article['enddate'])
$article['enddate'] = date_ical($article['date'],60);
else
$article['enddate'] = date_ical($article['enddate']);
 
// Type d'evenement
if ($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_rss
function 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))
. "&amp;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'articles
function 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 forums
function rss_suivi_forums($a, $query_forum='', $lien_moderation=false) {
include_ecrire("inc_forum.php3");
 
$result_forum = spip_query("
SELECT *
FROM spip_forum
WHERE " . $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 privee
function 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_message
GROUP 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("SELECT
auteurs.nom AS nom, auteurs.email AS email
FROM spip_auteurs AS auteurs,
spip_auteurs_messages AS lien
WHERE 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 messages
if ($messages_vus) {
$s = spip_query("SELECT * FROM spip_forum WHERE id_message
IN (".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 publies
function 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 $critere
ORDER BY date DESC LIMIT 0,10");
while ($t = spip_fetch_array($s)) {
$auteur = spip_fetch_array(spip_query("SELECT
auteurs.nom AS nom, auteurs.email AS email
FROM spip_auteurs AS auteurs,
spip_auteurs_articles AS lien
WHERE 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 $critere
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(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 $critere
ORDER 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;
}
 
 
?>