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