2 /***************************************************************************
3 * Copyright (C) 2003-2008 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 function bugize($list)
24 $list = split(',', $list);
27 foreach ($list as $bug) {
28 $clean = str_replace('#', '', $bug);
29 $ans[] = "<a href='http://trackers.polytechnique.org/task/$clean'>$bug</a>";
32 return join(',', $ans);
36 class PlatalModule
extends PLModule
41 'index' => $this->make_hook('index', AUTH_PUBLIC
),
42 'cacert.pem' => $this->make_hook('cacert', AUTH_PUBLIC
),
43 'changelog' => $this->make_hook('changelog', AUTH_PUBLIC
),
45 // Preferences thingies
46 'prefs' => $this->make_hook('prefs', AUTH_COOKIE
),
47 'prefs/rss' => $this->make_hook('prefs_rss', AUTH_COOKIE
),
49 => $this->make_hook('webredir', AUTH_MDP
),
50 'prefs/skin' => $this->make_hook('skin', AUTH_COOKIE
),
52 // password related thingies
53 'password' => $this->make_hook('password', AUTH_MDP
),
54 'tmpPWD' => $this->make_hook('tmpPWD', AUTH_PUBLIC
),
55 'password/smtp' => $this->make_hook('smtppass', AUTH_MDP
),
56 'recovery' => $this->make_hook('recovery', AUTH_PUBLIC
),
57 'exit' => $this->make_hook('exit', AUTH_PUBLIC
),
58 'review' => $this->make_hook('review', AUTH_PUBLIC
),
59 'deconnexion.php' => $this->make_hook('exit', AUTH_PUBLIC
),
63 function handler_index(&$page)
65 // Include X-XRDS-Location response-header for Yadis discovery
67 header('X-XRDS-Location: ' . $globals->baseurl
. '/openid/idp_xrds');
69 // Redirect to the suitable page
71 pl_redirect('events');
72 } else if (!@$GLOBALS['IS_XNET_SITE']) {
73 pl_redirect('review');
77 function handler_cacert(&$page)
79 $data = file_get_contents("/etc/ssl/xorgCA/cacert.pem","r");
81 header("Set-Cookie:");
82 header("Cache-Control:");
84 header("Content-Type: application/x-x509-ca-cert");
85 header("Content-Length: ".strlen($data));
90 function handler_changelog(&$page)
92 $page->changeTpl('platal/changeLog.tpl');
94 $clog = pl_entities(file_get_contents(dirname(__FILE__
).'/../ChangeLog'));
95 $clog = preg_replace('/===+\s*/', '</pre><hr /><pre>', $clog);
96 // url catch only (not all wiki syntax)
97 $clog = preg_replace(array(
98 '/((?:https?|ftp):\/\/(?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/ui',
99 '/(\s|^)www\.((?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/iu',
100 '/(?:mailto:)?([a-z0-9.\-+_]+@([\-.+_]?[a-z0-9])+)/i'),
102 '<a href="\\0">\\0</a>',
103 '\\1<a href="http://www.\\2">www.\\2</a>',
104 '<a href="mailto:\\0">\\0</a>'),
106 $clog = preg_replace('!(#[0-9]+(,[0-9]+)*)!e', 'bugize("\1")', $clog);
107 $clog = preg_replace('!vim:.*$!', '', $clog);
108 $clog = preg_replace("!(<hr />(\\s|\n)*)?<pre>(\s|\n)*</pre>((\\s|\n)*<hr />)?!m", "", "<pre>$clog</pre>");
109 $page->assign('ChangeLog', $clog);
112 function __set_rss_state($state)
115 $_SESSION['core_rss_hash'] = rand_url_id(16);
116 XDB
::execute('UPDATE auth_user_quick
117 SET core_rss_hash={?} WHERE user_id={?}',
118 S
::v('core_rss_hash'), S
::v('uid'));
120 XDB
::execute('UPDATE auth_user_quick
121 SET core_rss_hash="" WHERE user_id={?}',
123 S
::kill('core_rss_hash');
127 function handler_prefs(&$page)
129 $page->changeTpl('platal/preferences.tpl');
130 $page->setTitle('Mes préférences');
132 if (Post
::has('mail_fmt')) {
133 $fmt = Post
::v('mail_fmt');
134 if ($fmt != 'texte') $fmt = 'html';
135 XDB
::execute("UPDATE auth_user_quick
136 SET core_mail_fmt = '$fmt'
137 WHERE user_id = {?}",
139 $_SESSION['mail_fmt'] = $fmt;
142 if (Post
::has('rss')) {
143 $this->__set_rss_state(Post
::b('rss'));
146 # FIXME: this code is not multi-domain compatible. We should decide how
147 # carva will extend to users not in the main domain.
148 $res = XDB
::query("SELECT alias
150 WHERE id = {?} AND FIND_IN_SET('bestalias', flags)",
152 $page->assign('bestalias', $res->fetchOneCell());
155 function handler_webredir(&$page)
157 $page->changeTpl('platal/webredirect.tpl');
159 $page->setTitle('Redirection de page WEB');
162 $url = Env
::v('url');
164 if (Env
::v('submit') == 'Valider' and Env
::has('url')) {
165 XDB
::execute('UPDATE auth_user_quick
166 SET redirecturl = {?} WHERE user_id = {?}',
168 S
::logger()->log('carva_add', 'http://'.Env
::v('url'));
169 $page->trigSuccess("Redirection activée vers <a href='http://$url'>$url</a>");
170 } elseif (Env
::v('submit') == "Supprimer") {
171 XDB
::execute("UPDATE auth_user_quick
173 WHERE user_id = {?}",
175 S
::logger()->log("carva_del", $url);
177 $page->trigSuccess('Redirection supprimée');
180 $res = XDB
::query('SELECT redirecturl
182 WHERE user_id = {?}',
184 $page->assign('carva', $res->fetchOneCell());
186 # FIXME: this code is not multi-domain compatible. We should decide how
187 # carva will extend to users not in the main domain.
188 $res = XDB
::query("SELECT alias
190 WHERE id = {?} AND FIND_IN_SET('bestalias', flags)",
192 $page->assign('bestalias', $res->fetchOneCell());
195 function handler_prefs_rss(&$page)
197 $page->changeTpl('platal/filrss.tpl');
199 $page->assign('goback', Env
::v('referer', 'login'));
201 if (Env
::v('act_rss') == 'Activer') {
202 $this->__set_rss_state(true
);
203 $page->trigSuccess("Ton Fil RSS est activé.");
207 function handler_password(&$page)
211 if (Post
::has('response2')) {
212 S
::assert_xsrf_token();
214 $_SESSION['password'] = $password = Post
::v('response2');
216 XDB
::execute('UPDATE auth_user_md5
218 WHERE user_id={?}', $password,
221 // If GoogleApps is enabled, and the user did choose to use synchronized passwords,
222 // updates the Google Apps password as well.
223 if ($globals->mailstorage
->googleapps_domain
) {
224 require_once 'googleapps.inc.php';
225 $account = new GoogleAppsAccount(S
::user());
226 if ($account->active() && $account->sync_password
) {
227 $account->set_password($password);
232 S
::logger()->log('passwd', '');
234 if (Cookie
::v('ORGaccess')) {
235 setcookie('ORGaccess', sha1($password), (time()+
25920000), '/', '' ,0);
238 $page->changeTpl('platal/motdepasse.success.tpl');
242 $page->changeTpl('platal/motdepasse.tpl');
243 $page->addJsLink('motdepasse.js');
244 $page->setTitle('Mon mot de passe');
247 function handler_smtppass(&$page)
249 $page->changeTpl('platal/acces_smtp.tpl');
250 $page->setTitle('Acces SMTP/NNTP');
252 $wp = new PlWikiPage('Xorg.SMTPSécurisé');
254 $wp = new PlWikiPage('Xorg.NNTPSécurisé');
258 $pass = Env
::v('smtppass1');
261 if (Env
::v('op') == "Valider" && strlen($pass) >= 6
262 && Env
::v('smtppass1') == Env
::v('smtppass2'))
264 XDB
::execute('UPDATE auth_user_md5 SET smtppass = {?}
265 WHERE user_id = {?}', $pass, $uid);
266 $page->trigSuccess('Mot de passe enregistré');
267 S
::logger()->log("passwd_ssl");
268 } elseif (Env
::v('op') == "Supprimer") {
269 XDB
::execute('UPDATE auth_user_md5 SET smtppass = ""
270 WHERE user_id = {?}', $uid);
271 $page->trigSuccess('Compte SMTP et NNTP supprimé');
272 S
::logger()->log("passwd_del");
275 $res = XDB
::query("SELECT IF(smtppass != '', 'actif', '')
277 WHERE user_id = {?}", $uid);
278 $page->assign('actif', $res->fetchOneCell());
281 function handler_recovery(&$page)
285 $page->changeTpl('platal/recovery.tpl');
287 if (!Env
::has('login') ||
!Env
::has('birth')) {
291 if (!ereg('[0-3][0-9][0-1][0-9][1][9]([0-9]{2})', Env
::v('birth'))) {
292 $page->trigError('Date de naissance incorrecte ou incohérente');
296 $birth = sprintf('%s-%s-%s',
297 substr(Env
::v('birth'), 4, 4),
298 substr(Env
::v('birth'), 2, 2),
299 substr(Env
::v('birth'), 0, 2));
301 $mailorg = strtok(Env
::v('login'), '@');
303 // paragraphe rajouté : si la date de naissance dans la base n'existe pas, on l'update
304 // avec celle fournie ici en espérant que c'est la bonne
307 "SELECT user_id, naissance
308 FROM auth_user_md5 AS u
309 INNER JOIN aliases AS a ON (u.user_id=a.id AND type != 'homonyme')
310 WHERE a.alias={?} AND u.perms IN ('admin','user') AND u.deces=0", $mailorg);
311 list($uid, $naissance) = $res->fetchOneRow();
313 if ($naissance == $birth) {
314 $res = XDB
::query("SELECT COUNT(*)
316 WHERE uid = {?} AND flags != 'panne' AND flags != 'filter'", $uid);
317 $count = intval($res->fetchOneCell());
319 $page->assign('no_addr', true
);
323 $page->assign('ok', true
);
325 $url = rand_url_id();
326 XDB
::execute('INSERT INTO perte_pass (certificat,uid,created)
327 VALUES ({?},{?},NOW())', $url, $uid);
328 $res = XDB
::query('SELECT email
330 WHERE uid = {?} AND email = {?}',
331 $uid, Post
::v('email'));
332 if ($res->numRows()) {
333 $mails = $res->fetchOneCell();
335 $res = XDB
::query('SELECT email
337 WHERE uid = {?} AND NOT FIND_IN_SET("filter", flags)', $uid);
338 $mails = implode(', ', $res->fetchColumn());
340 $mymail = new PlMailer();
341 $mymail->setFrom('"Gestion des mots de passe" <support+password@' . $globals->mail
->domain
. '>');
342 $mymail->addTo($mails);
343 $mymail->setSubject('Ton certificat d\'authentification');
344 $mymail->setTxtBody("Visite la page suivante qui expire dans six heures :
345 {$globals->baseurl}/tmpPWD/$url
347 Si en cliquant dessus tu n'y arrives pas, copie intégralement l'adresse dans la barre de ton navigateur. Si tu n'as pas utilisé ce lien dans six heures, tu peux tout simplement recommencer cette procédure.
351 \"Le portail des élèves & anciens élèves de l'Ecole polytechnique\"
353 Email envoyé à ".Env
::v('login') . (Post
::has('email') ?
"
354 Adresse de secours : " . Post
::v('email') : ""));
357 // on cree un objet logger et on log l'evenement
358 $logger = $_SESSION['log'] = new PlLogger($uid);
359 S
::logger()->log('recovery', $mails);
361 $page->trigError('Les informations que tu as rentrées ne permettent pas de récupérer ton mot de passe.<br />'.
362 'Si tu as un homonyme, utilise prenom.nom.promo comme login');
366 function handler_tmpPWD(&$page, $certif = null
)
369 XDB
::execute('DELETE FROM perte_pass
370 WHERE DATE_SUB(NOW(), INTERVAL 380 MINUTE) > created');
372 $res = XDB
::query('SELECT uid FROM perte_pass WHERE certificat={?}', $certif);
373 $ligne = $res->fetchOneAssoc();
375 $page->changeTpl('platal/index.tpl');
376 $page->kill("Cette adresse n'existe pas ou n'existe plus sur le serveur.");
379 $uid = $ligne["uid"];
380 if (Post
::has('response2')) {
381 $password = Post
::v('response2');
382 XDB
::query('UPDATE auth_user_md5 SET password={?}
383 WHERE user_id={?} AND perms IN("admin","user")',
385 XDB
::query('DELETE FROM perte_pass WHERE certificat={?}', $certif);
387 // If GoogleApps is enabled, and the user did choose to use synchronized passwords,
388 // updates the Google Apps password as well.
389 if ($globals->mailstorage
->googleapps_domain
) {
390 require_once 'googleapps.inc.php';
391 $account = new GoogleAppsAccount(User
::getSilent($uid));
392 if ($account->active() && $account->sync_password
) {
393 $account->set_password($password);
397 $logger = new PlLogger($uid);
398 S
::logger()->log("passwd","");
399 $page->changeTpl('platal/tmpPWD.success.tpl');
401 $page->changeTpl('platal/motdepasse.tpl');
402 $page->addJsLink('motdepasse.js');
406 function handler_skin(&$page)
410 $page->changeTpl('platal/skins.tpl');
411 $page->setTitle('Skins');
413 if (Env
::has('newskin')) { // formulaire soumis, traitons les données envoyées
414 XDB
::execute('UPDATE auth_user_quick
415 SET skin={?} WHERE user_id={?}',
416 Env
::i('newskin'), S
::v('uid'));
418 Platal
::session()->setSkin();
421 $res = XDB
::query('SELECT id FROM skins WHERE skin_tpl={?}', S
::v('skin'));
422 $page->assign('skin_id', $res->fetchOneCell());
424 $sql = "SELECT s.*,auteur,count(*) AS nb
426 LEFT JOIN auth_user_quick AS a ON s.id=a.skin
427 WHERE skin_tpl != '' AND ext != ''
428 GROUP BY id ORDER BY s.date DESC";
429 $page->assign('skins', XDB
::iterator($sql));
432 function handler_exit(&$page, $level = null
)
434 if (S
::has('suid')) {
435 $suid = S
::v('suid');
437 S
::logger()->log("suid_stop", S
::user()->login() . " by " . $suid['hruid']);
438 Platal
::session()->stopSUID();
439 pl_redirect('admin/user/' . S
::user()->login());
442 if ($level == 'forget' ||
$level == 'forgetall') {
443 setcookie('ORGaccess', '', time() - 3600, '/', '', 0);
444 Cookie
::kill('ORGaccess');
445 if (isset($_SESSION['log']))
446 S
::logger()->log("cookie_off");
449 if ($level == 'forgetuid' ||
$level == 'forgetall') {
450 setcookie('ORGuid', '', time() - 3600, '/', '', 0);
451 Cookie
::kill('ORGuid');
452 setcookie('ORGdomain', '', time() - 3600, '/', '', 0);
453 Cookie
::kill('ORGdomain');
456 if (isset($_SESSION['log'])) {
457 $ref = isset($_SERVER['HTTP_REFERER']) ?
$_SERVER['HTTP_REFERER'] : '';
458 S
::logger()->log('deconnexion',$ref);
460 Platal
::session()->destroy();
462 if (Get
::has('redirect')) {
463 http_redirect(rawurldecode(Get
::v('redirect')));
465 $page->changeTpl('platal/exit.tpl');
469 function handler_review(&$page, $action = null
, $mode = null
)
471 // Include X-XRDS-Location response-header for Yadis discovery
473 header('X-XRDS-Location: ' . $globals->baseurl
. '/openid/idp_xrds');
475 $this->load('review.inc.php');
477 if (@$GLOBALS['IS_XNET_SITE']) {
480 $wp = new PlWikiPage($dom . '.Admin');
481 $conf = explode('%0a', $wp->getField('text'));
482 $wiz = new PlWizard('Tour d\'horizon', PlPage
::getCoreTpl('plwizard.tpl'), true
);
483 foreach ($conf as $line) {
484 $list = preg_split('/\s*[*|]\s*/', $line, -1, PREG_SPLIT_NO_EMPTY
);
485 $wiz->addPage('ReviewPage', $list[0], $list[1]);
487 $wiz->apply($page, 'review', $action, $mode);
491 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: