2 /***************************************************************************
3 * Copyright (C) 2003-2010 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
, 'directory_private'),
28 'carnet/panel' => $this->make_hook('panel', AUTH_COOKIE
, 'directory_private'),
29 'carnet/notifs' => $this->make_hook('notifs', AUTH_COOKIE
, 'directory_private'),
31 'carnet/contacts' => $this->make_hook('contacts', AUTH_COOKIE
, 'directory_private'),
32 'carnet/contacts/pdf' => $this->make_hook('pdf', AUTH_COOKIE
, 'directory_private'),
33 'carnet/contacts/vcard' => $this->make_hook('vcard', AUTH_COOKIE
, 'directory_private'),
34 'carnet/contacts/ical' => $this->make_hook('ical', AUTH_PUBLIC
, 'directory_private', NO_HTTPS
),
35 'carnet/contacts/csv' => $this->make_hook('csv', AUTH_PUBLIC
, 'directory_private', NO_HTTPS
),
36 'carnet/contacts/csv/birthday' => $this->make_hook('csv_birthday', AUTH_PUBLIC
, 'directory_private', NO_HTTPS
),
38 'carnet/rss' => $this->make_hook('rss', AUTH_PUBLIC
, 'directory_private', NO_HTTPS
),
42 function _add_rss_link(&$page)
44 if (!S
::hasAuthToken()) {
47 $page->setRssLink('Polytechnique.org :: Carnet',
48 '/carnet/rss/' . S
::v('hruid') . '/' . S
::user()->token
. '/rss.xml');
51 function handler_index(&$page)
53 $page->changeTpl('carnet/index.tpl');
54 $page->setTitle('Mon carnet');
55 $this->_add_rss_link($page);
58 function handler_panel(&$page)
60 $page->changeTpl('carnet/panel.tpl');
62 if (Get
::has('read')) {
63 XDB
::execute('UPDATE watch
64 SET last = FROM_UNIXTIME({?})
66 Get
::i('read'), S
::i('uid'));
67 S
::user()->invalidWatchCache();
68 Platal
::session()->updateNbNotifs();
69 pl_redirect('carnet/panel');
72 require_once 'notifs.inc.php';
73 $page->assign('now', time());
76 $notifs = Watch
::getEvents($user, time() - (7 * 86400));
77 $page->assign('notifs', $notifs);
78 $page->assign('today', date('Y-m-d'));
79 $this->_add_rss_link($page);
82 private function getSinglePromotion(PlPage
&$page, $promo)
84 if (!(is_int($promo) ||
ctype_digit($promo)) ||
$promo < 1920 ||
$promo > date('Y')) {
85 $page->trigError('Promotion invalide : ' . $promo . '.');
91 private function getPromo(PlPage
&$page, $promo)
93 if (strpos($promo, '-') === false
) {
94 $promo = $this->getSinglePromotion($page, $promo);
102 list($promo1, $promo2) = explode('-', $promo);
103 $promo1 = $this->getSinglePromotion($page, $promo1);
107 $promo2 = $this->getSinglePromotion($page, $promo2);
111 if ($promo1 > $promo2) {
112 $page->trigError('Intervalle non valide : ' . $promo . '.');
116 for ($i = $promo1 ; $i <= $promo2 ; ++
$i) {
122 private function addPromo(PlPage
&$page, $promo)
124 $promos = $this->getPromo($page, $promo);
125 if (!$promos ||
count($promos) == 0) {
129 foreach ($promos as $promo) {
130 $to_add[] = XDB
::format('({?}, {?})', S
::i('uid'), $promo);
132 XDB
::execute('INSERT IGNORE INTO watch_promo (uid, promo)
133 VALUES ' . implode(', ', $to_add));
134 S
::user()->invalidWatchCache();
135 Platal
::session()->updateNbNotifs();
138 private function delPromo(PlPage
&$page, $promo)
140 $promos = $this->getPromo($page, $promo);
141 if (!$promos ||
count($promos) == 0) {
144 $to_delete = array();
145 foreach ($promos as $promo) {
146 $to_delete[] = XDB
::format('{?}', $promo);
148 XDB
::execute('DELETE FROM watch_promo
149 WHERE ' . XDB
::format('uid = {?}', S
::i('uid')) . '
150 AND promo IN (' . implode(', ', $to_delete) . ')');
151 S
::user()->invalidWatchCache();
152 Platal
::session()->updateNbNotifs();
155 public function addNonRegistered(PlPage
&$page, PlUser
&$user)
157 XDB
::execute('INSERT IGNORE INTO watch_nonins (uid, ni_id)
158 VALUES ({?}, {?})', S
::i('uid'), $user->id());
159 S
::user()->invalidWatchCache();
160 Platal
::session()->updateNbNotifs();
163 public function delNonRegistered(PlPage
&$page, PlUser
&$user)
165 XDB
::execute('DELETE FROM watch_nonins
166 WHERE uid = {?} AND ni_id = {?}',
167 S
::i('uid'), $user->id());
168 S
::user()->invalidWatchCache();
169 Platal
::session()->updateNbNotifs();
172 public function handler_notifs(&$page, $action = null
, $arg = null
)
174 $page->changeTpl('carnet/notifs.tpl');
177 S
::assert_xsrf_token();
180 $this->addPromo($page, $arg);
184 $this->delPromo($page, $arg);
188 $user = User
::get($arg);
190 $this->delNonRegistered($page, $user);
195 $user = User
::get($arg);
197 $this->addNonRegistered($page, $user);
203 if (Env
::has('subs')) {
204 S
::assert_xsrf_token();
205 $flags = new PlFlagSet();
206 foreach (Env
::v('sub') as $key=>$value) {
207 $flags->addFlag($key, $value);
209 XDB
::execute('UPDATE watch
211 WHERE uid = {?}', $flags, S
::i('uid'));
212 S
::user()->invalidWatchCache();
213 Platal
::session()->updateNbNotifs();
216 if (Env
::has('flags_contacts')) {
217 S
::assert_xsrf_token();
218 XDB
::execute('UPDATE watch
219 SET ' . XDB
::changeFlag('flags', 'contacts', Env
::b('contacts')) . '
220 WHERE uid = {?}', S
::i('uid'));
221 S
::user()->invalidWatchCache();
222 Platal
::session()->updateNbNotifs();
225 if (Env
::has('flags_mail')) {
226 S
::assert_xsrf_token();
227 XDB
::execute('UPDATE watch
228 SET ' . XDB
::changeFlag('flags', 'mail', Env
::b('mail')) . '
229 WHERE uid = {?}', S
::i('uid'));
230 S
::user()->invalidWatchCache();
231 Platal
::session()->updateNbNotifs();
235 $nonins = new UserFilter(new UFC_WatchRegistration($user));
237 $promo = XDB
::fetchColumn('SELECT promo
240 ORDER BY promo', S
::i('uid'));
241 $page->assign('promo_count', count($promo));
245 foreach ($promo as $p) {
246 if (is_null($range_start)) {
247 $range_start = $range_end = $p;
248 } else if ($p != $range_end +
1) {
249 $ranges[] = array($range_start, $range_end);
250 $range_start = $range_end = $p;
255 $ranges[] = array($range_start, $range_end);
256 $page->assign('promo_ranges', $ranges);
257 $page->assign('nonins', $nonins->getUsers());
259 list($flags, $actions) = XDB
::fetchOneRow('SELECT flags, actions
261 WHERE uid = {?}', S
::i('uid'));
262 $flags = new PlFlagSet($flags);
263 $actions = new PlFlagSet($actions);
264 $page->assign('flags', $flags);
265 $page->assign('actions', $actions);
268 function handler_contacts(&$page, $action = null
, $subaction = null
, $ssaction = null
)
270 $page->setTitle('Mes contacts');
271 $this->_add_rss_link($page);
276 // For XSRF protection, checks both the normal xsrf token, and the special RSS token.
277 // It allows direct linking to contact adding in the RSS feed.
278 if (Env
::v('action') && Env
::v('token') !== S
::user()->token
) {
279 S
::assert_xsrf_token();
281 switch (Env
::v('action')) {
283 if (($contact = User
::get(Env
::v('user')))) {
284 if (XDB
::execute("DELETE FROM contacts
285 WHERE uid = {?} AND contact = {?}",
286 $uid, $contact->id())) {
287 Platal
::session()->updateNbNotifs();
288 $page->trigSuccess("Contact retiré !");
294 if (($contact = User
::get(Env
::v('user')))) {
295 if (XDB
::execute("REPLACE INTO contacts (uid, contact)
297 $uid, $contact->id())) {
298 Platal
::session()->updateNbNotifs();
299 $page->trigSuccess('Contact ajouté !');
301 $page->trigWarning('Contact déjà dans la liste !');
309 require_once 'userset.inc.php';
311 if ($action == 'search') {
312 $action = $subaction;
313 $subaction = $ssaction;
316 if ($search && trim(Env
::v('quick'))) {
317 $base = 'carnet/contacts/search';
318 $view = new SearchSet(true
, false
, new UFC_Contact($user));
320 $base = 'carnet/contacts';
321 $view = new ProfileSet(new UFC_Contact($user));
324 $view->addMod('minifiche', 'Mini-fiches', true
);
325 $view->addMod('trombi', 'Trombinoscope', false
, array('with_admin' => false
, 'with_promo' => true
));
326 // TODO: Reactivate when the new map is completed.
327 // $view->addMod('geoloc', 'Planisphère', false, array('with_annu' => 'carnet/contacts/search'));
328 $view->apply('carnet/contacts', $page, $action, $subaction);
329 //if ($action != 'geoloc' || ($search && !$ssaction) || (!$search && !$subaction)) {
330 $page->changeTpl('carnet/mescontacts.tpl');
334 function handler_pdf(&$page, $arg0 = null
, $arg1 = null
)
336 $this->load('contacts.pdf.inc.php');
339 Platal
::session()->close();
341 $order = array(new UFO_Name(Profile
::LASTNAME
), new UFO_Name(Profile
::FIRSTNAME
));
342 if ($arg0 == 'promo') {
343 $order = array_unshift($order, new UFO_Promo());
345 $order[] = new UFO_Promo();
347 $filter = new UserFilter(new UFC_Contact($user), $order);
349 $pdf = new ContactsPDF();
351 $it = $filter->iterProfiles();
352 while ($p = $it->next()) {
353 $pdf = ContactsPDF
::addContact($pdf, $p, $arg0 == 'photos' ||
$arg1 == 'photos');
360 function handler_rss(&$page, $user = null
, $hash = null
)
362 $this->load('feed.inc.php');
363 $feed = new CarnetFeed();
364 return $feed->run($page, $user, $hash);
367 function buildBirthRef(Profile
$profile)
369 $date = strtotime($profile->birthdate
);
370 $tomorrow = $date +
86400;
372 'timestamp' => $date,
373 'date' => date('Ymd', $date),
374 'tomorrow' => date('Ymd', $tomorrow),
375 'hruid' => $profile->hrid(),
376 'summary' => 'Anniversaire de ' . $profile->fullName(true
)
380 function handler_csv_birthday(&$page, $alias = null
, $hash = null
)
382 $user = Platal
::session()->tokenAuth($alias, $hash);
383 if (is_null($user)) {
391 $page->changeTpl('carnet/calendar.outlook.tpl', NO_SKIN
);
392 $filter = new UserFilter(new UFC_Contact($user));
393 $profiles = $filter->iterProfiles();
394 $page->assign('events', PlIteratorUtils
::map($profiles, array($this, 'buildBirthRef')));
395 $years = array(date("Y"));
396 for ($i = 1; $i <= 10; ++
$i) {
397 $years[] = $years[0] +
$i;
399 $page->assign('years', $years);
401 if (preg_match('/([a-zA-Z]{2,8})($|[^a-zA-Z])/', $_SERVER['HTTP_ACCEPT_LANGUAGE'], $matches)) {
402 $lang = strtolower($matches[1]);
404 $page->assign('lang', $lang);
406 $encoding = 'iso8859-15';
410 pl_content_headers("text/comma-separated-values;charset=".$encoding);
413 function handler_ical(&$page, $alias = null
, $hash = null
)
415 $user = Platal
::session()->tokenAuth($alias, $hash);
416 if (is_null($user)) {
424 require_once 'ical.inc.php';
425 $page->changeTpl('carnet/calendar.tpl', NO_SKIN
);
426 $page->register_function('display_ical', 'display_ical');
428 $filter = new UserFilter(new UFC_Contact($user));
429 $profiles = $filter->iterProfiles();
430 $page->assign('events', PlIteratorUtils
::map($profiles, array($this, 'buildBirthRef')));
432 pl_content_headers("text/calendar");
435 function handler_vcard(&$page, $photos = null
)
437 $pf = new ProfileFilter(new UFC_Contact(S
::user()));
438 $vcard = new VCard($photos == 'photos');
439 $vcard->addProfiles($pf->getProfiles());
443 function handler_csv(&$page, $alias = null
, $hash = null
)
445 $user = Platal
::session()->tokenAuth($alias, $hash);
446 if (is_null($user)) {
454 $page->changeTpl('carnet/mescontacts.outlook.tpl', NO_SKIN
);
455 $pf = new ProfileFilter(new UFC_Contact($user));
456 require_once 'carnet/outlook.inc.php';
457 Outlook
::output_profiles($pf->getProfiles(), 'fr');
461 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: