erreur thunmbail4
[aidenligne_francais_universite.git] / ecrire / xml / ical.php
... / ...
CommitLineData
1<?php
2
3/***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
5 * *
6 * Copyright (c) 2001-2007 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
8 * *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11\***************************************************************************/
12
13
14if (!defined("_ECRIRE_INC_VERSION")) return;
15
16include_spip('inc/minipres');
17include_spip('inc/acces');
18include_spip('inc/texte'); // utile pour l'espace public, deja fait sinon
19
20function xml_ical_dist($rss, $intro = '') {
21
22 // entetes
23 $u =
24'BEGIN:VCALENDAR
25CALSCALE:GREGORIAN
26X-WR-CALNAME;VALUE=TEXT:'.filtrer_ical($intro['title']).'
27X-WR-RELCALID:'.filtrer_ical(url_absolue($intro['url'])).'
28';
29
30 // elements
31 if (is_array($rss)) {
32 usort($rss, 'trier_par_date');
33 foreach ($rss as $article) {
34
35 // Regler la date de fin a h+60min
36 if (!$article['enddate'])
37 $article['enddate'] = date_ical($article['date'],60);
38 else
39 $article['enddate'] = date_ical($article['enddate']);
40
41 // Type d'evenement
42 if ($article['type'] == 'todo')
43 $type = 'VTODO';
44 else
45 $type = 'VEVENT';
46
47 $u .=
48'BEGIN:'.$type.'
49SUMMARY:'.filtrer_ical($article['title']).'
50URL:'.filtrer_ical(url_absolue($article['url'])).'
51DTSTAMP:'. date_ical($article['date']).'
52DTSTART:'. date_ical($article['date']).'
53DTEND:'. $article['enddate'].'
54DESCRIPTION:'.filtrer_ical(liens_absolus($article['description'])).'
55ORGANIZER:'.filtrer_ical($article['author']).'
56CATEGORIES:--
57END:'.$type.'
58';
59 }
60 }
61
62 // pied
63 $u .= 'END:VCALENDAR';
64
65 header('Content-Type: text/calendar; charset=utf-8');
66 echo $u;
67}
68?>