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 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 $this->handler_review($page);
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, $core = null
)
92 $page->changeTpl('platal/changeLog.tpl');
94 function formatChangeLog($file) {
95 $clog = pl_entities(file_get_contents($file));
96 $clog = preg_replace('/===+\s*/', '</pre><hr /><pre>', $clog);
97 // url catch only (not all wiki syntax)
98 $clog = preg_replace(array(
99 '/((?:https?|ftp):\/\/(?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/ui',
100 '/(\s|^)www\.((?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/iu',
101 '/(?:mailto:)?([a-z0-9.\-+_]+@([\-.+_]?[a-z0-9])+)/i'),
103 '<a href="\\0">\\0</a>',
104 '\\1<a href="http://www.\\2">www.\\2</a>',
105 '<a href="mailto:\\0">\\0</a>'),
107 $clog = preg_replace('!(#[0-9]+(,[0-9]+)*)!e', 'bugize("\1")', $clog);
108 $clog = preg_replace('!vim:.*$!', '', $clog);
109 return preg_replace("!(<hr />(\\s|\n)*)?<pre>(\s|\n)*</pre>((\\s|\n)*<hr />)?!m", "", "<pre>$clog</pre>");
111 if ($core != 'core') {
112 $page->assign('core', false
);
113 $page->assign('ChangeLog', formatChangeLog(dirname(__FILE__
).'/../ChangeLog'));
115 $page->assign('core', true
);
116 $page->assign('ChangeLog', formatChangeLog(dirname(__FILE__
).'/../core/ChangeLog'));
120 function __set_rss_state($state)
123 S
::set('token', rand_url_id(16));
124 XDB
::execute('UPDATE accounts
126 WHERE uid = {?}', S
::s('token'), S
::i('uid'));
129 XDB
::execute('UPDATE accounts
131 WHERE uid = {?}', S
::i('uid'));
135 function handler_prefs(&$page)
137 $page->changeTpl('platal/preferences.tpl');
138 $page->setTitle('Mes préférences');
140 if (Post
::has('email_format')) {
141 $fmt = Post
::s('email_format');
142 XDB
::execute("UPDATE accounts
143 SET email_format = {?}
146 S
::set('email_format', $fmt);
149 if (Post
::has('rss')) {
150 $this->__set_rss_state(Post
::b('rss'));
153 # FIXME: this code is not multi-domain compatible. We should decide how
154 # carva will extend to users not in the main domain.
155 $res = XDB
::query("SELECT alias
157 WHERE id = {?} AND FIND_IN_SET('bestalias', flags)",
159 $page->assign('bestalias', $res->fetchOneCell());
162 function handler_webredir(&$page)
164 $page->changeTpl('platal/webredirect.tpl');
165 $page->setTitle('Redirection de page WEB');
167 if (Env
::v('submit') == 'Valider' && !Env
::blank('url')) {
168 if (Env
::blank('url')) {
169 $page->trigError('URL invalide');
171 $url = Env
::t('url');
172 XDB
::execute('REPLACE INTO carvas (uid, url)
175 S
::logger()->log('carva_add', 'http://' . $url);
176 $page->trigSuccess("Redirection activée vers <a href='http://$url'>$url</a>");
178 } elseif (Env
::v('submit') == 'Supprimer') {
179 XDB
::execute('DELETE FROM carvas
180 WHERE uid = {?}', S
::i('uid'));
182 S
::logger()->log('carva_del');
183 $page->trigSuccess('Redirection supprimée');
186 $url = XDB
::fetchOneCell('SELECT url
188 WHERE uid = {?}', S
::i('uid'));
189 $page->assign('carva', $url);
191 # FIXME: this code is not multi-domain compatible. We should decide how
192 # carva will extend to users not in the main domain.
193 $res = XDB
::query("SELECT alias
195 WHERE id = {?} AND FIND_IN_SET('bestalias', flags)",
197 $page->assign('bestalias', $res->fetchOneCell());
200 function handler_prefs_rss(&$page)
202 $page->changeTpl('platal/filrss.tpl');
204 $page->assign('goback', Env
::v('referer', 'login'));
206 if (Env
::v('act_rss') == 'Activer') {
207 $this->__set_rss_state(true
);
208 $page->trigSuccess("Ton Fil RSS est activé.");
212 function handler_password(&$page)
216 if (Post
::has('response2')) {
217 S
::assert_xsrf_token();
219 S
::set('password', $password = Post
::v('response2'));
220 XDB
::execute('UPDATE accounts
222 WHERE uid={?}', $password,
225 // If GoogleApps is enabled, and the user did choose to use synchronized passwords,
226 // updates the Google Apps password as well.
227 if ($globals->mailstorage
->googleapps_domain
) {
228 require_once 'googleapps.inc.php';
229 $account = new GoogleAppsAccount(S
::user());
230 if ($account->active() && $account->sync_password
) {
231 $account->set_password($password);
235 S
::logger()->log('passwd');
236 Platal
::session()->setAccessCookie(true
);
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');
260 if (Env
::v('op') == "Valider" && strlen($pass) >= 6
261 && Env
::v('smtppass1') == Env
::v('smtppass2')) {
262 XDB
::execute('UPDATE accounts
263 SET weak_password = {?}
264 WHERE uid = {?}', $pass, $uid);
265 $page->trigSuccess('Mot de passe enregistré');
266 S
::logger()->log("passwd_ssl");
267 } elseif (Env
::v('op') == "Supprimer") {
268 XDB
::execute('UPDATE accounts
269 SET weak_password = NULL
270 WHERE uid = {?}', $uid);
271 $page->trigSuccess('Compte SMTP et NNTP supprimé');
272 S
::logger()->log("passwd_del");
275 $res = XDB
::query("SELECT weak_password IS NOT NULL
277 WHERE uid = {?}", $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 $profile = Profile
::get(Env
::t('login'));
304 if (is_null($profile) ||
$profile->birthdate
!= $birth) {
305 $page->trigError('Les informations que tu as rentrées ne permettent pas de récupérer ton mot de passe.<br />'.
306 'Si tu as un homonyme, utilise prenom.nom.promo comme login');
310 $user = $profile->owner();
311 if ($user->state
!= 'active') {
312 $page->trigError('Ton compte n\'est pas activé.');
316 $res = XDB
::query("SELECT COUNT(*)
318 WHERE uid = {?} AND flags != 'panne' AND flags != 'filter'", $user->id());
319 $count = intval($res->fetchOneCell());
321 $page->assign('no_addr', true
);
325 $page->assign('ok', true
);
327 $url = rand_url_id();
328 XDB
::execute('INSERT INTO perte_pass (certificat,uid,created)
329 VALUES ({?},{?},NOW())', $url, $user->id());
330 $res = XDB
::query('SELECT email
332 WHERE uid = {?} AND email = {?}',
333 $user->id(), Post
::v('email'));
334 if ($res->numRows()) {
335 $mails = $res->fetchOneCell();
337 $res = XDB
::query('SELECT email
339 WHERE uid = {?} AND NOT FIND_IN_SET("filter", flags)', $user->id());
340 $mails = implode(', ', $res->fetchColumn());
342 $mymail = new PlMailer();
343 $mymail->setFrom('"Gestion des mots de passe" <support+password@' . $globals->mail
->domain
. '>');
344 $mymail->addTo($mails);
345 $mymail->setSubject('Ton certificat d\'authentification');
346 $mymail->setTxtBody("Visite la page suivante qui expire dans six heures :
347 {$globals->baseurl}/tmpPWD/$url
349 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.
353 \"Le portail des élèves & anciens élèves de l'Ecole polytechnique\"
355 Email envoyé à ".Env
::v('login') . (Post
::has('email') ?
"
356 Adresse de secours : " . Post
::v('email') : ""));
359 // on cree un objet logger et on log l'evenement
360 S
::logger($user->id())->log('recovery', $mails);
363 function handler_tmpPWD(&$page, $certif = null
)
366 // XXX: recovery requires data from the profile
367 XDB
::execute('DELETE FROM perte_pass
368 WHERE DATE_SUB(NOW(), INTERVAL 380 MINUTE) > created');
370 $res = XDB
::query('SELECT uid
371 FROM perte_pass WHERE certificat={?}', $certif);
372 $ligne = $res->fetchOneAssoc();
374 $page->changeTpl('platal/index.tpl');
375 $page->kill("Cette adresse n'existe pas ou n'existe plus sur le serveur.");
378 $uid = $ligne["uid"];
379 if (Post
::has('response2')) {
380 $password = Post
::v('response2');
381 XDB
::query('UPDATE accounts
383 WHERE uid = {?} AND state = \'active\'',
385 XDB
::query('DELETE FROM perte_pass
386 WHERE certificat={?}', $certif);
388 // If GoogleApps is enabled, and the user did choose to use synchronized passwords,
389 // updates the Google Apps password as well.
390 if ($globals->mailstorage
->googleapps_domain
) {
391 require_once 'googleapps.inc.php';
392 $account = new GoogleAppsAccount(User
::getSilent($uid));
393 if ($account->active() && $account->sync_password
) {
394 $account->set_password($password);
398 S
::logger($uid)->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 accounts
417 Env
::i('newskin'), S
::i('uid'));
419 Platal
::session()->setSkin();
422 $res = XDB
::query('SELECT id
424 WHERE skin_tpl = {?}', S
::v('skin'));
425 $page->assign('skin_id', $res->fetchOneCell());
427 $sql = 'SELECT s.*, auteur, COUNT(*) AS nb
429 LEFT JOIN accounts AS a ON (a.skin = s.id)
430 WHERE skin_tpl != \'\' AND ext != \'\'
431 GROUP BY id ORDER BY s.date DESC';
432 $page->assign('skins', XDB
::iterator($sql));
435 function handler_exit(&$page, $level = null
)
438 S
::logger()->log('suid_stop', S
::user()->login() . " by " . S
::suid('hruid'));
439 Platal
::session()->stopSUID();
440 pl_redirect('admin/user/' . S
::user()->login());
443 if ($level == 'forget' ||
$level == 'forgetall') {
444 Platal
::session()->killAccessCookie();
447 if ($level == 'forgetuid' ||
$level == 'forgetall') {
448 Platal
::session()->killLoginFormCookies();
452 S
::logger()->log('deconnexion', @$_SERVER['HTTP_REFERER']);
453 Platal
::session()->destroy();
456 if (Get
::has('redirect')) {
457 http_redirect(rawurldecode(Get
::v('redirect')));
459 $page->changeTpl('platal/exit.tpl');
463 function handler_review(&$page, $action = null
, $mode = null
)
465 // Include X-XRDS-Location response-header for Yadis discovery
467 header('X-XRDS-Location: ' . $globals->baseurl
. '/openid/idp_xrds');
469 $this->load('review.inc.php');
471 if (@$GLOBALS['IS_XNET_SITE']) {
474 $wp = new PlWikiPage($dom . '.Admin');
475 $conf = explode('%0a', $wp->getField('text'));
476 $wiz = new PlWizard('Tour d\'horizon', PlPage
::getCoreTpl('plwizard.tpl'), true
);
477 foreach ($conf as $line) {
478 $list = preg_split('/\s*[*|]\s*/', $line, -1, PREG_SPLIT_NO_EMPTY
);
479 $wiz->addPage('ReviewPage', $list[0], $list[1]);
481 $wiz->apply($page, 'review', $action, $mode);
485 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: