Commit | Line | Data |
---|---|---|
9f8ebb9f VZ |
1 | <?php |
2 | /*************************************************************************** | |
5e1513f6 | 3 | * Copyright (C) 2003-2011 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 | { |
16d2c883 | 24 | const PERM_API_USER_READONLY = 'api_user_readonly'; |
30962fae FB |
25 | const PERM_DIRECTORY_AX = 'directory_ax'; |
26 | const PERM_DIRECTORY_PRIVATE = 'directory_private'; | |
27 | const PERM_EDIT_DIRECTORY = 'edit_directory'; | |
28 | const PERM_FORUMS = 'forums'; | |
16d2c883 | 29 | const PERM_GROUPS = 'groups'; |
30962fae | 30 | const PERM_LISTS = 'lists'; |
16d2c883 | 31 | const PERM_MAIL = 'mail'; |
30962fae FB |
32 | const PERM_PAYMENT = 'payment'; |
33 | ||
f036c896 SJ |
34 | public static $sub_mail_domains = array( |
35 | 'x' => '', | |
36 | 'master' => 'master.', | |
37 | 'phd' => 'doc.', | |
38 | 'all' => 'alumni.' | |
39 | ); | |
40 | ||
3e53a496 FB |
41 | private $_profile_fetched = false; |
42 | private $_profile = null; | |
43 | ||
956608bc RB |
44 | // Additional fields (non core) |
45 | protected $promo = null; | |
46 | ||
70232020 | 47 | // Implementation of the login to uid method. |
b1719b13 VZ |
48 | protected function getLogin($login) |
49 | { | |
50 | global $globals; | |
51 | ||
f6c58d14 VZ |
52 | if (!$login) { |
53 | throw new UserNotFoundException(); | |
54 | } | |
55 | ||
455ea0c9 | 56 | if ($login instanceof User) { |
14da7ef4 | 57 | return $login->id(); |
455ea0c9 FB |
58 | } |
59 | ||
e7b93962 | 60 | if ($login instanceof Profile) { |
3e53a496 FB |
61 | $this->_profile = $login; |
62 | $this->_profile_fetched = true; | |
e7b93962 FB |
63 | $res = XDB::query('SELECT ap.uid |
64 | FROM account_profiles AS ap | |
65 | WHERE ap.pid = {?} AND FIND_IN_SET(\'owner\', perms)', | |
66 | $login->id()); | |
67 | if ($res->numRows()) { | |
68 | return $res->fetchOneCell(); | |
69 | } | |
70 | throw new UserNotFoundException(); | |
71 | } | |
72 | ||
b1719b13 VZ |
73 | // If $data is an integer, fetches directly the result. |
74 | if (is_numeric($login)) { | |
06a548e5 SJ |
75 | $res = XDB::query('SELECT uid |
76 | FROM accounts | |
77 | WHERE uid = {?}', $login); | |
b1719b13 | 78 | if ($res->numRows()) { |
70232020 | 79 | return $res->fetchOneCell(); |
b1719b13 VZ |
80 | } |
81 | ||
82 | throw new UserNotFoundException(); | |
83 | } | |
84 | ||
85 | // Checks whether $login is a valid hruid or not. | |
06a548e5 SJ |
86 | $res = XDB::query('SELECT uid |
87 | FROM accounts | |
88 | WHERE hruid = {?}', $login); | |
b1719b13 | 89 | if ($res->numRows()) { |
70232020 | 90 | return $res->fetchOneCell(); |
b1719b13 VZ |
91 | } |
92 | ||
93 | // From now, $login can only by an email alias, or an email redirection. | |
b1719b13 VZ |
94 | $login = trim(strtolower($login)); |
95 | if (strstr($login, '@') === false) { | |
ac57076f SJ |
96 | $res = XDB::fetchOneCell('SELECT uid |
97 | FROM email_source_account | |
98 | WHERE email = {?}', | |
99 | $login); | |
06a548e5 SJ |
100 | } else { |
101 | list($email, $domain) = explode('@', $login); | |
ac57076f SJ |
102 | $res = XDB::fetchOneCell('SELECT s.uid |
103 | FROM email_source_account AS s | |
104 | INNER JOIN email_virtual_domains AS m ON (s.domain = m.id) | |
105 | INNER JOIN email_virtual_domains AS d ON (d.aliasing = m.id) | |
106 | WHERE s.email = {?} AND d.name = {?}', | |
107 | $email, $domain); | |
b1719b13 VZ |
108 | } |
109 | ||
06a548e5 SJ |
110 | if ($res) { |
111 | return $res; | |
b1719b13 VZ |
112 | } |
113 | ||
cb8a8977 | 114 | // Looks for an account with the given email. |
06a548e5 SJ |
115 | $res = XDB::query('SELECT uid |
116 | FROM accounts | |
117 | WHERE email = {?}', $login); | |
cb8a8977 FB |
118 | if ($res->numRows() == 1) { |
119 | return $res->fetchOneCell(); | |
120 | } | |
121 | ||
b1719b13 | 122 | // Otherwise, we do suppose $login is an email redirection. |
06a548e5 SJ |
123 | $res = XDB::query('SELECT uid |
124 | FROM email_redirect_account | |
125 | WHERE redirect = {?}', $login); | |
b1719b13 | 126 | if ($res->numRows() == 1) { |
70232020 | 127 | return $res->fetchOneCell(); |
b1719b13 VZ |
128 | } |
129 | ||
130 | throw new UserNotFoundException($res->fetchColumn(1)); | |
131 | } | |
132 | ||
0d906109 | 133 | protected static function loadMainFieldsFromUIDs(array $uids, $respect_order = true) |
832e6fcb | 134 | { |
6d33f1d3 FB |
135 | if (empty($uids)) { |
136 | return PlIteratorUtils::emptyIterator(); | |
137 | } | |
138 | ||
45dcd6dd | 139 | global $globals; |
832e6fcb | 140 | $joins = ''; |
45dcd6dd | 141 | $fields = array(); |
45dcd6dd | 142 | if ($globals->asso('id')) { |
eb41eda9 | 143 | $joins .= XDB::format("LEFT JOIN group_members AS gpm ON (gpm.uid = a.uid AND gpm.asso_id = {?})\n", $globals->asso('id')); |
45dcd6dd | 144 | $fields[] = 'gpm.perms AS group_perms'; |
a6761ca9 | 145 | $fields[] = 'gpm.comm AS group_comm'; |
33fcb12c | 146 | $fields[] = 'gpm.position AS group_position'; |
45dcd6dd FB |
147 | } |
148 | if (count($fields) > 0) { | |
149 | $fields = ', ' . implode(', ', $fields); | |
a3118782 FB |
150 | } else { |
151 | $fields = ''; | |
45dcd6dd | 152 | } |
0d906109 RB |
153 | |
154 | if ($respect_order) { | |
155 | $order = 'ORDER BY ' . XDB::formatCustomOrder('a.uid', $uids); | |
156 | } else { | |
157 | $order = ''; | |
158 | } | |
159 | ||
45dcd6dd | 160 | $uids = array_map(array('XDB', 'escape'), $uids); |
0d906109 | 161 | |
b7753795 | 162 | return XDB::iterator('SELECT a.uid, a.hruid, a.registration_date, h.uid IS NOT NULL AS homonym, a.firstname, a.lastname, |
f036c896 SJ |
163 | IF(ef.email IS NULL, NULL, CONCAT(ef.email, \'@\', mf.name)) AS forlife, |
164 | IF(ef.email IS NULL, NULL, CONCAT(ef.email, \'@\', df.name)) AS forlife_alternate, | |
165 | IF(eb.email IS NULL, NULL, CONCAT(eb.email, \'@\', mb.name)) AS bestalias, | |
dac6e2c6 | 166 | (er.redirect IS NULL AND a.state = \'active\' AND FIND_IN_SET(\'mail\', at.perms)) AS lost, |
33a4f3f9 | 167 | a.email, a.full_name, a.directory_name, a.display_name, a.sex = \'female\' AS gender, |
7fd6dbb3 | 168 | IF(a.state = \'active\', CONCAT(at.perms, \',\', IF(a.user_perms IS NULL, \'\', a.user_perms)), \'\') AS perms, |
f60c3d1f | 169 | a.user_perms, a.email_format, a.is_admin, a.state, a.type, at.description AS type_description, a.skin, |
832e6fcb | 170 | FIND_IN_SET(\'watch\', a.flags) AS watch, a.comment, |
2ab3486b SJ |
171 | a.weak_password IS NOT NULL AS weak_access, g.g_account_name IS NOT NULL AS googleapps, |
172 | a.token IS NOT NULL AS token_access, a.token, a.last_version, | |
2ab3486b | 173 | UNIX_TIMESTAMP(s.start) AS lastlogin, s.host, UNIX_TIMESTAMP(fp.last_seen) AS banana_last |
2c411733 | 174 | ' . $fields . ' |
06a548e5 SJ |
175 | FROM accounts AS a |
176 | INNER JOIN account_types AS at ON (at.type = a.type) | |
177 | LEFT JOIN email_source_account AS ef ON (ef.uid = a.uid AND ef.type = \'forlife\') | |
178 | LEFT JOIN email_virtual_domains AS mf ON (ef.domain = mf.id) | |
f036c896 SJ |
179 | LEFT JOIN email_virtual_domains AS df ON (df.aliasing = mf.id AND |
180 | df.name LIKE CONCAT(\'%\', {?}) AND df.name NOT LIKE \'alumni.%\') | |
f67c8d9a | 181 | LEFT JOIN email_source_account AS eb ON (eb.uid = a.uid AND FIND_IN_SET(\'bestalias\',eb.flags)) |
9f3f87bc | 182 | LEFT JOIN email_virtual_domains AS mb ON (a.best_domain = mb.id) |
06a548e5 SJ |
183 | LEFT JOIN email_redirect_account AS er ON (er.uid = a.uid AND er.flags = \'active\' AND er.broken_level < 3 |
184 | AND er.type != \'imap\' AND er.type != \'homonym\') | |
185 | LEFT JOIN homonyms_list AS h ON (h.uid = a.uid) | |
186 | LEFT JOIN gapps_accounts AS g ON (a.uid = g.l_userid AND g.g_status = \'active\') | |
187 | LEFT JOIN log_last_sessions AS ls ON (ls.uid = a.uid) | |
188 | LEFT JOIN log_sessions AS s ON (s.id = ls.id) | |
189 | LEFT JOIN forum_profiles AS fp ON (fp.uid = a.uid) | |
d865c296 | 190 | ' . $joins . ' |
832e6fcb | 191 | WHERE a.uid IN (' . implode(', ', $uids) . ') |
0d906109 | 192 | GROUP BY a.uid |
f036c896 | 193 | ' . $order, $globals->mail->domain2, $globals->mail->domain2); |
832e6fcb FB |
194 | } |
195 | ||
70232020 VZ |
196 | // Implementation of the data loader. |
197 | protected function loadMainFields() | |
198 | { | |
c4012d9b VZ |
199 | if ($this->hruid !== null && $this->forlife !== null |
200 | && $this->bestalias !== null && $this->display_name !== null | |
8f2104cb | 201 | && $this->full_name !== null && $this->perms !== null |
c4012d9b | 202 | && $this->gender !== null && $this->email_format !== null) { |
70232020 VZ |
203 | return; |
204 | } | |
1bf36cd1 | 205 | $this->fillFromArray(self::loadMainFieldsFromUIDs(array($this->uid))->next()); |
70232020 VZ |
206 | } |
207 | ||
50d5ec0b FB |
208 | // Specialization of the buildPerms method |
209 | // This function build 'generic' permissions for the user. It does not take | |
210 | // into account page specific permissions (e.g X.net group permissions) | |
211 | protected function buildPerms() | |
212 | { | |
213 | if (!is_null($this->perm_flags)) { | |
214 | return; | |
215 | } | |
216 | if ($this->perms === null) { | |
217 | $this->loadMainFields(); | |
218 | } | |
365ba8c3 | 219 | $this->perm_flags = self::makePerms($this->perms, $this->is_admin); |
50d5ec0b FB |
220 | } |
221 | ||
20b087ff FB |
222 | public function setPerms($perms) |
223 | { | |
224 | $this->perms = $perms; | |
225 | $this->perm_flags = null; | |
226 | } | |
227 | ||
7f1ff426 FB |
228 | // We do not want to store the password in the object. |
229 | // So, fetch it 'on demand' | |
230 | public function password() | |
231 | { | |
232 | return XDB::fetchOneCell('SELECT a.password | |
233 | FROM accounts AS a | |
234 | WHERE a.uid = {?}', $this->id()); | |
235 | } | |
236 | ||
280806d9 SJ |
237 | public function isActive() |
238 | { | |
239 | return $this->state == 'active'; | |
240 | } | |
241 | ||
8f2104cb FB |
242 | /** Overload PlUser::promo(): there no promo defined for a user in the current |
243 | * schema. The promo is a field from the profile. | |
244 | */ | |
245 | public function promo() | |
246 | { | |
247 | if (!$this->hasProfile()) { | |
248 | return ''; | |
249 | } | |
250 | return $this->profile()->promo(); | |
251 | } | |
252 | ||
f60c3d1f FB |
253 | public function category() |
254 | { | |
255 | $promo = $this->promo(); | |
256 | if (!empty($promo)) { | |
257 | return $promo; | |
258 | } else { | |
259 | return $this->type_description; | |
260 | } | |
261 | } | |
262 | ||
a6761ca9 FB |
263 | public function firstName() |
264 | { | |
265 | if (!$this->hasProfile()) { | |
266 | return $this->displayName(); | |
267 | } | |
268 | return $this->profile()->firstName(); | |
269 | } | |
270 | ||
271 | public function lastName() | |
272 | { | |
273 | if (!$this->hasProfile()) { | |
274 | return ''; | |
275 | } | |
276 | return $this->profile()->lastName(); | |
277 | } | |
278 | ||
2ab3486b SJ |
279 | public function displayName() |
280 | { | |
281 | if (!$this->hasProfile()) { | |
282 | return $this->display_name; | |
283 | } | |
284 | return $this->profile()->yourself; | |
285 | } | |
286 | ||
09e54905 SJ |
287 | public function fullName($with_promo = false) |
288 | { | |
289 | if (!$this->hasProfile()) { | |
290 | return $this->full_name; | |
291 | } | |
292 | return $this->profile()->fullName($with_promo); | |
293 | } | |
294 | ||
295 | public function directoryName() | |
296 | { | |
297 | if (!$this->hasProfile()) { | |
d081acb2 | 298 | return $this->directory_name; |
09e54905 SJ |
299 | } |
300 | return $this->profile()->directory_name; | |
301 | } | |
302 | ||
52366335 SJ |
303 | static public function compareDirectoryName($a, $b) |
304 | { | |
305 | return strcasecmp(replace_accent($a->directoryName()), replace_accent($b->directoryName())); | |
306 | } | |
307 | ||
e7b93962 FB |
308 | /** Return the main profile attached with this account if any. |
309 | */ | |
4ac2e2ba | 310 | public function profile($forceFetch = false, $fields = 0x0000, $visibility = null) |
e7b93962 | 311 | { |
4e698dc9 | 312 | if (!$this->_profile_fetched || $forceFetch) { |
3e53a496 | 313 | $this->_profile_fetched = true; |
4ac2e2ba | 314 | $this->_profile = Profile::get($this, $fields, $visibility); |
3e53a496 FB |
315 | } |
316 | return $this->_profile; | |
317 | } | |
318 | ||
319 | /** Return true if the user has an associated profile. | |
320 | */ | |
321 | public function hasProfile() | |
322 | { | |
323 | return !is_null($this->profile()); | |
324 | } | |
325 | ||
fceed6ea FB |
326 | /** Return true if given a reference to the profile of this user. |
327 | */ | |
328 | public function isMyProfile($other) | |
329 | { | |
330 | if (!$other) { | |
331 | return false; | |
332 | } else if ($other instanceof Profile) { | |
333 | $profile = $this->profile(); | |
334 | return $profile && $profile->id() == $other->id(); | |
335 | } | |
336 | return false; | |
337 | } | |
338 | ||
3af21f99 FB |
339 | /** Check if the user can edit to given profile. |
340 | */ | |
341 | public function canEdit(Profile $profile) | |
342 | { | |
a81ee987 FB |
343 | if ($this->checkPerms(User::PERM_EDIT_DIRECTORY)) { |
344 | return true; | |
345 | } | |
3af21f99 FB |
346 | return XDB::fetchOneCell('SELECT pid |
347 | FROM account_profiles | |
348 | WHERE uid = {?} AND pid = {?}', | |
349 | $this->id(), $profile->id()); | |
350 | } | |
351 | ||
f036c896 | 352 | /** Determines main email domain for this user. |
3e53a496 | 353 | */ |
f036c896 | 354 | public function mainEmailDomain() |
3e53a496 | 355 | { |
f036c896 SJ |
356 | if (array_key_exists($this->type, self::$sub_mail_domains)) { |
357 | return self::$sub_mail_domains[$this->type] . Platal::globals()->mail->domain; | |
8f2104cb | 358 | } |
8f2104cb FB |
359 | } |
360 | ||
f036c896 | 361 | /** Determines alternate email domain for this user. |
8f2104cb | 362 | */ |
f036c896 SJ |
363 | public function alternateEmailDomain() |
364 | { | |
365 | if (array_key_exists($this->type, self::$sub_mail_domains)) { | |
366 | return self::$sub_mail_domains[$this->type] . Platal::globals()->mail->domain2; | |
a6761ca9 | 367 | } |
f036c896 SJ |
368 | } |
369 | ||
72e12532 SJ |
370 | public function forlifeEmailAlternate() |
371 | { | |
372 | if (!empty($this->forlife_alternate)) { | |
373 | return $this->forlife_alternate; | |
8f2104cb | 374 | } |
72e12532 | 375 | return $this->email; |
3e53a496 FB |
376 | } |
377 | ||
08d33afc | 378 | /** Fetch existing auxiliary alias. |
3e53a496 | 379 | */ |
3e53a496 | 380 | public function emailAlias() |
3e53a496 | 381 | { |
06a548e5 SJ |
382 | $aliases = $this->emailAliases(); |
383 | if (count($aliases)) { | |
384 | return $aliases[0]; | |
8f2104cb FB |
385 | } |
386 | return null; | |
e7b93962 FB |
387 | } |
388 | ||
08d33afc | 389 | /** Fetch existing auxiliary aliases. |
8f2104cb | 390 | */ |
06a548e5 SJ |
391 | public function emailAliases() |
392 | { | |
393 | return XDB::fetchColumn('SELECT CONCAT(s.email, \'@\', d.name) | |
394 | FROM email_source_account AS s | |
395 | INNER JOIN email_virtual_domains AS m ON (s.domain = m.id) | |
396 | INNER JOIN email_virtual_domains AS d ON (d.aliasing = m.id) | |
08d33afc | 397 | WHERE s.uid = {?} AND s.type = \'alias_aux\' |
06a548e5 | 398 | ORDER BY d.name', |
08d33afc | 399 | $this->id()); |
3e53a496 FB |
400 | } |
401 | ||
06a548e5 | 402 | /** Get all group aliases the user belongs to. |
3e53a496 | 403 | */ |
06a548e5 SJ |
404 | public function emailGroupAliases($domain = null) |
405 | { | |
406 | if (is_null($domain)) { | |
407 | return XDB::fetchColumn('SELECT CONCAT(v.email, \'@\', dv.name) AS alias | |
408 | FROM email_virtual AS v | |
409 | INNER JOIN email_virtual_domains AS dv ON (v.domain = dv.id) | |
410 | INNER JOIN email_source_account AS s ON (s.uid = {?}) | |
411 | INNER JOIN email_virtual_domains AS ms ON (s.domain = ms.id) | |
412 | INNER JOIN email_virtual_domains AS ds ON (ds.aliasing = ms.id) | |
51c2c63a | 413 | WHERE v.redirect = CONCAT(s.email, \'@\', ds.name) AND v.type = \'alias\'', |
06a548e5 SJ |
414 | $this->id()); |
415 | } else { | |
a94fdc4e SJ |
416 | return XDB::fetchAllAssoc('alias', |
417 | 'SELECT CONCAT(v.email, \'@\', dv.name) AS alias, MAX(v.redirect = CONCAT(s.email, \'@\', ds.name)) AS sub | |
06a548e5 SJ |
418 | FROM email_virtual AS v |
419 | INNER JOIN email_virtual_domains AS dv ON (v.domain = dv.id AND dv.name = {?}) | |
420 | INNER JOIN email_source_account AS s ON (s.uid = {?}) | |
421 | INNER JOIN email_virtual_domains AS ms ON (s.domain = ms.id) | |
422 | INNER JOIN email_virtual_domains AS ds ON (ds.aliasing = ms.id) | |
51c2c63a | 423 | WHERE v.type = \'alias\' |
a94fdc4e SJ |
424 | GROUP BY v.email |
425 | ORDER BY v.email', | |
06a548e5 SJ |
426 | $domain, $this->id()); |
427 | } | |
e7b93962 | 428 | } |
38c6fe96 FB |
429 | |
430 | /** Get marketing informations | |
431 | */ | |
432 | private function fetchMarketingData() | |
433 | { | |
db8432d5 | 434 | if (isset($this->pending_registration_date)) { |
38c6fe96 FB |
435 | return; |
436 | } | |
db8432d5 SJ |
437 | $infos = XDB::fetchOneAssoc('SELECT rp.date AS pending_registration_date, rp.email AS pending_registration_email, |
438 | rm.last AS last_marketing_date, rm.email AS last_marketing_email | |
439 | FROM accounts AS a | |
440 | LEFT JOIN register_pending AS rp ON (rp.uid = a.uid) | |
441 | LEFT JOIN register_marketing AS rm ON (rm.uid = a.uid AND rm.last != \'0000-00-00\') | |
442 | WHERE a.uid = {?} | |
443 | ORDER BY rm.last DESC', $this->id()); | |
444 | if (is_null($infos)) { | |
445 | $infos = array( | |
446 | 'pending_registration_date' => null, | |
447 | 'pending_registration_email' => null, | |
448 | 'last_marketing_date' => null, | |
449 | 'last_marketing_email' => null | |
450 | ); | |
38c6fe96 FB |
451 | } |
452 | $this->fillFromArray($infos); | |
453 | } | |
454 | ||
db8432d5 | 455 | public function pendingRegistrationDate() |
38c6fe96 FB |
456 | { |
457 | $this->fetchMarketingData(); | |
db8432d5 SJ |
458 | return $this->pending_registration_date; |
459 | } | |
460 | ||
461 | public function pendingRegistrationEmail() | |
462 | { | |
463 | $this->fetchMarketingData(); | |
464 | return $this->pending_registration_email; | |
465 | } | |
466 | ||
467 | public function lastMarketingDate() | |
468 | { | |
469 | $this->fetchMarketingData(); | |
470 | return $this->last_marketing_date; | |
471 | } | |
472 | ||
473 | public function lastMarketingEmail() | |
474 | { | |
475 | $this->fetchMarketingData(); | |
476 | return $this->last_marketing_email; | |
38c6fe96 FB |
477 | } |
478 | ||
479 | public function lastKnownEmail() | |
480 | { | |
481 | $this->fetchMarketingData(); | |
db8432d5 SJ |
482 | if ($this->pending_registration_email > $this->last_marketing_date) { |
483 | return $this->pending_registration_email; | |
484 | } | |
485 | return $this->last_marketing_email; | |
38c6fe96 FB |
486 | } |
487 | ||
009b8ab7 | 488 | |
8d308ee4 FB |
489 | /** Format of the emails sent by the site |
490 | */ | |
491 | public function setEmailFormat($format) | |
492 | { | |
493 | Platal::assert($format == self::FORMAT_HTML || $format == self::FORMAT_TEXT, | |
494 | "Invalid email format \"$format\""); | |
495 | XDB::execute("UPDATE accounts | |
496 | SET email_format = {?} | |
497 | WHERE uid = {?}", | |
498 | $format, $this->uid); | |
499 | $this->email_format = $format; | |
500 | } | |
501 | ||
009b8ab7 FB |
502 | /** Get watch informations |
503 | */ | |
504 | private function fetchWatchData() | |
505 | { | |
506 | if (isset($this->watch_actions)) { | |
507 | return; | |
508 | } | |
509 | $watch = XDB::fetchOneAssoc('SELECT flags AS watch_flags, actions AS watch_actions, | |
510 | UNIX_TIMESTAMP(last) AS watch_last | |
511 | FROM watch | |
512 | WHERE uid = {?}', $this->id()); | |
513 | $watch['watch_flags'] = new PlFlagSet($watch['watch_flags']); | |
514 | $watch['watch_actions'] = new PlFlagSet($watch['watch_actions']); | |
515 | $watch['watch_promos'] = XDB::fetchColumn('SELECT promo | |
516 | FROM watch_promo | |
517 | WHERE uid = {?}', $this->id()); | |
518 | $watch['watch_users'] = XDB::fetchColumn('SELECT ni_id | |
519 | FROM watch_nonins | |
520 | WHERE uid = {?}', $this->id()); | |
521 | $this->fillFromArray($watch); | |
522 | } | |
523 | ||
a87530ea | 524 | public function watchType($type) |
009b8ab7 FB |
525 | { |
526 | $this->fetchWatchData(); | |
527 | return $this->watch_actions->hasFlag($type); | |
528 | } | |
529 | ||
530 | public function watchContacts() | |
531 | { | |
532 | $this->fetchWatchData(); | |
533 | return $this->watch_flags->hasFlag('contacts'); | |
534 | } | |
535 | ||
536 | public function watchEmail() | |
537 | { | |
538 | $this->fetchWatchData(); | |
539 | return $this->watch_flags->hasFlag('mail'); | |
540 | } | |
541 | ||
542 | public function watchPromos() | |
543 | { | |
544 | $this->fetchWatchData(); | |
545 | return $this->watch_promos; | |
546 | } | |
547 | ||
548 | public function watchUsers() | |
549 | { | |
550 | $this->fetchWatchData(); | |
551 | return $this->watch_users; | |
552 | } | |
553 | ||
554 | public function watchLast() | |
555 | { | |
556 | $this->fetchWatchData(); | |
557 | return $this->watch_last; | |
558 | } | |
559 | ||
069ddda8 FB |
560 | public function invalidWatchCache() |
561 | { | |
562 | unset($this->watch_actions); | |
563 | unset($this->watch_users); | |
564 | unset($this->watch_last); | |
565 | unset($this->watch_promos); | |
566 | } | |
567 | ||
c350577b FB |
568 | |
569 | // Contacts | |
570 | private $contacts = null; | |
48e683dd | 571 | private function fetchContacts() |
c350577b | 572 | { |
76cbe885 | 573 | if (is_null($this->contacts)) { |
c350577b FB |
574 | $this->contacts = XDB::fetchAllAssoc('contact', 'SELECT * |
575 | FROM contacts | |
576 | WHERE uid = {?}', | |
577 | $this->id()); | |
578 | } | |
48e683dd FB |
579 | } |
580 | ||
581 | public function iterContacts() | |
582 | { | |
583 | $this->fetchContacts(); | |
a289e967 | 584 | return Profile::iterOverPIDs(array_keys($this->contacts)); |
48e683dd FB |
585 | } |
586 | ||
587 | public function getContacts() | |
588 | { | |
589 | $this->fetchContacts(); | |
a289e967 | 590 | return Profile::getBulkProfilesWithPIDs(array_keys($this->contacts)); |
48e683dd FB |
591 | } |
592 | ||
26ba053e | 593 | public function isContact(Profile $profile) |
48e683dd FB |
594 | { |
595 | $this->fetchContacts(); | |
a289e967 | 596 | return isset($this->contacts[$profile->id()]); |
c350577b FB |
597 | } |
598 | ||
26ba053e | 599 | public function isWatchedUser(Profile $profile) |
958def08 PC |
600 | { |
601 | return in_array($profile->id(), $this->watchUsers()); | |
602 | } | |
603 | ||
f5ef8b57 RB |
604 | // Groupes X |
605 | private $groups = null; | |
56cd7aee | 606 | public function groups($institutions = false, $onlyPublic = false) |
f5ef8b57 RB |
607 | { |
608 | if (is_null($this->groups)) { | |
56cd7aee FB |
609 | $this->groups = XDB::fetchAllAssoc('asso_id', 'SELECT gm.asso_id, gm.perms, gm.comm, |
610 | g.diminutif, g.nom, g.site, g.cat, | |
611 | g.pub | |
612 | FROM group_members AS gm | |
613 | INNER JOIN groups AS g ON (g.id = gm.asso_id) | |
f5ef8b57 RB |
614 | WHERE uid = {?}', |
615 | $this->id()); | |
616 | } | |
56cd7aee FB |
617 | if (!$institutions && !$onlyPublic) { |
618 | return $this->groups; | |
fa589f90 | 619 | } else { |
56cd7aee FB |
620 | $result = array(); |
621 | foreach ($this->groups as $id=>$data) { | |
622 | if ($institutions) { | |
1d889ac4 | 623 | if ($data['cat'] != Group::CAT_GROUPESX && $data['cat'] != Group::CAT_INSTITUTIONS) { |
56cd7aee FB |
624 | continue; |
625 | } | |
626 | } | |
627 | if ($onlyPublic) { | |
628 | if ($data['pub'] != 'public') { | |
629 | continue; | |
630 | } | |
631 | } | |
632 | $result[$id] = $data; | |
633 | } | |
634 | return $result; | |
fa589f90 | 635 | } |
fa589f90 RB |
636 | } |
637 | ||
9a7f3d8e | 638 | public function groupCount() |
4257b11a | 639 | { |
9a7f3d8e SJ |
640 | return XDB::fetchOneCell('SELECT COUNT(DISTINCT(asso_id)) |
641 | FROM group_members | |
642 | WHERE uid = {?}', | |
643 | $this->id()); | |
4257b11a SJ |
644 | } |
645 | ||
7ae5c545 SJ |
646 | public function inGroup($asso_id) |
647 | { | |
648 | $res = XDB::fetchOneCell('SELECT COUNT(*) | |
649 | FROM group_members | |
650 | WHERE uid = {?} AND asso_id = {?}', | |
651 | $this->id(), $asso_id); | |
652 | return ($res > 0); | |
653 | } | |
654 | ||
6150f591 SJ |
655 | /** |
656 | * Clears a user. | |
657 | * *always deletes in: account_lost_passwords, register_marketing, | |
658 | * register_pending, register_subs, watch_nonins, watch, watch_promo | |
06a548e5 SJ |
659 | * *always keeps in: account_types, accounts, email_virtual, carvas, |
660 | * group_members, homonyms_list, newsletter_ins, register_mstats, email_source_account | |
6150f591 | 661 | * *deletes if $clearAll: account_auth_openid, announce_read, contacts, |
06a548e5 | 662 | * email_redirect_account, email_redirect_account, email_send_save, forum_innd, forum_profiles, |
6150f591 SJ |
663 | * forum_subs, gapps_accounts, gapps_nicknames, group_announces_read, |
664 | * group_member_sub_requests, reminder, requests, requests_hidden, | |
06a548e5 | 665 | * email_virtual, ML |
6150f591 SJ |
666 | * *modifies if $clearAll: accounts |
667 | * | |
668 | * Use cases: | |
669 | * *$clearAll == false: when a user dies, her family still needs to keep in | |
670 | * touch with the community. | |
671 | * *$clearAll == true: in every other case we want the account to be fully | |
672 | * deleted so that it can not be used anymore. | |
673 | */ | |
674 | public function clear($clearAll = true) | |
675 | { | |
405d70cc RB |
676 | $tables = array('account_lost_passwords', 'register_marketing', |
677 | 'register_pending', 'register_subs', 'watch_nonins', | |
678 | 'watch', 'watch_promo'); | |
679 | ||
680 | foreach ($tables as $t) { | |
681 | XDB::execute('DELETE FROM ' . $t . ' | |
682 | WHERE uid = {?}', | |
683 | $this->id()); | |
684 | } | |
6150f591 SJ |
685 | |
686 | if ($clearAll) { | |
c79e28fc SJ |
687 | global $globals; |
688 | ||
0e5b3438 SJ |
689 | $groupIds = XDB::iterator('SELECT asso_id |
690 | FROM group_members | |
691 | WHERE uid = {?}', | |
692 | $this->id()); | |
693 | while ($groupId = $groupIds->next()) { | |
694 | $group = Group::get($groupId); | |
c79e28fc | 695 | if (!empty($group) && $group->notif_unsub) { |
0e5b3438 SJ |
696 | $mailer = new PlMailer('xnetgrp/unsubscription-notif.mail.tpl'); |
697 | $admins = $group->iterAdmins(); | |
698 | while ($admin = $admins->next()) { | |
699 | $mailer->addTo($admin); | |
700 | } | |
701 | $mailer->assign('group', $group->shortname); | |
702 | $mailer->assign('user', $this); | |
703 | $mailer->assign('selfdone', false); | |
704 | $mailer->send(); | |
705 | } | |
706 | } | |
707 | ||
c79e28fc | 708 | $tables = array('account_auth_openid', 'announce_read', 'contacts', |
13b45814 | 709 | 'email_send_save', |
c79e28fc SJ |
710 | 'forum_innd', 'forum_profiles', 'forum_subs', |
711 | 'group_announces_read', 'group_members', | |
712 | 'group_member_sub_requests', 'reminder', 'requests', | |
06a548e5 | 713 | 'requests_hidden'); |
405d70cc RB |
714 | foreach ($tables as $t) { |
715 | XDB::execute('DELETE FROM ' . $t . ' | |
716 | WHERE uid = {?}', | |
c79e28fc SJ |
717 | $this->id()); |
718 | } | |
06a548e5 SJ |
719 | XDB::execute('DELETE FROM email_redirect_account |
720 | WHERE uid = {?} AND type != \'homonym\'', | |
721 | $this->id()); | |
13b45814 SJ |
722 | XDB::execute('DELETE FROM email_virtual |
723 | WHERE redirect = {?}', | |
724 | $this->forlifeEmail()); | |
c79e28fc SJ |
725 | |
726 | foreach (array('gapps_accounts', 'gapps_nicknames') as $t) { | |
727 | XDB::execute('DELETE FROM ' . $t . ' | |
728 | WHERE l_userid = {?}', | |
729 | $this->id()); | |
405d70cc RB |
730 | } |
731 | ||
6150f591 SJ |
732 | XDB::execute("UPDATE accounts |
733 | SET registration_date = 0, state = 'pending', password = NULL, | |
734 | weak_password = NULL, token = NULL, is_admin = 0 | |
735 | WHERE uid = {?}", | |
736 | $this->id()); | |
737 | ||
6150f591 SJ |
738 | if ($globals->mailstorage->googleapps_domain) { |
739 | require_once 'googleapps.inc.php'; | |
740 | ||
c79e28fc SJ |
741 | if (GoogleAppsAccount::account_status($this->id())) { |
742 | $account = new GoogleAppsAccount($this); | |
6150f591 SJ |
743 | $account->suspend(); |
744 | } | |
745 | } | |
746 | } | |
747 | ||
dec84555 | 748 | $mmlist = new MMList(S::user()); |
a85562a0 | 749 | $mmlist->kill($this->hruid, $clearAll); |
6150f591 SJ |
750 | } |
751 | ||
ab06182d | 752 | // Merge all infos in other user and then clean this one |
26ba053e | 753 | public function mergeIn(User $newuser) { |
33a4f3f9 SJ |
754 | if ($this->profile()) { |
755 | // Don't disable user with profile in this way. | |
756 | global $globals; | |
757 | Platal::page()->trigError('Impossible de fusionner les comptes ' . $this->hruid . ' et ' . $newuser->hruid . | |
758 | '. Contacte support@' . $globals->mail->domain . '.'); | |
ab06182d PC |
759 | return false; |
760 | } | |
ab06182d | 761 | |
33a4f3f9 SJ |
762 | if ($this->forlifeEmail()) { |
763 | // If the new user is not registered and does not have already an email address, | |
764 | // we need to give him the old user's email address if he has any. | |
765 | if (!$newuser->perms) { | |
766 | XDB::execute('UPDATE accounts | |
767 | SET email = {?} | |
768 | WHERE uid = {?} AND email IS NULL', | |
769 | $this->forlifeEmail(), $newuser->id()); | |
06a548e5 SJ |
770 | |
771 | // Reftech new user so its forlifeEmail will be correct. | |
772 | $newuser = getSilentWithUID($newuser->id()); | |
ab06182d | 773 | } |
33a4f3f9 | 774 | |
06a548e5 SJ |
775 | // Change email used in mailing lists. |
776 | if ($this->forlifeEmail() != $newuser->forlifeEmail()) { | |
33a4f3f9 SJ |
777 | // group mailing lists |
778 | $group_domains = XDB::fetchColumn('SELECT g.mail_domain | |
779 | FROM groups AS g | |
780 | INNER JOIN group_members AS gm ON(g.id = gm.asso_id) | |
781 | WHERE g.mail_domain != \'\' AND gm.uid = {?}', | |
782 | $this->id()); | |
783 | foreach ($group_domains as $mail_domain) { | |
784 | $mmlist = new MMList($this, $mail_domain); | |
06a548e5 | 785 | $mmlist->replace_email_in_all($this->forlifeEmail(), $newuser->forlifeEmail()); |
33a4f3f9 SJ |
786 | } |
787 | // main domain lists | |
788 | $mmlist = new MMList($this); | |
06a548e5 | 789 | $mmlist->replace_email_in_all($this->forlifeEmail(), $newuser->forlifeEmail()); |
33a4f3f9 SJ |
790 | } |
791 | } | |
792 | ||
793 | // Updates user in following tables. | |
7f376ae0 | 794 | foreach (array('group_announces', 'payment_transactions', 'log_sessions', 'group_events') as $table) { |
33a4f3f9 SJ |
795 | XDB::execute('UPDATE ' . $table . ' |
796 | SET uid = {?} | |
797 | WHERE uid = {?}', | |
798 | $newuser->id(), $this->id()); | |
799 | } | |
33a4f3f9 SJ |
800 | |
801 | // Merges user in following tables, ie updates when possible, then deletes remaining occurences of the old user. | |
06a548e5 | 802 | foreach (array('group_announces_read', 'group_event_participants', 'group_member_sub_requests', 'group_members', 'email_redirect_account') as $table) { |
33a4f3f9 SJ |
803 | XDB::execute('UPDATE IGNORE ' . $table . ' |
804 | SET uid = {?} | |
805 | WHERE uid = {?}', | |
806 | $newuser->id(), $this->id()); | |
807 | XDB::execute('DELETE FROM ' . $table . ' | |
808 | WHERE uid = {?}', | |
809 | $this->id()); | |
810 | } | |
ab06182d | 811 | |
33a4f3f9 SJ |
812 | // Eventually updates last session id and deletes old user's accounts entry. |
813 | $lastSession = XDB::fetchOneCell('SELECT id | |
814 | FROM log_sessions | |
815 | WHERE uid = {?} | |
816 | ORDER BY start DESC | |
817 | LIMIT 1', | |
818 | $newuser->id()); | |
819 | XDB::execute('UPDATE log_last_sessions | |
820 | SET id = {?} | |
821 | WHERE uid = {?}', | |
be281b31 | 822 | $lastSession, $newuser->id()); |
33a4f3f9 SJ |
823 | XDB::execute('DELETE FROM accounts |
824 | WHERE uid = {?}', | |
825 | $this->id()); | |
ab06182d PC |
826 | |
827 | return true; | |
828 | } | |
829 | ||
50d5ec0b | 830 | // Return permission flags for a given permission level. |
365ba8c3 | 831 | public static function makePerms($perms, $is_admin) |
50d5ec0b | 832 | { |
365ba8c3 | 833 | $flags = new PlFlagSet($perms); |
50d5ec0b | 834 | $flags->addFlag(PERMS_USER); |
365ba8c3 | 835 | if ($is_admin) { |
50d5ec0b FB |
836 | $flags->addFlag(PERMS_ADMIN); |
837 | } | |
7fd6dbb3 FB |
838 | |
839 | // Access to private directory implies access to 'less'-private version. | |
840 | if ($flags->hasFlag('directory_private')) { | |
841 | $flags->addFlag('directory_ax'); | |
842 | } | |
50d5ec0b FB |
843 | return $flags; |
844 | } | |
845 | ||
b1719b13 VZ |
846 | // Implementation of the default user callback. |
847 | public static function _default_user_callback($login, $results) | |
848 | { | |
b1719b13 | 849 | $result_count = count($results); |
dd70cd28 | 850 | if ($result_count == 0 || !S::admin()) { |
70232020 | 851 | Platal::page()->trigError("Il n'y a pas d'utilisateur avec l'identifiant : $login"); |
b1719b13 | 852 | } else { |
70232020 | 853 | Platal::page()->trigError("Il y a $result_count utilisateurs avec cet identifiant : " . join(', ', $results)); |
b1719b13 VZ |
854 | } |
855 | } | |
70232020 | 856 | |
f88d9154 SJ |
857 | public static function makeHomonymHrmid($alias) |
858 | { | |
859 | return 'h.' . $alias . '.' . Platal::globals()->mail->domain; | |
860 | } | |
861 | ||
f036c896 | 862 | public static function isMainMailDomain($domain) |
70232020 VZ |
863 | { |
864 | global $globals; | |
70232020 | 865 | |
f036c896 SJ |
866 | $is_main_domain = false; |
867 | foreach (self::$sub_mail_domains as $sub_domain) { | |
ca2f19b8 | 868 | $is_main_domain = $is_main_domain || $domain == ($sub_domain . $globals->mail->domain) || $domain == ($sub_domain . $globals->mail->domain2); |
f036c896 SJ |
869 | } |
870 | return $is_main_domain; | |
70232020 | 871 | } |
832e6fcb | 872 | |
f036c896 | 873 | public static function isAliasMailDomain($domain) |
aa21c568 FB |
874 | { |
875 | global $globals; | |
f036c896 SJ |
876 | |
877 | return $domain == $globals->mail->alias_dom || $domain == $globals->mail->alias_dom2; | |
878 | } | |
879 | ||
880 | // Implementation of the static email locality checker. | |
881 | public static function isForeignEmailAddress($email) | |
882 | { | |
aa21c568 FB |
883 | if (strpos($email, '@') === false) { |
884 | return false; | |
885 | } | |
886 | ||
f036c896 SJ |
887 | list(, $domain) = explode('@', $email); |
888 | return !(self::isMainMailDomain($domain) || self::isAliasMailDomain($domain)); | |
aa21c568 FB |
889 | } |
890 | ||
61a7d279 SJ |
891 | /* Tries to find pending accounts with an hruid close to $login. */ |
892 | public static function getPendingAccounts($login, $iterator = false) | |
893 | { | |
61a7d279 SJ |
894 | if (strpos($login, '@') === false) { |
895 | return null; | |
896 | } | |
897 | ||
898 | list($login, $domain) = explode('@', $login); | |
899 | ||
f036c896 | 900 | if ($domain && !self::isMainMailDomain($domain)) { |
61a7d279 SJ |
901 | return null; |
902 | } | |
903 | ||
904 | $sql = "SELECT uid, full_name | |
905 | FROM accounts | |
906 | WHERE state = 'pending' AND REPLACE(hruid, '-', '') LIKE | |
907 | CONCAT('%', REPLACE(REPLACE(REPLACE({?}, ' ', ''), '-', ''), '\'', ''), '%') | |
908 | ORDER BY full_name"; | |
909 | if ($iterator) { | |
910 | return XDB::iterator($sql, $login); | |
911 | } else { | |
912 | $res = XDB::query($sql, $login); | |
913 | return $res->fetchAllAssoc(); | |
914 | } | |
915 | } | |
916 | ||
917 | ||
0d906109 RB |
918 | public static function iterOverUIDs($uids, $respect_order = true) |
919 | { | |
920 | return new UserIterator(self::loadMainFieldsFromUIDs($uids, $respect_order)); | |
921 | } | |
922 | ||
923 | /** Fetch a set of users from a list of UIDs | |
924 | * @param $data The list of uids to fetch, or an array of arrays | |
925 | * @param $orig If $data is an array of arrays, the subfield where uids are stored | |
926 | * @param $dest If $data is an array of arrays, the subfield to fill with Users | |
927 | * @param $fetchProfile Whether to fetch Profiles as well | |
928 | * @return either an array of $uid => User, or $data with $data[$i][$dest] = User | |
929 | */ | |
b774ddab | 930 | public static function getBulkUsersWithUIDs(array $data, $orig = null, $dest = null, $fetchProfile = true) |
832e6fcb | 931 | { |
07eb5b0e FB |
932 | // Fetch the list of uids |
933 | if (is_null($orig)) { | |
934 | $uids = $data; | |
935 | } else { | |
936 | if (is_null($dest)) { | |
937 | $dest = $orig; | |
938 | } | |
939 | $uids = array(); | |
940 | foreach ($data as $key=>$entry) { | |
941 | if (isset($entry[$orig])) { | |
942 | $uids[] = $entry[$orig]; | |
943 | } | |
944 | } | |
945 | } | |
946 | ||
947 | // Fetch users | |
38c6fe96 | 948 | if (count($uids) == 0) { |
07eb5b0e | 949 | return $data; |
38c6fe96 | 950 | } |
0d906109 RB |
951 | $users = self::iterOverUIDs($uids, true); |
952 | ||
d865c296 | 953 | $table = array(); |
b774ddab | 954 | if ($fetchProfile) { |
0d906109 | 955 | $profiles = Profile::iterOverUIDS($uids, true); |
7a8da8e8 PC |
956 | if ($profiles != null) { |
957 | $profile = $profiles->next(); | |
958 | } else { | |
959 | $profile = null; | |
960 | } | |
b774ddab | 961 | } |
0d906109 RB |
962 | |
963 | /** We iterate through the users, moving in | |
964 | * profiles when they match the user ID : | |
965 | * there can be users without a profile, but not | |
966 | * the other way around. | |
967 | */ | |
968 | while (($user = $users->next())) { | |
b774ddab | 969 | if ($fetchProfile) { |
7a8da8e8 | 970 | if ($profile != null && $profile->owner_id == $user->id()) { |
0d906109 RB |
971 | $user->_profile = $profile; |
972 | $profile = $profiles->next(); | |
b774ddab FB |
973 | } |
974 | $user->_profile_fetched = true; | |
975 | } | |
0d906109 | 976 | $table[$user->id()] = $user; |
d865c296 | 977 | } |
07eb5b0e FB |
978 | |
979 | // Build the result with respect to input order. | |
980 | if (is_null($orig)) { | |
0d906109 | 981 | return $table; |
07eb5b0e FB |
982 | } else { |
983 | foreach ($data as $key=>$entry) { | |
984 | if (isset($entry[$orig])) { | |
985 | $entry[$dest] = $table[$entry[$orig]]; | |
986 | $data[$key] = $entry; | |
987 | } | |
988 | } | |
989 | return $data; | |
832e6fcb | 990 | } |
07eb5b0e FB |
991 | } |
992 | ||
b774ddab | 993 | public static function getBulkUsersFromDB($fetchProfile = true) |
07eb5b0e FB |
994 | { |
995 | $args = func_get_args(); | |
996 | $uids = call_user_func_array(array('XDB', 'fetchColumn'), $args); | |
b774ddab | 997 | return self::getBulkUsersWithUIDs($uids, null, null, $fetchProfile); |
832e6fcb | 998 | } |
9f8ebb9f VZ |
999 | } |
1000 | ||
0d906109 RB |
1001 | /** Iterator over a set of Users |
1002 | * @param an XDB::Iterator obtained from a User::loadMainFieldsFromUIDs | |
1003 | */ | |
1004 | class UserIterator implements PlIterator | |
1005 | { | |
1006 | private $dbiter; | |
1007 | ||
1008 | public function __construct($dbiter) | |
1009 | { | |
1010 | $this->dbiter = $dbiter; | |
1011 | } | |
1012 | ||
1013 | public function next() | |
1014 | { | |
1015 | $data = $this->dbiter->next(); | |
1016 | if ($data == null) { | |
1017 | return null; | |
1018 | } else { | |
1019 | return User::getSilentWithValues(null, $data); | |
1020 | } | |
1021 | } | |
1022 | ||
1023 | public function total() | |
1024 | { | |
1025 | return $this->dbiter->total(); | |
1026 | } | |
1027 | ||
1028 | public function first() | |
1029 | { | |
1030 | return $this->dbiter->first(); | |
1031 | } | |
1032 | ||
1033 | public function last() | |
1034 | { | |
1035 | return $this->dbiter->last(); | |
1036 | } | |
1037 | } | |
1038 | ||
9f8ebb9f VZ |
1039 | // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: |
1040 | ?> |