0337d704 |
1 | <?php |
2 | /*************************************************************************** |
50a40a33 |
3 | * Copyright (C) 2003-2006 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 | |
4869f665 |
22 | require_once 'platal/session.inc.php'; |
0337d704 |
23 | |
24 | // {{{ class XorgSession |
25 | |
4869f665 |
26 | class XorgSession |
0337d704 |
27 | { |
4869f665 |
28 | var $challenge; |
29 | |
0337d704 |
30 | // {{{ function XorgSession() |
31 | |
32 | function XorgSession() |
33 | { |
4869f665 |
34 | $this->challenge = md5(uniqid(rand(), 1)); |
35 | |
0337d704 |
36 | if (!Session::has('uid')) { |
37 | try_cookie(); |
38 | } |
39 | set_skin(); |
40 | } |
41 | |
42 | // }}} |
43 | // {{{ function init |
44 | |
45 | function init() { |
46 | @session_start(); |
47 | if (!Session::has('session')) { |
48 | $_SESSION['session'] = new XorgSession; |
49 | } |
50 | } |
51 | |
52 | // }}} |
53 | // {{{ function destroy() |
54 | |
55 | function destroy() { |
56 | @session_destroy(); |
57 | unset($_SESSION); |
58 | XorgSession::init(); |
59 | } |
60 | |
61 | // }}} |
62 | // {{{ function doAuth() |
63 | |
64 | /** Try to do an authentication. |
65 | * |
66 | * @param page the calling page (by reference) |
67 | */ |
68 | function doAuth(&$page,$new_name=false) |
69 | { |
46bde4d1 |
70 | global $globals; |
71 | if (identified()) { // ok, c'est bon, on n'a rien à faire |
72 | return true; |
73 | } |
0337d704 |
74 | |
75 | if (Session::has('session')) { |
76 | $session =& Session::getMixed('session'); |
77 | } |
0337d704 |
78 | if (Env::has('username') && Env::has('response') && isset($session->challenge)) |
46bde4d1 |
79 | { |
80 | // si on vient de recevoir une identification par passwordpromptscreen.tpl |
81 | // ou passwordpromptscreenlogged.tpl |
0337d704 |
82 | $uname = Env::get('username'); |
83 | |
84 | if (Env::get('domain') == "alias") { |
85 | |
08cce2ff |
86 | $res = XDB::query( |
0337d704 |
87 | "SELECT redirect |
88 | FROM virtual |
89 | INNER JOIN virtual_redirect USING(vid) |
90 | WHERE alias LIKE {?}", $uname."@".$globals->mail->alias_dom); |
91 | $redirect = $res->fetchOneCell(); |
92 | if ($redirect) { |
93 | $login = substr($redirect, 0, strpos($redirect, '@')); |
94 | } else { |
95 | $login = ""; |
96 | } |
97 | } else { |
98 | $login = $uname; |
99 | } |
46bde4d1 |
100 | |
101 | $field = (!$redirect && preg_match('/^\d*$/', $uname)) ? 'id' : 'alias'; |
08cce2ff |
102 | $res = XDB::query( |
46bde4d1 |
103 | "SELECT u.user_id, u.password |
104 | FROM auth_user_md5 AS u |
105 | INNER JOIN aliases AS a ON ( a.id=u.user_id AND type!='homonyme' ) |
106 | WHERE a.$field = {?} AND u.perms IN('admin','user')", $login); |
107 | |
0337d704 |
108 | $logger =& Session::getMixed('log'); |
46bde4d1 |
109 | if (list($uid, $password) = $res->fetchOneRow()) { |
110 | require_once('secure_hash.inc.php'); |
111 | $expected_response=hash_encrypt("$uname:$password:{$session->challenge}"); |
112 | // le password de la base est peut-être encore encodé en md5 |
113 | if (Env::get('response') != $expected_response) { |
114 | $new_password = hash_xor(Env::get('xorpass'), $password); |
115 | $expected_response = hash_encrypt("$uname:$new_password:{$session->challenge}"); |
116 | if (Env::get('response') == $expected_response) { |
08cce2ff |
117 | XDB::execute("UPDATE auth_user_md5 SET password = {?} WHERE user_id = {?}", $new_password, $uid); |
46bde4d1 |
118 | } |
119 | } |
120 | if (Env::get('response') == $expected_response) { |
0337d704 |
121 | if (Env::has('domain')) { |
122 | if (($domain = Env::get('domain', 'login')) == 'alias') { |
123 | setcookie('ORGdomain', "alias", (time()+25920000), '/', '', 0); |
124 | } else { |
125 | setcookie('ORGdomain', '', (time()-3600), '/', '', 0); |
126 | } |
127 | // pour que la modification soit effective dans le reste de la page |
128 | $_COOKIE['ORGdomain'] = $domain; |
129 | } |
46bde4d1 |
130 | |
131 | unset($session->challenge); |
132 | if ($logger) { |
133 | $logger->log('auth_ok'); |
0337d704 |
134 | } |
46bde4d1 |
135 | start_connexion($uid, true); |
0337d704 |
136 | if (Env::get('remember', 'false') == 'true') { |
46bde4d1 |
137 | $cookie = hash_encrypt(Session::get('password')); |
0337d704 |
138 | setcookie('ORGaccess',$cookie,(time()+25920000),'/','',0); |
139 | if ($logger) { |
140 | $logger->log("cookie_on"); |
141 | } |
142 | } else { |
143 | setcookie('ORGaccess', '', time() - 3600, '/', '', 0); |
144 | |
145 | if ($logger) { |
146 | $logger->log("cookie_off"); |
147 | } |
148 | } |
46bde4d1 |
149 | return true; |
150 | } elseif ($logger) { |
0337d704 |
151 | $logger->log('auth_fail','bad password'); |
152 | } |
46bde4d1 |
153 | } elseif ($logger) { |
154 | $logger->log('auth_fail','bad login'); |
0337d704 |
155 | } |
46bde4d1 |
156 | } |
0337d704 |
157 | $this->doLogin($page,$new_name); |
158 | } |
159 | |
160 | // }}} |
161 | // {{{ function doAuthCookie() |
162 | |
163 | /** Try to do a cookie-based authentication. |
164 | * |
165 | * @param page the calling page (by reference) |
166 | */ |
167 | function doAuthCookie(&$page) |
168 | { |
169 | if (logged()) { |
170 | return; |
171 | } |
172 | |
173 | if (Env::has('username') and Env::has('response')) { |
174 | return $this->doAuth($page); |
175 | } |
176 | |
177 | if ($r = try_cookie()) { |
178 | return $this->doAuth($page,($r>0)); |
179 | } |
180 | } |
181 | |
182 | // }}} |
183 | // {{{ function doLogin() |
184 | |
185 | /** Display login screen. |
186 | */ |
187 | function doLogin(&$page, $new_name=false) |
188 | { |
cdfe0063 |
189 | if (logged() and !$new_name) { |
190 | $page->changeTpl('password_prompt_logged.tpl'); |
e613b04c |
191 | $page->addJsLink('javascript/do_challenge_response_logged.js'); |
cdfe0063 |
192 | $page->assign("xorg_tpl", "password_prompt_logged.tpl"); |
193 | $page->run(); |
194 | } else { |
195 | $page->changeTpl('password_prompt.tpl'); |
e613b04c |
196 | $page->addJsLink('javascript/do_challenge_response.js'); |
cdfe0063 |
197 | $page->assign("xorg_tpl", "password_prompt.tpl"); |
0337d704 |
198 | |
199 | global $globals; |
200 | if ($globals->mail->alias_dom) { |
201 | $page->assign("domains", Array( |
202 | $globals->mail->domain."/".$globals->mail->domain2, |
203 | $globals->mail->alias_dom."/".$globals->mail->alias_dom2)); |
204 | $page->assign("domains_value", Array("login", "alias")); |
205 | $page->assign("r_domain", Cookie::get('ORGdomain', 'login')); |
206 | } |
207 | $page->run(); |
cdfe0063 |
208 | } |
209 | exit; |
0337d704 |
210 | } |
211 | |
212 | // }}} |
0337d704 |
213 | } |
214 | |
215 | // }}} |
216 | // {{{ function try_cookie() |
217 | |
218 | /** réalise la récupération de $_SESSION pour qqn avec cookie |
219 | * @return int 0 if all OK, -1 if no cookie, 1 if cookie with bad hash, |
220 | * -2 should not happen |
221 | */ |
222 | function try_cookie() |
223 | { |
224 | global $globals; |
225 | if (Cookie::get('ORGaccess') == '' or !Cookie::has('ORGuid')) { |
226 | return -1; |
227 | } |
228 | |
08cce2ff |
229 | $res = @XDB::query( |
0337d704 |
230 | "SELECT user_id,password FROM auth_user_md5 WHERE user_id = {?} AND perms IN('admin','user')", |
231 | Cookie::getInt('ORGuid') |
232 | ); |
233 | if ($res->numRows() != 0) { |
234 | list($uid, $password) = $res->fetchOneRow(); |
46bde4d1 |
235 | require_once('secure_hash.inc.php'); |
236 | $expected_value = hash_encrypt($password); |
0337d704 |
237 | if ($expected_value == Cookie::get('ORGaccess')) { |
238 | start_connexion($uid, false); |
239 | return 0; |
240 | } else { |
241 | return 1; |
242 | } |
243 | } |
244 | |
245 | return -2; |
246 | } |
247 | |
248 | // }}} |
249 | // {{{ function start_connexion() |
250 | |
251 | /** place les variables de session dépendants de auth_user_md5 |
252 | * et met à jour les dates de dernière connexion si nécessaire |
253 | * @return void |
254 | * @see controlpermanent.inc.php controlauthentication.inc.php |
255 | */ |
256 | function start_connexion ($uid, $identified) |
257 | { |
258 | global $globals; |
08cce2ff |
259 | $res = XDB::query(" |
0337d704 |
260 | SELECT u.user_id AS uid, prenom, nom, perms, promo, matricule, password, FIND_IN_SET('femme', u.flags) AS femme, |
261 | UNIX_TIMESTAMP(s.start) AS lastlogin, s.host, a.alias AS forlife, a2.alias AS bestalias, |
262 | q.core_mail_fmt AS mail_fmt, UNIX_TIMESTAMP(q.banana_last) AS banana_last, q.watch_last, q.core_rss_hash |
263 | FROM auth_user_md5 AS u |
264 | INNER JOIN auth_user_quick AS q USING(user_id) |
265 | INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type='a_vie') |
266 | INNER JOIN aliases AS a2 ON (u.user_id = a2.id AND FIND_IN_SET('bestalias',a2.flags)) |
267 | LEFT JOIN logger.sessions AS s ON (s.uid=u.user_id AND s.suid=0) |
268 | WHERE u.user_id = {?} AND u.perms IN('admin','user') |
269 | ORDER BY s.start DESC |
270 | LIMIT 1", $uid); |
271 | $sess = $res->fetchOneAssoc(); |
272 | $suid = Session::getMixed('suid'); |
273 | |
274 | if ($suid) { |
275 | $logger = new DiogenesCoreLogger($uid, $suid); |
276 | $logger->log("suid_start", Session::get('forlife')." by {$suid['uid']}"); |
277 | $sess['suid'] = $suid; |
278 | } else { |
279 | $logger = Session::getMixed('log', new DiogenesCoreLogger($uid)); |
280 | $logger->log("connexion", $_SERVER['PHP_SELF']); |
281 | setcookie('ORGuid', $uid, (time()+25920000), '/', '', 0); |
282 | } |
283 | |
284 | $_SESSION = $sess; |
285 | $_SESSION['log'] = $logger; |
286 | $_SESSION['auth'] = ($identified ? AUTH_MDP : AUTH_COOKIE); |
287 | set_skin(); |
288 | } |
289 | |
290 | // }}} |
291 | // {{{ function set_skin() |
292 | |
293 | function set_skin() |
294 | { |
295 | global $globals; |
296 | if (logged() && $globals->skin->enable) { |
297 | $uid = Session::getInt('uid'); |
08cce2ff |
298 | $res = XDB::query("SELECT skin,skin_tpl |
0337d704 |
299 | FROM auth_user_quick AS a |
300 | INNER JOIN skins AS s ON a.skin=s.id |
301 | WHERE user_id = {?} AND skin_tpl != ''", $uid); |
302 | if (list($_SESSION['skin_id'], $_SESSION['skin']) = $res->fetchOneRow()) { |
303 | return; |
304 | } |
305 | } |
306 | if ($globals->skin->enable) { |
307 | $_SESSION['skin'] = $globals->skin->def_tpl; |
308 | $_SESSION['skin_id'] = $globals->skin->def_id; |
309 | } else { |
310 | $_SESSION['skin'] = 'default.tpl'; |
311 | $_SESSION['skin_id'] = -1; |
312 | } |
313 | } |
314 | |
315 | // }}} |
316 | |
317 | // vim:set et sw=4 sts=4 sws=4 foldmethod=marker: |
318 | ?> |