session.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2007 Polytechnique.org                              *
   4  *  http://opensource.polytechnique.org/                                   *
   5  *                                                                         *
   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.                                    *
  10  *                                                                         *
  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.                           *
  15  *                                                                         *
  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            *
  18  *  Foundation, Inc.,                                                      *
  19  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  20  ***************************************************************************/
  21
  22 class XorgSession
  23 {
  24     // {{{ public static function init
  25
  26     public static function init() {
  27         S::init();
  28     if (!S::has('uid')) {
  29         try_cookie();
  30         }
  31     }
  32
  33     // }}}
  34     // {{{ public static function destroy()
  35
  36     public static function destroy() {
  37         S::destroy();
  38         XorgSession::init();
  39     }
  40
  41     // }}}
  42     // {{{ public static function doAuth()
  43
  44     public static function doAuth($new_name = false)
  45     {
  46         global $globals;
  47         if (S::identified()) { // ok, c'est bon, on n'a rien à faire
  48             return true;
  49         }
  50
  51         if (!Env::has('username') || !Env::has('response')
  52         ||  !S::has('challenge'))
  53         {
  54             return false;
  55         }
  56
  57         // si on vient de recevoir une identification par passwordpromptscreen.tpl
  58         // ou passwordpromptscreenlogged.tpl
  59         if (S::has('suid')) {
  60             $suid = S::v('suid');
  61             $login = $uname = $suid['forlife'];
  62             $redirect = false;
  63         } else {
  64             $uname = Env::v('username');
  65
  66             if (Env::v('domain') == "alias") {
  67                 $res = XDB::query(
  68                     "SELECT redirect
  69                        FROM virtual
  70                  INNER JOIN virtual_redirect USING(vid)
  71                       WHERE alias LIKE {?}", $uname."@".$globals->mail->alias_dom);
  72                 $redirect = $res->fetchOneCell();
  73                 if ($redirect) {
  74                     $login = substr($redirect, 0, strpos($redirect, '@'));
  75                 } else {
  76                     $login = "";
  77                 }
  78             } else {
  79                 $login = $uname;
  80                 $redirect = false;
  81             }
  82         }
  83
  84         $field = (!$redirect && preg_match('/^\d*$/', $uname)) ? 'id' : 'alias';
  85         $res   = XDB::query(
  86                     "SELECT  u.user_id, u.password
  87                        FROM  auth_user_md5 AS u
  88                  INNER JOIN  aliases       AS a ON ( a.id=u.user_id AND type!='homonyme' )
  89                       WHERE  a.$field = {?} AND u.perms IN('admin','user')", $login);
  90
  91         $logger = S::v('log');
  92         if (list($uid, $password) = $res->fetchOneRow()) {
  93             require_once('secure_hash.inc.php');
  94             $expected_response = hash_encrypt("$uname:$password:".S::v('challenge'));
  95             // le password de la base est peut-être encore encodé en md5
  96             if (Env::v('response') != $expected_response) {
  97                 $new_password = hash_xor(Env::v('xorpass'), $password);
  98                 $expected_response = hash_encrypt("$uname:$new_password:".S::v('challenge'));
  99                 if (Env::v('response') == $expected_response) {
 100                       XDB::execute("UPDATE auth_user_md5 SET password = {?} WHERE user_id = {?}",
 101                                    $new_password, $uid);
 102                 }
 103             }
 104             if (Env::v('response') == $expected_response) {
 105                 if (Env::has('domain')) {
 106                     if (($domain = Env::v('domain', 'login')) == 'alias') {
 107                         setcookie('ORGdomain', "alias", (time()+25920000), '/', '', 0);
 108                     } else {
 109                         setcookie('ORGdomain', '', (time()-3600), '/', '', 0);
 110                     }
 111                     // pour que la modification soit effective dans le reste de la page
 112                     $_COOKIE['ORGdomain'] = $domain;
 113                 }
 114
 115                 S::kill('challenge');
 116                 if ($logger) {
 117                     $logger->log('auth_ok');
 118                 }
 119                 start_connexion($uid, true);
 120                 if (Env::v('remember', 'false') == 'true') {
 121                     $cookie = hash_encrypt(S::v('password'));
 122                     setcookie('ORGaccess',$cookie,(time()+25920000),'/','',0);
 123                     if ($logger) {
 124                         $logger->log("cookie_on");
 125                     }
 126                 } else {
 127                     setcookie('ORGaccess', '', time() - 3600, '/', '', 0);
 128
 129                     if ($logger) {
 130                         $logger->log("cookie_off");
 131                     }
 132                 }
 133                 return true;
 134             } elseif ($logger) {
 135                 $logger->log('auth_fail','bad password');
 136             }
 137         } elseif ($logger) {
 138             $logger->log('auth_fail','bad login');
 139         }
 140
 141         return false;
 142     }
 143
 144     // }}}
 145     // {{{ public static function doAuthCookie()
 146
 147     /** Try to do a cookie-based authentication.
 148      *
 149      * @param page the calling page (by reference)
 150      */
 151     public static function doAuthCookie()
 152     {
 153     if (S::logged()) {
 154         return true;
 155         }
 156
 157     if (Env::has('username') and Env::has('response')) {
 158         return XorgSession::doAuth();
 159         }
 160
 161     if ($r = try_cookie()) {
 162         return XorgSession::doAuth(($r > 0));
 163         }
 164
 165         return false;
 166     }
 167
 168     // }}}
 169 }
 170
 171 // {{{ function try_cookie()
 172
 173 /** réalise la récupération de $_SESSION pour qqn avec cookie
 174  * @return  int     0 if all OK, -1 if no cookie, 1 if cookie with bad hash,
 175  *                  -2 should not happen
 176  */
 177 function try_cookie()
 178 {
 179     if (Cookie::v('ORGaccess') == '' or !Cookie::has('ORGuid')) {
 180     return -1;
 181     }
 182
 183     $res = @XDB::query(
 184             "SELECT user_id,password FROM auth_user_md5
 185               WHERE user_id = {?} AND perms IN('admin','user')",
 186             Cookie::i('ORGuid'));
 187
 188     if ($res->numRows() != 0) {
 189     list($uid, $password) = $res->fetchOneRow();
 190     require_once('secure_hash.inc.php');
 191     $expected_value       = hash_encrypt($password);
 192     if ($expected_value == Cookie::v('ORGaccess')) {
 193         start_connexion($uid, false);
 194         return 0;
 195     } else {
 196             return 1;
 197         }
 198     }
 199
 200     return -2;
 201 }
 202
 203 // }}}
 204 // {{{ function start_connexion()
 205
 206 /** place les variables de session dépendants de auth_user_md5
 207  * et met à jour les dates de dernière connexion si nécessaire
 208  * @return void
 209  * @see controlpermanent.inc.php controlauthentication.inc.php
 210  */
 211 function start_connexion ($uid, $identified)
 212 {
 213     $res  = XDB::query("
 214     SELECT  u.user_id AS uid, prenom, nom, perms, promo, matricule, password, FIND_IN_SET('femme', u.flags) AS femme,
 215                 UNIX_TIMESTAMP(s.start) AS lastlogin, s.host, a.alias AS forlife, a2.alias AS bestalias,
 216                 q.core_mail_fmt AS mail_fmt, UNIX_TIMESTAMP(q.banana_last) AS banana_last, q.watch_last, q.core_rss_hash
 217           FROM  auth_user_md5   AS u
 218     INNER JOIN  auth_user_quick AS q  USING(user_id)
 219     INNER JOIN  aliases         AS a  ON (u.user_id = a.id AND a.type='a_vie')
 220     INNER JOIN  aliases     AS a2 ON (u.user_id = a2.id AND FIND_IN_SET('bestalias',a2.flags))
 221      LEFT JOIN  logger.sessions AS s  ON (s.uid=u.user_id AND s.suid=0)
 222          WHERE  u.user_id = {?} AND u.perms IN('admin','user')
 223       ORDER BY  s.start DESC
 224          LIMIT  1", $uid);
 225     $sess = $res->fetchOneAssoc();
 226     $suid = S::v('suid');
 227
 228     if ($suid) {
 229         $logger = new CoreLogger($uid, $suid);
 230         $logger->log("suid_start", S::v('forlife')." by {$suid['uid']}");
 231         $sess['suid'] = $suid;
 232         $sess['perms'] = $_SESSION['perms'];
 233     } else {
 234         $logger = S::v('log', new CoreLogger($uid));
 235         $logger->log("connexion", Env::v('n'));
 236         setcookie('ORGuid', $uid, (time()+25920000), '/', '', 0);
 237     }
 238
 239     $_SESSION         = array_merge($_SESSION, $sess);
 240     $_SESSION['log']  = $logger;
 241     $_SESSION['auth'] = ($identified ? AUTH_MDP : AUTH_COOKIE);
 242     set_skin();
 243 }
 244
 245 // }}}
 246
 247 function set_skin()
 248 {
 249     global $globals;
 250     if (S::logged() && !S::has('skin')) {
 251         $uid = S::v('uid');
 252     $res = XDB::query("SELECT  skin_tpl
 253                              FROM  auth_user_quick AS a
 254                        INNER JOIN  skins           AS s ON a.skin = s.id
 255                             WHERE  user_id = {?} AND skin_tpl != ''", $uid);
 256     if ($_SESSION['skin'] = $res->fetchOneCell()) {
 257             return;
 258         }
 259     }
 260 }
 261
 262 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
 263 ?>