Merge branch 'platal-0.9.16'
[platal.git] / include / xnet / session.inc.php
1 <?php
2 /***************************************************************************
3 * Copyright (C) 2003-2008 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 XnetSession
23 {
24 // {{{ function init
25
26 public static function init()
27 {
28 global $globals;
29
30 S::init();
31
32 if (!S::logged()) {
33 // prevent connexion to be linked to deconnexion
34 if (($i = strpos($_SERVER['REQUEST_URI'], 'exit')) !== false)
35 $returl = "http://{$_SERVER['SERVER_NAME']}".substr($_SERVER['REQUEST_URI'], 0, $i);
36 else
37 $returl = "http://{$_SERVER['SERVER_NAME']}{$_SERVER['REQUEST_URI']}";
38 $url = "https://www.polytechnique.org/auth-groupex";
39 $url .= "?session=" . session_id();
40 $url .= "&challenge=" . S::v('challenge');
41 $url .= "&pass=" . md5(S::v('challenge') . $globals->xnet->secret);
42 $url .= "&url=".urlencode($returl);
43 $_SESSION['loginX'] = $url;
44 }
45
46 if (S::logged() && $globals->asso()) {
47 $perms = S::v('perms');
48 $perms->rmFlag('groupadmin');
49 $perms->rmFlag('groupmember');
50 $perms->rmFlag('groupannu');
51 if (may_update()) {
52 $perms->addFlag('groupadmin');
53 $perms->addFlag('groupmember');
54 $perms->addFlag('groupannu');
55 }
56 if (is_member()) {
57 $perms->addFlag('groupmember');
58 if ($globals->asso('pub') != 'private') {
59 $perms->addFlag('groupannu');
60 }
61 }
62 if ($globals->asso('cat') == 'Promotions') {
63 $perms->addFlag('groupannu');
64 }
65 $_SESSION['perms'] = $perms;
66 }
67 }
68
69 // }}}
70 // {{{ public static function destroy()
71
72 public static function destroy() {
73 S::destroy();
74 XnetSession::init();
75 }
76
77 // }}}
78 // {{{ public static function doAuth()
79
80 /** Try to do an authentication.
81 *
82 * @param page the calling page (by reference)
83 */
84 public static function doAuth()
85 {
86 if (S::identified()) { // ok, c'est bon, on n'a rien à faire
87 return true;
88 }
89
90 if (Get::has('auth')) {
91 return XnetSession::doAuthX();
92 }
93
94 return false;
95 }
96
97 // }}}
98 // {{{ doAuthCookie
99
100 public static function doAuthCookie() {
101 return XnetSession::doAuth();
102 }
103
104 // }}}
105 // {{{ doAuthX
106
107 public static function doAuthX()
108 {
109 global $globals, $page;
110
111 if (md5('1'.S::v('challenge').$globals->xnet->secret.Get::i('uid').'1') != Get::v('auth')) {
112 Get::kill('auth');
113 if (!$page) {
114 require_once 'xnet.inc.php';
115 new_skinned_page('platal/index.tpl');
116 }
117 $page->kill("Erreur d'authentification avec polytechnique.org !");
118 }
119
120 $res = XDB::query("
121 SELECT u.user_id AS uid, prenom, nom, perms, promo, password, FIND_IN_SET('femme', u.flags) AS femme,
122 a.alias AS forlife, a2.alias AS bestalias, q.core_mail_fmt AS mail_fmt, q.core_rss_hash
123 FROM auth_user_md5 AS u
124 INNER JOIN auth_user_quick AS q USING(user_id)
125 INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type='a_vie')
126 INNER JOIN aliases AS a2 ON (u.user_id = a2.id AND FIND_IN_SET('bestalias',a2.flags))
127 WHERE u.user_id = {?} AND u.perms IN('admin','user')
128 LIMIT 1", Get::i('uid'));
129 $_SESSION = array_merge($_SESSION, $res->fetchOneAssoc());
130 $_SESSION['auth'] = AUTH_MDP;
131 require_once 'xorg/session.inc.php';
132 $_SESSION['perms'] =& XorgSession::make_perms(S::v('perms'));
133 S::kill('challenge');
134 S::kill('loginX');
135 S::kill('may_update');
136 S::kill('is_member');
137 Get::kill('auth');
138 Get::kill('uid');
139 $path = Get::v('n');
140 Get::kill('n');
141 Get::kill('PHPSESSID');
142
143 $args = array();
144 foreach($_GET as $key => $val) {
145 $args[] = urlencode($key).'='.urlencode($val);
146 }
147
148 http_redirect($globals->baseurl . '/' . $path, join('&', $args));
149 }
150
151 // }}}
152 // {{{ doSelfSuid
153
154 public static function doSelfSuid()
155 {
156 if (!S::has('suid')) {
157 $_SESSION['suid'] = $_SESSION;
158 }
159 require_once 'xorg/session.inc.php';
160 $_SESSION['perms'] =& XorgSession::make_perms('user');
161 }
162
163 // }}}
164 // {{{ killSuid
165
166 public static function killSuid()
167 {
168 if (!S::has('suid')) {
169 return;
170 }
171 $suid = S::v('suid');
172 S::kill('suid');
173 S::kill('may_update');
174 S::kill('is_member');
175 $_SESSION['perms'] = $suid['perms'];
176 }
177
178 // }}}
179 }
180
181 // }}}
182 // {{{ function may_update
183
184 /** Return administration rights for the current asso
185 * @param force Force administration rights to be read from database
186 * @param lose Force administration rights to be false
187 */
188 function may_update($force = false, $lose = false)
189 {
190 if (!isset($_SESSION['may_update'])) {
191 $_SESSION['may_update'] = array();
192 }
193 $may_update =& $_SESSION['may_update'];
194
195 global $globals;
196 $asso_id = $globals->asso('id');
197 if (!$asso_id) {
198 return false;
199 } elseif ($lose) {
200 $may_update[$asso_id] = false;
201 } elseif (S::has_perms() || (S::has('suid') && $force)) {
202 $may_update[$asso_id] = true;
203 } elseif (!isset($may_update[$asso_id]) || $force) {
204 $res = XDB::query("SELECT perms
205 FROM groupex.membres
206 WHERE uid={?} AND asso_id={?}",
207 S::v('uid'), $asso_id);
208 $may_update[$asso_id] = ($res->fetchOneCell() == 'admin');
209 }
210 return $may_update[$asso_id];
211 }
212
213 // }}}
214 // {{{ function is_member
215
216 /** Get membership informations for the current asso
217 * @param force Force membership to be read from database
218 * @param lose Force membership to be false
219 */
220 function is_member($force = false, $lose = false)
221 {
222 if (!isset($_SESSION['is_member'])) {
223 $_SESSION['is_member'] = array();
224 }
225 $is_member =& $_SESSION['is_member'];
226
227 global $globals;
228 $asso_id = $globals->asso('id');
229 if (!$asso_id) {
230 return false;
231 } elseif ($lose) {
232 $is_member[$asso_id] = false;
233 } elseif (S::has('suid') && $force) {
234 $is_member[$asso_id] = true;
235 } elseif (!isset($is_member[$asso_id]) || $force) {
236 $res = XDB::query("SELECT COUNT(*)
237 FROM groupex.membres
238 WHERE uid={?} AND asso_id={?}",
239 S::v('uid'), $asso_id);
240 $is_member[$asso_id] = ($res->fetchOneCell() == 1);
241 }
242 return $is_member[$asso_id];
243 }
244
245 // }}}
246 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
247 ?>