Subversion Repositories Sites.tela-botanica.org

<?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'].=' <'.$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: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))

			. "&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;

}

?>