197728eb4ec855442a268eb2608f2501a241654b
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 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
),
48 'prefs/webredirect' => $this->make_hook('webredir', AUTH_MDP
),
49 'prefs/skin' => $this->make_hook('skin', AUTH_COOKIE
),
51 // password related thingies
52 'password' => $this->make_hook('password', AUTH_MDP
),
53 'tmpPWD' => $this->make_hook('tmpPWD', AUTH_PUBLIC
),
54 'password/smtp' => $this->make_hook('smtppass', AUTH_MDP
),
55 'recovery' => $this->make_hook('recovery', AUTH_PUBLIC
),
56 'exit' => $this->make_hook('exit', AUTH_PUBLIC
),
57 'review' => $this->make_hook('review', AUTH_PUBLIC
),
58 'deconnexion.php' => $this->make_hook('exit', AUTH_PUBLIC
),
62 function handler_index(&$page)
64 // Include X-XRDS-Location response-header for Yadis discovery
66 header('X-XRDS-Location: ' . $globals->baseurl
. '/openid/xrds');
68 // Redirect to the suitable page
70 pl_redirect('events');
71 } else if (!@$GLOBALS['IS_XNET_SITE']) {
72 $this->handler_review($page);
76 function handler_cacert(&$page)
78 pl_cached_content_headers("application/x-x509-ca-cert");
79 readfile("/etc/ssl/xorgCA/cacert.pem");
83 function handler_changelog(&$page, $core = null
)
85 $page->changeTpl('platal/changeLog.tpl');
87 function formatChangeLog($file) {
88 $clog = pl_entities(file_get_contents($file));
89 $clog = preg_replace('/===+\s*/', '</pre><hr /><pre>', $clog);
90 // url catch only (not all wiki syntax)
91 $clog = preg_replace(array(
92 '/((?:https?|ftp):\/\/(?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/ui',
93 '/(\s|^)www\.((?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/iu',
94 '/(?:mailto:)?([a-z0-9.\-+_]+@([\-.+_]?[a-z0-9])+)/i'),
96 '<a href="\\0">\\0</a>',
97 '\\1<a href="http://www.\\2">www.\\2</a>',
98 '<a href="mailto:\\0">\\0</a>'),
100 $clog = preg_replace('!(#[0-9]+(,[0-9]+)*)!e', 'bugize("\1")', $clog);
101 $clog = preg_replace('!vim:.*$!', '', $clog);
102 return preg_replace("!(<hr />(\\s|\n)*)?<pre>(\s|\n)*</pre>((\\s|\n)*<hr />)?!m", "", "<pre>$clog</pre>");
104 if ($core != 'core') {
105 $page->assign('core', false
);
106 $page->assign('ChangeLog', formatChangeLog(dirname(__FILE__
).'/../ChangeLog'));
108 $page->assign('core', true
);
109 $page->assign('ChangeLog', formatChangeLog(dirname(__FILE__
).'/../core/ChangeLog'));
113 function __set_rss_state($state)
116 S
::set('token', rand_url_id(16));
117 XDB
::execute('UPDATE accounts
119 WHERE uid = {?}', S
::s('token'), S
::i('uid'));
122 XDB
::execute('UPDATE accounts
124 WHERE uid = {?}', S
::i('uid'));
128 function handler_prefs(&$page)
130 $page->changeTpl('platal/preferences.tpl');
131 $page->setTitle('Mes préférences');
133 if (Post
::has('email_format')) {
134 $fmt = Post
::s('email_format');
135 XDB
::execute("UPDATE accounts
136 SET email_format = {?}
139 S
::set('email_format', $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 uid = {?} AND FIND_IN_SET('bestalias', flags)",
152 $page->assign('bestalias', $res->fetchOneCell());
155 function handler_webredir(&$page)
157 $page->changeTpl('platal/webredirect.tpl');
158 $page->setTitle('Redirection de page WEB');
160 if (Env
::v('submit') == 'Valider' && !Env
::blank('url')) {
161 if (Env
::blank('url')) {
162 $page->trigError('URL invalide');
164 $url = Env
::t('url');
165 XDB
::execute('REPLACE INTO carvas (uid, url)
168 S
::logger()->log('carva_add', 'http://' . $url);
169 $page->trigSuccess("Redirection activée vers <a href='http://$url'>$url</a>");
171 } elseif (Env
::v('submit') == 'Supprimer') {
172 XDB
::execute('DELETE FROM carvas
173 WHERE uid = {?}', S
::i('uid'));
175 S
::logger()->log('carva_del');
176 $page->trigSuccess('Redirection supprimée');
179 $url = XDB
::fetchOneCell('SELECT url
181 WHERE uid = {?}', S
::i('uid'));
182 $page->assign('carva', $url);
184 # FIXME: this code is not multi-domain compatible. We should decide how
185 # carva will extend to users not in the main domain.
186 $res = XDB
::query("SELECT alias
188 WHERE uid = {?} AND FIND_IN_SET('bestalias', flags)",
190 $page->assign('bestalias', $res->fetchOneCell());
193 function handler_prefs_rss(&$page)
195 $page->changeTpl('platal/filrss.tpl');
197 $page->assign('goback', Env
::v('referer', 'login'));
199 if (Env
::v('act_rss') == 'Activer') {
200 $this->__set_rss_state(true
);
201 $page->trigSuccess("Ton Fil RSS est activé.");
205 function handler_password(&$page)
209 if (Post
::has('response2')) {
210 S
::assert_xsrf_token();
212 S
::set('password', $password = Post
::v('response2'));
213 XDB
::execute('UPDATE accounts
215 WHERE uid={?}', $password,
218 // If GoogleApps is enabled, and the user did choose to use synchronized passwords,
219 // updates the Google Apps password as well.
220 if ($globals->mailstorage
->googleapps_domain
) {
221 require_once 'googleapps.inc.php';
222 $account = new GoogleAppsAccount(S
::user());
223 if ($account->active() && $account->sync_password
) {
224 $account->set_password($password);
228 S
::logger()->log('passwd');
229 Platal
::session()->setAccessCookie(true
);
231 $page->changeTpl('platal/motdepasse.success.tpl');
235 $page->changeTpl('platal/motdepasse.tpl');
236 $page->addJsLink('motdepasse.js');
237 $page->setTitle('Mon mot de passe');
240 function handler_smtppass(&$page)
242 $page->changeTpl('platal/acces_smtp.tpl');
243 $page->setTitle('Acces SMTP/NNTP');
245 $wp = new PlWikiPage('Xorg.SMTPSécurisé');
247 $wp = new PlWikiPage('Xorg.NNTPSécurisé');
251 $pass = Env
::v('smtppass1');
253 if (Env
::v('op') == "Valider" && strlen($pass) >= 6
254 && Env
::v('smtppass1') == Env
::v('smtppass2')) {
255 XDB
::execute('UPDATE accounts
256 SET weak_password = {?}
257 WHERE uid = {?}', $pass, $uid);
258 $page->trigSuccess('Mot de passe enregistré');
259 S
::logger()->log("passwd_ssl");
260 } elseif (Env
::v('op') == "Supprimer") {
261 XDB
::execute('UPDATE accounts
262 SET weak_password = NULL
263 WHERE uid = {?}', $uid);
264 $page->trigSuccess('Compte SMTP et NNTP supprimé');
265 S
::logger()->log("passwd_del");
268 $res = XDB
::query("SELECT weak_password IS NOT NULL
270 WHERE uid = {?}", $uid);
271 $page->assign('actif', $res->fetchOneCell());
274 function handler_recovery(&$page)
278 $page->changeTpl('platal/recovery.tpl');
280 if (!Env
::has('login') ||
!Env
::has('birth')) {
284 if (!ereg('[0-3][0-9][0-1][0-9][1][9]([0-9]{2})', Env
::v('birth'))) {
285 $page->trigError('Date de naissance incorrecte ou incohérente');
289 $birth = sprintf('%s-%s-%s',
290 substr(Env
::v('birth'), 4, 4),
291 substr(Env
::v('birth'), 2, 2),
292 substr(Env
::v('birth'), 0, 2));
294 $mailorg = strtok(Env
::v('login'), '@');
296 $profile = Profile
::get(Env
::t('login'));
297 if (is_null($profile) ||
$profile->birthdate
!= $birth) {
298 $page->trigError('Les informations que tu as rentrées ne permettent pas de récupérer ton mot de passe.<br />'.
299 'Si tu as un homonyme, utilise prenom.nom.promo comme login');
303 $user = $profile->owner();
304 if ($user->state
!= 'active') {
305 $page->trigError('Ton compte n\'est pas activé.');
309 $res = XDB
::query("SELECT COUNT(*)
311 WHERE uid = {?} AND flags != 'panne' AND flags != 'filter'", $user->id());
312 $count = intval($res->fetchOneCell());
314 $page->assign('no_addr', true
);
318 $page->assign('ok', true
);
320 $url = rand_url_id();
321 XDB
::execute('INSERT INTO account_lost_passwords (certificat,uid,created)
322 VALUES ({?},{?},NOW())', $url, $user->id());
323 $res = XDB
::query('SELECT email
325 WHERE uid = {?} AND email = {?}',
326 $user->id(), Post
::v('email'));
327 if ($res->numRows()) {
328 $mails = $res->fetchOneCell();
330 $res = XDB
::query("SELECT email
332 WHERE uid = {?} AND NOT FIND_IN_SET('filter', flags)", $user->id());
333 $mails = implode(', ', $res->fetchColumn());
335 $mymail = new PlMailer();
336 $mymail->setFrom('"Gestion des mots de passe" <support+password@' . $globals->mail
->domain
. '>');
337 $mymail->addTo($mails);
338 $mymail->setSubject("Ton certificat d'authentification");
339 $mymail->setTxtBody("Visite la page suivante qui expire dans six heures :
340 {$globals->baseurl}/tmpPWD/$url
342 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.
346 \"Le portail des élèves & anciens élèves de l'École polytechnique\"
348 Email envoyé à ".Env
::v('login') . (Post
::has('email') ?
"
349 Adresse de secours : " . Post
::v('email') : ""));
352 // on cree un objet logger et on log l'evenement
353 S
::logger($user->id())->log('recovery', $mails);
356 function handler_tmpPWD(&$page, $certif = null
)
359 // XXX: recovery requires data from the profile
360 XDB
::execute('DELETE FROM account_lost_passwords
361 WHERE DATE_SUB(NOW(), INTERVAL 380 MINUTE) > created');
363 $res = XDB
::query('SELECT uid
364 FROM account_lost_passwords WHERE certificat={?}', $certif);
365 $ligne = $res->fetchOneAssoc();
367 $page->changeTpl('platal/index.tpl');
368 $page->kill("Cette adresse n'existe pas ou n'existe plus sur le serveur.");
371 $uid = $ligne["uid"];
372 if (Post
::has('response2')) {
373 $password = Post
::v('response2');
374 XDB
::query('UPDATE accounts
376 WHERE uid = {?} AND state = \'active\'',
378 XDB
::query('DELETE FROM account_lost_passwords
379 WHERE certificat={?}', $certif);
381 // If GoogleApps is enabled, and the user did choose to use synchronized passwords,
382 // updates the Google Apps password as well.
383 if ($globals->mailstorage
->googleapps_domain
) {
384 require_once 'googleapps.inc.php';
385 $account = new GoogleAppsAccount(User
::getSilent($uid));
386 if ($account->active() && $account->sync_password
) {
387 $account->set_password($password);
391 S
::logger($uid)->log("passwd", "");
392 $page->changeTpl('platal/tmpPWD.success.tpl');
394 $page->changeTpl('platal/motdepasse.tpl');
395 $page->addJsLink('motdepasse.js');
399 function handler_skin(&$page)
403 $page->changeTpl('platal/skins.tpl');
404 $page->setTitle('Skins');
406 if (Env
::has('newskin')) { // formulaire soumis, traitons les données envoyées
407 XDB
::execute('UPDATE accounts
410 Env
::i('newskin'), S
::i('uid'));
412 Platal
::session()->setSkin();
415 $res = XDB
::query('SELECT id
417 WHERE skin_tpl = {?}', S
::v('skin'));
418 $page->assign('skin_id', $res->fetchOneCell());
420 $sql = 'SELECT s.*, auteur, COUNT(*) AS nb
422 LEFT JOIN accounts AS a ON (a.skin = s.id)
423 WHERE skin_tpl != \'\' AND ext != \'\'
424 GROUP BY id ORDER BY s.date DESC';
425 $page->assign('skins', XDB
::iterator($sql));
428 function handler_exit(&$page, $level = null
)
431 S
::logger()->log('suid_stop', S
::user()->login() . " by " . S
::suid('hruid'));
432 Platal
::session()->stopSUID();
433 pl_redirect('admin/user/' . S
::user()->login());
436 if ($level == 'forget' ||
$level == 'forgetall') {
437 Platal
::session()->killAccessCookie();
440 if ($level == 'forgetuid' ||
$level == 'forgetall') {
441 Platal
::session()->killLoginFormCookies();
445 S
::logger()->log('deconnexion', @$_SERVER['HTTP_REFERER']);
446 Platal
::session()->destroy();
449 if (Get
::has('redirect')) {
450 http_redirect(rawurldecode(Get
::v('redirect')));
452 $page->changeTpl('platal/exit.tpl');
456 function handler_review(&$page, $action = null
, $mode = null
)
458 // Include X-XRDS-Location response-header for Yadis discovery
460 header('X-XRDS-Location: ' . $globals->baseurl
. '/openid/xrds');
462 $this->load('review.inc.php');
464 if (@$GLOBALS['IS_XNET_SITE']) {
467 $wp = new PlWikiPage($dom . '.Admin');
468 $conf = explode('%0a', $wp->getField('text'));
469 $wiz = new PlWizard('Tour d\'horizon', PlPage
::getCoreTpl('plwizard.tpl'), true
);
470 foreach ($conf as $line) {
471 $list = preg_split('/\s*[*|]\s*/', $line, -1, PREG_SPLIT_NO_EMPTY
);
472 $wiz->addPage('ReviewPage', $list[0], $list[1]);
474 $wiz->apply($page, 'review', $action, $mode);
478 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: