[platal.git] / classes / xorgsession.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2008 Polytechnique.org                              *
 *  http://opensource.polytechnique.org/                                   *
 *                                                                         *
 *  This program is free software; you can redistribute it and/or modify   *
 *  it under the terms of the GNU General Public License as published by   *
 *  the Free Software Foundation; either version 2 of the License, or      *
 *  (at your option) any later version.                                    *
 *                                                                         *
 *  This program is distributed in the hope that it will be useful,        *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
 *  GNU General Public License for more details.                           *
 *                                                                         *
 *  You should have received a copy of the GNU General Public License      *
 *  along with this program; if not, write to the Free Software            *
 *  Foundation, Inc.,                                                      *
 *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
 ***************************************************************************/

class XorgSession extends PlSession
{
    public function __construct()
    {
        parent::__construct();
        S::bootstrap('perms_backup', new PlFlagSet());
    }

    public function startAvailableAuth()
    {
        if (!(S::v('perms') instanceof PlFlagSet)) {
            S::set('perms', S::v('perms_backup'));
        }
        if (!S::logged()) {
            $cookie = $this->tryCookie();
            if ($cookie == 0) {
                return $this->start(AUTH_COOKIE);
            } else if ($cookie == 1 || $cooke == -2) {
                return false;
            }
        }
        if ((check_ip('dangerous') && S::has('uid')) || check_account()) {
            $_SESSION['log']->log("view_page", $_SERVER['REQUEST_URI']);
        }
        return true;
    }

    /** Check the cookie and set the associated user_id in the auth_by_cookie session variable.
     */
    private function tryCookie()
    {
        S::kill('auth_by_cookie');
        if (Cookie::v('ORGaccess') == '' || !Cookie::has('ORGuid')) {
            return -1;
        }

        $res = XDB::query('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')) {
                S::set('auth_by_cookie', $uid);
                return 0;
            } else {
                return 1;
            }
        }
        return -2;
    }

    private function checkPassword($uname, $login, $response, $login_type)
    {
        $res = XDB::query('SELECT  u.user_id, u.password
                             FROM  auth_user_md5 AS u
                       INNER JOIN  aliases       AS a ON (a.id = u.user_id AND type != \'homonyme\')
                             WHERE  a.' . $login_type . ' = {?} AND u.perms IN(\'admin\', \'user\')',
                          $login);
        if (list($uid, $password) = $res->fetchOneRow()) {
            require_once 'secure_hash.inc.php';
            $expected_response = hash_encrypt("$uname:$password:" . S::v('challenge'));
            if ($response != $expected_response) {
                $new_password = hash_xor(Env::v('xorpass'), $password);
                $expected_response = hash_encrypt("$uname:$new_password:" . S::v('challenge'));
                if ($response == $expected_response) {
                      XDB::execute('UPDATE  auth_user_md5
                                       SET  password = {?}
                                     WHERE  user_id = {?}',
                                   $new_password, $uid);
                }
            }
            if ($response != $expected_response) {
                S::logger($uid)->log('auth_fail', 'bad password');
                return null;
            }
            return $uid;
        }
        return null;
    }


    /** Check auth.
     */
    protected function doAuth($level)
    {
        global $globals;

        /* Cookie authentication
         */
        if ($level == AUTH_COOKIE && !S::has('auth_by_cookie')) {
            $this->tryCookie();
        }
        if ($level == AUTH_COOKIE && S::has('auth_by_cookie')) {
            if (!S::logged()) {
                S::set('auth', AUTH_COOKIE);
            }
            return S::i('auth_by_cookie');
        }


        /* We want to do auth... we must have infos from a form.
         */
        if (!Post::has('username') || !Post::has('response') || !S::has('challenge')) {
            return null;
        }

        /** We come from an authentication form.
         */
        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 = $uname;
                $redirect = false;
            }
        }

        $uid = $this->checkPassword($uname, $login, Post::v('response'), (!$redirect && preg_match('/^\d*$/', $uname)) ? 'id' : 'alias');
        if (!is_null($uid)) {
            S::set('auth', AUTH_MDP);
            if (Post::has('domain')) {
                if (($domain = Post::v('domain', 'login')) == 'alias') {
                    setcookie('ORGdomain', "alias", (time() + 25920000), '/', '', 0);
                } else {
                    setcookie('ORGdomain', '', (time() - 3600), '/', '', 0);
                }
                // pour que la modification soit effective dans le reste de la page
                $_COOKIE['ORGdomain'] = $domain;
            }
            S::kill('challenge');
            S::logger($uid)->log('auth_ok');
        }
        return $uid;
    }

    protected function startSessionAs($uid, $level)
    {
        if ((!is_null(S::v('user')) && S::i('user') != $uid) || (S::has('uid') && S::i('uid') != $uid)) {
            return false;
        } else if (S::has('uid')) {
            return true;
        }
        if ($level == -1) {
            S::set('auth', AUTH_COOKIE);
        }
        unset($_SESSION['log']);
        $res  = XDB::query('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))
                             WHERE  u.user_id = {?} AND u.perms IN(\'admin\', \'user\')', $uid);
        $sess = $res->fetchOneAssoc();
        $perms = $sess['perms'];
        unset($sess['perms']);
        $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 = S::logger();
            $logger->log("suid_start", S::v('forlife')." by {$suid['uid']}");
            $sess['suid'] = $suid;
        } else {
            $logger = S::logger();
            //$logger->log("connexion", Env::v('n'));
            setcookie('ORGuid', $uid, (time() + 25920000), '/', '', 0);
            if (Post::v('remember', 'false') == 'true') {
                $cookie = hash_encrypt($sess['password']);
                setcookie('ORGaccess', $cookie, (time() + 25920000), '/', '', 0);
                if ($logger) {
                    $logger->log("cookie_on");
                }
            } else {
                setcookie('ORGaccess', '', time() - 3600, '/', '', 0);
                if ($logger) {
                    $logger->log("cookie_off");
                }
            }
        }

        $_SESSION = array_merge($_SESSION, $sess);
        $this->makePerms($perms);
        $this->securityChecks();
        $this->setSkin();
        update_NbNotifs();
        check_redirect();
        return true;
    }

    private function securityChecks()
    {
        $mail_subject = array();
        if (check_account()) {
            $mail_subject[] = 'Connexion d\'un utilisateur surveillé';
        }
        if (check_ip('unsafe')) {
            $mail_subject[] = 'Une IP surveillee a tente de se connecter';
            if (check_ip('ban')) {
                send_warning_mail(implode(' - ', $mail_subject));
                $this->destroy();
                Platal::page()->kill('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>');
                return false;
            }
        }
        if (count($mail_subject)) {
            send_warning_mail(implode(' - ', $mail_subject));
        }
    }

    public function makePerms($perm)
    {
        $flags = new PlFlagSet();
        if ($perm == 'disabled' || $perm == 'ext') {
            S::set('perms', $flags);
            S::set('perms_backup', $flags);
            return;
        }
        $flags->addFlag(PERMS_USER);
        if ($perm == 'admin') {
            $flags->addFlag(PERMS_ADMIN);
        }
        S::set('perms', $flags);
        S::set('perms_backup', $flags);
    }

    public function setSkin()
    {
        global $globals;
        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);
            S::set('skin', $res->fetchOneCell());
        }
    }

    public function sureLevel()
    {
        return AUTH_MDP;
    }
}

// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>
Commit	Line	Data
0337d704	1	<?php
0337d704	2	/***************************************************************************
179afa7f	3	* Copyright (C) 2003-2008 Polytechnique.org *
0337d704	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
c0799142	22	class XorgSession extends PlSession
0337d704	23	{
c0799142 FB	24	public function __construct()
	25	{
	26	parent::__construct();
	27	S::bootstrap('perms_backup', new PlFlagSet());
abde67b1 FB	28	}
abde67b1 FB	29
c0799142	30	public function startAvailableAuth()
5480a216	31	{
c0799142 FB	32	if (!(S::v('perms') instanceof PlFlagSet)) {
	33	S::set('perms', S::v('perms_backup'));
	34	}
	35	if (!S::logged()) {
	36	$cookie = $this->tryCookie();
	37	if ($cookie == 0) {
	38	return $this->start(AUTH_COOKIE);
	39	} else if ($cookie == 1 \|\| $cooke == -2) {
	40	return false;
	41	}
5480a216	42	}
0be07aa6	43	if ((check_ip('dangerous') && S::has('uid')) \|\| check_account()) {
5480a216	44	$_SESSION['log']->log("view_page", $_SERVER['REQUEST_URI']);
0337d704	45	}
c0799142	46	return true;
0337d704	47	}
0337d704	48
c0799142 FB	49	/** Check the cookie and set the associated user_id in the auth_by_cookie session variable.
	50	*/
	51	private function tryCookie()
	52	{
	53	S::kill('auth_by_cookie');
	54	if (Cookie::v('ORGaccess') == '' \|\| !Cookie::has('ORGuid')) {
	55	return -1;
	56	}
cab08090	57
c0799142 FB	58	$res = XDB::query('SELECT user_id, password
	59	FROM auth_user_md5
	60	WHERE user_id = {?} AND perms IN(\'admin\', \'user\')',
	61	Cookie::i('ORGuid'));
	62	if ($res->numRows() != 0) {
	63	list($uid, $password) = $res->fetchOneRow();
	64	require_once 'secure_hash.inc.php';
	65	$expected_value = hash_encrypt($password);
	66	if ($expected_value == Cookie::v('ORGaccess')) {
	67	S::set('auth_by_cookie', $uid);
	68	return 0;
	69	} else {
	70	return 1;
	71	}
	72	}
	73	return -2;
	74	}
	75
	76	private function checkPassword($uname, $login, $response, $login_type)
5480a216	77	{
c0799142 FB	78	$res = XDB::query('SELECT u.user_id, u.password
	79	FROM auth_user_md5 AS u
	80	INNER JOIN aliases AS a ON (a.id = u.user_id AND type != \'homonyme\')
	81	WHERE a.' . $login_type . ' = {?} AND u.perms IN(\'admin\', \'user\')',
	82	$login);
	83	if (list($uid, $password) = $res->fetchOneRow()) {
	84	require_once 'secure_hash.inc.php';
	85	$expected_response = hash_encrypt("$uname:$password:" . S::v('challenge'));
	86	if ($response != $expected_response) {
	87	$new_password = hash_xor(Env::v('xorpass'), $password);
	88	$expected_response = hash_encrypt("$uname:$new_password:" . S::v('challenge'));
	89	if ($response == $expected_response) {
	90	XDB::execute('UPDATE auth_user_md5
	91	SET password = {?}
	92	WHERE user_id = {?}',
	93	$new_password, $uid);
	94	}
	95	}
	96	if ($response != $expected_response) {
732e5855	97	S::logger($uid)->log('auth_fail', 'bad password');
c0799142 FB	98	return null;
	99	}
	100	return $uid;
	101	}
	102	return null;
0337d704	103	}
cab08090	104
0337d704	105
c0799142 FB	106	/** Check auth.
	107	*/
	108	protected function doAuth($level)
0337d704	109	{
e74411f7	110	global $globals;
c0799142 FB	111
	112	/* Cookie authentication
	113	*/
	114	if ($level == AUTH_COOKIE && !S::has('auth_by_cookie')) {
	115	$this->tryCookie();
	116	}
	117	if ($level == AUTH_COOKIE && S::has('auth_by_cookie')) {
	118	if (!S::logged()) {
	119	S::set('auth', AUTH_COOKIE);
	120	}
	121	return S::i('auth_by_cookie');
e74411f7	122	}
0337d704	123
c0799142 FB	124
	125	/* We want to do auth... we must have infos from a form.
	126	*/
e64c8b61	127	if (!Post::has('username') \|\| !Post::has('response') \|\| !S::has('challenge')) {
c0799142	128	return null;
63528107	129	}
63528107	130
c0799142 FB	131	/** We come from an authentication form.
c0799142 FB	132	*/
e74411f7	133	if (S::has('suid')) {
c0799142	134	$suid = S::v('suid');
e74411f7	135	$login = $uname = $suid['forlife'];
	136	$redirect = false;
	137	} else {
	138	$uname = Env::v('username');
	139
	140	if (Env::v('domain') == "alias") {
c0799142 FB	141	$res = XDB::query('SELECT redirect
	142	FROM virtual
	143	INNER JOIN virtual_redirect USING(vid)
	144	WHERE alias LIKE {?}',
	145	$uname . '@' . $globals->mail->alias_dom);
e74411f7	146	$redirect = $res->fetchOneCell();
	147	if ($redirect) {
	148	$login = substr($redirect, 0, strpos($redirect, '@'));
	149	} else {
c0799142	150	$login = '';
e74411f7	151	}
0337d704	152	} else {
e74411f7	153	$login = $uname;
e74411f7	154	$redirect = false;
0337d704	155	}
63528107	156	}
cab08090	157
c0799142 FB	158	$uid = $this->checkPassword($uname, $login, Post::v('response'), (!$redirect && preg_match('/^\d*$/', $uname)) ? 'id' : 'alias');
	159	if (!is_null($uid)) {
	160	S::set('auth', AUTH_MDP);
	161	if (Post::has('domain')) {
	162	if (($domain = Post::v('domain', 'login')) == 'alias') {
	163	setcookie('ORGdomain', "alias", (time() + 25920000), '/', '', 0);
	164	} else {
	165	setcookie('ORGdomain', '', (time() - 3600), '/', '', 0);
e74411f7	166	}
c0799142 FB	167	// pour que la modification soit effective dans le reste de la page
c0799142 FB	168	$_COOKIE['ORGdomain'] = $domain;
e74411f7	169	}
c0799142	170	S::kill('challenge');
732e5855	171	S::logger($uid)->log('auth_ok');
c0799142 FB	172	}
	173	return $uid;
	174	}
cab08090	175
c0799142 FB	176	protected function startSessionAs($uid, $level)
	177	{
	178	if ((!is_null(S::v('user')) && S::i('user') != $uid) \|\| (S::has('uid') && S::i('uid') != $uid)) {
	179	return false;
	180	} else if (S::has('uid')) {
	181	return true;
	182	}
	183	if ($level == -1) {
	184	S::set('auth', AUTH_COOKIE);
	185	}
	186	unset($_SESSION['log']);
	187	$res = XDB::query('SELECT u.user_id AS uid, prenom, prenom_ini, nom, nom_ini, nom_usage, perms, promo, promo_sortie,
	188	matricule, password, FIND_IN_SET(\'femme\', u.flags) AS femme,
	189	a.alias AS forlife, a2.alias AS bestalias,
	190	q.core_mail_fmt AS mail_fmt, UNIX_TIMESTAMP(q.banana_last) AS banana_last, q.watch_last, q.core_rss_hash,
	191	FIND_IN_SET(\'watch\', u.flags) AS watch_account, q.last_version
	192	FROM auth_user_md5 AS u
	193	INNER JOIN auth_user_quick AS q USING(user_id)
	194	INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type = \'a_vie\')
	195	INNER JOIN aliases AS a2 ON (u.user_id = a2.id AND FIND_IN_SET(\'bestalias\', a2.flags))
	196	WHERE u.user_id = {?} AND u.perms IN(\'admin\', \'user\')', $uid);
	197	$sess = $res->fetchOneAssoc();
	198	$perms = $sess['perms'];
	199	unset($sess['perms']);
	200	$res = XDB::query('SELECT UNIX_TIMESTAMP(s.start) AS lastlogin, s.host
	201	FROM logger.sessions AS s
	202	WHERE s.uid = {?} AND s.suid = 0
	203	ORDER BY s.start DESC
	204	LIMIT 1', $uid);
	205	if ($res->numRows()) {
	206	$sess = array_merge($sess, $res->fetchOneAssoc());
	207	}
	208	$suid = S::v('suid');
	209
	210	if ($suid) {
	211	$logger = S::logger();
	212	$logger->log("suid_start", S::v('forlife')." by {$suid['uid']}");
	213	$sess['suid'] = $suid;
	214	} else {
	215	$logger = S::logger();
	216	//$logger->log("connexion", Env::v('n'));
	217	setcookie('ORGuid', $uid, (time() + 25920000), '/', '', 0);
	218	if (Post::v('remember', 'false') == 'true') {
	219	$cookie = hash_encrypt($sess['password']);
	220	setcookie('ORGaccess', $cookie, (time() + 25920000), '/', '', 0);
63528107	221	if ($logger) {
c0799142	222	$logger->log("cookie_on");
63528107	223	}
c0799142 FB	224	} else {
	225	setcookie('ORGaccess', '', time() - 3600, '/', '', 0);
	226	if ($logger) {
	227	$logger->log("cookie_off");
0337d704	228	}
0337d704	229	}
63528107	230	}
b0b937fd	231
c0799142 FB	232	$_SESSION = array_merge($_SESSION, $sess);
	233	$this->makePerms($perms);
	234	$this->securityChecks();
	235	$this->setSkin();
	236	update_NbNotifs();
	237	check_redirect();
	238	return true;
0337d704	239	}
0337d704	240
c0799142	241	private function securityChecks()
0337d704	242	{
c0799142 FB	243	$mail_subject = array();
	244	if (check_account()) {
	245	$mail_subject[] = 'Connexion d\'un utilisateur surveillé';
0337d704	246	}
c0799142 FB	247	if (check_ip('unsafe')) {
	248	$mail_subject[] = 'Une IP surveillee a tente de se connecter';
	249	if (check_ip('ban')) {
	250	send_warning_mail(implode(' - ', $mail_subject));
	251	$this->destroy();
	252	Platal::page()->kill('Une erreur est survenue lors de la procédure d\'authentification. '
	253	. 'Merci de contacter au plus vite '
	254	. '<a href="mailto:support@polytechnique.org">support@polytechnique.org</a>');
	255	return false;
	256	}
0337d704	257	}
c0799142 FB	258	if (count($mail_subject)) {
c0799142 FB	259	send_warning_mail(implode(' - ', $mail_subject));
0337d704	260	}
	261	}
	262
732e5855	263	public function makePerms($perm)
bf517daf	264	{
113f6de8	265	$flags = new PlFlagSet();
bf517daf	266	if ($perm == 'disabled' \|\| $perm == 'ext') {
ab694eb5 FB	267	S::set('perms', $flags);
	268	S::set('perms_backup', $flags);
	269	return;
bf517daf	270	}
	271	$flags->addFlag(PERMS_USER);
	272	if ($perm == 'admin') {
	273	$flags->addFlag(PERMS_ADMIN);
	274	}
c0799142 FB	275	S::set('perms', $flags);
c0799142 FB	276	S::set('perms_backup', $flags);
bf517daf	277	}
bf517daf	278
c0799142 FB	279	public function setSkin()
	280	{
	281	global $globals;
	282	if (S::logged() && (!S::has('skin') \|\| S::has('suid'))) {
	283	$uid = S::v('uid');
	284	$res = XDB::query("SELECT skin_tpl
	285	FROM auth_user_quick AS a
	286	INNER JOIN skins AS s ON a.skin = s.id
	287	WHERE user_id = {?} AND skin_tpl != ''", $uid);
	288	S::set('skin', $res->fetchOneCell());
5480a216	289	}
5480a216	290	}
0337d704	291
c0799142 FB	292	public function sureLevel()
	293	{
	294	return AUTH_MDP;
0337d704	295	}
0337d704	296	}
0337d704	297
a7de4ef7	298	// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
0337d704	299	?>