2 /***************************************************************************
3 * Copyright (C) 2003-2014 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 class User
extends PlUser
24 const PERM_API_USER_READONLY
= 'api_user_readonly';
25 const PERM_DIRECTORY_AX
= 'directory_ax';
26 const PERM_DIRECTORY_PRIVATE
= 'directory_private';
27 const PERM_DIRECTORY_HIDDEN
= 'directory_hidden';
28 const PERM_EDIT_DIRECTORY
= 'edit_directory';
29 const PERM_FORUMS
= 'forums';
30 const PERM_GROUPS
= 'groups';
31 const PERM_LISTS
= 'lists';
32 const PERM_MAIL
= 'mail';
33 const PERM_PAYMENT
= 'payment';
35 public static $sub_mail_domains = array(
37 'master' => 'master.',
42 private $_profile_fetched = false
;
43 private $_profile = null
;
45 // Additional fields (non core)
46 protected $promo = null
;
48 // Implementation of the login to uid method.
49 protected function getLogin($login)
54 throw new UserNotFoundException();
57 if ($login instanceof User
) {
61 if ($login instanceof Profile
) {
62 $this->_profile
= $login;
63 $this->_profile_fetched
= true
;
64 $res = XDB
::query('SELECT ap.uid
65 FROM account_profiles AS ap
66 WHERE ap.pid = {?} AND FIND_IN_SET(\'owner\', perms)',
68 if ($res->numRows()) {
69 return $res->fetchOneCell();
71 throw new UserNotFoundException();
74 // If $data is an integer, fetches directly the result.
75 if (is_numeric($login)) {
76 $res = XDB
::query('SELECT uid
78 WHERE uid = {?}', $login);
79 if ($res->numRows()) {
80 return $res->fetchOneCell();
83 throw new UserNotFoundException();
86 // Checks whether $login is a valid hruid or not.
87 $res = XDB
::query('SELECT uid
89 WHERE hruid = {?}', $login);
90 if ($res->numRows()) {
91 return $res->fetchOneCell();
94 // From now, $login can only by an email alias, or an email redirection.
95 $login = trim(strtolower($login));
96 if (strstr($login, '@') === false
) {
97 $res = XDB
::fetchOneCell('SELECT uid
98 FROM email_source_account
102 list($email, $domain) = explode('@', $login);
103 $res = XDB
::fetchOneCell('SELECT s.uid
104 FROM email_source_account AS s
105 INNER JOIN email_virtual_domains AS m ON (s.domain = m.id)
106 INNER JOIN email_virtual_domains AS d ON (d.aliasing = m.id)
107 WHERE s.email = {?} AND d.name = {?}',
115 // Looks for an account with the given email.
116 $res = XDB
::query('SELECT uid
118 WHERE email = {?}', $login);
119 if ($res->numRows() == 1) {
120 return $res->fetchOneCell();
123 // Otherwise, we do suppose $login is an email redirection.
124 $res = XDB
::query('SELECT uid
125 FROM email_redirect_account
126 WHERE redirect = {?}', $login);
127 if ($res->numRows() == 1) {
128 return $res->fetchOneCell();
131 throw new UserNotFoundException($res->fetchColumn(1));
134 protected static function loadMainFieldsFromUIDs(array $uids, $respect_order = true
)
137 return PlIteratorUtils
::emptyIterator();
143 if ($globals->asso('id')) {
144 $joins .= XDB
::format("LEFT JOIN group_members AS gpm ON (gpm.uid = a.uid AND gpm.asso_id = {?})\n", $globals->asso('id'));
145 $fields[] = 'gpm.perms AS group_perms';
146 $fields[] = 'gpm.comm AS group_comm';
147 $fields[] = 'gpm.position AS group_position';
149 if (count($fields) > 0) {
150 $fields = ', ' . implode(', ', $fields);
155 if ($respect_order) {
156 $order = 'ORDER BY ' . XDB
::formatCustomOrder('a.uid', $uids);
161 $uids = array_map(array('XDB', 'escape'), $uids);
163 return XDB
::iterator('SELECT a.uid, a.hruid, a.registration_date, h.uid IS NOT NULL AS homonym, a.firstname, a.lastname,
164 IF(ef.email IS NULL, NULL, CONCAT(ef.email, \'@\', mf.name)) AS forlife,
165 IF(ef.email IS NULL, NULL, CONCAT(ef.email, \'@\', df.name)) AS forlife_alternate,
166 IF(eb.email IS NULL, NULL, CONCAT(eb.email, \'@\', mb.name)) AS bestalias,
167 (er.redirect IS NULL AND a.state = \'active\' AND FIND_IN_SET(\'mail\', at.perms)) AS lost,
168 a.email, a.full_name, a.directory_name, a.display_name, a.sort_name, a.sex = \'female\' AS gender,
169 IF(a.state = \'active\', CONCAT(at.perms, \',\', IF(a.user_perms IS NULL, \'\', a.user_perms)), \'\') AS perms,
170 a.user_perms, a.email_format, a.is_admin, a.state, a.type, at.description AS type_description, a.skin,
171 FIND_IN_SET(\'watch\', a.flags) AS watch, a.comment,
172 a.weak_password IS NOT NULL AS weak_access, g.g_account_name IS NOT NULL AS googleapps,
173 a.token IS NOT NULL AS token_access, a.token, a.last_version,
174 s.start AS lastlogin, s.host, fp.last_seen AS banana_last
177 INNER JOIN account_types AS at ON (at.type = a.type)
178 LEFT JOIN email_source_account AS ef ON (ef.uid = a.uid AND ef.type = \'forlife\')
179 LEFT JOIN email_virtual_domains AS mf ON (ef.domain = mf.id)
180 LEFT JOIN email_virtual_domains AS df ON (df.aliasing = mf.id AND
181 df.name LIKE CONCAT(\'%\', {?}) AND df.name NOT LIKE \'alumni.%\')
182 LEFT JOIN email_source_account AS eb ON (eb.uid = a.uid AND FIND_IN_SET(\'bestalias\',eb.flags))
183 LEFT JOIN email_virtual_domains AS mb ON (a.best_domain = mb.id)
184 LEFT JOIN email_redirect_account AS er ON (er.uid = a.uid AND er.flags = \'active\' AND er.broken_level < 3
185 AND er.type != \'imap\' AND er.type != \'homonym\')
186 LEFT JOIN homonyms_list AS h ON (h.uid = a.uid)
187 LEFT JOIN gapps_accounts AS g ON (a.uid = g.l_userid AND g.g_status = \'active\')
188 LEFT JOIN log_last_sessions AS ls ON (ls.uid = a.uid)
189 LEFT JOIN log_sessions AS s ON (s.id = ls.id)
190 LEFT JOIN forum_profiles AS fp ON (fp.uid = a.uid)
192 WHERE a.uid IN (' . implode(', ', $uids) . ')
194 ' . $order, $globals->mail
->domain2
, $globals->mail
->domain2
);
197 // Implementation of the data loader.
198 protected function loadMainFields()
200 if ($this->hruid
!== null
&& $this->forlife
!== null
201 && $this->bestalias
!== null
&& $this->display_name
!== null
202 && $this->full_name
!== null
&& $this->perms
!== null
203 && $this->gender
!== null
&& $this->email_format
!== null
) {
206 $this->fillFromArray(self
::loadMainFieldsFromUIDs(array($this->uid
))->next());
209 // Specialization of the buildPerms method
210 // This function build 'generic' permissions for the user. It does not take
211 // into account page specific permissions (e.g X.net group permissions)
212 protected function buildPerms()
214 if (!is_null($this->perm_flags
)) {
217 if ($this->perms
=== null
) {
218 $this->loadMainFields();
220 $this->perm_flags
= self
::makePerms($this->perms
, $this->is_admin
);
223 public function setPerms($perms)
225 $this->perms
= $perms;
226 $this->perm_flags
= null
;
229 /** Retrieve the 'general' read visibility.
230 * This is the maximum level of fields that may be viewed by the current user on other profiles.
233 * - Everyone can view 'public'
234 * - directory_ax gives access to 'AX' level, ie. the printed directory
235 * - directory_private gives access to 'private' level
236 * - admin and directory_hidden gives access to 'hidden' level
238 public function readVisibility()
240 $level = Visibility
::VIEW_NONE
;
241 if ($this->is_admin ||
$this->checkPerms('directory_hidden')) {
242 $level = Visibility
::VIEW_ADMIN
;
243 } elseif ($this->checkPerms('directory_private')) {
244 $level = Visibility
::VIEW_PRIVATE
;
245 } elseif ($this->checkPerms('directory_ax')) {
246 $level = Visibility
::VIEW_AX
;
248 $level = Visibility
::VIEW_PUBLIC
;
250 return Visibility
::get($level);
253 /** Retrieve the 'general' edit visibility.
254 * This is the maximum level of fields that may be edited by the current user on other profiles.
257 * - Only admins can edit the 'hidden' fields
258 * - If someone has 'directory_edit' (which is actually directory_ax_edit): AX level
259 * - Otherwise, nothing.
261 public function editVisibility()
263 $level = Visibility
::VIEW_NONE
;
264 if ($this->is_admin
) {
265 $level = Visibility
::VIEW_ADMIN
;
266 } elseif ($this->checkPerms('directory_edit')) {
267 $level = Visibility
::VIEW_AX
;
269 return Visibility
::get($level);
272 // We do not want to store the password in the object.
273 // So, fetch it 'on demand'
274 public function password()
276 return XDB
::fetchOneCell('SELECT a.password
278 WHERE a.uid = {?}', $this->id());
281 public function isActive()
283 return $this->state
== 'active';
286 /** Overload PlUser::promo(): there no promo defined for a user in the current
287 * schema. The promo is a field from the profile.
289 public function promo()
291 if (!$this->hasProfile()) {
294 return $this->profile()->promo();
297 public function category()
299 $promo = $this->promo();
300 if (!empty($promo)) {
303 return $this->type_description
;
307 public function firstName()
309 if (!$this->hasProfile()) {
310 return $this->firstname
;
312 return $this->profile()->firstName();
315 public function lastName()
317 if (!$this->hasProfile()) {
318 return $this->lastname
;
320 return $this->profile()->lastName();
323 public function displayName()
325 if (!$this->hasProfile()) {
326 return $this->display_name
;
328 return $this->profile()->yourself
;
331 public function fullName($with_promo = false
)
333 if (!$this->hasProfile()) {
334 return $this->full_name
;
336 return $this->profile()->fullName($with_promo);
339 public function shortName($with_promo = false
)
341 if (!$this->hasProfile()) {
342 return $this->full_name
;
344 return $this->profile()->shortName($with_promo);
347 public function directoryName()
349 if (!$this->hasProfile()) {
350 return $this->directory_name
;
352 return $this->profile()->directory_name
;
355 public function sortName()
357 if (!$this->hasProfile()) {
358 return $this->sort_name
;
360 return $this->profile()->sort_name
;
363 static public function compareDirectoryName($a, $b)
365 return strcasecmp(replace_accent($a->directoryName()), replace_accent($b->directoryName()));
368 /** Return the main profile attached with this account if any.
370 public function profile($forceFetch = false
, $fields = 0x0000, $visibility = null
)
372 if (!$this->_profile_fetched ||
$forceFetch) {
373 $this->_profile_fetched
= true
;
374 $this->_profile
= Profile
::get($this, $fields, $visibility);
375 } else if ($this->_profile
!== null
&& $visibility !== null
&& !$this->_profile
->visibility
->equals($visibility)) {
376 return Profile
::get($this, $fields, $visibility);
378 return $this->_profile
;
381 public function setPrefetchedProfile(Profile
$profile)
383 $this->_profile_fetched
= true
;
384 $this->_profile
= $profile;
387 /** Return true if the user has an associated profile.
389 public function hasProfile()
391 return !is_null($this->profile());
394 /** Return true if given a reference to the profile of this user.
396 public function isMyProfile($other)
400 } else if ($other instanceof Profile
) {
401 $profile = $this->profile();
402 return $profile && $profile->id() == $other->id();
407 /** Check if the user can edit to given profile.
409 public function canEdit(Profile
$profile)
411 if ($this->checkPerms(User
::PERM_EDIT_DIRECTORY
)) {
414 return XDB
::fetchOneCell('SELECT pid
415 FROM account_profiles
416 WHERE uid = {?} AND pid = {?}',
417 $this->id(), $profile->id());
420 /** Determines main email domain for this user.
422 public function mainEmailDomain()
424 if (array_key_exists($this->type
, self
::$sub_mail_domains)) {
425 return self
::$sub_mail_domains[$this->type
] . Platal
::globals()->mail
->domain
;
429 /** Determines alternate email domain for this user.
431 public function alternateEmailDomain()
433 if (array_key_exists($this->type
, self
::$sub_mail_domains)) {
434 return self
::$sub_mail_domains[$this->type
] . Platal
::globals()->mail
->domain2
;
438 public function forlifeEmailAlternate()
440 if (!empty($this->forlife_alternate
)) {
441 return $this->forlife_alternate
;
446 /** Fetch existing auxiliary alias.
448 public function emailAlias()
450 $aliases = $this->emailAliases();
451 if (count($aliases)) {
457 /** Fetch existing auxiliary aliases.
459 public function emailAliases()
461 return XDB
::fetchColumn('SELECT CONCAT(s.email, \'@\', d.name)
462 FROM email_source_account AS s
463 INNER JOIN email_virtual_domains AS m ON (s.domain = m.id)
464 INNER JOIN email_virtual_domains AS d ON (d.aliasing = m.id)
465 WHERE s.uid = {?} AND s.type = \'alias_aux\'
470 /** Get all group aliases the user belongs to.
472 public function emailGroupAliases($domain = null
)
474 if (is_null($domain)) {
475 return XDB
::fetchColumn('SELECT CONCAT(v.email, \'@\', dv.name) AS alias
476 FROM email_virtual AS v
477 INNER JOIN email_virtual_domains AS dv ON (v.domain = dv.id)
478 INNER JOIN email_source_account AS s ON (s.uid = {?})
479 INNER JOIN email_virtual_domains AS ms ON (s.domain = ms.id)
480 INNER JOIN email_virtual_domains AS ds ON (ds.aliasing = ms.id)
481 WHERE v.redirect = CONCAT(s.email, \'@\', ds.name) AND v.type = \'alias\'',
484 return XDB
::fetchAllAssoc('alias',
485 'SELECT CONCAT(v.email, \'@\', dv.name) AS alias, MAX(v.redirect = CONCAT(s.email, \'@\', ds.name)) AS sub
486 FROM email_virtual AS v
487 INNER JOIN email_virtual_domains AS dv ON (v.domain = dv.id AND dv.name = {?})
488 INNER JOIN email_source_account AS s ON (s.uid = {?})
489 INNER JOIN email_virtual_domains AS ms ON (s.domain = ms.id)
490 INNER JOIN email_virtual_domains AS ds ON (ds.aliasing = ms.id)
491 WHERE v.type = \'alias\'
494 $domain, $this->id());
498 /** Get marketing informations
500 private function fetchMarketingData()
502 if (isset($this->pending_registration_date
)) {
505 $infos = XDB
::fetchOneAssoc('SELECT rp.date AS pending_registration_date, rp.email AS pending_registration_email,
506 rm.last AS last_marketing_date, rm.email AS last_marketing_email
508 LEFT JOIN register_pending AS rp ON (rp.uid = a.uid)
509 LEFT JOIN register_marketing AS rm ON (rm.uid = a.uid AND rm.last != \'0000-00-00\')
511 ORDER BY rm.last DESC', $this->id());
512 if (is_null($infos)) {
514 'pending_registration_date' => null
,
515 'pending_registration_email' => null
,
516 'last_marketing_date' => null
,
517 'last_marketing_email' => null
520 $this->fillFromArray($infos);
523 public function pendingRegistrationDate()
525 $this->fetchMarketingData();
526 return $this->pending_registration_date
;
529 public function pendingRegistrationEmail()
531 $this->fetchMarketingData();
532 return $this->pending_registration_email
;
535 public function lastMarketingDate()
537 $this->fetchMarketingData();
538 return $this->last_marketing_date
;
541 public function lastMarketingEmail()
543 $this->fetchMarketingData();
544 return $this->last_marketing_email
;
547 public function lastKnownEmail()
549 $this->fetchMarketingData();
550 if ($this->pending_registration_email
> $this->last_marketing_date
) {
551 return $this->pending_registration_email
;
553 return $this->last_marketing_email
;
557 /** Format of the emails sent by the site
559 public function setEmailFormat($format)
561 Platal
::assert($format == self
::FORMAT_HTML ||
$format == self
::FORMAT_TEXT
,
562 "Invalid email format \"$format\"");
563 XDB
::execute("UPDATE accounts
564 SET email_format = {?}
566 $format, $this->uid
);
567 $this->email_format
= $format;
570 /** Get watch informations
572 private function fetchWatchData()
574 if (isset($this->watch_actions
)) {
577 $watch = XDB
::fetchOneAssoc('SELECT flags AS watch_flags, actions AS watch_actions,
578 UNIX_TIMESTAMP(last) AS watch_last
580 WHERE uid = {?}', $this->id());
581 $watch['watch_flags'] = new PlFlagSet($watch['watch_flags']);
582 $watch['watch_actions'] = new PlFlagSet($watch['watch_actions']);
583 $watch['watch_promos'] = XDB
::fetchColumn('SELECT promo
585 WHERE uid = {?}', $this->id());
586 $watch['watch_groups'] = XDB
::fetchColumn("SELECT w.groupid
587 FROM watch_group AS w
588 INNER JOIN groups AS g ON (w.groupid = g.id AND NOT FIND_IN_SET('private', pub))
589 WHERE w.uid = {?}", $this->id());
590 $watch['watch_users'] = XDB
::fetchColumn('SELECT ni_id
592 WHERE uid = {?}', $this->id());
593 $this->fillFromArray($watch);
596 public function watchType($type)
598 $this->fetchWatchData();
599 return $this->watch_actions
->hasFlag($type);
602 public function watchContacts()
604 $this->fetchWatchData();
605 return $this->watch_flags
->hasFlag('contacts');
608 public function watchEmail()
610 $this->fetchWatchData();
611 return $this->watch_flags
->hasFlag('mail');
614 public function watchPromos()
616 $this->fetchWatchData();
617 return $this->watch_promos
;
620 public function watchGroups()
622 $this->fetchWatchData();
623 return $this->watch_groups
;
626 public function watchUsers()
628 $this->fetchWatchData();
629 return $this->watch_users
;
632 public function watchLast()
634 $this->fetchWatchData();
635 return $this->watch_last
;
638 public function invalidWatchCache()
640 unset($this->watch_actions
);
641 unset($this->watch_users
);
642 unset($this->watch_last
);
643 unset($this->watch_promos
);
644 unset($this->watch_groups
);
649 private $contacts = null
;
650 private function fetchContacts()
652 if (is_null($this->contacts
)) {
653 $this->contacts
= XDB
::fetchAllAssoc('contact', 'SELECT *
660 public function iterContacts()
662 $this->fetchContacts();
663 return Profile
::iterOverPIDs(array_keys($this->contacts
));
666 public function getContacts()
668 $this->fetchContacts();
669 return Profile
::getBulkProfilesWithPIDs(array_keys($this->contacts
));
672 public function isContact(Profile
$profile)
674 $this->fetchContacts();
675 return isset($this->contacts
[$profile->id()]);
678 public function isWatchedUser(Profile
$profile)
680 return in_array($profile->id(), $this->watchUsers());
684 private $groups = null
;
685 public function groups($institutions = false
, $onlyPublic = false
)
687 if (is_null($this->groups
)) {
688 $this->groups
= XDB
::fetchAllAssoc('asso_id', 'SELECT gm.asso_id, gm.perms, gm.comm,
689 g.diminutif, g.nom, g.site, g.cat,
691 FROM group_members AS gm
692 INNER JOIN groups AS g ON (g.id = gm.asso_id)
696 if (!$institutions && !$onlyPublic) {
697 return $this->groups
;
700 foreach ($this->groups
as $id=>$data) {
702 if ($data['cat'] != Group
::CAT_GROUPESX
&& $data['cat'] != Group
::CAT_INSTITUTIONS
) {
707 if ($data['pub'] != 'public') {
711 $result[$id] = $data;
717 public function groupCount()
719 return XDB
::fetchOneCell('SELECT COUNT(DISTINCT(asso_id))
725 public function inGroup($asso_id)
727 $res = XDB
::fetchOneCell('SELECT COUNT(*)
729 WHERE uid = {?} AND asso_id = {?}',
730 $this->id(), $asso_id);
736 * *always deletes in: account_lost_passwords, register_marketing,
737 * register_pending, register_subs, watch_nonins, watch, watch_promo, watch_group,
738 * *always keeps in: account_types, accounts, email_virtual, carvas,
739 * group_members, homonyms_list, newsletter_ins, register_mstats, email_source_account
740 * *deletes if $clearAll: account_auth_openid, announce_read, contacts,
741 * email_redirect_account, email_redirect_account, email_send_save, forum_innd, forum_profiles,
742 * forum_subs, gapps_accounts, gapps_nicknames, group_announces_read,
743 * group_member_sub_requests, reminder, requests, requests_hidden,
745 * *modifies if $clearAll: accounts
748 * *$clearAll == false: when a user dies, her family still needs to keep in
749 * touch with the community.
750 * *$clearAll == true: in every other case we want the account to be fully
751 * deleted so that it can not be used anymore.
753 public function clear($clearAll = true
)
755 $tables = array('account_lost_passwords', 'register_marketing',
756 'register_pending', 'register_subs', 'watch_nonins',
757 'watch', 'watch_promo', 'watch_group');
759 foreach ($tables as $t) {
760 XDB
::execute('DELETE FROM ' . $t . '
768 $groupIds = XDB
::iterator('SELECT asso_id
772 while ($groupId = $groupIds->next()) {
773 $group = Group
::get($groupId);
774 if (!empty($group) && $group->notif_unsub
) {
775 $mailer = new PlMailer('xnetgrp/unsubscription-notif.mail.tpl');
776 $admins = $group->iterAdmins();
777 while ($admin = $admins->next()) {
778 $mailer->addTo($admin);
780 $mailer->assign('group', $group->shortname
);
781 $mailer->assign('user', $this);
782 $mailer->assign('selfdone', false
);
787 $tables = array('account_auth_openid', 'announce_read', 'contacts',
789 'forum_innd', 'forum_profiles', 'forum_subs',
790 'group_announces_read', 'group_members',
791 'group_member_sub_requests', 'reminder', 'requests',
793 foreach ($tables as $t) {
794 XDB
::execute('DELETE FROM ' . $t . '
798 XDB
::execute('DELETE FROM email_redirect_account
799 WHERE uid = {?} AND type != \'homonym\'',
801 XDB
::execute('DELETE FROM email_virtual
802 WHERE redirect = {?}',
803 $this->forlifeEmail());
805 foreach (array('gapps_accounts', 'gapps_nicknames') as $t) {
806 XDB
::execute('DELETE FROM ' . $t . '
807 WHERE l_userid = {?}',
811 XDB
::execute("UPDATE accounts
812 SET registration_date = 0, state = 'pending', password = NULL,
813 weak_password = NULL, token = NULL, is_admin = 0
817 if ($globals->mailstorage
->googleapps_domain
) {
818 require_once 'googleapps.inc.php';
820 if (GoogleAppsAccount
::account_status($this->id())) {
821 $account = new GoogleAppsAccount($this);
827 $mmlist = new MMList(S
::user());
828 $mmlist->kill($this->hruid
, $clearAll);
831 // Merge all infos in other user and then clean this one
832 public function mergeIn(User
$newuser) {
833 if ($this->profile()) {
834 // Don't disable user with profile in this way.
836 Platal
::page()->trigError('Impossible de fusionner les comptes ' . $this->hruid
. ' et ' . $newuser->hruid
.
837 '. Contacte support@' . $globals->mail
->domain
. '.');
841 if ($this->forlifeEmail()) {
842 // If the new user is not registered and does not have already an email address,
843 // we need to give him the old user's email address if he has any.
844 if (!$newuser->perms
) {
845 XDB
::execute('UPDATE accounts
847 WHERE uid = {?} AND email IS NULL',
848 $this->forlifeEmail(), $newuser->id());
850 // Reftech new user so its forlifeEmail will be correct.
851 $newuser = self
::getSilentWithUID($newuser->id());
854 // Change email used in mailing lists.
855 if ($this->forlifeEmail() != $newuser->forlifeEmail()) {
856 // The super user is the user who has the right to do the modification.
857 $super_user = S
::user();
858 // group mailing lists
859 $group_domains = XDB
::fetchColumn('SELECT g.mail_domain
861 INNER JOIN group_members AS gm ON(g.id = gm.asso_id)
862 WHERE g.mail_domain != \'\' AND gm.uid = {?}',
864 foreach ($group_domains as $mail_domain) {
865 $mmlist = new MMList($super_user, $mail_domain);
866 $mmlist->replace_email_in_all($this->forlifeEmail(), $newuser->forlifeEmail());
869 $mmlist = new MMList($super_user);
870 $mmlist->replace_email_in_all($this->forlifeEmail(), $newuser->forlifeEmail());
874 // Updates user in following tables.
875 foreach (array('group_announces', 'payment_transactions', 'log_sessions', 'group_events') as $table) {
876 XDB
::execute('UPDATE ' . $table . '
879 $newuser->id(), $this->id());
882 // Merges user in following tables, ie updates when possible, then deletes remaining occurences of the old user.
883 foreach (array('group_announces_read', 'group_event_participants', 'group_member_sub_requests', 'group_members', 'email_redirect_account') as $table) {
884 XDB
::execute('UPDATE IGNORE ' . $table . '
887 $newuser->id(), $this->id());
888 XDB
::execute('DELETE FROM ' . $table . '
893 // Eventually updates last session id and deletes old user's accounts entry.
894 $lastSession = XDB
::fetchOneCell('SELECT id
900 XDB
::execute('UPDATE log_last_sessions
903 $lastSession, $newuser->id());
904 XDB
::execute('DELETE FROM accounts
911 // Return permission flags for a given permission level.
912 public static function makePerms($perms, $is_admin)
914 $flags = new PlFlagSet($perms);
916 $flags->addFlag(PERMS_ADMIN
);
919 // Access to private directory implies access to 'less'-private version.
920 if ($flags->hasFlag('directory_private')) {
921 $flags->addFlag('directory_ax');
926 // Implementation of the default user callback.
927 public static function _default_user_callback($login, $results)
929 $result_count = count($results);
930 if ($result_count == 0 ||
!S
::admin()) {
931 Platal
::page()->trigError("Il n'y a pas d'utilisateur avec l'identifiant : $login");
933 Platal
::page()->trigError("Il y a $result_count utilisateurs avec cet identifiant : " . join(', ', $results));
937 public static function makeHomonymHrmid($alias)
939 return 'h.' . $alias . '.' . Platal
::globals()->mail
->domain
;
942 public static function isMainMailDomain($domain)
946 $is_main_domain = false
;
947 foreach (self
::$sub_mail_domains as $sub_domain) {
948 $is_main_domain = $is_main_domain ||
$domain == ($sub_domain . $globals->mail
->domain
) ||
$domain == ($sub_domain . $globals->mail
->domain2
);
950 return $is_main_domain;
953 public static function isAliasMailDomain($domain)
957 return $domain == $globals->mail
->alias_dom ||
$domain == $globals->mail
->alias_dom2
;
960 // Implementation of the static email locality checker.
961 public static function isForeignEmailAddress($email)
963 if (strpos($email, '@') === false
) {
967 list(, $domain) = explode('@', $email);
968 return !(self
::isMainMailDomain($domain) || self
::isAliasMailDomain($domain));
971 /* Tries to find pending accounts with an hruid close to $login. */
972 public static function getPendingAccounts($login, $iterator = false
)
974 if (strpos($login, '@') === false
) {
978 list($login, $domain) = explode('@', $login);
980 if ($domain && !self
::isMainMailDomain($domain)) {
984 $sql = "SELECT uid, full_name
986 WHERE state = 'pending' AND REPLACE(hruid, '-', '') LIKE
987 CONCAT('%', REPLACE(REPLACE(REPLACE({?}, ' ', ''), '-', ''), '\'', ''), '%')
990 return XDB
::iterator($sql, $login);
992 $res = XDB
::query($sql, $login);
993 return $res->fetchAllAssoc();
998 public static function iterOverUIDs($uids, $respect_order = true
)
1000 return new UserIterator(self
::loadMainFieldsFromUIDs($uids, $respect_order));
1003 /** Fetch a set of users from a list of UIDs
1004 * @param $data The list of uids to fetch, or an array of arrays
1005 * @param $orig If $data is an array of arrays, the subfield where uids are stored
1006 * @param $dest If $data is an array of arrays, the subfield to fill with Users
1007 * @param $fetchProfile Whether to fetch Profiles as well
1008 * @return either an array of $uid => User, or $data with $data[$i][$dest] = User
1010 public static function getBulkUsersWithUIDs(array $data, $orig = null
, $dest = null
, $fetchProfile = true
)
1012 // Fetch the list of uids
1013 if (is_null($orig)) {
1016 if (is_null($dest)) {
1020 foreach ($data as $key=>$entry) {
1021 if (isset($entry[$orig])) {
1022 $uids[] = $entry[$orig];
1028 if (count($uids) == 0) {
1031 $users = self
::iterOverUIDs($uids, true
);
1034 if ($fetchProfile) {
1035 $profiles = Profile
::iterOverUIDS($uids, true
);
1036 if ($profiles != null
) {
1037 $profile = $profiles->next();
1043 /** We iterate through the users, moving in
1044 * profiles when they match the user ID :
1045 * there can be users without a profile, but not
1046 * the other way around.
1048 while (($user = $users->next())) {
1049 if ($fetchProfile) {
1050 if ($profile != null
&& $profile->owner_id
== $user->id()) {
1051 $user->_profile
= $profile;
1052 $profile = $profiles->next();
1054 $user->_profile_fetched
= true
;
1056 $table[$user->id()] = $user;
1059 // Build the result with respect to input order.
1060 if (is_null($orig)) {
1063 foreach ($data as $key=>$entry) {
1064 if (isset($entry[$orig])) {
1065 $entry[$dest] = $table[$entry[$orig]];
1066 $data[$key] = $entry;
1073 public static function getBulkUsersFromDB($fetchProfile = true
)
1075 $args = func_get_args();
1076 $uids = call_user_func_array(array('XDB', 'fetchColumn'), $args);
1077 return self
::getBulkUsersWithUIDs($uids, null
, null
, $fetchProfile);
1081 /** Iterator over a set of Users
1082 * @param an XDB::Iterator obtained from a User::loadMainFieldsFromUIDs
1084 class UserIterator
implements PlIterator
1088 public function __construct($dbiter)
1090 $this->dbiter
= $dbiter;
1093 public function next()
1095 $data = $this->dbiter
->next();
1096 if ($data == null
) {
1099 return User
::getSilentWithValues(null
, $data);
1103 public function total()
1105 return $this->dbiter
->total();
1108 public function first()
1110 return $this->dbiter
->first();
1113 public function last()
1115 return $this->dbiter
->last();
1119 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8: