2 /***************************************************************************
3 * Copyright (C) 2003-2009 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 class CarnetModule
extends PLModule
27 'carnet' => $this->make_hook('index', AUTH_COOKIE
),
28 'carnet/panel' => $this->make_hook('panel', AUTH_COOKIE
),
29 'carnet/notifs' => $this->make_hook('notifs', AUTH_COOKIE
),
31 'carnet/contacts' => $this->make_hook('contacts', AUTH_COOKIE
),
32 'carnet/contacts/pdf' => $this->make_hook('pdf', AUTH_COOKIE
, 'user', NO_HTTPS
),
33 'carnet/contacts/ical' => $this->make_hook('ical', AUTH_PUBLIC
, 'user', NO_HTTPS
),
34 'carnet/contacts/vcard' => $this->make_hook('vcard', AUTH_COOKIE
, 'user', NO_HTTPS
),
36 'carnet/rss' => $this->make_hook('rss', AUTH_PUBLIC
, 'user', NO_HTTPS
),
40 function _add_rss_link(&$page)
42 if (!S
::hasAuthToken()) {
45 $page->setRssLink('Polytechnique.org :: Carnet',
46 '/carnet/rss/'.S
::v('hruid').'/'.S
::v('token').'/rss.xml');
49 function handler_index(&$page)
51 $page->changeTpl('carnet/index.tpl');
52 $page->setTitle('Mon carnet');
53 $this->_add_rss_link($page);
56 function handler_panel(&$page)
58 $page->changeTpl('carnet/panel.tpl');
60 if (Get
::has('read')) {
61 XDB
::execute('UPDATE watch
62 SET last = FROM_UNIXTIME({?})
64 Get
::i('read'), S
::i('uid'));
65 S
::set('watch_last', Get
::i('read'));
66 Platal
::session()->updateNbNotifs();
67 pl_redirect('carnet/panel');
70 require_once 'notifs.inc.php';
71 $page->assign('now', time());
74 $notifs = Watch
::getEvents($user, time() - (7 * 86400));
75 $page->assign('notifs', $notifs);
76 $page->assign('today', date('Y-m-d'));
77 $this->_add_rss_link($page);
80 private function getSinglePromotion(PlPage
&$page, $promo)
82 if (!ctype_digit($promo) ||
$promo < 1920 ||
$promo > date('Y')) {
83 $page->trigError('Promotion invalide : ' . $promo);
89 private function getPromo(PlPage
&$page, $promo)
91 if (strpos($promo, '-') === false
) {
92 $promo = $this->getSinglePromotion($page, $promo);
100 list($promo1, $promo2) = explode('-', $promo);
101 $promo1 = $this->getSinglePromotion($page, $promo1);
105 $promo2 = $this->getSinglePromotion($page, $promo2);
109 if ($promo1 > $promo2) {
110 $page->trigError("Intervale non valide : " . $promo);
114 for ($i = $promo1 ; $i <= $promo2 ; ++
$i) {
120 private function addPromo(PlPage
&$page, $promo)
122 $promos = $this->getPromo($page, $promo);
123 if (!$promos ||
count($promos) == 0) {
127 foreach ($promos as $promo) {
128 $to_add[] = XDB
::format('({?}, {?})', S
::i('uid'), $promo);
130 XDB
::execute('INSERT IGNORE INTO watch_promo (uid, promo)
131 VALUES ' . implode(', ', $to_add));
134 private function delPromo(PlPage
&$page, $promo)
136 $promos = $this->getPromo($page, $promo);
137 if (!$promos ||
count($promos) == 0) {
140 $to_delete = array();
141 foreach ($promos as $promo) {
142 $to_delete[] = XDB
::format('{?}', $promo);
144 XDB
::execute('DELETE FROM watch_promo
145 WHERE ' . XDB
::format('uid = {?}', S
::i('uid')) . '
146 AND promo IN (' . implode(', ', $to_delete) . ')');
149 public function addNonRegistered(PlPage
&$page, PlUser
&$user)
151 XDB
::execute('INSERT IGNORE INTO watch_nonins (uid, ni_id)
152 VALUES ({?}, {?})', S
::i('uid'), $user->id());
155 public function delNonRegistered(PlPage
&$page, PlUser
&$user)
157 XDB
::execute('DELETE FROM watch_nonins
158 WHERE uid = {?} AND ni_id = {?}',
159 S
::i('uid'), $user->id());
162 public function handler_notifs(&$page, $action = null
, $arg = null
)
164 $page->changeTpl('carnet/notifs.tpl');
167 S
::assert_xsrf_token();
170 $this->addPromo($page, $arg);
174 $this->delPromo($page, $arg);
178 $user = User
::get($arg);
180 $this->delNonRegistered($page, $user);
185 $user = User
::get($arg);
187 $this->addNonRegistered($page, $user);
193 if (Env
::has('subs')) {
194 S
::assert_xsrf_token();
195 $flags = new PlFlagSet();
196 foreach (Env
::v('sub') as $key=>$value) {
197 $flags->addFlag($key, $value);
199 XDB
::execute('UPDATE watch
201 WHERE uid = {?}', $flags, S
::i('uid'));
204 if (Env
::has('flags_contacts')) {
205 S
::assert_xsrf_token();
206 XDB
::execute('UPDATE watch
207 SET ' . XDB
::changeFlag('flags', 'contacts', Env
::b('contacts')) . '
208 WHERE uid = {?}', S
::i('uid'));
211 if (Env
::has('flags_mail')) {
212 S
::assert_xsrf_token();
213 XDB
::execute('UPDATE watch
214 SET ' . XDB
::changeFlag('flags', 'mail', Env
::b('mail')) . '
215 WHERE uid = {?}', S
::i('uid'));
219 $nonins = new UserFilter(new UFC_WatchRegistration($user));
221 $promo = XDB
::fetchColumn('SELECT promo
224 ORDER BY promo', S
::i('uid'));
225 $page->assign('promo_count', count($promo));
229 foreach ($promo as $p) {
230 if (is_null($range_start)) {
231 $range_start = $range_end = $p;
232 } else if ($p != $range_end +
1) {
233 $ranges[] = array($range_start, $range_end);
234 $range_start = $range_end = $p;
239 $ranges[] = array($range_start, $range_end);
240 $page->assign('promo_ranges', $ranges);
241 $page->assign('nonins', $nonins->getUsers());
243 list($flags, $actions) = XDB
::fetchOneRow('SELECT flags, actions
245 WHERE uid = {?}', S
::i('uid'));
246 $flags = new PlFlagSet($flags);
247 $actions = new PlFlagSet($actions);
248 $page->assign('flags', $flags);
249 $page->assign('actions', $actions);
252 function handler_contacts(&$page, $action = null
, $subaction = null
, $ssaction = null
)
254 $page->setTitle('Mes contacts');
255 $this->_add_rss_link($page);
258 $user = Env
::v('user');
260 // For XSRF protection, checks both the normal xsrf token, and the special RSS token.
261 // It allows direct linking to contact adding in the RSS feed.
262 if (Env
::v('action') && Env
::v('token') !== S
::v('token')) {
263 S
::assert_xsrf_token();
265 switch (Env
::v('action')) {
267 if (($user = User
::get(Env
::v('user')))) {
268 if (XDB
::execute("DELETE FROM contacts
269 WHERE uid = {?} AND contact = {?}", $uid, $user->id())) {
270 $page->trigSuccess("Contact retiré !");
276 if (($user = User
::get(Env
::v('user')))) {
277 if (XDB
::execute("REPLACE INTO contacts (uid, contact)
278 VALUES ({?}, {?})", $uid, $user->id())) {
279 $page->trigSuccess('Contact ajouté !');
281 $page->trigWarning('Contact déjà dans la liste !');
288 if ($action == 'search') {
289 $action = $subaction;
290 $subaction = $ssaction;
293 if ($search && trim(Env::v('quick'))) {
294 $base = 'carnet/contacts/search';
296 Platal::load('search', 'classes.inc.php');
297 ThrowError::$throwHook = array($this, 'searchErrorHandler');
298 $view = new SearchSet(true, false, "INNER JOIN contacts AS c2 ON (u.user_id = c2.contact)", "c2.uid = $uid");
300 $base = 'carnet/contacts';
301 $view = new UserSet("INNER JOIN contacts AS c2 ON (u.user_id = c2.contact)", " c2.uid = $uid ");
304 require_once 'userset.inc.php';
306 $view = new UserSet(new UFC_Contact($user));
307 $view->addMod('minifiche', 'Mini-fiches', true
);
308 $view->addMod('trombi', 'Trombinoscope', false
, array('with_admin' => false
, 'with_promo' => true
));
309 $view->addMod('geoloc', 'Planisphère', false
, array('with_annu' => 'carnet/contacts/search'));
310 $view->apply('carnet/contacts', $page, $action, $subaction);
311 //if ($action != 'geoloc' || ($search && !$ssaction) || (!$search && !$subaction)) {
312 $page->changeTpl('carnet/mescontacts.tpl');
316 function handler_pdf(&$page, $arg0 = null
, $arg1 = null
)
318 $this->load('contacts.pdf.inc.php');
319 require_once 'user.func.inc.php';
321 Platal
::session()->close();
323 $sql = "SELECT a.alias
325 INNER JOIN auth_user_md5 AS u ON ( a.id = u.user_id )
326 INNER JOIN contacts AS c ON ( a.id = c.contact )
327 WHERE c.uid = {?} AND a.type='a_vie'";
328 if ($arg0 == 'promo') {
329 $sql .= ' ORDER BY u.promo, u.nom, u.prenom';
331 $sql .= ' ORDER BY u.nom, u.prenom, u.promo';
334 $citer = XDB
::iterRow($sql, S
::v('uid'));
335 $pdf = new ContactsPDF();
337 while (list($alias) = $citer->next()) {
338 $user = get_user_details($alias);
339 foreach ($user as &$value) {
340 if (is_utf8($value)) {
341 $value = utf8_decode($value);
344 $pdf = ContactsPDF
::addContact($pdf, $user, $arg0 == 'photos' ||
$arg1 == 'photos');
351 function handler_rss(&$page, $user = null
, $hash = null
)
353 $this->load('feed.inc.php');
354 $feed = new CarnetFeed();
355 return $feed->run($page, $user, $hash);
358 function handler_ical(&$page, $alias = null
, $hash = null
)
360 $user = Platal
::session()->tokenAuth($alias, $hash);
361 if (is_null($user)) {
369 require_once 'ical.inc.php';
370 $page->changeTpl('carnet/calendar.tpl', NO_SKIN
);
371 $page->register_function('display_ical', 'display_ical');
375 IF(u.nom_usage = \'\',u.nom,u.nom_usage) AS nom,
378 DATE_ADD(u.naissance, INTERVAL 1 DAY) AS end,
382 INNER JOIN auth_user_md5 AS u ON (u.user_id = c.contact)
383 INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type = \'a_vie\')
384 WHERE c.uid = {?}', $user->id());
387 while (list($prenom, $nom, $promo, $naissance, $end, $ts, $hruid) = $res->next()) {
388 $naissance = str_replace('-', '', $naissance);
389 $end = str_replace('-', '', $end);
391 'timestamp' => strtotime($ts),
392 'date' => $naissance,
395 'summary' => 'Anniversaire de '.$prenom
396 .' '.$nom.' - x '.$promo,
399 $page->assign('events', $annivs);
401 header('Content-Type: text/calendar; charset=utf-8');
404 function handler_vcard(&$page, $photos = null
)
406 $res = XDB
::query('SELECT contact
408 WHERE uid = {?}', S
::v('uid'));
409 $vcard = new VCard($photos == 'photos');
410 $vcard->addUsers($res->fetchColumn());
415 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: