Fixes non-x members of groups. Closes #1087
[platal.git] / classes / user.php
CommitLineData
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 22class 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 }
382 $infos = XDB::fetchOneAssoc('SELECT IF (MAX(m.last) > p.relance, MAX(m.last), p.relance) AS last_relance,
383 p.email AS last_known_email
384 FROM register_pending AS p
385 LEFT JOIN register_marketing AS m ON (p.uid = m.uid)
386 WHERE p.uid = {?}
387 GROUP BY p.uid', $this->id());
388 if (!$infos) {
389 $infos = array('last_relance' => null, 'last_known_email' => null);
390 }
391 $this->fillFromArray($infos);
392 }
393
394 public function lastMarketingRelance()
395 {
396 $this->fetchMarketingData();
397 return $this->last_relance;
398 }
399
400 public function lastKnownEmail()
401 {
402 $this->fetchMarketingData();
403 return $this->last_known_email;
404 }
405
009b8ab7
FB
406
407 /** Get watch informations
408 */
409 private function fetchWatchData()
410 {
411 if (isset($this->watch_actions)) {
412 return;
413 }
414 $watch = XDB::fetchOneAssoc('SELECT flags AS watch_flags, actions AS watch_actions,
415 UNIX_TIMESTAMP(last) AS watch_last
416 FROM watch
417 WHERE uid = {?}', $this->id());
418 $watch['watch_flags'] = new PlFlagSet($watch['watch_flags']);
419 $watch['watch_actions'] = new PlFlagSet($watch['watch_actions']);
420 $watch['watch_promos'] = XDB::fetchColumn('SELECT promo
421 FROM watch_promo
422 WHERE uid = {?}', $this->id());
423 $watch['watch_users'] = XDB::fetchColumn('SELECT ni_id
424 FROM watch_nonins
425 WHERE uid = {?}', $this->id());
426 $this->fillFromArray($watch);
427 }
428
a87530ea 429 public function watchType($type)
009b8ab7
FB
430 {
431 $this->fetchWatchData();
432 return $this->watch_actions->hasFlag($type);
433 }
434
435 public function watchContacts()
436 {
437 $this->fetchWatchData();
438 return $this->watch_flags->hasFlag('contacts');
439 }
440
441 public function watchEmail()
442 {
443 $this->fetchWatchData();
444 return $this->watch_flags->hasFlag('mail');
445 }
446
447 public function watchPromos()
448 {
449 $this->fetchWatchData();
450 return $this->watch_promos;
451 }
452
453 public function watchUsers()
454 {
455 $this->fetchWatchData();
456 return $this->watch_users;
457 }
458
459 public function watchLast()
460 {
461 $this->fetchWatchData();
462 return $this->watch_last;
463 }
464
069ddda8
FB
465 public function invalidWatchCache()
466 {
467 unset($this->watch_actions);
468 unset($this->watch_users);
469 unset($this->watch_last);
470 unset($this->watch_promos);
471 }
472
c350577b
FB
473
474 // Contacts
475 private $contacts = null;
48e683dd 476 private function fetchContacts()
c350577b 477 {
76cbe885 478 if (is_null($this->contacts)) {
c350577b
FB
479 $this->contacts = XDB::fetchAllAssoc('contact', 'SELECT *
480 FROM contacts
481 WHERE uid = {?}',
482 $this->id());
483 }
48e683dd
FB
484 }
485
486 public function iterContacts()
487 {
488 $this->fetchContacts();
a289e967 489 return Profile::iterOverPIDs(array_keys($this->contacts));
48e683dd
FB
490 }
491
492 public function getContacts()
493 {
494 $this->fetchContacts();
a289e967 495 return Profile::getBulkProfilesWithPIDs(array_keys($this->contacts));
48e683dd
FB
496 }
497
a289e967 498 public function isContact(Profile &$profile)
48e683dd
FB
499 {
500 $this->fetchContacts();
a289e967 501 return isset($this->contacts[$profile->id()]);
c350577b
FB
502 }
503
958def08
PC
504 public function isWatchedUser(Profile &$profile)
505 {
506 return in_array($profile->id(), $this->watchUsers());
507 }
508
f5ef8b57
RB
509 // Groupes X
510 private $groups = null;
511 public function groups()
512 {
513 if (is_null($this->groups)) {
514 $this->groups = XDB::fetchAllAssoc('asso_id', 'SELECT asso_id, perms, comm
185d4ea1 515 FROM group_members
f5ef8b57
RB
516 WHERE uid = {?}',
517 $this->id());
518 }
519 return $this->groups;
520 }
521
fa589f90
RB
522 public function groupNames($institutions = false)
523 {
524 if ($institutions) {
525 $where = ' AND (g.cat = \'GroupesX\' OR g.cat = \'Institutions\')';
526 } else {
527 $where = '';
528 }
529 return XDB::fetchAllAssoc('SELECT g.diminutif, g.nom, g.site
530 FROM group_members AS gm
531 LEFT JOIN groups AS g ON (g.id = gm.asso_id)
532 WHERE gm.uid = {?}' . $where,
533 $this->id());
534 }
535
6150f591
SJ
536 /**
537 * Clears a user.
538 * *always deletes in: account_lost_passwords, register_marketing,
539 * register_pending, register_subs, watch_nonins, watch, watch_promo
540 * *always keeps in: account_types, accounts, aliases, axletter_ins, carvas,
541 * group_members, homonyms, newsletter_ins, register_mstats,
542 * *deletes if $clearAll: account_auth_openid, announce_read, contacts,
543 * email_options, email_send_save, emails, forum_innd, forum_profiles,
544 * forum_subs, gapps_accounts, gapps_nicknames, group_announces_read,
545 * group_member_sub_requests, reminder, requests, requests_hidden,
546 * virtual, virtual_redirect, ML
547 * *modifies if $clearAll: accounts
548 *
549 * Use cases:
550 * *$clearAll == false: when a user dies, her family still needs to keep in
551 * touch with the community.
552 * *$clearAll == true: in every other case we want the account to be fully
553 * deleted so that it can not be used anymore.
554 */
555 public function clear($clearAll = true)
556 {
557 XDB::execute('DELETE FROM account_lost_passwords, register_marketing,
558 register_pending, register_subs, watch_nonins,
559 watch, watch_promo
560 WHERE uid = {?}',
561 $this->id());
562
563 if ($clearAll) {
0e5b3438
SJ
564 $groupIds = XDB::iterator('SELECT asso_id
565 FROM group_members
566 WHERE uid = {?}',
567 $this->id());
568 while ($groupId = $groupIds->next()) {
569 $group = Group::get($groupId);
570 if ($group->notif_unsub) {
571 $mailer = new PlMailer('xnetgrp/unsubscription-notif.mail.tpl');
572 $admins = $group->iterAdmins();
573 while ($admin = $admins->next()) {
574 $mailer->addTo($admin);
575 }
576 $mailer->assign('group', $group->shortname);
577 $mailer->assign('user', $this);
578 $mailer->assign('selfdone', false);
579 $mailer->send();
580 }
581 }
582
6150f591
SJ
583 XDB::execute('DELETE FROM account_auth_openid, announce_read, contacts,
584 email_options, email_send_save, emails,
585 forum_innd, forum_profiles, forum_subs,
586 gapps_accounts, gapps_nicknames, group_announces_read,
0e5b3438 587 group_members, group_member_sub_requests, reminder, requests,
6150f591
SJ
588 requests_hidden
589 WHERE uid = {?}',
590 $this->id());
591 XDB::execute("UPDATE accounts
592 SET registration_date = 0, state = 'pending', password = NULL,
593 weak_password = NULL, token = NULL, is_admin = 0
594 WHERE uid = {?}",
595 $this->id());
596
597 XDB::execute('DELETE v.*
598 FROM virtual AS v
599 INNER JOIN virtual_redirect AS r ON (v.vid = r.vid)
600 WHERE redirect = {?} OR redirect = {?}',
601 $this->forlifeEmail(), $this->m4xForlifeEmail());
602 XDB::execute('DELETE FROM virtual_redirect
603 WHERE redirect = {?} OR redirect = {?}',
604 $this->forlifeEmail(), $this->m4xForlifeEmail());
605
606 if ($globals->mailstorage->googleapps_domain) {
607 require_once 'googleapps.inc.php';
608
609 if (GoogleAppsAccount::account_status($uid)) {
610 $account = new GoogleAppsAccount($user);
611 $account->suspend();
612 }
613 }
614 }
615
616 $mmlist = new MMList($this);
617 $mmlist->kill($alias, $clearAll);
618 }
619
50d5ec0b 620 // Return permission flags for a given permission level.
365ba8c3 621 public static function makePerms($perms, $is_admin)
50d5ec0b 622 {
365ba8c3 623 $flags = new PlFlagSet($perms);
50d5ec0b 624 $flags->addFlag(PERMS_USER);
365ba8c3 625 if ($is_admin) {
50d5ec0b
FB
626 $flags->addFlag(PERMS_ADMIN);
627 }
628 return $flags;
629 }
630
b1719b13
VZ
631 // Implementation of the default user callback.
632 public static function _default_user_callback($login, $results)
633 {
b1719b13 634 $result_count = count($results);
dd70cd28 635 if ($result_count == 0 || !S::admin()) {
70232020 636 Platal::page()->trigError("Il n'y a pas d'utilisateur avec l'identifiant : $login");
b1719b13 637 } else {
70232020 638 Platal::page()->trigError("Il y a $result_count utilisateurs avec cet identifiant : " . join(', ', $results));
b1719b13
VZ
639 }
640 }
70232020
VZ
641
642 // Implementation of the static email locality checker.
643 public static function isForeignEmailAddress($email)
644 {
645 global $globals;
646 if (strpos($email, '@') === false) {
647 return false;
648 }
649
650 list($user, $dom) = explode('@', $email);
651 return $dom != $globals->mail->domain &&
652 $dom != $globals->mail->domain2 &&
653 $dom != $globals->mail->alias_dom &&
654 $dom != $globals->mail->alias_dom2;
655 }
832e6fcb 656
aa21c568
FB
657 public static function isVirtualEmailAddress($email)
658 {
659 global $globals;
660 if (strpos($email, '@') === false) {
661 return false;
662 }
663
664 list($user, $dom) = explode('@', $email);
665 return $dom == $globals->mail->alias_dom
666 || $dom == $globals->mail->alias_dom2;
667 }
668
61a7d279
SJ
669 /* Tries to find pending accounts with an hruid close to $login. */
670 public static function getPendingAccounts($login, $iterator = false)
671 {
672 global $globals;
673
674 if (strpos($login, '@') === false) {
675 return null;
676 }
677
678 list($login, $domain) = explode('@', $login);
679
680 if ($domain && $domain != $globals->mail->domain && $domain != $globals->mail->domain2) {
681 return null;
682 }
683
684 $sql = "SELECT uid, full_name
685 FROM accounts
686 WHERE state = 'pending' AND REPLACE(hruid, '-', '') LIKE
687 CONCAT('%', REPLACE(REPLACE(REPLACE({?}, ' ', ''), '-', ''), '\'', ''), '%')
688 ORDER BY full_name";
689 if ($iterator) {
690 return XDB::iterator($sql, $login);
691 } else {
692 $res = XDB::query($sql, $login);
693 return $res->fetchAllAssoc();
694 }
695 }
696
697
0d906109
RB
698 public static function iterOverUIDs($uids, $respect_order = true)
699 {
700 return new UserIterator(self::loadMainFieldsFromUIDs($uids, $respect_order));
701 }
702
703 /** Fetch a set of users from a list of UIDs
704 * @param $data The list of uids to fetch, or an array of arrays
705 * @param $orig If $data is an array of arrays, the subfield where uids are stored
706 * @param $dest If $data is an array of arrays, the subfield to fill with Users
707 * @param $fetchProfile Whether to fetch Profiles as well
708 * @return either an array of $uid => User, or $data with $data[$i][$dest] = User
709 */
b774ddab 710 public static function getBulkUsersWithUIDs(array $data, $orig = null, $dest = null, $fetchProfile = true)
832e6fcb 711 {
07eb5b0e
FB
712 // Fetch the list of uids
713 if (is_null($orig)) {
714 $uids = $data;
715 } else {
716 if (is_null($dest)) {
717 $dest = $orig;
718 }
719 $uids = array();
720 foreach ($data as $key=>$entry) {
721 if (isset($entry[$orig])) {
722 $uids[] = $entry[$orig];
723 }
724 }
725 }
726
727 // Fetch users
38c6fe96 728 if (count($uids) == 0) {
07eb5b0e 729 return $data;
38c6fe96 730 }
0d906109
RB
731 $users = self::iterOverUIDs($uids, true);
732
d865c296 733 $table = array();
b774ddab 734 if ($fetchProfile) {
0d906109
RB
735 $profiles = Profile::iterOverUIDS($uids, true);
736 $profile = $profiles->next();
b774ddab 737 }
0d906109
RB
738
739 /** We iterate through the users, moving in
740 * profiles when they match the user ID :
741 * there can be users without a profile, but not
742 * the other way around.
743 */
744 while (($user = $users->next())) {
b774ddab 745 if ($fetchProfile) {
0d906109
RB
746 if ($profile->owner_id == $user->id()) {
747 $user->_profile = $profile;
748 $profile = $profiles->next();
b774ddab
FB
749 }
750 $user->_profile_fetched = true;
751 }
0d906109 752 $table[$user->id()] = $user;
d865c296 753 }
07eb5b0e
FB
754
755 // Build the result with respect to input order.
756 if (is_null($orig)) {
0d906109 757 return $table;
07eb5b0e
FB
758 } else {
759 foreach ($data as $key=>$entry) {
760 if (isset($entry[$orig])) {
761 $entry[$dest] = $table[$entry[$orig]];
762 $data[$key] = $entry;
763 }
764 }
765 return $data;
832e6fcb 766 }
07eb5b0e
FB
767 }
768
b774ddab 769 public static function getBulkUsersFromDB($fetchProfile = true)
07eb5b0e
FB
770 {
771 $args = func_get_args();
772 $uids = call_user_func_array(array('XDB', 'fetchColumn'), $args);
b774ddab 773 return self::getBulkUsersWithUIDs($uids, null, null, $fetchProfile);
832e6fcb 774 }
9f8ebb9f
VZ
775}
776
0d906109
RB
777/** Iterator over a set of Users
778 * @param an XDB::Iterator obtained from a User::loadMainFieldsFromUIDs
779 */
780class UserIterator implements PlIterator
781{
782 private $dbiter;
783
784 public function __construct($dbiter)
785 {
786 $this->dbiter = $dbiter;
787 }
788
789 public function next()
790 {
791 $data = $this->dbiter->next();
792 if ($data == null) {
793 return null;
794 } else {
795 return User::getSilentWithValues(null, $data);
796 }
797 }
798
799 public function total()
800 {
801 return $this->dbiter->total();
802 }
803
804 public function first()
805 {
806 return $this->dbiter->first();
807 }
808
809 public function last()
810 {
811 return $this->dbiter->last();
812 }
813}
814
9f8ebb9f
VZ
815// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
816?>