Add a class Group to handler xnet groups.
[platal.git] / modules / platal.php
index ce6e34f..450022a 100644 (file)
@@ -1,6 +1,6 @@
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2006 Polytechnique.org                              *
+ *  Copyright (C) 2003-2009 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
@@ -43,11 +43,11 @@ class PlatalModule extends PLModule
             'changelog'   => $this->make_hook('changelog', AUTH_PUBLIC),
 
             // Preferences thingies
-            'prefs'     => $this->make_hook('prefs',     AUTH_COOKIE),
-            'prefs/rss' => $this->make_hook('prefs_rss', AUTH_COOKIE),
+            'prefs'       => $this->make_hook('prefs',     AUTH_COOKIE),
+            'prefs/rss'   => $this->make_hook('prefs_rss', AUTH_COOKIE),
             'prefs/webredirect'
-                        => $this->make_hook('webredir',  AUTH_MDP),
-            'skin'      => $this->make_hook('skin',      AUTH_COOKIE),
+                          => $this->make_hook('webredir',  AUTH_MDP),
+            'prefs/skin'  => $this->make_hook('skin',      AUTH_COOKIE),
 
             // password related thingies
             'password'      => $this->make_hook('password',  AUTH_MDP),
@@ -55,125 +55,157 @@ class PlatalModule extends PLModule
             'password/smtp' => $this->make_hook('smtppass',  AUTH_MDP),
             'recovery'      => $this->make_hook('recovery',  AUTH_PUBLIC),
             'exit'          => $this->make_hook('exit', AUTH_PUBLIC),
-
-            // happenings related thingies
-            'rss'         => $this->make_hook('rss',       AUTH_PUBLIC),
+            'review'        => $this->make_hook('review', AUTH_PUBLIC),
+            'deconnexion.php' => $this->make_hook('exit', AUTH_PUBLIC),
         );
     }
 
     function handler_index(&$page)
     {
-        if (logged()) {
-            redirect("events");
+        // Include X-XRDS-Location response-header for Yadis discovery
+        global $globals;
+        header('X-XRDS-Location: ' . $globals->baseurl . '/openid/idp_xrds');
+
+        // Redirect to the suitable page
+        if (S::logged()) {
+            pl_redirect('events');
+        } else if (!@$GLOBALS['IS_XNET_SITE']) {
+            $this->handler_review($page);
         }
     }
 
     function handler_cacert(&$page)
     {
-        $data = file_get_contents('/etc/ssl/xorgCA/cacert.pem');
-        header('Content-Type: application/x-x509-ca-cert');
-        header('Content-Length: '.strlen($data));
+        $data = file_get_contents("/etc/ssl/xorgCA/cacert.pem","r");
+        header("Pragma:");
+        header("Set-Cookie:");
+        header("Cache-Control:");
+        header("Expires:");
+        header("Content-Type: application/x-x509-ca-cert");
+        header("Content-Length: ".strlen($data));
         echo $data;
         exit;
     }
 
-    function handler_changelog(&$page)
+    function handler_changelog(&$page, $core = null)
     {
-        $page->changeTpl('changeLog.tpl');
-
-        $clog = htmlentities(file_get_contents(dirname(__FILE__).'/../ChangeLog'));
-        $clog = preg_replace('!(#[0-9]+(,[0-9]+)*)!e', 'bugize("\1")', $clog);
-        $page->assign('ChangeLog', $clog);
+        $page->changeTpl('platal/changeLog.tpl');
+
+        function formatChangeLog($file) {
+            $clog = pl_entities(file_get_contents($file));
+            $clog = preg_replace('/===+\s*/', '</pre><hr /><pre>', $clog);
+            // url catch only (not all wiki syntax)
+            $clog = preg_replace(array(
+                '/((?:https?|ftp):\/\/(?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/ui',
+                '/(\s|^)www\.((?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/iu',
+                '/(?:mailto:)?([a-z0-9.\-+_]+@([\-.+_]?[a-z0-9])+)/i'),
+              array(
+                '<a href="\\0">\\0</a>',
+                '\\1<a href="http://www.\\2">www.\\2</a>',
+                '<a href="mailto:\\0">\\0</a>'),
+              $clog);
+            $clog = preg_replace('!(#[0-9]+(,[0-9]+)*)!e', 'bugize("\1")', $clog);
+            $clog = preg_replace('!vim:.*$!', '', $clog);
+            return preg_replace("!(<hr />(\\s|\n)*)?<pre>(\s|\n)*</pre>((\\s|\n)*<hr />)?!m", "", "<pre>$clog</pre>");
+        }
+        if ($core != 'core') {
+            $page->assign('core', false);
+            $page->assign('ChangeLog', formatChangeLog(dirname(__FILE__).'/../ChangeLog'));
+        } else {
+            $page->assign('core', true);
+            $page->assign('ChangeLog', formatChangeLog(dirname(__FILE__).'/../core/ChangeLog'));
+        }
     }
 
     function __set_rss_state($state)
     {
-        global $globals;
-
         if ($state) {
-            $_SESSION['core_rss_hash'] = rand_url_id(16);
-            XDB::execute('UPDATE  auth_user_quick
-                                   SET  core_rss_hash={?} WHERE user_id={?}',
-                                   Session::get('core_rss_hash'),
-                                   Session::getInt('uid'));
+            S::set('token', rand_url_id(16));
+            XDB::execute('UPDATE  accounts
+                             SET  token = {?}
+                           WHERE  uid = {?}', S::s('token'), S::i('uid'));
         } else {
-            XDB::execute('UPDATE  auth_user_quick
-                                   SET  core_rss_hash="" WHERE user_id={?}',
-                                   Session::getInt('uid'));
-            Session::kill('core_rss_hash');
+            S::kill('token');
+            XDB::execute('UPDATE  accounts
+                             SET  token = NULL
+                           WHERE  uid = {?}', S::i('uid'));
         }
     }
 
     function handler_prefs(&$page)
     {
-        global $globals;
-
-        $page->changeTpl('preferences.tpl');
-        $page->assign('xorg_title','Polytechnique.org - Mes préférences');
-
-        if (Env::has('mail_fmt')) {
-            $fmt = Env::get('mail_fmt');
-            if ($fmt != 'texte') $fmt = 'html';
-            XDB::execute("UPDATE auth_user_quick
-                                       SET core_mail_fmt = '$fmt'
-                                     WHERE user_id = {?}",
-                                     Session::getInt('uid'));
-            $_SESSION['mail_fmt'] = $fmt;
-            redirect($globals->baseurl.'/preferences');
+        $page->changeTpl('platal/preferences.tpl');
+        $page->setTitle('Mes préférences');
+
+        if (Post::has('email_format')) {
+            $fmt = Post::s('email_format');
+            XDB::execute("UPDATE accounts
+                             SET email_format = {?}
+                           WHERE uid = {?}",
+                         $fmt, S::v('uid'));
+            S::set('email_format', $fmt);
         }
 
-        if (Env::has('rss')) {
-            $this->__set_rss_state(Env::getBool('rss'));
+        if (Post::has('rss')) {
+            $this->__set_rss_state(Post::b('rss'));
         }
 
-        $page->assign('prefs', $globals->hook->prefs());
+        # FIXME: this code is not multi-domain compatible. We should decide how
+        # carva will extend to users not in the main domain.
+        $res = XDB::query("SELECT  alias
+                             FROM  aliases
+                            WHERE  id = {?} AND FIND_IN_SET('bestalias', flags)",
+                          S::user()->id());
+        $page->assign('bestalias', $res->fetchOneCell());
     }
 
     function handler_webredir(&$page)
     {
-        global $globals;
+        $page->changeTpl('platal/webredirect.tpl');
+        $page->setTitle('Redirection de page WEB');
 
-        $page->changeTpl('webredirect.tpl');
-
-        $page->assign('xorg_title','Polytechnique.org - Redirection de page WEB');
-
-        $log =& Session::getMixed('log');
-        $url = Env::get('url');
-
-        if (Env::get('submit') == 'Valider' and Env::has('url')) {
-            XDB::execute('UPDATE auth_user_quick
-                                       SET redirecturl = {?} WHERE user_id = {?}',
-                                   $url, Session::getInt('uid'));
-            $log->log('carva_add', 'http://'.Env::get('url'));
-            $page->trig("Redirection activée vers <a href='http://$url'>$url</a>");
-        } elseif (Env::get('submit') == "Supprimer") {
-            XDB::execute("UPDATE auth_user_quick
-                                       SET redirecturl = ''
-                                     WHERE user_id = {?}",
-                                   Session::getInt('uid'));
-            $log->log("carva_del", $url);
+        if (Env::v('submit') == 'Valider' && !Env::blank('url')) {
+            if (Env::blank('url')) {
+                $page->trigError('URL invalide');
+            } else {
+                $url = Env::t('url');
+                XDB::execute('REPLACE INTO  carvas (uid, url)
+                                    VALUES  ({?}, {?})',
+                             S::i('uid'), $url);
+                S::logger()->log('carva_add', 'http://' . $url);
+                $page->trigSuccess("Redirection activée vers <a href='http://$url'>$url</a>");
+            }
+        } elseif (Env::v('submit') == 'Supprimer') {
+            XDB::execute('DELETE FROM carvas
+                                WHERE uid = {?}', S::i('uid'));
             Post::kill('url');
-            $page->trig('Redirection supprimée');
+            S::logger()->log('carva_del');
+            $page->trigSuccess('Redirection supprimée');
         }
 
-        $res = XDB::query('SELECT redirecturl
-                                       FROM auth_user_quick
-                                      WHERE user_id = {?}',
-                                    Session::getInt('uid'));
-        $page->assign('carva', $res->fetchOneCell());
+        $url = XDB::fetchOneCell('SELECT  url
+                                    FROM  carvas
+                                   WHERE  uid = {?}', S::i('uid'));
+        $page->assign('carva', $url);
+
+        # FIXME: this code is not multi-domain compatible. We should decide how
+        # carva will extend to users not in the main domain.
+        $res = XDB::query("SELECT  alias
+                             FROM  aliases
+                            WHERE  id = {?} AND FIND_IN_SET('bestalias', flags)",
+                          S::user()->id());
+        $page->assign('bestalias', $res->fetchOneCell());
     }
 
     function handler_prefs_rss(&$page)
     {
-        global $globals;
-
-        $page->changeTpl('filrss.tpl');
+        $page->changeTpl('platal/filrss.tpl');
 
-        $page->assign('goback', Env::get('referer', 'login'));
+        $page->assign('goback', Env::v('referer', 'login'));
 
-        if (Env::get('act_rss') == 'Activer') {
+        if (Env::v('act_rss') == 'Activer') {
             $this->__set_rss_state(true);
-            $page->trig("Ton Fil RSS est activé.");
+            $page->trigSuccess("Ton Fil RSS est activé.");
         }
     }
 
@@ -182,59 +214,67 @@ class PlatalModule extends PLModule
         global $globals;
 
         if (Post::has('response2'))  {
-            require_once 'secure_hash.inc.php';
-
-            $_SESSION['password'] = $password = Post::get('response2');
-
-            XDB::execute('UPDATE  auth_user_md5 
-                                       SET  password={?}
-                                     WHERE  user_id={?}', $password,
-                                     Session::getInt('uid'));
-
-            $log =& Session::getMixed('log');
-            $log->log('passwd', '');
-
-            if (Cookie::get('ORGaccess')) {
-                setcookie('ORGaccess', hash_encrypt($password), (time()+25920000), '/', '' ,0);
+            S::assert_xsrf_token();
+
+            S::set('password', $password = Post::v('response2'));
+            XDB::execute('UPDATE  accounts
+                             SET  password = {?}
+                           WHERE  uid={?}', $password,
+                         S::i('uid'));
+
+            // If GoogleApps is enabled, and the user did choose to use synchronized passwords,
+            // updates the Google Apps password as well.
+            if ($globals->mailstorage->googleapps_domain) {
+                require_once 'googleapps.inc.php';
+                $account = new GoogleAppsAccount(S::user());
+                if ($account->active() && $account->sync_password) {
+                    $account->set_password($password);
+                }
             }
 
-            $page->changeTpl('motdepasse.success.tpl');
+            S::logger()->log('passwd');
+            Platal::session()->setAccessCookie(true);
+
+            $page->changeTpl('platal/motdepasse.success.tpl');
             $page->run();
         }
 
-        $page->changeTpl('motdepasse.tpl');
-        $page->addJsLink('javascript/motdepasse.js');
-        $page->assign('xorg_title','Polytechnique.org - Mon mot de passe');
+        $page->changeTpl('platal/motdepasse.tpl');
+        $page->addJsLink('motdepasse.js');
+        $page->setTitle('Mon mot de passe');
     }
 
     function handler_smtppass(&$page)
     {
-        global $globals;
-
-        $page->changeTpl('acces_smtp.tpl');
-        $page->assign('xorg_title','Polytechnique.org - Acces SMTP/NNTP');
-
-        $uid  = Session::getInt('uid');
-        $pass = Env::get('smtppass1');
-        $log  = Session::getMixed('log');
-
-        if (Env::get('op') == "Valider" && strlen($pass) >= 6 
-        &&  Env::get('smtppass1') == Env::get('smtppass2')) 
-        {
-            XDB::execute('UPDATE auth_user_md5 SET smtppass = {?}
-                                     WHERE user_id = {?}', $pass, $uid);
-            $page->trig('Mot de passe enregistré');
-            $log->log("passwd_ssl");
-        } elseif (Env::get('op') == "Supprimer") {
-            XDB::execute('UPDATE auth_user_md5 SET smtppass = ""
-                                     WHERE user_id = {?}', $uid);
-            $page->trig('Compte SMTP et NNTP supprimé');
-            $log->log("passwd_del");
+        $page->changeTpl('platal/acces_smtp.tpl');
+        $page->setTitle('Acces SMTP/NNTP');
+
+        $wp = new PlWikiPage('Xorg.SMTPSécurisé');
+        $wp->buildCache();
+        $wp = new PlWikiPage('Xorg.NNTPSécurisé');
+        $wp->buildCache();
+
+        $uid  = S::i('uid');
+        $pass = Env::v('smtppass1');
+
+        if (Env::v('op') == "Valider" && strlen($pass) >= 6
+            &&  Env::v('smtppass1') == Env::v('smtppass2')) {
+            XDB::execute('UPDATE  accounts
+                             SET  weak_password = {?}
+                           WHERE  uid = {?}', $pass, $uid);
+            $page->trigSuccess('Mot de passe enregistré');
+            S::logger()->log("passwd_ssl");
+        } elseif (Env::v('op') == "Supprimer") {
+            XDB::execute('UPDATE  accounts
+                             SET  weak_password = NULL
+                           WHERE  uid = {?}', $uid);
+            $page->trigSuccess('Compte SMTP et NNTP supprimé');
+            S::logger()->log("passwd_del");
         }
 
-        $res = XDB::query("SELECT IF(smtppass != '', 'actif', '') 
-                                       FROM auth_user_md5
-                                      WHERE user_id = {?}", $uid);
+        $res = XDB::query("SELECT  weak_password IS NOT NULL
+                             FROM  accounts
+                            WHERE  uid = {?}", $uid);
         $page->assign('actif', $res->fetchOneCell());
     }
 
@@ -242,92 +282,124 @@ class PlatalModule extends PLModule
     {
         global $globals;
 
-        $page->changeTpl('recovery.tpl');
+        $page->changeTpl('platal/recovery.tpl');
 
         if (!Env::has('login') || !Env::has('birth')) {
             return;
         }
 
-        if (!ereg('[0-3][0-9][0-1][0-9][1][9]([0-9]{2})', Env::get('birth'))) {
-            $page->trig_run('Date de naissance incorrecte ou incohérente');
+        if (!ereg('[0-3][0-9][0-1][0-9][1][9]([0-9]{2})', Env::v('birth'))) {
+            $page->trigError('Date de naissance incorrecte ou incohérente');
+            return;
         }
-        $birth   = sprintf('%s-%s-%s', substr(Env::get('birth'),4,4), substr(Env::get('birth'),2,2), substr(Env::get('birth'),0,2));
 
-        $mailorg = strtok(Env::get('login'), '@');
+        $birth   = sprintf('%s-%s-%s',
+                           substr(Env::v('birth'), 4, 4),
+                           substr(Env::v('birth'), 2, 2),
+                           substr(Env::v('birth'), 0, 2));
 
-        // paragraphe rajouté : si la date de naissance dans la base n'existe pas, on l'update
-        // avec celle fournie ici en espérant que c'est la bonne
+        $mailorg = strtok(Env::v('login'), '@');
 
+        // XXX: recovery requires usage of profile data.
         $res = XDB::query(
                 "SELECT  user_id, naissance
                    FROM  auth_user_md5 AS u
-             INNER JOIN  aliases       AS a ON (u.user_id=a.id AND type!='homonyme')
+             INNER JOIN  aliases       AS a ON (u.user_id=a.id AND type != 'homonyme')
                   WHERE  a.alias={?} AND u.perms IN ('admin','user') AND u.deces=0", $mailorg);
         list($uid, $naissance) = $res->fetchOneRow();
 
         if ($naissance == $birth) {
-            $page->assign('ok', true);
+            $res = XDB::query("SELECT  COUNT(*)
+                                 FROM  emails
+                                WHERE  uid = {?} AND flags != 'panne' AND flags != 'filter'", $uid);
+            $count = intval($res->fetchOneCell());
+            if ($count == 0) {
+                $page->assign('no_addr', true);
+                return;
+            }
 
-            $url   = rand_url_id(); 
-            XDB::execute('INSERT INTO perte_pass (certificat,uid,created) VALUES ({?},{?},NOW())', $url, $uid);
-            $res   = XDB::query('SELECT email FROM emails WHERE uid = {?} AND NOT FIND_IN_SET("filter", flags)', $uid);
-            $mails = implode(', ', $res->fetchColumn());
+            $page->assign('ok', true);
 
-            require_once "diogenes/diogenes.hermes.inc.php";
-            $mymail = new HermesMailer();
-            $mymail->setFrom('"Gestion des mots de passe" <support+password@polytechnique.org>');
+            $url   = rand_url_id();
+            XDB::execute('INSERT INTO  perte_pass (certificat,uid,created)
+                               VALUES  ({?},{?},NOW())', $url, $uid);
+            $res   = XDB::query('SELECT  email
+                                   FROM  emails
+                                  WHERE  uid = {?} AND email = {?}',
+                                $uid, Post::v('email'));
+            if ($res->numRows()) {
+                $mails = $res->fetchOneCell();
+            } else {
+                $res   = XDB::query('SELECT  email
+                                       FROM  emails
+                                      WHERE  uid = {?} AND NOT FIND_IN_SET("filter", flags)', $uid);
+                $mails = implode(', ', $res->fetchColumn());
+            }
+            $mymail = new PlMailer();
+            $mymail->setFrom('"Gestion des mots de passe" <support+password@' . $globals->mail->domain . '>');
             $mymail->addTo($mails);
             $mymail->setSubject('Ton certificat d\'authentification');
             $mymail->setTxtBody("Visite la page suivante qui expire dans six heures :
 {$globals->baseurl}/tmpPWD/$url
 
-Si en cliquant dessus tu n'y arrives pas, copie intégralement l'adresse dans la barre de ton navigateur.
+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.
 
--- 
+--
 Polytechnique.org
-\"Le portail des élèves & anciens élèves de l'Ecole polytechnique\"".(Post::get('email') ? "
-
-Adresse de secours :
-    ".Post::get('email') : "")."
+\"Le portail des élèves & anciens élèves de l'Ecole polytechnique\"
 
-Mail envoyé à ".Env::get('login'));
+Email envoyé à ".Env::v('login') . (Post::has('email') ? "
+Adresse de secours : " . Post::v('email') : ""));
             $mymail->send();
 
             // on cree un objet logger et on log l'evenement
-            $logger = $_SESSION['log'] = new DiogenesCoreLogger($uid);
-            $logger->log('recovery', $emails);
+            S::logger(uid)->log('recovery', $mails);
         } else {
-            $page->trig('Pas de résultat correspondant aux champs entrés dans notre base de données.');
+            $page->trigError('Les informations que tu as rentrées ne permettent pas de récupérer ton mot de passe.<br />'.
+                        'Si tu as un homonyme, utilise prenom.nom.promo comme login');
         }
     }
 
     function handler_tmpPWD(&$page, $certif = null)
     {
         global $globals;
+        // XXX: recovery requires data from the profile
+        XDB::execute('DELETE FROM  perte_pass
+                            WHERE  DATE_SUB(NOW(), INTERVAL 380 MINUTE) > created');
 
-        XDB::execute('DELETE FROM perte_pass
-                                      WHERE DATE_SUB(NOW(), INTERVAL 380 MINUTE) > created');
-
-        $res   = XDB::query('SELECT uid FROM perte_pass WHERE certificat={?}', $certif);
+        $res = XDB::query('SELECT  uid
+                             FROM  perte_pass WHERE certificat={?}', $certif);
         $ligne = $res->fetchOneAssoc();
         if (!$ligne) {
-            $page->changeTpl('index.tpl');
+            $page->changeTpl('platal/index.tpl');
             $page->kill("Cette adresse n'existe pas ou n'existe plus sur le serveur.");
         }
 
         $uid = $ligne["uid"];
         if (Post::has('response2')) {
-            $password = Post::get('response2');
-            $logger   = new DiogenesCoreLogger($uid);
-            XDB::query('UPDATE  auth_user_md5 SET password={?}
-                                   WHERE  user_id={?} AND perms IN("admin","user")',
-                                 $password, $uid);
-            XDB::query('DELETE FROM perte_pass WHERE certificat={?}', $certif);
-            $logger->log("passwd","");
-            $page->changeTpl('tmpPWD.success.tpl');
+            $password = Post::v('response2');
+            XDB::query('UPDATE  accounts
+                           SET  password={?}
+                         WHERE  uid = {?} AND state = \'active\'',
+                       $password, $uid);
+            XDB::query('DELETE FROM  perte_pass
+                              WHERE  certificat={?}', $certif);
+
+            // If GoogleApps is enabled, and the user did choose to use synchronized passwords,
+            // updates the Google Apps password as well.
+            if ($globals->mailstorage->googleapps_domain) {
+                require_once 'googleapps.inc.php';
+                $account = new GoogleAppsAccount(User::getSilent($uid));
+                if ($account->active() && $account->sync_password) {
+                    $account->set_password($password);
+                }
+            }
+
+            S::logger($uid)->log("passwd", "");
+            $page->changeTpl('platal/tmpPWD.success.tpl');
         } else {
-            $page->changeTpl('motdepasse.tpl');
-            $page->addJsLink('javascript/motdepasse.js');
+            $page->changeTpl('platal/motdepasse.tpl');
+            $page->addJsLink('motdepasse.js');
         }
     }
 
@@ -335,90 +407,80 @@ Mail envoy
     {
         global $globals;
 
-        if (!$globals->skin->enable) {
-            redirect('./');
-        }
-
-        $page->changeTpl('skins.tpl');
-        $page->assign('xorg_title','Polytechnique.org - Skins');
+        $page->changeTpl('platal/skins.tpl');
+        $page->setTitle('Skins');
 
-        if (Env::has('newskin'))  {  // formulaire soumis, traitons les données envoyées
-            XDB::execute('UPDATE auth_user_quick
-                                       SET skin={?} WHERE user_id={?}',
-                                    Env::getInt('newskin'),
-                                    Session::getInt('uid'));
-            set_skin();
+        if (Env::has('newskin'))  {  // formulaire soumis, traitons les données envoyées
+            XDB::execute('UPDATE  accounts
+                             SET  skin = {?}
+                           WHERE  uid = {?}',
+                         Env::i('newskin'), S::i('uid'));
+            S::kill('skin');
+            Platal::session()->setSkin();
         }
 
-        $sql = "SELECT s.*,auteur,count(*) AS nb
-                  FROM skins AS s
-             LEFT JOIN auth_user_quick AS a ON s.id=a.skin
-                 WHERE skin_tpl != '' AND ext != ''
-              GROUP BY id ORDER BY s.date DESC";
-        $page->assign_by_ref('skins', XDB::iterator($sql));
+        $res = XDB::query('SELECT  id
+                             FROM  skins
+                            WHERE  skin_tpl = {?}', S::v('skin'));
+        $page->assign('skin_id', $res->fetchOneCell());
+
+        $sql = 'SELECT  s.*, auteur, COUNT(*) AS nb
+                  FROM  skins AS s
+             LEFT JOIN  accounts AS a ON (a.skin = s.id)
+                 WHERE  skin_tpl != \'\' AND ext != \'\'
+              GROUP BY  id ORDER BY s.date DESC';
+        $page->assign('skins', XDB::iterator($sql));
     }
 
     function handler_exit(&$page, $level = null)
     {
-        if (Session::has('suid')) {
-            if (Session::has('suid')) {
-                $a4l  = Session::get('forlife');
-                $suid = Session::getMixed('suid');
-                $log  = Session::getMixed('log');
-                $log->log("suid_stop", Session::get('forlife') . " by " . $suid['forlife']);
-                $_SESSION = $suid;
-                Session::kill('suid');
-                redirect($globals->baseurl.'/admin/utilisateurs.php?login='.$a4l);
-            } else {
-                redirect("events");
-            }
+        if (S::suid()) {
+            S::logger()->log('suid_stop', S::user()->login() . " by " . S::suid('hruid'));
+            Platal::session()->stopSUID();
+            pl_redirect('admin/user/' . S::user()->login());
         }
 
         if ($level == 'forget' || $level == 'forgetall') {
-            setcookie('ORGaccess', '', time() - 3600, '/', '', 0);
-            Cookie::kill('ORGaccess');
-            if (isset($_SESSION['log']))
-                $_SESSION['log']->log("cookie_off");
+            Platal::session()->killAccessCookie();
         }
 
         if ($level == 'forgetuid' || $level == 'forgetall') {
-            setcookie('ORGuid', '', time() - 3600, '/', '', 0);
-            Cookie::kill('ORGuid');
-            setcookie('ORGdomain', '', time() - 3600, '/', '', 0);
-            Cookie::kill('ORGdomain');
+            Platal::session()->killLoginFormCookies();
         }
 
-        if (isset($_SESSION['log'])) {
-            $ref = isset($_SERVER['HTTP_REFERER']) ? $_SERVER['HTTP_REFERER'] : '';
-            $_SESSION['log']->log('deconnexion',$ref);
+        if (S::logged()) {
+            S::logger()->log('deconnexion', @$_SERVER['HTTP_REFERER']);
+            Platal::session()->destroy();
         }
 
-        XorgSession::destroy();
-
         if (Get::has('redirect')) {
-            redirect(rawurldecode(Get::get('redirect')));
+            http_redirect(rawurldecode(Get::v('redirect')));
         } else {
-            $page->changeTpl('exit.tpl');
+            $page->changeTpl('platal/exit.tpl');
         }
     }
 
-    function handler_rss(&$page, $user = null, $hash = null)
+    function handler_review(&$page, $action = null, $mode = null) 
     {
+        // Include X-XRDS-Location response-header for Yadis discovery
         global $globals;
+        header('X-XRDS-Location: ' . $globals->baseurl . '/openid/idp_xrds');
 
-        require_once 'rss.inc.php';
-
-        $uid = init_rss('rss.tpl', $user, $hash);
-
-        $rss = XDB::iterator(
-                'SELECT  e.id, e.titre, e.texte, e.creation_date
-                   FROM  auth_user_md5   AS u
-             INNER JOIN  evenements      AS e ON ( (e.promo_min = 0 || e.promo_min <= u.promo)
-                                                   AND (e.promo_max = 0 || e.promo_max >= u.promo) )
-                  WHERE  u.user_id = {?} AND FIND_IN_SET(e.flags, "valide")
-                                         AND peremption >= NOW()', $uid);
-        $page->assign('rss', $rss);
+        $this->load('review.inc.php');
+        $dom = 'Review';
+        if (@$GLOBALS['IS_XNET_SITE']) {
+            $dom .= 'Xnet';
+        }
+        $wp = new PlWikiPage($dom . '.Admin');
+        $conf = explode('%0a', $wp->getField('text'));
+        $wiz = new PlWizard('Tour d\'horizon', PlPage::getCoreTpl('plwizard.tpl'), true);
+        foreach ($conf as $line) {
+            $list = preg_split('/\s*[*|]\s*/', $line, -1, PREG_SPLIT_NO_EMPTY);
+            $wiz->addPage('ReviewPage', $list[0], $list[1]);
+        }
+        $wiz->apply($page, 'review', $action, $mode);
     }
 }
 
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 ?>