Subversion Repositories Sites.tela-botanica.org

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 david 1
<?php
2
 
3
/***************************************************************************\
4
 *  SPIP, Systeme de publication pour l'internet                           *
5
 *                                                                         *
6
 *  Copyright (c) 2001-2005                                                *
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
 
14
include ("inc.php3");
15
// pour low_sec (iCal)
16
include_ecrire("inc_acces.php3");
17
 
18
 
19
///// debut de la page
20
debut_page(_T("icone_suivi_activite"),  "asuivre", "synchro");
21
 
22
echo "<br><br><br>";
23
gros_titre(_T("icone_suivi_activite"));
24
 
25
 
26
debut_gauche();
27
 
28
debut_boite_info();
29
 
30
echo "<div class='verdana2'>";
31
 
32
echo _T('ical_info1').'<br /><br />';
33
 
34
echo _T('ical_info2');
35
 
36
echo "</div>";
37
 
38
fin_boite_info();
39
 
40
 
41
$suivi_edito=lire_meta("suivi_edito");
42
$adresse_suivi=lire_meta("adresse_suivi");
43
$adresse_site=lire_meta("adresse_site");
44
$adresse_suivi_inscription=lire_meta("adresse_suivi_inscription");
45
 
46
debut_droite();
47
 
48
 
49
///
50
/// Suivi par mailing-list
51
///
52
 
53
if ($suivi_edito == "oui" AND strlen($adresse_suivi) > 3 AND strlen($adresse_suivi_inscription) > 3) {
54
	debut_cadre_enfonce("racine-site-24.gif", false, "", _T('ical_titre_mailing'));
55
	$lien = propre("[->$adresse_suivi_inscription]");
56
 
57
 
58
	echo _T('info_config_suivi_explication');
59
	echo "<p align='center'><b>$lien</b></p>\n";
60
 
61
	fin_cadre_enfonce();
62
}
63
 
64
 
65
///
66
/// Suivi par agenda iCal (taches + rendez-vous)
67
///
68
 
69
debut_cadre_relief("agenda-24.gif", false, "", _T('icone_calendrier'));
70
 
71
echo _T('calendrier_synchro');
72
 
73
echo '<p>'._T('ical_info_calendrier').'</p>';
74
 
75
 
76
function afficher_liens_calendrier($lien, $icone, $texte) {
77
	global $adresse_site;
78
	echo debut_cadre_enfonce($icone);
79
	echo $texte;
80
	echo "<table style='width: 100%;><tr'><td style='width: 200px;'>";
81
		icone_horizontale (_T('ical_methode_http'), "$adresse_site/$lien", "calendrier-24.gif");
82
	echo "</td>";
83
	echo "<td> &nbsp; </td>";
84
	echo "<td style='width: 200px;'>";
85
		$webcal = ereg_replace("https?://", "webcal://", $adresse_site);
86
		icone_horizontale (_T('ical_methode_webcal'), "$webcal/$lien", "calendrier-24.gif");
87
	echo "</td></tr></table>";
88
	echo fin_cadre_enfonce();
89
}
90
 
91
afficher_liens_calendrier('ical.php3','', _T('ical_texte_public'));
92
 
93
 
94
afficher_liens_calendrier("spip_cal.php3?id=$connect_id_auteur&cle=".afficher_low_sec($connect_id_auteur,'ical'),'cadenas-24.gif',  _T('ical_texte_prive'));
95
 
96
 
97
fin_cadre_relief();
98
 
99
 
100
 
101
///
102
/// Suivi par RSS
103
///
104
 
105
debut_cadre_relief("site-24.gif", false, "", _T('ical_titre_rss'));
106
 
107
echo _T('ical_texte_rss');
108
 
109
echo "<p>"._T("ical_texte_rss_articles")."</p>";
110
 
111
echo propre("<ul><cadre>".$adresse_site."/backend.php3</cadre></ul>");
112
 
113
echo "<p>"._T("ical_texte_rss_articles2")."</p>";
114
 
115
 
116
	$query = "SELECT * FROM spip_rubriques WHERE id_parent='0' ORDER BY 0+titre, titre";
117
	$result = spip_query($query);
118
 
119
	if (spip_num_rows($result) > 0) {
120
		echo "<ul>";
121
 
122
		while($row=spip_fetch_array($result)){
123
			$id_rubrique=$row['id_rubrique'];
124
			$titre_rubrique = typo($row['titre']);
125
			$titre = htmlspecialchars($titre_rubrique);
126
 
127
			echo "<li>", http_href("$adresse_site/backend.php3?id_rubrique=$id_rubrique",
128
	'<span class="rss-button">RSS</span>'
129
	. "&nbsp; $titre_rubrique",
130
					       $titre),
131
			  "</li>\n";
132
		}
133
		echo "</ul>";
134
	}
135
 
136
 
137
	$activer_breves = lire_meta('activer_breves');
138
 
139
	if ($activer_breves == "oui") {
140
 
141
		echo "<p>"._T("ical_texte_rss_breves")."</p>";
142
		echo propre('<ul><cadre>'.$adresse_site.'/backend-breves.php3</cadre></ul>');
143
 
144
	}
145
 
146
fin_cadre_relief();
147
 
148
 
149
 
150
///
151
/// Suivi par Javascript
152
///
153
 
154
debut_cadre_relief("doc-24.gif", false, "", _T('ical_titre_js'));
155
 
156
echo _T('ical_texte_js').'<p />';
157
 
158
echo propre('<cadre><script type="text/javascript" src="'.$adresse_site.'/distrib.php3"></script></cadre>');
159
 
160
fin_cadre_relief();
161
 
162
 
163
 
164
fin_page();
165
 
166
?>