Commit | Line | Data |
---|---|---|
9f8ebb9f VZ |
1 | <?php |
2 | /*************************************************************************** | |
9f5bd98e | 3 | * Copyright (C) 2003-2010 Polytechnique.org * |
9f8ebb9f VZ |
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 | ||
2d96cf7b | 22 | class User extends PlUser |
9f8ebb9f | 23 | { |
3e53a496 FB |
24 | private $_profile_fetched = false; |
25 | private $_profile = null; | |
26 | ||
956608bc RB |
27 | // Additional fields (non core) |
28 | protected $promo = null; | |
29 | ||
70232020 | 30 | // Implementation of the login to uid method. |
b1719b13 VZ |
31 | protected function getLogin($login) |
32 | { | |
33 | global $globals; | |
34 | ||
f6c58d14 VZ |
35 | if (!$login) { |
36 | throw new UserNotFoundException(); | |
37 | } | |
38 | ||
455ea0c9 FB |
39 | if ($login instanceof User) { |
40 | $machin->id(); | |
41 | } | |
42 | ||
e7b93962 | 43 | if ($login instanceof Profile) { |
3e53a496 FB |
44 | $this->_profile = $login; |
45 | $this->_profile_fetched = true; | |
e7b93962 FB |
46 | $res = XDB::query('SELECT ap.uid |
47 | FROM account_profiles AS ap | |
48 | WHERE ap.pid = {?} AND FIND_IN_SET(\'owner\', perms)', | |
49 | $login->id()); | |
50 | if ($res->numRows()) { | |
51 | return $res->fetchOneCell(); | |
52 | } | |
53 | throw new UserNotFoundException(); | |
54 | } | |
55 | ||
b1719b13 VZ |
56 | // If $data is an integer, fetches directly the result. |
57 | if (is_numeric($login)) { | |
e7b93962 FB |
58 | $res = XDB::query('SELECT a.uid |
59 | FROM accounts AS a | |
60 | WHERE a.uid = {?}', $login); | |
b1719b13 | 61 | if ($res->numRows()) { |
70232020 | 62 | return $res->fetchOneCell(); |
b1719b13 VZ |
63 | } |
64 | ||
65 | throw new UserNotFoundException(); | |
66 | } | |
67 | ||
68 | // Checks whether $login is a valid hruid or not. | |
e7b93962 FB |
69 | $res = XDB::query('SELECT a.uid |
70 | FROM accounts AS a | |
71 | WHERE a.hruid = {?}', $login); | |
b1719b13 | 72 | if ($res->numRows()) { |
70232020 | 73 | return $res->fetchOneCell(); |
b1719b13 VZ |
74 | } |
75 | ||
76 | // From now, $login can only by an email alias, or an email redirection. | |
77 | // If it doesn't look like a valid address, appends the plat/al's main domain. | |
78 | $login = trim(strtolower($login)); | |
79 | if (strstr($login, '@') === false) { | |
80 | $login = $login . '@' . $globals->mail->domain; | |
81 | } | |
82 | ||
83 | // Checks if $login is a valid alias on the main domains. | |
84 | list($mbox, $fqdn) = explode('@', $login); | |
85 | if ($fqdn == $globals->mail->domain || $fqdn == $globals->mail->domain2) { | |
e7b93962 FB |
86 | $res = XDB::query('SELECT a.uid |
87 | FROM accounts AS a | |
fe13bc1d | 88 | INNER JOIN aliases AS al ON (al.uid = a.uid AND al.type IN (\'alias\', \'a_vie\')) |
e7b93962 | 89 | WHERE al.alias = {?}', $mbox); |
b1719b13 | 90 | if ($res->numRows()) { |
70232020 | 91 | return $res->fetchOneCell(); |
b1719b13 VZ |
92 | } |
93 | ||
e7b93962 | 94 | /** TODO: implements this by inspecting the profile. |
b1719b13 | 95 | if (preg_match('/^(.*)\.([0-9]{4})$/u', $mbox, $matches)) { |
e7b93962 FB |
96 | $res = XDB::query('SELECT a.uid |
97 | FROM accounts AS a | |
98 | INNER JOIN aliases AS al ON (al.id = a.uid AND al.type IN ('alias', 'a_vie')) | |
99 | WHERE al.alias = {?} AND a.promo = {?}', $matches[1], $matches[2]); | |
b1719b13 | 100 | if ($res->numRows() == 1) { |
70232020 | 101 | return $res->fetchOneCell(); |
b1719b13 | 102 | } |
e7b93962 | 103 | }*/ |
b1719b13 VZ |
104 | |
105 | throw new UserNotFoundException(); | |
106 | } | |
107 | ||
108 | // Looks for $login as an email alias from the dedicated alias domain. | |
109 | if ($fqdn == $globals->mail->alias_dom || $fqdn == $globals->mail->alias_dom2) { | |
110 | $res = XDB::query("SELECT redirect | |
111 | FROM virtual_redirect | |
112 | INNER JOIN virtual USING(vid) | |
113 | WHERE alias = {?}", $mbox . '@' . $globals->mail->alias_dom); | |
114 | if ($redir = $res->fetchOneCell()) { | |
115 | // We now have a valid alias, which has to be translated to an hruid. | |
116 | list($alias, $alias_fqdn) = explode('@', $redir); | |
e7b93962 FB |
117 | $res = XDB::query("SELECT a.uid |
118 | FROM accounts AS a | |
fe13bc1d | 119 | LEFT JOIN aliases AS al ON (al.uid = a.uid AND al.type IN ('alias', 'a_vie')) |
e7b93962 | 120 | WHERE al.alias = {?}", $alias); |
b1719b13 | 121 | if ($res->numRows()) { |
70232020 | 122 | return $res->fetchOneCell(); |
b1719b13 VZ |
123 | } |
124 | } | |
125 | ||
126 | throw new UserNotFoundException(); | |
127 | } | |
128 | ||
cb8a8977 FB |
129 | // Looks for an account with the given email. |
130 | $res = XDB::query('SELECT a.uid | |
131 | FROM accounts AS a | |
132 | WHERE a.email = {?}', $login); | |
133 | if ($res->numRows() == 1) { | |
134 | return $res->fetchOneCell(); | |
135 | } | |
136 | ||
b1719b13 | 137 | // Otherwise, we do suppose $login is an email redirection. |
e7b93962 FB |
138 | $res = XDB::query("SELECT a.uid |
139 | FROM accounts AS a | |
140 | LEFT JOIN emails AS e ON (e.uid = a.uid) | |
b1719b13 VZ |
141 | WHERE e.email = {?}", $login); |
142 | if ($res->numRows() == 1) { | |
70232020 | 143 | return $res->fetchOneCell(); |
b1719b13 VZ |
144 | } |
145 | ||
146 | throw new UserNotFoundException($res->fetchColumn(1)); | |
147 | } | |
148 | ||
0d906109 | 149 | protected static function loadMainFieldsFromUIDs(array $uids, $respect_order = true) |
832e6fcb | 150 | { |
45dcd6dd | 151 | global $globals; |
832e6fcb | 152 | $joins = ''; |
45dcd6dd | 153 | $fields = array(); |
45dcd6dd | 154 | if ($globals->asso('id')) { |
eb41eda9 | 155 | $joins .= XDB::format("LEFT JOIN group_members AS gpm ON (gpm.uid = a.uid AND gpm.asso_id = {?})\n", $globals->asso('id')); |
45dcd6dd | 156 | $fields[] = 'gpm.perms AS group_perms'; |
a6761ca9 | 157 | $fields[] = 'gpm.comm AS group_comm'; |
45dcd6dd FB |
158 | } |
159 | if (count($fields) > 0) { | |
160 | $fields = ', ' . implode(', ', $fields); | |
a3118782 FB |
161 | } else { |
162 | $fields = ''; | |
45dcd6dd | 163 | } |
0d906109 RB |
164 | |
165 | if ($respect_order) { | |
166 | $order = 'ORDER BY ' . XDB::formatCustomOrder('a.uid', $uids); | |
167 | } else { | |
168 | $order = ''; | |
169 | } | |
170 | ||
45dcd6dd | 171 | $uids = array_map(array('XDB', 'escape'), $uids); |
0d906109 | 172 | |
777c5910 | 173 | return XDB::iterator('SELECT a.uid, a.hruid, a.registration_date, ah.alias AS homonym, |
bb88d138 | 174 | IF (af.alias IS NULL, a.email, CONCAT(af.alias, \'@' . $globals->mail->domain . '\')) AS forlife, |
c82aa04c | 175 | CONCAT(af.alias, \'@' . $globals->mail->domain2 . '\') AS forlife_alternate, |
bb88d138 | 176 | IF (ab.alias IS NULL, a.email, CONCAT(ab.alias, \'@' . $globals->mail->domain . '\')) AS bestalias, |
c82aa04c | 177 | CONCAT(ab.alias, \'@' . $globals->mail->domain2 . '\') AS bestalias_alternate, |
832e6fcb FB |
178 | a.full_name, a.display_name, a.sex = \'female\' AS gender, |
179 | IF(a.state = \'active\', at.perms, \'\') AS perms, | |
180 | a.email_format, a.is_admin, a.state, a.type, a.skin, | |
181 | FIND_IN_SET(\'watch\', a.flags) AS watch, a.comment, | |
182 | a.weak_password IS NOT NULL AS weak_access, | |
2c411733 FB |
183 | a.token IS NOT NULL AS token_access, |
184 | (e.email IS NULL AND NOT FIND_IN_SET(\'googleapps\', eo.storage)) AND a.state != \'pending\' AS lost | |
185 | ' . $fields . ' | |
832e6fcb FB |
186 | FROM accounts AS a |
187 | INNER JOIN account_types AS at ON (at.type = a.type) | |
fe13bc1d FB |
188 | LEFT JOIN aliases AS af ON (af.uid = a.uid AND af.type = \'a_vie\') |
189 | LEFT JOIN aliases AS ab ON (ab.uid = a.uid AND FIND_IN_SET(\'bestalias\', ab.flags)) | |
777c5910 | 190 | LEFT JOIN aliases AS ah ON (ah.uid = a.uid AND ah.type = \'homonyme\') |
2c411733 FB |
191 | LEFT JOIN emails AS e ON (e.uid = a.uid AND e.flags = \'active\') |
192 | LEFT JOIN email_options AS eo ON (eo.uid = a.uid) | |
d865c296 | 193 | ' . $joins . ' |
832e6fcb | 194 | WHERE a.uid IN (' . implode(', ', $uids) . ') |
0d906109 RB |
195 | GROUP BY a.uid |
196 | ' . $order); | |
832e6fcb FB |
197 | } |
198 | ||
70232020 VZ |
199 | // Implementation of the data loader. |
200 | protected function loadMainFields() | |
201 | { | |
c4012d9b VZ |
202 | if ($this->hruid !== null && $this->forlife !== null |
203 | && $this->bestalias !== null && $this->display_name !== null | |
8f2104cb | 204 | && $this->full_name !== null && $this->perms !== null |
c4012d9b | 205 | && $this->gender !== null && $this->email_format !== null) { |
70232020 VZ |
206 | return; |
207 | } | |
1bf36cd1 | 208 | $this->fillFromArray(self::loadMainFieldsFromUIDs(array($this->uid))->next()); |
70232020 VZ |
209 | } |
210 | ||
211 | // Specialization of the fillFromArray method, to implement hacks to enable | |
212 | // lazy loading of user's main properties from the session. | |
c4012d9b VZ |
213 | // TODO(vzanotti): remove the conversion hacks once the old codebase will |
214 | // stop being used actively. | |
70232020 VZ |
215 | protected function fillFromArray(array $values) |
216 | { | |
70232020 VZ |
217 | // Also, if display_name and full_name are not known, but the user's |
218 | // surname and last name are, we can construct the former two. | |
219 | if (isset($values['prenom']) && isset($values['nom'])) { | |
220 | if (!isset($values['display_name'])) { | |
221 | $values['display_name'] = ($values['prenom'] ? $values['prenom'] : $values['nom']); | |
222 | } | |
223 | if (!isset($values['full_name'])) { | |
224 | $values['full_name'] = $values['prenom'] . ' ' . $values['nom']; | |
225 | } | |
226 | } | |
227 | ||
c4012d9b VZ |
228 | // We also need to convert the gender (usually named "femme"), and the |
229 | // email format parameter (valued "texte" instead of "text"). | |
230 | if (isset($values['femme'])) { | |
231 | $values['gender'] = (bool) $values['femme']; | |
232 | } | |
233 | if (isset($values['mail_fmt'])) { | |
234 | $values['email_format'] = $values['mail_fmt']; | |
235 | } | |
c4012d9b | 236 | |
70232020 VZ |
237 | parent::fillFromArray($values); |
238 | } | |
239 | ||
50d5ec0b FB |
240 | // Specialization of the buildPerms method |
241 | // This function build 'generic' permissions for the user. It does not take | |
242 | // into account page specific permissions (e.g X.net group permissions) | |
243 | protected function buildPerms() | |
244 | { | |
245 | if (!is_null($this->perm_flags)) { | |
246 | return; | |
247 | } | |
248 | if ($this->perms === null) { | |
249 | $this->loadMainFields(); | |
250 | } | |
365ba8c3 | 251 | $this->perm_flags = self::makePerms($this->perms, $this->is_admin); |
50d5ec0b FB |
252 | } |
253 | ||
7f1ff426 FB |
254 | // We do not want to store the password in the object. |
255 | // So, fetch it 'on demand' | |
256 | public function password() | |
257 | { | |
258 | return XDB::fetchOneCell('SELECT a.password | |
259 | FROM accounts AS a | |
260 | WHERE a.uid = {?}', $this->id()); | |
261 | } | |
262 | ||
8f2104cb FB |
263 | /** Overload PlUser::promo(): there no promo defined for a user in the current |
264 | * schema. The promo is a field from the profile. | |
265 | */ | |
266 | public function promo() | |
267 | { | |
268 | if (!$this->hasProfile()) { | |
269 | return ''; | |
270 | } | |
271 | return $this->profile()->promo(); | |
272 | } | |
273 | ||
a6761ca9 FB |
274 | public function firstName() |
275 | { | |
276 | if (!$this->hasProfile()) { | |
277 | return $this->displayName(); | |
278 | } | |
279 | return $this->profile()->firstName(); | |
280 | } | |
281 | ||
282 | public function lastName() | |
283 | { | |
284 | if (!$this->hasProfile()) { | |
285 | return ''; | |
286 | } | |
287 | return $this->profile()->lastName(); | |
288 | } | |
289 | ||
e7b93962 FB |
290 | /** Return the main profile attached with this account if any. |
291 | */ | |
292 | public function profile() | |
293 | { | |
3e53a496 FB |
294 | if (!$this->_profile_fetched) { |
295 | $this->_profile_fetched = true; | |
296 | $this->_profile = Profile::get($this); | |
297 | } | |
298 | return $this->_profile; | |
299 | } | |
300 | ||
301 | /** Return true if the user has an associated profile. | |
302 | */ | |
303 | public function hasProfile() | |
304 | { | |
305 | return !is_null($this->profile()); | |
306 | } | |
307 | ||
3af21f99 FB |
308 | /** Check if the user can edit to given profile. |
309 | */ | |
310 | public function canEdit(Profile $profile) | |
311 | { | |
312 | // XXX: Check permissions (e.g. secretary permission) | |
313 | // and flags from the profile | |
314 | return XDB::fetchOneCell('SELECT pid | |
315 | FROM account_profiles | |
316 | WHERE uid = {?} AND pid = {?}', | |
317 | $this->id(), $profile->id()); | |
318 | } | |
319 | ||
3e53a496 FB |
320 | /** Get the email alias of the user. |
321 | */ | |
322 | public function emailAlias() | |
323 | { | |
324 | global $globals; | |
8f2104cb FB |
325 | $data = $this->emailAliases($globals->mail->alias_dom); |
326 | if (count($data) > 0) { | |
327 | return array_pop($data); | |
328 | } | |
329 | return null; | |
330 | } | |
331 | ||
332 | /** Get all the aliases the user belongs to. | |
333 | */ | |
a6761ca9 | 334 | public function emailAliases($domain = null, $type = 'user', $sub_state = false) |
8f2104cb | 335 | { |
a6761ca9 FB |
336 | $join = XDB::format('(vr.redirect = {?} OR vr.redirect = {?}) ', |
337 | $this->forlifeEmail(), $this->m4xForlifeEmail()); | |
8f2104cb FB |
338 | $where = ''; |
339 | if (!is_null($domain)) { | |
a6761ca9 FB |
340 | $where = XDB::format('WHERE v.alias LIKE CONCAT("%@", {?})', $domain); |
341 | } | |
342 | if (!is_null($type)) { | |
343 | if (empty($where)) { | |
344 | $where = XDB::format('WHERE v.type = {?}', $type); | |
345 | } else { | |
346 | $where .= XDB::format(' AND v.type = {?}', $type); | |
347 | } | |
348 | } | |
349 | if ($sub_state) { | |
350 | return XDB::fetchAllAssoc('alias', 'SELECT v.alias, vr.redirect IS NOT NULL AS sub | |
351 | FROM virtual AS v | |
352 | LEFT JOIN virtual_redirect AS vr ON (v.vid = vr.vid AND ' . $join . ') | |
353 | ' . $where); | |
354 | } else { | |
355 | return XDB::fetchColumn('SELECT v.alias | |
356 | FROM virtual AS v | |
357 | INNER JOIN virtual_redirect AS vr ON (v.vid = vr.vid AND ' . $join . ') | |
358 | ' . $where); | |
8f2104cb | 359 | } |
3e53a496 FB |
360 | } |
361 | ||
362 | /** Get the alternative forlife email | |
363 | * TODO: remove this uber-ugly hack. The issue is that you need to remove | |
364 | * all @m4x.org addresses in virtual_redirect first. | |
365 | * XXX: This is juste to make code more readable, to be remove as soon as possible | |
366 | */ | |
367 | public function m4xForlifeEmail() | |
368 | { | |
369 | global $globals; | |
370 | trigger_error('USING M4X FORLIFE', E_USER_NOTICE); | |
371 | return $this->login() . '@' . $globals->mail->domain2; | |
e7b93962 FB |
372 | } |
373 | ||
38c6fe96 FB |
374 | |
375 | /** Get marketing informations | |
376 | */ | |
377 | private function fetchMarketingData() | |
378 | { | |
379 | if (isset($this->last_known_email)) { | |
380 | return; | |
381 | } | |
446fc20d | 382 | // FIXME: We should fetch the last known email as well as the pending registration email (they aren't the same !) |
38c6fe96 FB |
383 | $infos = XDB::fetchOneAssoc('SELECT IF (MAX(m.last) > p.relance, MAX(m.last), p.relance) AS last_relance, |
384 | p.email AS last_known_email | |
385 | FROM register_pending AS p | |
386 | LEFT JOIN register_marketing AS m ON (p.uid = m.uid) | |
387 | WHERE p.uid = {?} | |
388 | GROUP BY p.uid', $this->id()); | |
389 | if (!$infos) { | |
390 | $infos = array('last_relance' => null, 'last_known_email' => null); | |
391 | } | |
392 | $this->fillFromArray($infos); | |
393 | } | |
394 | ||
395 | public function lastMarketingRelance() | |
396 | { | |
397 | $this->fetchMarketingData(); | |
398 | return $this->last_relance; | |
399 | } | |
400 | ||
401 | public function lastKnownEmail() | |
402 | { | |
403 | $this->fetchMarketingData(); | |
404 | return $this->last_known_email; | |
405 | } | |
406 | ||
009b8ab7 | 407 | |
8d308ee4 FB |
408 | /** Format of the emails sent by the site |
409 | */ | |
410 | public function setEmailFormat($format) | |
411 | { | |
412 | Platal::assert($format == self::FORMAT_HTML || $format == self::FORMAT_TEXT, | |
413 | "Invalid email format \"$format\""); | |
414 | XDB::execute("UPDATE accounts | |
415 | SET email_format = {?} | |
416 | WHERE uid = {?}", | |
417 | $format, $this->uid); | |
418 | $this->email_format = $format; | |
419 | } | |
420 | ||
421 | ||
009b8ab7 FB |
422 | /** Get watch informations |
423 | */ | |
424 | private function fetchWatchData() | |
425 | { | |
426 | if (isset($this->watch_actions)) { | |
427 | return; | |
428 | } | |
429 | $watch = XDB::fetchOneAssoc('SELECT flags AS watch_flags, actions AS watch_actions, | |
430 | UNIX_TIMESTAMP(last) AS watch_last | |
431 | FROM watch | |
432 | WHERE uid = {?}', $this->id()); | |
433 | $watch['watch_flags'] = new PlFlagSet($watch['watch_flags']); | |
434 | $watch['watch_actions'] = new PlFlagSet($watch['watch_actions']); | |
435 | $watch['watch_promos'] = XDB::fetchColumn('SELECT promo | |
436 | FROM watch_promo | |
437 | WHERE uid = {?}', $this->id()); | |
438 | $watch['watch_users'] = XDB::fetchColumn('SELECT ni_id | |
439 | FROM watch_nonins | |
440 | WHERE uid = {?}', $this->id()); | |
441 | $this->fillFromArray($watch); | |
442 | } | |
443 | ||
a87530ea | 444 | public function watchType($type) |
009b8ab7 FB |
445 | { |
446 | $this->fetchWatchData(); | |
447 | return $this->watch_actions->hasFlag($type); | |
448 | } | |
449 | ||
450 | public function watchContacts() | |
451 | { | |
452 | $this->fetchWatchData(); | |
453 | return $this->watch_flags->hasFlag('contacts'); | |
454 | } | |
455 | ||
456 | public function watchEmail() | |
457 | { | |
458 | $this->fetchWatchData(); | |
459 | return $this->watch_flags->hasFlag('mail'); | |
460 | } | |
461 | ||
462 | public function watchPromos() | |
463 | { | |
464 | $this->fetchWatchData(); | |
465 | return $this->watch_promos; | |
466 | } | |
467 | ||
468 | public function watchUsers() | |
469 | { | |
470 | $this->fetchWatchData(); | |
471 | return $this->watch_users; | |
472 | } | |
473 | ||
474 | public function watchLast() | |
475 | { | |
476 | $this->fetchWatchData(); | |
477 | return $this->watch_last; | |
478 | } | |
479 | ||
069ddda8 FB |
480 | public function invalidWatchCache() |
481 | { | |
482 | unset($this->watch_actions); | |
483 | unset($this->watch_users); | |
484 | unset($this->watch_last); | |
485 | unset($this->watch_promos); | |
486 | } | |
487 | ||
c350577b FB |
488 | |
489 | // Contacts | |
490 | private $contacts = null; | |
48e683dd | 491 | private function fetchContacts() |
c350577b | 492 | { |
76cbe885 | 493 | if (is_null($this->contacts)) { |
c350577b FB |
494 | $this->contacts = XDB::fetchAllAssoc('contact', 'SELECT * |
495 | FROM contacts | |
496 | WHERE uid = {?}', | |
497 | $this->id()); | |
498 | } | |
48e683dd FB |
499 | } |
500 | ||
501 | public function iterContacts() | |
502 | { | |
503 | $this->fetchContacts(); | |
a289e967 | 504 | return Profile::iterOverPIDs(array_keys($this->contacts)); |
48e683dd FB |
505 | } |
506 | ||
507 | public function getContacts() | |
508 | { | |
509 | $this->fetchContacts(); | |
a289e967 | 510 | return Profile::getBulkProfilesWithPIDs(array_keys($this->contacts)); |
48e683dd FB |
511 | } |
512 | ||
a289e967 | 513 | public function isContact(Profile &$profile) |
48e683dd FB |
514 | { |
515 | $this->fetchContacts(); | |
a289e967 | 516 | return isset($this->contacts[$profile->id()]); |
c350577b FB |
517 | } |
518 | ||
958def08 PC |
519 | public function isWatchedUser(Profile &$profile) |
520 | { | |
521 | return in_array($profile->id(), $this->watchUsers()); | |
522 | } | |
523 | ||
f5ef8b57 RB |
524 | // Groupes X |
525 | private $groups = null; | |
526 | public function groups() | |
527 | { | |
528 | if (is_null($this->groups)) { | |
529 | $this->groups = XDB::fetchAllAssoc('asso_id', 'SELECT asso_id, perms, comm | |
185d4ea1 | 530 | FROM group_members |
f5ef8b57 RB |
531 | WHERE uid = {?}', |
532 | $this->id()); | |
533 | } | |
534 | return $this->groups; | |
535 | } | |
536 | ||
fa589f90 RB |
537 | public function groupNames($institutions = false) |
538 | { | |
539 | if ($institutions) { | |
540 | $where = ' AND (g.cat = \'GroupesX\' OR g.cat = \'Institutions\')'; | |
541 | } else { | |
542 | $where = ''; | |
543 | } | |
544 | return XDB::fetchAllAssoc('SELECT g.diminutif, g.nom, g.site | |
545 | FROM group_members AS gm | |
546 | LEFT JOIN groups AS g ON (g.id = gm.asso_id) | |
547 | WHERE gm.uid = {?}' . $where, | |
548 | $this->id()); | |
549 | } | |
550 | ||
6150f591 SJ |
551 | /** |
552 | * Clears a user. | |
553 | * *always deletes in: account_lost_passwords, register_marketing, | |
554 | * register_pending, register_subs, watch_nonins, watch, watch_promo | |
555 | * *always keeps in: account_types, accounts, aliases, axletter_ins, carvas, | |
556 | * group_members, homonyms, newsletter_ins, register_mstats, | |
557 | * *deletes if $clearAll: account_auth_openid, announce_read, contacts, | |
558 | * email_options, email_send_save, emails, forum_innd, forum_profiles, | |
559 | * forum_subs, gapps_accounts, gapps_nicknames, group_announces_read, | |
560 | * group_member_sub_requests, reminder, requests, requests_hidden, | |
561 | * virtual, virtual_redirect, ML | |
562 | * *modifies if $clearAll: accounts | |
563 | * | |
564 | * Use cases: | |
565 | * *$clearAll == false: when a user dies, her family still needs to keep in | |
566 | * touch with the community. | |
567 | * *$clearAll == true: in every other case we want the account to be fully | |
568 | * deleted so that it can not be used anymore. | |
569 | */ | |
570 | public function clear($clearAll = true) | |
571 | { | |
405d70cc RB |
572 | $tables = array('account_lost_passwords', 'register_marketing', |
573 | 'register_pending', 'register_subs', 'watch_nonins', | |
574 | 'watch', 'watch_promo'); | |
575 | ||
576 | foreach ($tables as $t) { | |
577 | XDB::execute('DELETE FROM ' . $t . ' | |
578 | WHERE uid = {?}', | |
579 | $this->id()); | |
580 | } | |
6150f591 SJ |
581 | |
582 | if ($clearAll) { | |
0e5b3438 SJ |
583 | $groupIds = XDB::iterator('SELECT asso_id |
584 | FROM group_members | |
585 | WHERE uid = {?}', | |
586 | $this->id()); | |
587 | while ($groupId = $groupIds->next()) { | |
588 | $group = Group::get($groupId); | |
589 | if ($group->notif_unsub) { | |
590 | $mailer = new PlMailer('xnetgrp/unsubscription-notif.mail.tpl'); | |
591 | $admins = $group->iterAdmins(); | |
592 | while ($admin = $admins->next()) { | |
593 | $mailer->addTo($admin); | |
594 | } | |
595 | $mailer->assign('group', $group->shortname); | |
596 | $mailer->assign('user', $this); | |
597 | $mailer->assign('selfdone', false); | |
598 | $mailer->send(); | |
599 | } | |
600 | } | |
601 | ||
405d70cc RB |
602 | $tables = array('account_auth_openid', 'gannounce_read', 'contacts', |
603 | 'email_options', 'gemail_send_save', 'emails', | |
604 | 'forum_innd', 'gforum_profiles', 'forum_subs', | |
605 | 'gapps_accounts', 'ggapps_nicknames', 'group_announces_read', | |
606 | 'group_members', 'ggroup_member_sub_requests', 'reminder', 'requests', | |
607 | 'requests_hidden'); | |
608 | ||
609 | foreach ($tables as $t) { | |
610 | XDB::execute('DELETE FROM ' . $t . ' | |
611 | WHERE uid = {?}', | |
612 | $this->id()); | |
613 | } | |
614 | ||
6150f591 SJ |
615 | XDB::execute("UPDATE accounts |
616 | SET registration_date = 0, state = 'pending', password = NULL, | |
617 | weak_password = NULL, token = NULL, is_admin = 0 | |
618 | WHERE uid = {?}", | |
619 | $this->id()); | |
620 | ||
621 | XDB::execute('DELETE v.* | |
622 | FROM virtual AS v | |
623 | INNER JOIN virtual_redirect AS r ON (v.vid = r.vid) | |
624 | WHERE redirect = {?} OR redirect = {?}', | |
625 | $this->forlifeEmail(), $this->m4xForlifeEmail()); | |
626 | XDB::execute('DELETE FROM virtual_redirect | |
627 | WHERE redirect = {?} OR redirect = {?}', | |
628 | $this->forlifeEmail(), $this->m4xForlifeEmail()); | |
629 | ||
630 | if ($globals->mailstorage->googleapps_domain) { | |
631 | require_once 'googleapps.inc.php'; | |
632 | ||
633 | if (GoogleAppsAccount::account_status($uid)) { | |
634 | $account = new GoogleAppsAccount($user); | |
635 | $account->suspend(); | |
636 | } | |
637 | } | |
638 | } | |
639 | ||
640 | $mmlist = new MMList($this); | |
641 | $mmlist->kill($alias, $clearAll); | |
642 | } | |
643 | ||
ab06182d PC |
644 | // Merge all infos in other user and then clean this one |
645 | public function mergeIn(User &$newuser) { | |
646 | if ($this->profile() || !$newuser->id()) { | |
647 | // don't disable user with profile in this way | |
648 | return false; | |
649 | } | |
650 | // TODO check all tables to see if there is no other info to use | |
651 | ||
652 | $newemail = $newuser->forlifeEmail(); | |
653 | if (!$newemail && $this->forlifeEmail()) { | |
654 | XDB::execute("UPDATE accounts | |
655 | SET email = {?} | |
656 | WHERE uid = {?} AND email IS NULL", | |
657 | $this->forlifeEmail(), $newuser->id()); | |
658 | $newemail = $this->forlifeEmail(); | |
659 | } | |
660 | ||
661 | // change email used in aliases and mailing lists | |
662 | if ($this->forlifeEmail() != $newemail && $this->forlifeEmail()) { | |
663 | // virtual_redirect (email aliases) | |
664 | XDB::execute("DELETE v1 | |
665 | FROM virtual_redirect AS v1, virtual_redirect AS v2 | |
666 | WHERE v1.vid = v2.vid AND v1.redirect = {?} AND v2.redirect = {?}", | |
667 | $this->forlifeEmail(), $newemail); | |
668 | XDB::execute("UPDATE virtual_redirect | |
669 | SET redirect = {?} | |
670 | WHERE redirect = {?}", | |
671 | $newemail, $this->forlifeEmail()); | |
672 | ||
673 | // require_once 'mmlist.php'; | |
674 | ||
675 | // group mailing lists | |
676 | $group_domains = XDB::fetchColumn("SELECT g.mail_domain | |
677 | FROM groups AS g | |
678 | INNER JOIN group_members AS gm ON(g.id = gm.asso_id) | |
679 | WHERE g.mail_domain != '' AND gm.uid = {?}", | |
680 | $this->id()); | |
681 | foreach ($group_domains as $mail_domain) { | |
682 | $mmlist = new MMList($this, $mail_domain); | |
683 | $mmlist->replace_email_in_all($this->forlifeEmail(), $newmail); | |
684 | } | |
685 | // main domain lists | |
686 | $mmlist = new MMList($this); | |
687 | $mmlist->replace_email_in_all($this->forlifeEmail(), $newmail); | |
688 | } | |
689 | ||
690 | // group_members (xnet group membership) | |
691 | XDB::execute("DELETE g1 | |
692 | FROM group_members AS g1, group_members AS g2 | |
693 | WHERE g1.uid = {?} AND g2.uid = {?} AND g1.asso_id = g2.asso_id", | |
694 | $this->id(), $newuser->id()); | |
695 | XDB::execute("UPDATE group_members | |
696 | SET uid = {?} | |
697 | WHERE uid = {?}", | |
698 | $this->id(), $newuser->id()); | |
699 | ||
700 | XDB::execute("DELETE FROM accounts WHERE uid = {?}", $this->id()); | |
701 | ||
702 | return true; | |
703 | } | |
704 | ||
50d5ec0b | 705 | // Return permission flags for a given permission level. |
365ba8c3 | 706 | public static function makePerms($perms, $is_admin) |
50d5ec0b | 707 | { |
365ba8c3 | 708 | $flags = new PlFlagSet($perms); |
50d5ec0b | 709 | $flags->addFlag(PERMS_USER); |
365ba8c3 | 710 | if ($is_admin) { |
50d5ec0b FB |
711 | $flags->addFlag(PERMS_ADMIN); |
712 | } | |
713 | return $flags; | |
714 | } | |
715 | ||
b1719b13 VZ |
716 | // Implementation of the default user callback. |
717 | public static function _default_user_callback($login, $results) | |
718 | { | |
b1719b13 | 719 | $result_count = count($results); |
dd70cd28 | 720 | if ($result_count == 0 || !S::admin()) { |
70232020 | 721 | Platal::page()->trigError("Il n'y a pas d'utilisateur avec l'identifiant : $login"); |
b1719b13 | 722 | } else { |
70232020 | 723 | Platal::page()->trigError("Il y a $result_count utilisateurs avec cet identifiant : " . join(', ', $results)); |
b1719b13 VZ |
724 | } |
725 | } | |
70232020 VZ |
726 | |
727 | // Implementation of the static email locality checker. | |
728 | public static function isForeignEmailAddress($email) | |
729 | { | |
730 | global $globals; | |
731 | if (strpos($email, '@') === false) { | |
732 | return false; | |
733 | } | |
734 | ||
735 | list($user, $dom) = explode('@', $email); | |
736 | return $dom != $globals->mail->domain && | |
737 | $dom != $globals->mail->domain2 && | |
738 | $dom != $globals->mail->alias_dom && | |
739 | $dom != $globals->mail->alias_dom2; | |
740 | } | |
832e6fcb | 741 | |
aa21c568 FB |
742 | public static function isVirtualEmailAddress($email) |
743 | { | |
744 | global $globals; | |
745 | if (strpos($email, '@') === false) { | |
746 | return false; | |
747 | } | |
748 | ||
749 | list($user, $dom) = explode('@', $email); | |
750 | return $dom == $globals->mail->alias_dom | |
751 | || $dom == $globals->mail->alias_dom2; | |
752 | } | |
753 | ||
61a7d279 SJ |
754 | /* Tries to find pending accounts with an hruid close to $login. */ |
755 | public static function getPendingAccounts($login, $iterator = false) | |
756 | { | |
757 | global $globals; | |
758 | ||
759 | if (strpos($login, '@') === false) { | |
760 | return null; | |
761 | } | |
762 | ||
763 | list($login, $domain) = explode('@', $login); | |
764 | ||
765 | if ($domain && $domain != $globals->mail->domain && $domain != $globals->mail->domain2) { | |
766 | return null; | |
767 | } | |
768 | ||
769 | $sql = "SELECT uid, full_name | |
770 | FROM accounts | |
771 | WHERE state = 'pending' AND REPLACE(hruid, '-', '') LIKE | |
772 | CONCAT('%', REPLACE(REPLACE(REPLACE({?}, ' ', ''), '-', ''), '\'', ''), '%') | |
773 | ORDER BY full_name"; | |
774 | if ($iterator) { | |
775 | return XDB::iterator($sql, $login); | |
776 | } else { | |
777 | $res = XDB::query($sql, $login); | |
778 | return $res->fetchAllAssoc(); | |
779 | } | |
780 | } | |
781 | ||
782 | ||
0d906109 RB |
783 | public static function iterOverUIDs($uids, $respect_order = true) |
784 | { | |
785 | return new UserIterator(self::loadMainFieldsFromUIDs($uids, $respect_order)); | |
786 | } | |
787 | ||
788 | /** Fetch a set of users from a list of UIDs | |
789 | * @param $data The list of uids to fetch, or an array of arrays | |
790 | * @param $orig If $data is an array of arrays, the subfield where uids are stored | |
791 | * @param $dest If $data is an array of arrays, the subfield to fill with Users | |
792 | * @param $fetchProfile Whether to fetch Profiles as well | |
793 | * @return either an array of $uid => User, or $data with $data[$i][$dest] = User | |
794 | */ | |
b774ddab | 795 | public static function getBulkUsersWithUIDs(array $data, $orig = null, $dest = null, $fetchProfile = true) |
832e6fcb | 796 | { |
07eb5b0e FB |
797 | // Fetch the list of uids |
798 | if (is_null($orig)) { | |
799 | $uids = $data; | |
800 | } else { | |
801 | if (is_null($dest)) { | |
802 | $dest = $orig; | |
803 | } | |
804 | $uids = array(); | |
805 | foreach ($data as $key=>$entry) { | |
806 | if (isset($entry[$orig])) { | |
807 | $uids[] = $entry[$orig]; | |
808 | } | |
809 | } | |
810 | } | |
811 | ||
812 | // Fetch users | |
38c6fe96 | 813 | if (count($uids) == 0) { |
07eb5b0e | 814 | return $data; |
38c6fe96 | 815 | } |
0d906109 RB |
816 | $users = self::iterOverUIDs($uids, true); |
817 | ||
d865c296 | 818 | $table = array(); |
b774ddab | 819 | if ($fetchProfile) { |
0d906109 | 820 | $profiles = Profile::iterOverUIDS($uids, true); |
7a8da8e8 PC |
821 | if ($profiles != null) { |
822 | $profile = $profiles->next(); | |
823 | } else { | |
824 | $profile = null; | |
825 | } | |
b774ddab | 826 | } |
0d906109 RB |
827 | |
828 | /** We iterate through the users, moving in | |
829 | * profiles when they match the user ID : | |
830 | * there can be users without a profile, but not | |
831 | * the other way around. | |
832 | */ | |
833 | while (($user = $users->next())) { | |
b774ddab | 834 | if ($fetchProfile) { |
7a8da8e8 | 835 | if ($profile != null && $profile->owner_id == $user->id()) { |
0d906109 RB |
836 | $user->_profile = $profile; |
837 | $profile = $profiles->next(); | |
b774ddab FB |
838 | } |
839 | $user->_profile_fetched = true; | |
840 | } | |
0d906109 | 841 | $table[$user->id()] = $user; |
d865c296 | 842 | } |
07eb5b0e FB |
843 | |
844 | // Build the result with respect to input order. | |
845 | if (is_null($orig)) { | |
0d906109 | 846 | return $table; |
07eb5b0e FB |
847 | } else { |
848 | foreach ($data as $key=>$entry) { | |
849 | if (isset($entry[$orig])) { | |
850 | $entry[$dest] = $table[$entry[$orig]]; | |
851 | $data[$key] = $entry; | |
852 | } | |
853 | } | |
854 | return $data; | |
832e6fcb | 855 | } |
07eb5b0e FB |
856 | } |
857 | ||
b774ddab | 858 | public static function getBulkUsersFromDB($fetchProfile = true) |
07eb5b0e FB |
859 | { |
860 | $args = func_get_args(); | |
861 | $uids = call_user_func_array(array('XDB', 'fetchColumn'), $args); | |
b774ddab | 862 | return self::getBulkUsersWithUIDs($uids, null, null, $fetchProfile); |
832e6fcb | 863 | } |
9f8ebb9f VZ |
864 | } |
865 | ||
0d906109 RB |
866 | /** Iterator over a set of Users |
867 | * @param an XDB::Iterator obtained from a User::loadMainFieldsFromUIDs | |
868 | */ | |
869 | class UserIterator implements PlIterator | |
870 | { | |
871 | private $dbiter; | |
872 | ||
873 | public function __construct($dbiter) | |
874 | { | |
875 | $this->dbiter = $dbiter; | |
876 | } | |
877 | ||
878 | public function next() | |
879 | { | |
880 | $data = $this->dbiter->next(); | |
881 | if ($data == null) { | |
882 | return null; | |
883 | } else { | |
884 | return User::getSilentWithValues(null, $data); | |
885 | } | |
886 | } | |
887 | ||
888 | public function total() | |
889 | { | |
890 | return $this->dbiter->total(); | |
891 | } | |
892 | ||
893 | public function first() | |
894 | { | |
895 | return $this->dbiter->first(); | |
896 | } | |
897 | ||
898 | public function last() | |
899 | { | |
900 | return $this->dbiter->last(); | |
901 | } | |
902 | } | |
903 | ||
9f8ebb9f VZ |
904 | // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: |
905 | ?> |