Displays antispam level in users email admin pages (Closes #1315).
[platal.git] / include / emails.inc.php
1 <?php
2 /***************************************************************************
3 * Copyright (C) 2003-2011 Polytechnique.org *
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
22 define('SUCCESS', 1);
23 define('ERROR_INACTIVE_REDIRECTION', 2);
24 define('ERROR_INVALID_EMAIL', 3);
25 define('ERROR_LOOP_EMAIL', 4);
26
27 function add_to_list_alias(User $user, $local_part, $domain, $type = 'alias')
28 {
29 Platal::assert($user !== null);
30
31 XDB::execute('INSERT IGNORE INTO email_virtual (email, domain, redirect, type)
32 SELECT {?}, id, {?}, {?}
33 FROM email_virtual_domains
34 WHERE name = {?}',
35 $local_part, $user->forlifeEmail(), $type, $domain);
36 }
37
38 function delete_from_list_alias(User $user, $local_part, $domain, $type = 'alias')
39 {
40 Platal::assert($user !== null);
41
42 XDB::execute('DELETE v
43 FROM email_virtual AS v
44 INNER JOIN email_virtual_domains AS m ON (v.domain = m.id)
45 INNER JOIN email_virtual_domains AS d ON (d.aliasing = m.id)
46 WHERE v.email = {?} AND d.name = {?} AND v.redirect = {?} AND type = {?}',
47 $local_part, $domain, $user->forlifeEmail(), $type);
48 }
49
50 function update_list_alias(User $user, $former_email, $local_part, $domain, $type = 'alias')
51 {
52 Platal::assert($user !== null);
53
54 XDB::execute('UPDATE email_virtual AS v
55 INNER JOIN email_virtual_domains AS d ON (v.domain = d.id)
56 SET v.redirect = {?}
57 WHERE v.redirect = {?} AND d.name = {?} AND v.email = {?} AND v.type = {?}',
58 $user->forlifeEmail(), $former_email, $domain, $local_part, $type);
59 }
60
61 function list_alias_members($local_part, $domain)
62 {
63 $emails = XDB::fetchColumn('SELECT DISTINCT(redirect)
64 FROM email_virtual AS v
65 INNER JOIN email_virtual_domains AS m ON (v.domain = m.id)
66 INNER JOIN email_virtual_domains AS d ON (d.aliasing = m.id)
67 WHERE v.email = {?} AND d.name = {?} AND type = \'alias\'',
68 $local_part, $domain);
69
70 $members = array();
71 foreach ($emails as $email) {
72 $members[] = User::getSilent($email);
73 }
74
75 return $members;
76 }
77
78 function delete_list_alias($local_part, $domain)
79 {
80 XDB::execute('DELETE v
81 FROM email_virtual AS v
82 INNER JOIN email_virtual_domains AS m ON (v.domain = m.id)
83 INNER JOIN email_virtual_domains AS d ON (d.aliasing = m.id)
84 WHERE v.email = {?} AND d.name = {?} AND type = \'alias\'',
85 $local_part, $domain);
86 }
87
88 function iterate_list_alias($domain)
89 {
90 return XDB::fetchColumn('SELECT CONCAT(v.email, \'@\', m.name)
91 FROM email_virtual AS v
92 INNER JOIN email_virtual_domains AS m ON (v.domain = m.id)
93 WHERE m.name = {?} AND v.type = \'alias\'
94 GROUP BY v.email',
95 $domain);
96 }
97
98 function create_list($local_part, $domain)
99 {
100 global $globals;
101
102 $redirect = $domain . '_' . $local_part . '+';
103 foreach(array('post', 'owner', 'admin', 'bounces', 'unsubscribe') as $suffix) {
104 XDB::execute('INSERT IGNORE INTO email_virtual (email, domain, redirect, type)
105 SELECT {?}, id, {?}, \'list\'
106 FROM email_virtual_domains
107 WHERE name = {?}',
108 ($suffix == 'post') ? $local_part : $local_part . '-' . $suffix,
109 $redirect . $suffix . '@' . $globals->lists->redirect_domain, $domain);
110 }
111 }
112
113 function delete_list($local_part, $domain)
114 {
115 global $globals;
116
117 $redirect = $domain . '_' . $local_part . '+';
118 foreach(array('post', 'owner', 'admin', 'bounces', 'unsubscribe') as $suffix) {
119 XDB::execute('DELETE email_virtual
120 WHERE redirect = {?} AND type = \'list\'',
121 $redirect . $suffix . '@' . $globals->lists->redirect_domain);
122 }
123 }
124
125 function list_exist($local_part, $domain)
126 {
127 return XDB::fetchOneCell('SELECT COUNT(*)
128 FROM email_virtual AS v
129 INNER JOIN email_virtual_domains AS m ON (v.domain = m.id)
130 INNER JOIN email_virtual_domains AS d ON (m.id = d.aliasing)
131 WHERE v.email = {?} AND d.name = {?}',
132 $local_part, $domain);
133 }
134
135 // function mark_broken_email() {{{1
136 function mark_broken_email($email, $admin = false)
137 {
138 $email = valide_email($email);
139 if (empty($email) || $email == '@') {
140 return;
141 }
142
143 $user = XDB::fetchOneAssoc('SELECT r1.uid, r1.broken_level != 0 AS broken, a.hruid, COUNT(r2.uid) AS nb_mails, a.full_name, s.email AS alias
144 FROM email_redirect_account AS r1
145 INNER JOIN accounts AS a ON (a.uid = r1.uid)
146 INNER JOIN email_source_account AS s ON (a.uid = s.uid AND s.flags = \'bestalias\')
147 LEFT JOIN email_redirect_account AS r2 ON (a.uid = r2.uid AND r1.redirect != r2.redirect AND
148 r2.broken_level = 0 AND r2.flags = \'active\' AND
149 (r2.type = \'smtp\' OR r2.type = \'googleapps\'))
150 WHERE r1.redirect = {?}
151 GROUP BY r1.uid', $email);
152
153 if ($user) {
154 // Mark address as broken.
155 if (!$user['broken']) {
156 XDB::execute('UPDATE email_redirect_account
157 SET broken_date = NOW(), last = NOW(), broken_level = 1
158 WHERE redirect = {?}', $email);
159 } elseif ($admin) {
160 XDB::execute('UPDATE email_redirect_account
161 SET last = CURDATE(), broken_level = broken_level + 1
162 WHERE redirect = {?} AND DATE_ADD(last, INTERVAL 14 DAY) < CURDATE()',
163 $email);
164 } else {
165 XDB::execute('UPDATE email_redirect_account
166 SET broken_level = 1
167 WHERE redirect = {?} AND broken_level = 0', $email);
168 }
169 }
170
171 return $user;
172 }
173
174 // function fix_bestalias() {{{1
175 // Checks for an existing 'bestalias' among the the current user's aliases, and
176 // eventually selects a new bestalias when required.
177 function fix_bestalias(User $user)
178 {
179 $count = XDB::fetchOneCell('SELECT COUNT(*)
180 FROM email_source_account
181 WHERE uid = {?} AND FIND_IN_SET(\'bestalias\', flags) AND expire IS NULL',
182 $user->id());
183
184 if ($count == 1) {
185 return;
186 } elseif ($count > 1) {
187 // If too many bestaliases, delete the bestalias flag from all this
188 // user's emails (this should never happen).
189 XDB::execute("UPDATE email_source_account
190 SET flags = TRIM(BOTH ',' FROM REPLACE(CONCAT(',', flags, ','), ',bestalias,', ','))
191 WHERE uid = {?}",
192 $user->id());
193 }
194
195 // If no bestalias is selected, we choose the shortest email which is not
196 // related to a usage name and contains a '.'.
197 XDB::execute("UPDATE email_source_account
198 SET flags = CONCAT_WS(',', IF(flags = '', NULL, flags), 'bestalias')
199 WHERE uid = {?} AND expire IS NULL
200 ORDER BY NOT FIND_IN_SET('usage', flags), email LIKE '%.%', LENGTH(email)
201 LIMIT 1",
202 $user->id());
203 }
204
205 // function valide_email() {{{1
206 // Returns a cleaned-up version of the @p email string. It removes garbage
207 // characters, and determines the canonical form (without _ and +) for
208 // Polytechnique.org email addresses.
209 function valide_email($str)
210 {
211 global $globals;
212
213 $em = trim(rtrim($str));
214 $em = str_replace('<', '', $em);
215 $em = str_replace('>', '', $em);
216 if (strpos($em, '@') === false) {
217 return;
218 }
219 list($ident, $dom) = explode('@', $em);
220 if ($dom == $globals->mail->domain || $dom == $globals->mail->domain2) {
221 list($ident1) = explode('_', $ident);
222 list($ident) = explode('+', $ident1);
223 }
224 return $ident . '@' . $dom;
225 }
226
227 // function isvalid_email_redirection() {{{1
228 /** Checks if an email is a suitable redirection.
229 * @param $email the email to check
230 * @return BOOL
231 */
232 function isvalid_email_redirection($email)
233 {
234 return isvalid_email($email) &&
235 !preg_match("/@(polytechnique\.(org|edu)|melix\.(org|net)|m4x\.org)$/", $email);
236 }
237
238 // function ids_from_mails() {{{1
239 // Converts an array of emails to an array of email => uid, where email is the
240 // given email when we found a matching user.
241 function ids_from_mails(array $emails)
242 {
243 global $globals;
244
245 // Removes duplicates, if any.
246 $emails = array_unique($emails);
247
248 // Formats and splits by domain type (locally managed or external) emails.
249 $domain_emails = array();
250 $other_emails = array();
251 foreach ($emails as $email) {
252 if (strpos($email, '@') === false) {
253 $user = $email;
254 $domain = $globals->mail->domain2;
255 } else {
256 list($user, $domain) = explode('@', $email);
257 }
258 if ($domain == $globals->mail->alias_dom || $domain == $globals->mail->alias_dom2
259 || $domain == $globals->mail->domain || $domain == $globals->mail->domain2) {
260 list($user) = explode('+', $user);
261 list($user) = explode('_', $user);
262 $domain_emails[$email] = strtolower($user . '@' . $domain);
263 } else {
264 $other_emails[$email] = strtolower($user . '@' . $domain);
265 }
266 }
267
268 // Retrieves emails from our domains.
269 $domain_uids = XDB::fetchAllAssoc('email',
270 'SELECT email, uid
271 FROM email_source_account
272 WHERE email IN {?}',
273 array_unique($domain_emails));
274
275 // Retrieves emails from redirections.
276 $other_uids = XDB::fetchAllAssoc('redirect',
277 'SELECT redirect, uid
278 FROM email_redirect_account
279 WHERE redirect IN {?}',
280 array_unique($other_emails));
281
282 // Associates given emails with the corresponding uid.
283 $uids = array();
284 foreach (array_merge($domain_emails, $other_emails) as $email => $canonical_email) {
285 if (array_key_exists($canonical_email, $domain_uids)) {
286 $uids[$email] = $domain_uids[$canonical_email];
287 } elseif (array_key_exists($canonical_email, $other_uids)) {
288 $uids[$email] = $other_uids[$canonical_email];
289 }
290 }
291
292 return $uids;
293 }
294
295 // class Bogo {{{1
296 // The Bogo class represents a spam filtering level in plat/al architecture.
297 class Bogo
298 {
299 public static $states = array(
300 0 => 'default',
301 1 => 'let_spams',
302 2 => 'tag_spams',
303 3 => 'tag_and_drop_spams',
304 4 => 'drop_spams'
305 );
306
307 private $user;
308 public $state;
309 public $single_state;
310 public $redirections;
311 public $single_redirection;
312
313 public function __construct(User $user)
314 {
315 if (!$user) {
316 return;
317 }
318
319 $this->user = &$user;
320 $res = XDB::fetchOneAssoc('SELECT COUNT(DISTINCT(action)) AS action_count, COUNT(redirect) AS redirect_count, action
321 FROM email_redirect_account
322 WHERE uid = {?} AND (type = \'smtp\' OR type = \'googleapps\') AND flags = \'active\'',
323 $user->id());
324 if ($res['redirect_count'] == 0) {
325 return;
326 }
327
328 $this->single_redirection = ($res['redirect_count'] == 1);
329 $this->redirections = XDB::fetchAllAssoc('SELECT IF(type = \'googleapps\', type, redirect) AS redirect, type, action
330 FROM email_redirect_account
331 WHERE uid = {?} AND (type = \'smtp\' OR type = \'googleapps\')
332 ORDER BY type, redirect',
333 $user->id());
334
335 foreach ($this->redirections AS &$redirection) {
336 $redirection['filter'] = array_search($redirection['action'], self::$states);
337 }
338 if ($res['action_count'] == 1) {
339 $this->state = array_search($res['action'], self::$states);
340 $this->single_state = true;
341 } else {
342 $this->single_state = $this->state = false;
343 }
344 }
345
346 public function changeAll($state)
347 {
348 Platal::assert($state >= 0 && $state < count(self::$states), 'Unknown antispam level.');
349
350 $this->state = $state;
351 XDB::execute('UPDATE email_redirect_account
352 SET action = {?}
353 WHERE uid = {?} AND (type = \'smtp\' OR type = \'googleapps\')',
354 self::$states[$this->state], $this->user->id());
355 }
356
357 public function change($redirection, $state)
358 {
359 Platal::assert($state >= 0 && $state < count(self::$states), 'Unknown antispam level.');
360
361 XDB::execute('UPDATE email_redirect_account
362 SET action = {?}
363 WHERE uid = {?} AND (type = {?} OR redirect = {?})',
364 self::$states[$state], $this->user->id(), $redirection, $redirection);
365 }
366 }
367
368 // class Email {{{1
369 // Represents an "email address" used as final recipient for plat/al-managed
370 // addresses.
371 class Email
372 {
373 // Lists fields to load automatically.
374 static private $field_names = array('rewrite', 'type', 'action', 'broken_date', 'broken_level', 'last', 'hash', 'allow_rewrite');
375
376 // Shortname to realname mapping for known mail storage backends.
377 static private $display_names = array(
378 'imap' => 'Accès de secours aux emails (IMAP)',
379 'googleapps' => 'Compte Google Apps',
380 );
381 static private $storage_domains = array(
382 'imap' => 'imap',
383 'googleapps' => 'g'
384 );
385
386 private $user;
387
388 // Basic email properties; $sufficient indicates if the email can be used as
389 // an unique redirection; $redirect contains the delivery email address.
390 public $type;
391 public $sufficient;
392 public $email;
393 public $display_email;
394 public $domain;
395 public $action;
396 public $filter_level;
397
398 // Redirection status properties.
399 public $active;
400 public $inactive;
401 public $broken;
402 public $disabled;
403 public $rewrite;
404 public $allow_rewrite;
405 public $hash;
406
407 // Redirection bounces stats.
408 public $last;
409 public $broken_level;
410 public $broken_date;
411
412 public function __construct(User $user, array $row)
413 {
414 foreach (self::$field_names as $field) {
415 if (array_key_exists($field, $row)) {
416 $this->$field = $row[$field];
417 }
418 }
419 $this->email = $row['redirect'];
420
421 if (array_key_exists($this->type, Email::$display_names)) {
422 $this->display_email = self::$display_names[$this->type];
423 } else {
424 $this->display_email = $this->email;
425 }
426 foreach (array('active', 'inactive', 'broken', 'disabled') as $status) {
427 $this->$status = ($status == $row['flags']);
428 }
429 $this->sufficient = ($this->type == 'smtp' || $this->type == 'googleapps');
430 $this->filter_level = ($this->type == 'imap') ? null : array_search($this->action, Bogo::$states);
431 $this->user = &$user;
432 }
433
434 // Activates the email address as a redirection.
435 public function activate()
436 {
437 if ($this->inactive) {
438 XDB::execute('UPDATE email_redirect_account
439 SET broken_level = IF(flags = \'broken\', broken_level - 1, broken_level), flags = \'active\'
440 WHERE uid = {?} AND redirect = {?}',
441 $this->user->id(), $this->email);
442 S::logger()->log('email_on', $this->email . ($this->user->id() != S::v('uid') ? "(admin on {$this->user->login()})" : ''));
443 $this->inactive = false;
444 $this->active = true;
445 }
446 }
447
448 // Deactivates the email address as a redirection.
449 public function deactivate()
450 {
451 if ($this->active) {
452 XDB::execute('UPDATE email_redirect_account
453 SET flags = \'inactive\'
454 WHERE uid = {?} AND redirect = {?}',
455 $this->user->id(), $this->email);
456 S::logger()->log('email_off', $this->email . ($this->user->id() != S::v('uid') ? "(admin on {$this->user->login()})" : "") );
457 $this->inactive = true;
458 $this->active = false;
459 }
460 }
461
462
463 // Sets the rewrite rule for the given address.
464 public function set_rewrite($rewrite)
465 {
466 if ($this->type != 'smtp' || $this->rewrite == $rewrite) {
467 return;
468 }
469 if (!$rewrite || !isvalid_email($rewrite)) {
470 $rewrite = '';
471 }
472 XDB::execute('UPDATE email_redirect_account
473 SET rewrite = {?}
474 WHERE uid = {?} AND redirect = {?} AND type = \'smtp\'',
475 $rewrite, $this->user->id(), $this->email);
476 $this->rewrite = $rewrite;
477 if (!$this->allow_rewrite) {
478 global $globals;
479 if (empty($this->hash)) {
480 $this->hash = rand_url_id();
481 XDB::execute('UPDATE email_redirect_account
482 SET hash = {?}
483 WHERE uid = {?} AND redirect = {?} AND type = \'smtp\'',
484 $this->hash, $this->user->id(), $this->email);
485 }
486 $mail = new PlMailer('emails/rewrite-in.mail.tpl');
487 $mail->assign('mail', $this);
488 $mail->assign('user', $this->user);
489 $mail->assign('baseurl', $globals->baseurl);
490 $mail->assign('sitename', $globals->core->sitename);
491 $mail->assign('to', $this->email);
492 $mail->send($this->user->isEmailFormatHtml());
493 }
494 }
495
496
497 // Resets the error counts associated with the redirection.
498 public function clean_errors()
499 {
500 if ($this->type != 'smtp') {
501 return;
502 }
503 if (!S::admin()) {
504 return false;
505 }
506 $this->broken = 0;
507 $this->broken_level = 0;
508 $this->last = 0;
509 return XDB::execute('UPDATE email_redirect_account
510 SET broken_level = 0, broken_date = 0, last = 0
511 WHERE uid = {?} AND redirect = {?} AND type = \'smtp\'',
512 $this->user->id(), $this->email);
513 }
514
515
516 // Email backend capabilities ('rewrite' refers to From: rewrite for mails
517 // forwarded by Polytechnique.org's MXs; 'removable' indicates if the email
518 // can be definitively removed; 'disable' indicates if the email has a third
519 // status 'disabled' in addition to 'active' and 'inactive').
520 public function has_rewrite()
521 {
522 return ($this->type == 'smtp');
523 }
524
525 public function is_removable()
526 {
527 return ($this->type == 'smtp');
528 }
529
530 public function has_disable()
531 {
532 return true;
533 }
534
535 public function is_redirection()
536 {
537 return ($this->type == 'smtp');
538 }
539
540 // Returns the list of allowed storages for the @p user.
541 static private function get_allowed_storages(User $user)
542 {
543 global $globals;
544 $storages = array();
545
546 // Google Apps storage is available for users with valid Google Apps account.
547 require_once 'googleapps.inc.php';
548 if ($globals->mailstorage->googleapps_domain &&
549 GoogleAppsAccount::account_status($user->id()) == 'active') {
550 $storages[] = 'googleapps';
551 }
552
553 // IMAP storage is always visible to administrators, and is allowed for
554 // everyone when the service is marked as 'active'.
555 if ($globals->mailstorage->imap_active || S::admin()) {
556 $storages[] = 'imap';
557 }
558
559 return $storages;
560 }
561
562 static public function activate_storage(User $user, $storage)
563 {
564 Platal::assert(in_array($storage, self::get_allowed_storages($user)));
565
566 if (!self::is_active_storage($user, $storage)) {
567 global $globals;
568
569 XDB::execute('INSERT INTO email_redirect_account (uid, type, redirect, flags)
570 VALUES ({?}, {?}, {?}, \'active\')',
571 $user->id(), $storage,
572 $user->hruid . '@' . self::$storage_domains[$storage] . '.' . $globals->mail->domain);
573 }
574 }
575
576 static public function deactivate_storage(User $user, $storage)
577 {
578 if (in_array($storage, self::$storage_domains)) {
579 XDB::execute('DELETE FROM email_redirect_account
580 WHERE uid = {?} AND type = {?}',
581 $user->id(), $storage);
582 }
583 }
584
585 static public function is_active_storage(User $user, $storage)
586 {
587 if (!in_array($storage, self::$storage_domains)) {
588 return false;
589 }
590 $res = XDB::fetchOneCell('SELECT COUNT(*)
591 FROM email_redirect_account
592 WHERE uid = {?} AND type = {?} AND flags = \'active\')',
593 $user->id(), $storage);
594 return !is_null($res) && $res > 0;
595 }
596 }
597 // class Redirect {{{1
598 // Redirect is a placeholder class for an user's active redirections (third-party
599 // redirection email, or Polytechnique.org mail storages).
600 class Redirect
601 {
602 private $flags = 'active';
603 private $user;
604
605 public $emails;
606 public $bogo;
607
608 public function __construct(User $user)
609 {
610 $this->user = &$user;
611 $this->bogo = new Bogo($user);
612
613 // Adds third-party email redirections.
614 $res = XDB::iterator('SELECT redirect, rewrite, type, action, broken_date, broken_level, last, flags, hash, allow_rewrite
615 FROM email_redirect_account
616 WHERE uid = {?} AND type != \'homonym\'',
617 $user->id());
618 $this->emails = array();
619 while ($row = $res->next()) {
620 $this->emails[] = new Email($user, $row);
621 }
622 }
623
624 public function other_active($email)
625 {
626 foreach ($this->emails as $mail) {
627 if ($mail->email != $email && $mail->active && $mail->sufficient) {
628 return true;
629 }
630 }
631 return false;
632 }
633
634 public function delete_email($email)
635 {
636 if (!$this->other_active($email)) {
637 return ERROR_INACTIVE_REDIRECTION;
638 }
639 XDB::execute('DELETE FROM email_redirect_account
640 WHERE uid = {?} AND redirect = {?} AND type != \'homonym\'',
641 $this->user->id(), $email);
642 S::logger()->log('email_del', $email . ($this->user->id() != S::v('uid') ? " (admin on {$this->user->login()})" : ""));
643 foreach ($this->emails as $i => $mail) {
644 if ($email == $mail->email) {
645 unset($this->emails[$i]);
646 }
647 }
648 check_redirect($this);
649 return SUCCESS;
650 }
651
652 public function add_email($email)
653 {
654 $email_stripped = strtolower(trim($email));
655 if (!isvalid_email($email_stripped)) {
656 return ERROR_INVALID_EMAIL;
657 }
658 if (!isvalid_email_redirection($email_stripped)) {
659 return ERROR_LOOP_EMAIL;
660 }
661 // If the email was already present for this user, we reset it to the default values, we thus use REPLACE INTO.
662 XDB::execute('REPLACE INTO email_redirect_account (uid, redirect, flags)
663 VALUES ({?}, {?}, \'active\')',
664 $this->user->id(), $email);
665 if ($logger = S::v('log', null)) { // may be absent --> step4.php
666 S::logger()->log('email_add', $email . ($this->user->id() != S::v('uid') ? " (admin on {$this->user->login()})" : ""));
667 }
668 foreach ($this->emails as $mail) {
669 if ($mail->email == $email_stripped) {
670 return SUCCESS;
671 }
672 }
673 $this->emails[] = new Email($this->user, array(
674 'redirect' => $email,
675 'rewrite' => '',
676 'type' => 'smtp',
677 'action' => 'default',
678 'broken_date' => '0000-00-00',
679 'broken_level' => 0,
680 'last' => '0000-00-00',
681 'flags' => 'active',
682 'hash' => null,
683 'allow_rewrite' => 0
684 ));
685
686 // security stuff
687 check_email($email, "Ajout d'une adresse surveillée aux redirections de " . $this->user->login());
688 check_redirect($this);
689 return SUCCESS;
690 }
691
692 public function modify_email($emails_actifs, $emails_rewrite)
693 {
694 foreach ($this->emails as &$email) {
695 if (in_array($email->email, $emails_actifs)) {
696 $email->activate();
697 } else {
698 $email->deactivate();
699 }
700 $email->set_rewrite($emails_rewrite[$email->email]);
701 }
702 check_redirect($this);
703 return SUCCESS;
704 }
705
706 public function modify_one_email($email, $activate)
707 {
708 $allinactive = true;
709 $thisone = false;
710 foreach ($this->emails as $i=>$mail) {
711 if ($mail->email == $email) {
712 $thisone = $i;
713 }
714 $allinactive &= !$mail->active || !$mail->sufficient || $mail->email == $email;
715 }
716 if ($thisone === false) {
717 return ERROR_INVALID_EMAIL;
718 }
719 if ($allinactive || $activate) {
720 $this->emails[$thisone]->activate();
721 } else {
722 $this->emails[$thisone]->deactivate();
723 }
724 check_redirect($this);
725 if ($allinactive && !$activate) {
726 return ERROR_INACTIVE_REDIRECTION;
727 }
728 return SUCCESS;
729 }
730
731 public function modify_one_email_redirect($email, $redirect)
732 {
733 foreach ($this->emails as &$mail) {
734 if ($mail->email == $email) {
735 $mail->set_rewrite($redirect);
736 check_redirect($this);
737 return;
738 }
739 }
740 }
741
742 public function clean_errors($email)
743 {
744 foreach ($this->emails as &$mail) {
745 if ($mail->email == $email) {
746 check_redirect($this);
747 return $mail->clean_errors();
748 }
749 }
750 return false;
751 }
752
753 public function disable()
754 {
755 XDB::execute("UPDATE email_redirect_account
756 SET flags = 'disable'
757 WHERE flags = 'active' AND uid = {?}", $this->user->id());
758 foreach ($this->emails as &$mail) {
759 if ($mail->active && $mail->has_disable()) {
760 $mail->disabled = true;
761 $mail->active = false;
762 }
763 }
764 check_redirect($this);
765 }
766
767 public function enable()
768 {
769 XDB::execute("UPDATE email_redirect_account
770 SET flags = 'active'
771 WHERE flags = 'disable' AND uid = {?}", $this->user->id());
772 foreach ($this->emails as &$mail) {
773 if ($mail->disabled) {
774 $mail->disabled = false;
775 $mail->active = true;
776 }
777 check_redirect($this);
778 }
779 }
780
781 public function get_broken_mx()
782 {
783 $res = XDB::query("SELECT host, text
784 FROM mx_watch
785 WHERE state != 'ok'");
786 if (!$res->numRows()) {
787 return array();
788 }
789 $mxs = $res->fetchAllAssoc();
790 $mails = array();
791 foreach ($this->emails as &$mail) {
792 if ($mail->active && strstr($mail->email, '@') !== false) {
793 list(,$domain) = explode('@', $mail->email);
794 getmxrr($domain, $lcl_mxs);
795 if (empty($lcl_mxs)) {
796 $lcl_mxs = array($domain);
797 }
798 $broken = false;
799 foreach ($mxs as &$mx) {
800 foreach ($lcl_mxs as $lcl) {
801 if (fnmatch($mx['host'], $lcl)) {
802 $broken = $mx['text'];
803 break;
804 }
805 }
806 if ($broken) {
807 $mails[] = array('mail' => $mail->email, 'text' => $broken);
808 break;
809 }
810 }
811 }
812 }
813 return $mails;
814 }
815
816 public function active_emails()
817 {
818 $emails = array();
819 foreach ($this->emails as $mail) {
820 if ($mail->active) {
821 $emails[] = $mail;
822 }
823 }
824 return $emails;
825 }
826
827 public function get_uid()
828 {
829 return $this->user->id();
830 }
831 }
832
833 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
834 ?>