{site}.inc.php is the base for all jobs.
[platal.git] / include / xorg / session.inc.php
index 8d73093..e9b98b7 100644 (file)
@@ -1,6 +1,6 @@
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2006 Polytechnique.org                              *
+ *  Copyright (C) 2003-2008 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  ***************************************************************************/
 
+require_once 'xorg.misc.inc.php';
+
 class XorgSession
 {
+    public function __construct() {
+        XorgSession::init();
+    }
+
     // {{{ public static function init
 
-    public static function init() {
+    public static function init()
+    {
         S::init();
-       if (!S::has('uid')) {
-           try_cookie();
+        if (!S::has('uid')) {
+            try_cookie();
+        }
+        if ((check_ip('dangerous') && S::has('uid')) || check_account()) {
+            $_SESSION['log']->log("view_page", $_SERVER['REQUEST_URI']);
         }
     }
 
     // }}}
     // {{{ public static function destroy()
 
-    public static function destroy() {
+    public static function destroy()
+    {
         S::destroy();
         XorgSession::init();
     }
@@ -43,10 +54,10 @@ class XorgSession
 
     public static function doAuth($new_name = false)
     {
-       global $globals;
-       if (S::identified()) { // ok, c'est bon, on n'a rien à faire
-           return true;
-       }
+        global $globals;
+        if (S::identified()) { // ok, c'est bon, on n'a rien à faire
+            return true;
+        }
 
         if (!Env::has('username') || !Env::has('response')
         ||  !S::has('challenge'))
@@ -56,23 +67,29 @@ class XorgSession
 
         // si on vient de recevoir une identification par passwordpromptscreen.tpl
         // ou passwordpromptscreenlogged.tpl
-        $uname = Env::v('username');
-
-        if (Env::v('domain') == "alias") {
-
-            $res = XDB::query(
-                "SELECT redirect
-                   FROM virtual
-             INNER JOIN virtual_redirect USING(vid)
-                  WHERE alias LIKE {?}", $uname."@".$globals->mail->alias_dom);
-            $redirect = $res->fetchOneCell();
-            if ($redirect) {
-                $login = substr($redirect, 0, strpos($redirect, '@'));
+        if (S::has('suid')) {
+            $suid = S::v('suid');
+            $login = $uname = $suid['forlife'];
+            $redirect = false;
+        } else {
+            $uname = Env::v('username');
+
+            if (Env::v('domain') == "alias") {
+                $res = XDB::query(
+                    "SELECT redirect
+                       FROM virtual
+                 INNER JOIN virtual_redirect USING(vid)
+                      WHERE alias LIKE {?}", $uname."@".$globals->mail->alias_dom);
+                $redirect = $res->fetchOneCell();
+                if ($redirect) {
+                    $login = substr($redirect, 0, strpos($redirect, '@'));
+                } else {
+                    $login = "";
+                }
             } else {
-                $login = "";
+                $login = $uname;
+                $redirect = false;
             }
-        } else {
-            $login = $uname;
         }
 
         $field = (!$redirect && preg_match('/^\d*$/', $uname)) ? 'id' : 'alias';
@@ -82,19 +99,20 @@ class XorgSession
                  INNER JOIN  aliases       AS a ON ( a.id=u.user_id AND type!='homonyme' )
                       WHERE  a.$field = {?} AND u.perms IN('admin','user')", $login);
 
-        $logger =& S::v('log');
+        $logger = S::v('log');
         if (list($uid, $password) = $res->fetchOneRow()) {
-                require_once('secure_hash.inc.php');
-                    $expected_response=hash_encrypt("$uname:$password:".S::v('challenge'));
-                    // le password de la base est peut-être encore encodé en md5
-                    if (Env::v('response') != $expected_response) {
-                      $new_password = hash_xor(Env::v('xorpass'), $password);
-                      $expected_response = hash_encrypt("$uname:$new_password:".S::v('challenge'));
-                      if (Env::v('response') == $expected_response) {
-                          XDB::execute("UPDATE auth_user_md5 SET password = {?} WHERE user_id = {?}", $new_password, $uid);
-                      }
-                    }
-                    if (Env::v('response') == $expected_response) {
+            require_once('secure_hash.inc.php');
+            $expected_response = hash_encrypt("$uname:$password:".S::v('challenge'));
+            // le password de la base est peut-être encore encodé en md5
+            if (Env::v('response') != $expected_response) {
+                $new_password = hash_xor(Env::v('xorpass'), $password);
+                $expected_response = hash_encrypt("$uname:$new_password:".S::v('challenge'));
+                if (Env::v('response') == $expected_response) {
+                      XDB::execute("UPDATE auth_user_md5 SET password = {?} WHERE user_id = {?}",
+                                   $new_password, $uid);
+                }
+            }
+            if (Env::v('response') == $expected_response) {
                 if (Env::has('domain')) {
                     if (($domain = Env::v('domain', 'login')) == 'alias') {
                         setcookie('ORGdomain', "alias", (time()+25920000), '/', '', 0);
@@ -109,7 +127,9 @@ class XorgSession
                 if ($logger) {
                     $logger->log('auth_ok');
                 }
-                        start_connexion($uid, true);
+                if (!start_connexion($uid, true)) {
+                    return false;
+                }
                 if (Env::v('remember', 'false') == 'true') {
                     $cookie = hash_encrypt(S::v('password'));
                     setcookie('ORGaccess',$cookie,(time()+25920000),'/','',0);
@@ -123,8 +143,8 @@ class XorgSession
                         $logger->log("cookie_off");
                     }
                 }
-                        return true;
-                    } elseif ($logger) {
+                return true;
+            } elseif ($logger) {
                 $logger->log('auth_fail','bad password');
             }
         } elseif ($logger) {
@@ -142,49 +162,69 @@ class XorgSession
      * @param page the calling page (by reference)
      */
     public static function doAuthCookie()
+
     {
-       if (S::logged()) {
-           return true;
+        if (S::logged()) {
+            return true;
         }
 
-       if (Env::has('username') and Env::has('response')) {
-           return XorgSession::doAuth();
+        if (Env::has('username') and Env::has('response')) {
+            return XorgSession::doAuth();
         }
 
-       if ($r = try_cookie()) {
-           return XorgSession::doAuth(($r > 0));
+        if ($r = try_cookie()) {
+            return XorgSession::doAuth(($r > 0));
         }
 
         return false;
     }
 
     // }}}
+    // {{{ public static function make_perms()
+
+    public static function &make_perms($perm)
+    {
+        $flags = new PlFlagSet();
+        if ($perm == 'disabled' || $perm == 'ext') {
+            return $flags;
+        }
+        $flags->addFlag(PERMS_USER);
+        if ($perm == 'admin') {
+            $flags->addFlag(PERMS_ADMIN);
+        }
+        return $flags;
+    }
+
+    // }}}
 }
 
 // {{{ function try_cookie()
 
-/** réalise la récupération de $_SESSION pour qqn avec cookie
+/** réalise la récupération de $_SESSION pour qqn avec cookie
  * @return  int     0 if all OK, -1 if no cookie, 1 if cookie with bad hash,
  *                  -2 should not happen
  */
 function try_cookie()
 {
     if (Cookie::v('ORGaccess') == '' or !Cookie::has('ORGuid')) {
-       return -1;
+        return -1;
     }
 
     $res = @XDB::query(
-            "SELECT user_id,password FROM auth_user_md5 WHERE user_id = {?} AND perms IN('admin','user')",
-            Cookie::i('ORGuid')
-    );
+            "SELECT user_id,password FROM auth_user_md5
+              WHERE user_id = {?} AND perms IN('admin','user')",
+            Cookie::i('ORGuid'));
+
     if ($res->numRows() != 0) {
-       list($uid, $password) = $res->fetchOneRow();
-       require_once('secure_hash.inc.php');
-       $expected_value       = hash_encrypt($password);
-       if ($expected_value == Cookie::v('ORGaccess')) {
-           start_connexion($uid, false);
-           return 0;
-       } else {
+        list($uid, $password) = $res->fetchOneRow();
+        require_once('secure_hash.inc.php');
+        $expected_value       = hash_encrypt($password);
+        if ($expected_value == Cookie::v('ORGaccess')) {
+            if (!start_connexion($uid, false)) {
+                return -3;
+            }
+            return 0;
+        } else {
             return 1;
         }
     }
@@ -195,43 +235,84 @@ function try_cookie()
 // }}}
 // {{{ function start_connexion()
 
-/** place les variables de session dépendants de auth_user_md5
- * et met à jour les dates de dernière connexion si nécessaire
+/** place les variables de session dépendants de auth_user_md5
+ * et met à jour les dates de dernière connexion si nécessaire
  * @return void
  * @see controlpermanent.inc.php controlauthentication.inc.php
  */
 function start_connexion ($uid, $identified)
 {
     $res  = XDB::query("
-       SELECT  u.user_id AS uid, prenom, nom, perms, promo, matricule, password, FIND_IN_SET('femme', u.flags) AS femme,
-                UNIX_TIMESTAMP(s.start) AS lastlogin, s.host, a.alias AS forlife, a2.alias AS bestalias,
-                q.core_mail_fmt AS mail_fmt, UNIX_TIMESTAMP(q.banana_last) AS banana_last, q.watch_last, q.core_rss_hash
+        SELECT  u.user_id AS uid, prenom, prenom_ini, nom, nom_ini, nom_usage, perms, promo, promo_sortie,
+                matricule, password, FIND_IN_SET('femme', u.flags) AS femme,
+                a.alias AS forlife, a2.alias AS bestalias,
+                q.core_mail_fmt AS mail_fmt, UNIX_TIMESTAMP(q.banana_last) AS banana_last, q.watch_last, q.core_rss_hash,
+                FIND_IN_SET('watch', u.flags) AS watch_account, q.last_version
           FROM  auth_user_md5   AS u
     INNER JOIN  auth_user_quick AS q  USING(user_id)
-    INNER JOIN aliases         AS a  ON (u.user_id = a.id AND a.type='a_vie')
-    INNER JOIN  aliases                AS a2 ON (u.user_id = a2.id AND FIND_IN_SET('bestalias',a2.flags))
-     LEFT JOIN  logger.sessions AS s  ON (s.uid=u.user_id AND s.suid=0)
-         WHERE  u.user_id = {?} AND u.perms IN('admin','user')
-      ORDER BY  s.start DESC
-         LIMIT  1", $uid);
+    INNER JOIN  aliases         AS a  ON (u.user_id = a.id AND a.type='a_vie')
+    INNER JOIN  aliases         AS a2 ON (u.user_id = a2.id AND FIND_IN_SET('bestalias',a2.flags))
+         WHERE  u.user_id = {?} AND u.perms IN('admin','user')", $uid);
     $sess = $res->fetchOneAssoc();
+    $res = XDB::query("SELECT  UNIX_TIMESTAMP(s.start) AS lastlogin, s.host
+                         FROM  logger.sessions AS s
+                        WHERE  s.uid = {?} AND s.suid = 0
+                     ORDER BY  s.start DESC
+                        LIMIT  1", $uid);
+    if ($res->numRows()) {
+        $sess = array_merge($sess, $res->fetchOneAssoc());
+    }
     $suid = S::v('suid');
 
     if ($suid) {
-       $logger = new CoreLogger($uid, $suid);
-       $logger->log("suid_start", S::v('forlife')." by {$suid['uid']}");
+        $logger = new PlLogger($uid, $suid['uid']);
+        $logger->log("suid_start", S::v('forlife')." by {$suid['uid']}");
         $sess['suid'] = $suid;
     } else {
-        global $platal;
-        $logger = S::v('log', new CoreLogger($uid));
-        $logger->log("connexion", $platal->path);
+        $logger = S::v('log', new PlLogger($uid));
+        $logger->log("connexion", Env::v('n'));
         setcookie('ORGuid', $uid, (time()+25920000), '/', '', 0);
     }
 
-    $_SESSION         = $sess;
+    $_SESSION         = array_merge($_SESSION, $sess);
     $_SESSION['log']  = $logger;
     $_SESSION['auth'] = ($identified ? AUTH_MDP : AUTH_COOKIE);
+    $_SESSION['perms'] =& XorgSession::make_perms($_SESSION['perms']);
+    $mail_subject = null;
+    if (check_account()) {
+        $mail_subject = "Connexion d'un utilisateur surveillé";
+    }
+    if (check_ip('unsafe')) {
+        if ($mail_subject) {
+            $mail_subject .= ' - ';
+        }
+        $mail_subject .= "Une IP surveillee a tente de se connecter";
+        if (check_ip('ban')) {
+            send_warning_mail($mail_subject);
+            $_SESSION = array();
+            $_SESSION['perms'] = new PlFlagSet();
+            global $page;
+            $newpage = false;
+            if (!$page) {
+                $page =& Platal::page();
+                $newpage = true;
+            }
+            $page->trigError("Une erreur est survenue lors de la procédure d'authentification. "
+                       ."Merci de contacter au plus vite "
+                       ."<a href='mailto:support@polytechnique.org'>support@polytechnique.org</a>");
+            if ($newpage) {
+                $page->run();
+            }
+            return false;
+        }
+    }
+    if ($mail_subject) {
+        send_warning_mail($mail_subject);
+    }
     set_skin();
+    update_NbNotifs();
+    check_redirect();
+    return true;
 }
 
 // }}}
@@ -239,17 +320,17 @@ function start_connexion ($uid, $identified)
 function set_skin()
 {
     global $globals;
-    if (S::logged() && !S::has('skin')) {
+    if (S::logged() && (!S::has('skin') || S::has('suid'))) {
         $uid = S::v('uid');
-       $res = XDB::query("SELECT  skin_tpl
-                             FROM  auth_user_quick AS a
-                       INNER JOIN  skins           AS s ON a.skin = s.id
-                            WHERE  user_id = {?} AND skin_tpl != ''", $uid);
-       if ($_SESSION['skin'] = $res->fetchOneCell()) {
+        $res = XDB::query("SELECT  skin_tpl
+                          FROM  auth_user_quick AS a
+                          INNER JOIN  skins           AS s ON a.skin = s.id
+                          WHERE  user_id = {?} AND skin_tpl != ''", $uid);
+        if ($_SESSION['skin'] = $res->fetchOneCell()) {
             return;
         }
     }
 }
 
-// vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 ?>