2 /***************************************************************************
3 * Copyright (C) 2003-2006 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
),
34 'carnet/rss' => $this->make_hook('rss', AUTH_PUBLIC
),
35 'carnet/ical' => $this->make_hook('ical', AUTH_PUBLIC
),
39 function _add_rss_link(&$page)
41 if (!S
::has('core_rss_hash')) {
44 $page->assign('xorg_rss',
45 array('title' => 'Polytechnique.org :: Carnet',
46 'href' => '/carnet/rss/'.S
::v('forlife')
47 .'/'.S
::v('core_rss_hash').'/rss.xml')
51 function handler_index(&$page)
53 $page->changeTpl('carnet/index.tpl');
54 $page->assign('xorg_title','Polytechnique.org - 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 $_SESSION['watch_last'] = Get
::v('read');
64 pl_redirect('carnet/panel');
67 require_once 'notifs.inc.php';
69 $page->assign('now',date('YmdHis'));
70 $notifs = new Notifs(S
::v('uid'), true
);
72 $page->assign('notifs', $notifs);
73 $page->assign('today', date('Y-m-d'));
74 $this->_add_rss_link($page);
77 function _handler_notifs_promos(&$page, &$watch, $action, $arg)
79 if(preg_match('!^ *(\d{4}) *$!', $arg, $matches)) {
80 $p = intval($matches[1]);
81 if($p<1900 ||
$p>2100) {
82 $page->trig("la promo entrée est invalide");
84 if ($action == 'add_promo') {
85 $watch->_promos
->add($p);
87 $watch->_promos
->del($p);
90 } elseif (preg_match('!^ *(\d{4}) *- *(\d{4}) *$!', $arg, $matches)) {
91 $p1 = intval($matches[1]);
92 $p2 = intval($matches[2]);
93 if($p1<1900 ||
$p1>2100) {
94 $page->trig('la première promo de la plage entrée est invalide');
95 } elseif($p2<1900 ||
$p2>2100) {
96 $page->trig('la seconde promo de la plage entrée est invalide');
98 if ($action == 'add_promo') {
99 $watch->_promos
->addRange($p1, $p2);
101 $watch->_promos
->delRange($p1, $p2);
105 $page->trig("La promo (ou la plage de promo) entrée est dans un format incorrect.");
109 function handler_notifs(&$page, $action = null
, $arg = null
)
111 $page->changeTpl('carnet/notifs.tpl');
113 require_once 'notifs.inc.php';
115 $watch = new Watch(S
::v('uid'));
117 $res = XDB
::query("SELECT promo_sortie
119 WHERE user_id = {?}",
121 $promo_sortie = $res->fetchOneCell();
122 $page->assign('promo_sortie', $promo_sortie);
127 $this->_handler_notifs_promos($page, $watch, $action, $arg);
131 $watch->_nonins
->del($arg);
135 $watch->_nonins
->add($arg);
139 if (Env
::has('subs')) $watch->_subs
->update('sub');
140 if (Env
::has('flags_contacts')) {
141 $watch->watch_contacts
= Env
::b('contacts');
144 if (Env
::has('flags_mail')) {
145 $watch->watch_mail
= Env
::b('mail');
149 $page->assign_by_ref('watch', $watch);
152 function _get_list($offset, $limit) {
154 $res = XDB
::query("SELECT COUNT(*) FROM contacts WHERE uid = {?}", $uid);
155 $total = $res->fetchOneCell();
157 $order = Get
::v('order');
159 'nom' => 'nom DESC, u.prenom, u.promo',
160 'promo' => 'promo DESC, nom, u.prenom',
161 'last' => 'u.date DESC, nom, u.prenom, promo');
162 if ($order != 'promo' && $order != 'last')
164 $order = $orders[$order];
165 if (Get
::v('inv') == '')
166 $order = str_replace(" DESC,", ",", $order);
169 SELECT u.prenom, IF(u.nom_usage='',u.nom,u.nom_usage) AS nom, a.alias AS forlife, u.promo
171 INNER JOIN auth_user_md5 AS u ON (u.user_id = c.contact)
172 INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type='a_vie')
175 LIMIT {?}, {?}", $uid, $offset*$limit, $limit);
176 $list = $res->fetchAllAssoc();
178 return Array($total, $list);
181 function handler_contacts(&$page, $action = null
)
183 $page->changeTpl('carnet/mescontacts.tpl');
184 require_once("applis.func.inc.php");
185 $page->assign('xorg_title','Polytechnique.org - Mes contacts');
188 $user = Env
::v('user');
190 switch (Env
::v('action')) {
192 if (is_numeric($user)) {
193 if (XDB
::execute('DELETE FROM contacts
194 WHERE uid = {?} AND contact = {?}',
197 $page->trig("Contact retiré !");
201 'DELETE FROM contacts
203 INNER JOIN aliases AS a ON (c.contact=a.id and a.type!="homonyme")
204 WHERE c.uid = {?} AND a.alias={?}', $uid, $user))
206 $page->trig("Contact retiré !");
212 require_once('user.func.inc.php');
213 if (($login = get_user_login($user)) !== false
) {
215 'INSERT INTO contacts (uid, contact)
218 WHERE alias = {?}', $uid, $login))
220 $page->trig('Contact ajouté !');
222 $page->trig('Contact déjà dans la liste !');
227 if ($action == 'trombi') {
228 require_once 'trombi.inc.php';
230 $trombi = new Trombi(array($this, '_get_list'));
231 $trombi->setNbRows(4);
232 $page->assign_by_ref('trombi',$trombi);
234 $order = Get
::v('order');
235 if ($order != 'promo' && $order != 'last')
237 $page->assign('order', $order);
238 $page->assign('inv', Get
::v('inv'));
242 $order = Get
::v('order');
244 'nom' => 'sortkey DESC, a.prenom, a.promo',
245 'promo' => 'promo DESC, sortkey, a.prenom',
246 'last' => 'a.date DESC, sortkey, a.prenom, promo');
247 if ($order != 'promo' && $order != 'last')
249 $page->assign('order', $order);
250 $page->assign('inv', Get
::v('inv'));
251 $order = $orders[$order];
252 if (Get
::v('inv') == '')
253 $order = str_replace(" DESC,", ",", $order);
255 $sql = "SELECT contact AS id,
256 a.*, l.alias AS forlife,
258 a.perms != 'pending' AS wasinscrit,
259 a.deces != 0 AS dcd, a.deces, a.matricule_ax,
260 FIND_IN_SET('femme', a.flags) AS sexe,
261 e.entreprise, es.label AS secteur, ef.fonction_fr AS fonction,
262 IF(n.nat='',n.pays,n.nat) AS nat, n.a2 AS iso3166,
263 ad0.text AS app0text, ad0.url AS app0url, ai0.type AS app0type,
264 ad1.text AS app1text, ad1.url AS app1url, ai1.type AS app1type,
265 adr.city, gp.a2, gp.pays AS countrytxt, gr.name AS region,
266 IF(a.nom_usage<>'',a.nom_usage,a.nom) AS sortkey
268 INNER JOIN auth_user_md5 AS a ON (a.user_id = c.contact)
269 INNER JOIN aliases AS l ON (a.user_id = l.id AND l.type='a_vie')
270 LEFT JOIN entreprises AS e ON (e.entrid = 0 AND e.uid = a.user_id)
271 LEFT JOIN emploi_secteur AS es ON (e.secteur = es.id)
272 LEFT JOIN fonctions_def AS ef ON (e.fonction = ef.id)
273 LEFT JOIN geoloc_pays AS n ON (a.nationalite = n.a2)
274 LEFT JOIN applis_ins AS ai0 ON (a.user_id = ai0.uid AND ai0.ordre = 0)
275 LEFT JOIN applis_def AS ad0 ON (ad0.id = ai0.aid)
276 LEFT JOIN applis_ins AS ai1 ON (a.user_id = ai1.uid AND ai1.ordre = 1)
277 LEFT JOIN applis_def AS ad1 ON (ad1.id = ai1.aid)
278 LEFT JOIN adresses AS adr ON (a.user_id = adr.uid
279 AND FIND_IN_SET('active', adr.statut))
280 LEFT JOIN geoloc_pays AS gp ON (adr.country = gp.a2)
281 LEFT JOIN geoloc_region AS gr ON (adr.country = gr.a2 AND adr.region = gr.region)
285 $page->assign_by_ref('citer', XDB
::iterator($sql));
289 function handler_pdf(&$page, $arg0 = null
, $arg1 = null
)
291 require_once 'contacts.pdf.inc.php';
292 require_once 'user.func.inc.php';
294 session_write_close();
296 $sql = "SELECT a.alias
298 INNER JOIN auth_user_md5 AS u ON ( a.id = u.user_id )
299 INNER JOIN contacts AS c ON ( a.id = c.contact )
300 WHERE c.uid = {?} AND a.type='a_vie'";
301 if ($arg0 == 'promo') {
302 $sql .= ' ORDER BY u.promo, u.nom, u.prenom';
304 $sql .= ' ORDER BY u.nom, u.prenom, u.promo';
307 $citer = XDB
::iterRow($sql, S
::v('uid'));
308 $pdf = new ContactsPDF();
310 while (list($alias) = $citer->next()) {
311 $user = get_user_details($alias);
312 $pdf->addContact($user, $arg0 == 'photos' ||
$arg1 == 'photos');
319 function handler_rss(&$page, $user = null
, $hash = null
)
321 require_once 'rss.inc.php';
322 require_once 'notifs.inc.php';
324 $uid = init_rss('carnet/rss.tpl', $user, $hash);
325 $notifs = new Notifs($uid, false
);
326 $page->assign('notifs', $notifs);
329 function handler_ical(&$page)
331 $page->changeTpl('carnet/calendar.tpl', NO_SKIN
);
335 IF(u.nom_usage = \'\',u.nom,u.nom_usage) AS nom,
338 DATE_ADD(u.naissance, INTERVAL 1 DAY) AS end,
342 INNER JOIN auth_user_md5 AS u ON (u.user_id = c.contact)
343 INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type = \'a_vie\')
344 WHERE c.uid = {?}', S
::v('uid'));
347 while (list($prenom, $nom, $promo, $naissance, $end, $ts, $forlife) = $res->next()) {
348 $naissance = str_replace('-', '', $naissance);
349 $end = str_replace('-', '', $end);
351 'timestamp' => strtotime($ts),
352 'date' => $naissance,
354 'forlife' => $forlife,
355 'summary' => 'Anniversaire de '.$prenom
356 .' '.$nom.' - x '.$promo,
359 $page->assign('events', $annivs);
361 header('Content-Type: text/calendar; charset=utf-8');