<?php
/***************************************************************************
- * Copyright (C) 2003-2004 Polytechnique.org *
+ * Copyright (C) 2003-2008 Polytechnique.org *
* http://opensource.polytechnique.org/ *
* *
* This program is free software; you can redistribute it and/or modify *
require_once("xorg.misc.inc.php");
-// {{{ defines
-
define("SUCCESS", 1);
define("ERROR_INACTIVE_REDIRECTION", 2);
define("ERROR_INVALID_EMAIL", 3);
define("ERROR_LOOP_EMAIL", 4);
-// }}}
-// {{{ function fix_bestalias()
-
+// function fix_bestalias() {{{1
+// Checks for an existing 'bestalias' among the the current user's aliases, and
+// eventually selects a new bestalias when required.
function fix_bestalias($uid)
{
- global $globals;
- $res = $globals->xdb->query("SELECT COUNT(*) FROM aliases WHERE id={?} AND FIND_IN_SET('bestalias',flags) AND type!='homonyme'", $uid);
- if ($n = $res->fetchOneCell()) {
+ $res = XDB::query("SELECT COUNT(*)
+ FROM aliases
+ WHERE id = {?} AND FIND_IN_SET('bestalias', flags) AND type != 'homonyme'",
+ $uid);
+ if ($res->fetchOneCell()) {
return;
}
- $globals->xdb->execute("UPDATE aliases
- SET flags=CONCAT(flags,',','bestalias')
- WHERE id={?} AND type!='homonyme'
- ORDER BY !FIND_IN_SET('usage',flags),alias LIKE '%.%', LENGTH(alias)
- LIMIT 1", $uid);
-}
-// }}}
-// {{{ function valide_email()
+ XDB::execute("UPDATE aliases
+ SET flags=CONCAT(flags,',','bestalias')
+ WHERE id={?} AND type!='homonyme'
+ ORDER BY !FIND_IN_SET('usage',flags),alias LIKE '%.%', LENGTH(alias)
+ LIMIT 1", $uid);
+}
+// function valide_email() {{{1
+// Returns a cleaned-up version of the @p email string. It removes garbage
+// characters, and determines the canonical form (without _ and +) for
+// Polytechnique.org email addresses.
function valide_email($str)
{
- $em = trim(rtrim($str));
- $em = str_replace('<', '', $em);
- $em = str_replace('>', '', $em);
- list($ident, $dom) = explode('@', $em);
- if ($dom == $globals->mail->domain or $dom == $globals->mail->domain2) {
- list($ident1) = explode('_', $ident);
- list($ident) = explode('+', $ident1);
- }
- return $ident . '@' . $dom;
-}
+ global $globals;
-// }}}
-// {{{ class Bogo
+ $em = trim(rtrim($str));
+ $em = str_replace('<', '', $em);
+ $em = str_replace('>', '', $em);
+ list($ident, $dom) = explode('@', $em);
+ if ($dom == $globals->mail->domain or $dom == $globals->mail->domain2) {
+ list($ident1) = explode('_', $ident);
+ list($ident) = explode('+', $ident1);
+ }
+ return $ident . '@' . $dom;
+}
+// class Bogo {{{1
+// The Bogo class represents a spam filtering level in plat/al architecture.
class Bogo
{
- // {{{ properties
-
- var $state;
- var $_states = Array('let_spams', 'tag_spams', 'tag_and_drop_spams', 'drop_spams');
-
- // }}}
- // {{{ constructor
-
- function Bogo($uid)
+ // properties {{{2
+
+ private $uid;
+ private $state;
+ private $_states = Array('let_spams', 'tag_spams', 'tag_and_drop_spams', 'drop_spams');
+
+ // constructor {{{2
+
+ public function __construct($uid)
{
- global $globals;
- $res = $globals->xdb->query('SELECT email FROM emails WHERE uid={?} AND flags="filter"', $uid);
- if ($res->numRows()) {
+ if (!$uid) {
+ return;
+ }
+
+ $this->uid = $uid;
+ $res = XDB::query('SELECT email FROM emails WHERE uid={?} AND flags="filter"', $uid);
+ if ($res->numRows()) {
$this->state = $res->fetchOneCell();
- } else {
- $this->state = 'tag_and_drop_spams';
- $res = $globals->xdb->query("INSERT INTO emails (uid,email,rewrite,panne,flags)
- VALUES ({?},'tag_and_drop_spams','','0000-00-00','filter')", $uid);
- }
+ } else {
+ $this->state = 'tag_and_drop_spams';
+ $res = XDB::query("INSERT INTO emails (uid,email,rewrite,panne,flags)
+ VALUES ({?},'tag_and_drop_spams','','0000-00-00','filter')", $uid);
+ }
}
- // }}}
- // {{{ function change()
+ // public function change() {{{2
- function change($uid, $state)
+ public function change($state)
{
- global $globals;
- $this->state = is_int($state) ? $this->_states[$state] : $state;
- $globals->xdb->execute('UPDATE emails SET email={?} WHERE uid={?} AND flags = "filter"', $this->state, $uid);
+ $this->state = is_int($state) ? $this->_states[$state] : $state;
+ XDB::execute('UPDATE emails SET email={?} WHERE uid={?} AND flags = "filter"',
+ $this->state, $this->uid);
}
- // }}}
- // {{{ function level()
-
- function level()
- { return array_search($this->state, $this->_states); }
+ // pubic function level() {{{2
- // }}}
+ public function level()
+ {
+ return array_search($this->state, $this->_states);
+ }
}
-// }}}
-// {{{ class Email
-
-class Email
+// class Email {{{1
+// Represents an "email address" used as final recipient for plat/al-managed
+// addresses; it can be subclasses a Redirection emails (third-party) or as
+// Storage emails (Polytechnique.org).
+abstract class Email
{
- // {{{ properties
-
- var $email;
- var $active;
- var $rewrite;
- var $panne;
+ protected $uid;
+
+ // Basic email properties; $sufficient indicates if the email can be used as
+ // an unique redirection; $email contains the delivery email address.
+ public $type;
+ public $sufficient;
+ public $email;
+ public $display_email;
+
+ // Redirection status properties.
+ public $active;
+ public $broken;
+ public $disabled;
+ public $rewrite;
+
+ // Redirection bounces stats.
+ public $panne;
+ public $last;
+ public $panne_level;
+
+ // Activates the email address as a redirection.
+ public abstract function activate();
+
+ // Deactivates the email address as a redirection.
+ public abstract function deactivate();
+
+ // Sets the rewrite rule for the given address.
+ public abstract function set_rewrite($rewrite);
+
+ // Resets the error counts associated with the redirection.
+ public abstract function clean_errors();
+
+ // Email backend capabilities ('rewrite' refers to From: rewrite for mails
+ // forwarded by Polytechnique.org's MXs; 'removable' indicates if the email
+ // can be definitively removed; 'disable' indicates if the email has a third
+ // status 'disabled' in addition to 'active' and 'inactive').
+ public abstract function has_rewrite();
+ public abstract function is_removable();
+ public abstract function has_disable();
+}
- // }}}
- // {{{ constructor
+// class EmailRedirection {{{1
+// Implementation of Email for third-party redirection (redirection of emails to
+// external user-supplied addresses).
+class EmailRedirection extends Email
+{
+ // constructor {{{2
- function Email($row)
+ public function __construct($uid, $row)
{
- list($this->email, $this->active, $this->rewrite, $this->panne) = $row;
+ $this->uid = $uid;
+ $this->sufficient = true;
+
+ list($this->email, $flags, $this->rewrite, $this->panne, $this->last, $this->panne_level) = $row;
+ $this->display_email = $this->email;
+ $this->active = ($flags == 'active');
+ $this->broken = ($flags == 'panne');
+ $this->disabled = ($flags == 'disable');
}
- // }}}
- // {{{ function activate()
+ // public function activate() {{{2
- function activate($uid)
+ public function activate()
{
- global $globals;
if (!$this->active) {
- $globals->xdb->execute("UPDATE emails SET flags = 'active'
- WHERE uid={?} AND email={?}", $uid, $this->email);
- $_SESSION['log']->log("email_on", $this->email.($uid!=Session::getInt('uid') ? "(admin on $uid)" : ""));
+ XDB::execute("UPDATE emails
+ SET panne_level = IF(flags = 'panne', panne_level - 1, panne_level),
+ flags = 'active'
+ WHERE uid={?} AND email={?}", $this->uid, $this->email);
+ $_SESSION['log']->log("email_on", $this->email.($this->uid!=S::v('uid') ? "(admin on {$this->uid})" : ""));
$this->active = true;
+ $this->broken = false;
}
}
- // }}}
- // {{{ function deactivate()
+ // public function deactivate() {{{2
- function deactivate($uid)
+ public function deactivate()
{
- global $globals;
if ($this->active) {
- $globals->xdb->execute("UPDATE emails SET flags =''
- WHERE uid={?} AND email={?}", $uid, $this->email);
- $_SESSION['log']->log("email_off",$this->email.($uid!=Session::getInt('uid') ? "(admin on $uid)" : "") );
+ XDB::execute("UPDATE emails SET flags =''
+ WHERE uid={?} AND email={?}", $this->uid, $this->email);
+ $_SESSION['log']->log("email_off",$this->email.($this->uid != S::v('uid') ? "(admin on {$this->uid})" : "") );
$this->active = false;
}
}
-
- // }}}
- // {{{ function rewrite()
- function rewrite($rew, $uid)
+ // public function set_rewrite() {{{2
+
+ public function set_rewrite($rewrite)
{
- global $globals;
- if ($this->rewrite == $rew) {
+ if ($this->rewrite == $rewrite) {
return;
}
- $globals->xdb->execute('UPDATE emails SET rewrite={?} WHERE uid={?} AND email={?}', $rew, $uid, $this->email);
- $this->rewrite = $rew;
- return;
+ if (!$rewrite || !isvalid_email($rewrite)) {
+ $rewrite = '';
+ }
+ XDB::execute('UPDATE emails SET rewrite={?} WHERE uid={?} AND email={?}', $rewrite, $this->uid, $this->email);
+ $this->rewrite = $rewrite;
+ return;
+ }
+
+ // public function clean_errors() {{{2
+
+ public function clean_errors()
+ {
+ if (!S::has_perms()) {
+ return false;
+ }
+ $this->panne = 0;
+ $this->panne_level = 0;
+ $this->last = 0;
+ return XDB::execute("UPDATE emails
+ SET panne_level = 0, panne = 0, last = 0
+ WHERE uid = {?} AND email = {?}",
+ $this->uid, $this->email);
+ }
+
+ // public function has_rewrite() {{{2
+
+ public function has_rewrite()
+ {
+ return true;
}
- // }}}
+ // public function is_removable() {{{2
+
+ public function is_removable()
+ {
+ return true;
+ }
+
+ // public function has_disable() {{{2
+
+ public function has_disable()
+ {
+ return true;
+ }
}
-// }}}
-// {{{ class Redirect
+// class EmailStorage {{{1
+// Implementation of Email for email storage backends from Polytechnique.org.
+class EmailStorage extends Email
+{
+ // Shortname to realname mapping for known mail storage backends.
+ private $display_names = array(
+ 'imap' => 'Accès de secours aux emails (IMAP)',
+ 'googleapps' => 'Compte Google Apps',
+ );
+
+ // Retrieves the current list of actives storages.
+ private function get_storages()
+ {
+ $res = XDB::query("SELECT mail_storage
+ FROM auth_user_md5
+ WHERE user_id = {?}", $this->uid);
+ return new FlagSet($res->fetchOneCell());
+ }
+
+ // Updates the list of active storages.
+ private function set_storages($storages)
+ {
+ XDB::execute("UPDATE auth_user_md5
+ SET mail_storage = {?}
+ WHERE user_id = {?}", $storages, $this->uid);
+ }
+
+ // Returns the list of allowed storages for the @p user.
+ static public function get_allowed_storages($uid)
+ {
+ global $globals;
+ $storages = array();
+
+ // Google Apps storage is available for users with valid Google Apps account.
+ require_once 'googleapps.inc.php';
+ if ($globals->mailstorage->googleapps_domain &&
+ GoogleAppsAccount::account_status($uid) == 'active') {
+ $storages[] = 'googleapps';
+ }
+
+ // IMAP storage is always visible to administrators, and is allowed for
+ // everyone when the service is marked as 'active'.
+ if ($globals->mailstorage->imap_active || S::has_perms()) {
+ $storages[] = 'imap';
+ }
+
+ return $storages;
+ }
+
+
+ public function __construct($uid, $name)
+ {
+ $this->uid = $uid;
+ $this->email = $name;
+ $this->display_email = (isset($this->display_names[$name]) ? $this->display_names[$name] : $name);
+
+ $storages = $this->get_storages();
+ $this->sufficient = ($name == 'googleapps');
+ $this->active = $storages->hasFlag($name);
+ $this->broken = false;
+ $this->disabled = false;
+ $this->rewrite = '';
+ $this->panne = $this->last = $this->panne_level = 0;
+ }
+
+ public function activate()
+ {
+ if (!$this->active) {
+ $storages = $this->get_storages();
+ $storages->addFlag($this->email);
+ $this->set_storages($storages);
+ $this->active = true;
+ }
+ }
+
+ public function deactivate()
+ {
+ if ($this->active) {
+ $storages = $this->get_storages();
+ $storages->rmFlag($this->email);
+ $this->set_storages($storages);
+ $this->active = false;
+ }
+
+ }
+
+ // Source rewrite can't be enabled for email storage addresses.
+ public function set_rewrite($rewrite) {}
+
+ // Email storage are not supposed to be broken, hence not supposed to be
+ // cleaned-up.
+ public function clean_errors() {}
+
+ // Capabilities.
+ public function has_rewrite() { return false; }
+ public function is_removable() { return false; }
+ public function has_disable() { return false; }
+}
+// class Redirect {{{1
+// Redirect is a placeholder class for an user's active redirections (third-party
+// redirection email, or Polytechnique.org mail storages).
class Redirect
{
- // {{{ properties
-
- var $flag_active = 'active';
- var $emails;
- var $bogo;
- var $uid;
+ // properties {{{2
+
+ private $flag_active = 'active';
+ private $uid;
+
+ public $emails;
+ public $bogo;
- // }}}
- // {{{ function Redirect()
+ // constructor {{{2
- function Redirect($_uid)
+ public function __construct($_uid)
{
- global $globals;
- $this->uid=$_uid;
- $res = $globals->xdb->iterRow("
- SELECT email, flags='active', rewrite, panne
- FROM emails WHERE uid = {?} AND flags != 'filter'", $_uid);
- $this->emails=Array();
+ $this->uid = $_uid;
+ $this->bogo = new Bogo($_uid);
+
+ // Adds third-party email redirections.
+ $res = XDB::iterRow("SELECT email, flags, rewrite, panne, last, panne_level
+ FROM emails
+ WHERE uid = {?} AND flags != 'filter'", $_uid);
+ $this->emails = Array();
while ($row = $res->next()) {
- $this->emails[] = new Email($row);
+ $this->emails[] = new EmailRedirection($_uid, $row);
+ }
+
+ // Adds local email storage backends.
+ foreach (EmailStorage::get_allowed_storages($_uid) as $storage) {
+ $this->emails[] = new EmailStorage($_uid, $storage);
}
- $this->bogo = new Bogo($_uid);
}
- // }}}
- // {{{ function other_active()
+ // public function other_active() {{{2
- function other_active($email)
+ public function other_active($email)
{
foreach ($this->emails as $mail) {
- if ($mail->email!=$email && $mail->active) {
+ if ($mail->email != $email && $mail->active && $mail->sufficient) {
return true;
}
}
return false;
}
- // }}}
- // {{{ function delete_email()
+ // public function delete_email() {{{2
- function delete_email($email)
+ public function delete_email($email)
{
- global $globals;
if (!$this->other_active($email)) {
return ERROR_INACTIVE_REDIRECTION;
}
- $globals->xdb->execute('DELETE FROM emails WHERE uid={?} AND email={?}', $this->uid, $email);
- $_SESSION['log']->log('email_del',$email.($this->uid!=Session::getInt('uid') ? " (admin on {$this->uid})" : ""));
- foreach ($this->emails as $i=>$mail) {
- if ($email==$mail->email) {
+ XDB::execute('DELETE FROM emails WHERE uid={?} AND email={?}', $this->uid, $email);
+ $_SESSION['log']->log('email_del',$email.($this->uid!=S::v('uid') ? " (admin on {$this->uid})" : ""));
+ foreach ($this->emails as $i => $mail) {
+ if ($email == $mail->email) {
unset($this->emails[$i]);
}
- }
+ }
+ check_redirect($this);
return SUCCESS;
}
- // }}}
- // {{{ function add_email()
-
- function add_email($email)
+ // public function add_email() {{{2
+
+ public function add_email($email)
{
- global $globals;
$email_stripped = strtolower(trim($email));
if (!isvalid_email($email_stripped)) {
return ERROR_INVALID_EMAIL;
if (!isvalid_email_redirection($email_stripped)) {
return ERROR_LOOP_EMAIL;
}
- $globals->xdb->execute('REPLACE INTO emails (uid,email,flags) VALUES({?},{?},"active")', $this->uid, $email);
- if ($logger = Session::getMixed('log', null)) { // may be absent --> step4.php
- $logger->log('email_add',$email.($this->uid!=Session::getInt('uid') ? " (admin on {$this->uid})" : ""));
+ XDB::execute('REPLACE INTO emails (uid,email,flags) VALUES({?},{?},"active")', $this->uid, $email);
+ if ($logger = S::v('log', null)) { // may be absent --> step4.php
+ $logger->log('email_add',$email.($this->uid!=S::v('uid') ? " (admin on {$this->uid})" : ""));
}
- foreach ($this->emails as $mail) {
- if ($mail->email == $email_stripped) {
+ foreach ($this->emails as $mail) {
+ if ($mail->email == $email_stripped) {
return SUCCESS;
}
- }
- $this->emails[] = new Email(array($email,1,'','0000-00-00'));
+ }
+ $this->emails[] = new EmailRedirection($this->uid, array($email, 'active', '', '0000-00-00', '0000-00-00', 0));
+
+ // security stuff
+ check_email($email, "Ajout d'une adresse surveillée aux redirections de " . $this->uid);
+ check_redirect($this);
return SUCCESS;
}
- // }}}
- // {{{ function modify_email()
+ // public function modify_email() {{{2
- function modify_email($emails_actifs,$emails_rewrite)
+ public function modify_email($emails_actifs, $emails_rewrite)
{
- global $globals;
- foreach ($this->emails as $i=>$mail) {
- if (in_array($mail->email,$emails_actifs)) {
- $this->emails[$i]->activate($this->uid);
- } else {
- $this->emails[$i]->deactivate($this->uid);
- }
- $this->emails[$i]->rewrite($emails_rewrite[$mail->email], $this->uid);
+ foreach ($this->emails as &$mail) {
+ if (in_array($mail->email, $emails_actifs)) {
+ $mail->activate();
+ } else {
+ $mail->deactivate();
+ }
+ $mail->set_rewrite($emails_rewrite[$mail->email]);
}
+ check_redirect($this);
}
- // }}}
-}
+ // public function modify_one_email() {{{2
+
+ public function modify_one_email($email, $activate)
+ {
+ $allinactive = true;
+ $thisone = false;
+ foreach ($this->emails as $i=>$mail) {
+ if ($mail->email == $email) {
+ $thisone = $i;
+ }
+ $allinactive &= !$mail->active || !$mail->sufficient || $mail->email == $email;
+ }
+ if ($thisone === false) {
+ return ERROR_INVALID_EMAIL;
+ }
+ if ($allinactive || $activate) {
+ $this->emails[$thisone]->activate();
+ } else {
+ $this->emails[$thisone]->deactivate();
+ }
+ check_redirect($this);
+ if ($allinactive && !$activate) {
+ return ERROR_INACTIVE_REDIRECTION;
+ } else {
+ return SUCCESS;
+ }
+ }
+
+ // public function modify_one_email_redirect() {{{2
+
+ public function modify_one_email_redirect($email, $redirect)
+ {
+ foreach ($this->emails as &$mail) {
+ if ($mail->email == $email) {
+ $mail->set_rewrite($redirect);
+ check_redirect($this);
+ return;
+ }
+ }
+ }
-// }}}
+ // function clean_errors() {{{2
+
+ public function clean_errors($email)
+ {
+ foreach ($this->emails as &$mail) {
+ if ($mail->email == $email) {
+ check_redirect($this);
+ return $mail->clean_errors();
+ }
+ }
+ return false;
+ }
+
+ // function disable() {{{2
+
+ public function disable()
+ {
+ XDB::execute("UPDATE emails
+ SET flags = 'disable'
+ WHERE flags = 'active' AND uid = {?}", $this->uid);
+ foreach ($this->emails as &$mail) {
+ if ($mail->active && $mail->has_disable()) {
+ $mail->disabled = true;
+ $mail->active = false;
+ }
+ }
+ check_redirect($this);
+ }
+
+ // function enable() {{{2
+
+ public function enable()
+ {
+ XDB::execute("UPDATE emails
+ SET flags = 'active'
+ WHERE flags = 'disable' AND uid = {?}", $this->uid);
+ foreach ($this->emails as &$mail) {
+ if ($mail->disabled) {
+ $mail->active = true;
+ $mail->disabled = false;
+ }
+ check_redirect($this);
+ }
+ }
+
+ // function get_broken_mx() {{{2
+
+ public function get_broken_mx()
+ {
+ $res = XDB::query("SELECT host, text
+ FROM mx_watch
+ WHERE state != 'ok'");
+ if (!$res->numRows()) {
+ return array();
+ }
+ $mxs = $res->fetchAllAssoc();
+ $mails = array();
+ foreach ($this->emails as &$mail) {
+ if ($mail->active && strstr($mail->email, '@') !== false) {
+ list(,$domain) = explode('@', $mail->email);
+ getmxrr($domain, $lcl_mxs);
+ if (empty($lcl_mxs)) {
+ $lcl_mxs = array($domain);
+ }
+ $broken = false;
+ foreach ($mxs as &$mx) {
+ foreach ($lcl_mxs as $lcl) {
+ if (fnmatch($mx['host'], $lcl)) {
+ $broken = $mx['text'];
+ break;
+ }
+ }
+ if ($broken) {
+ $mails[] = array('mail' => $mail->email, 'text' => $broken);
+ break;
+ }
+ }
+ }
+ }
+ return $mails;
+ }
+
+ // function active_emails() {{{2
+
+ public function active_emails()
+ {
+ $emails = array();
+ foreach ($this->emails as $mail) {
+ if ($mail->active) {
+ $emails[] = $mail;
+ }
+ }
+ return $emails;
+ }
+
+ // function get_uid() {{{2
+
+ public function get_uid()
+ {
+ return $this->uid;
+ }
+}
-// vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>
projects / platal.git / blobdiff