***************************************************************************/
/**
- * Requires destruction of aliases: a first notification 10 days before
+ * Requires destruction of aliases: a first notification 7 days before
* destruction, a second on the date.
*/
require 'connect.db.inc.php';
$resRobot = XDB::iterator("SELECT uid, email, expire
FROM email_source_account
- WHERE (expire = NOW() + INTERVAL 7 DAY OR expire <= NOW())");
+ WHERE expire <= NOW() + INTERVAL 7 DAY");
while ($old = $resRobot->next()) {
$res = XDB::query('SELECT a.hruid
FROM homonyms_list AS h
15 * * * * web cd $WD; ./newsletters.send.php | mail -e -s "Envoi des NLs des groupes" br@staff.m4x.org
# homonymes
-0 0 4 * * web cd $WD; ./homonyms.php
+0 0 * * 1 web cd $WD; ./homonyms.php
# ml moderation
* * * * * web cd $WD; ./cron_ml_moderate.php > /dev/null
{
// {{{ properties
- public $loginbis;
+ public $email;
public $homonymes_hruid;
public $warning = true;
public $rules = "Accepter, sauf cas particulier d'utilisateur dont l'homonymie est traité plus … manuellement.";
// }}}
// {{{ constructor
- public function __construct(User $_user, $_loginbis, $_homonymes_hruid, $warning=true)
+ public function __construct(User $_user, $_email, $_homonymes_hruid, $warning = true)
{
$this->warning = $warning;
parent::__construct($_user, true, $this->title());
$this->refuse = false;
- $this->loginbis = $_loginbis;
+ $this->email = $_email;
$this->homonymes_hruid = $_homonymes_hruid;
}
{
return "[Polytechnique.org/Support] "
. ($this->warning ? "Dans une semaine : suppression de l'alias " : "Mise en place du robot")
- . " $loginbis@" . $this->user->mainEmailDomain();
+ . " $email@" . $this->user->mainEmailDomain();
}
// }}}
"
Comme nous t'en avons informé par email il y a quelques temps,
pour respecter nos engagements en terme d'adresses email devinables,
-tu te verras bientôt retirer l'alias " . $this->loginbis . "@" . $this->user->mainEmailDomain() . " pour
+tu te verras bientôt retirer l'alias " . $this->email . "@" . $this->user->mainEmailDomain() . " pour
ne garder que " . $this->user->forlifeEmail() . ".
-Toute personne qui écrira à " . $this->loginbis . "@" . $this->user->mainEmailDomain() . " recevra la
-réponse d'un robot qui l'informera que " . $this->loginbis . "@" . $this->user->mainEmailDomain() . "
+Toute personne qui écrira à " . $this->email . "@" . $this->user->mainEmailDomain() . " recevra la
+réponse d'un robot qui l'informera que " . $this->email . "@" . $this->user->mainEmailDomain() . "
est ambigu pour des raisons d'homonymie et signalera ton email exact.";
}
protected function sendmail($isok)
{
- if (!$isok) return false;
- global $globals;
- $mailer = new PlMailer;
- $cc = "support+homonyme@" . $globals->mail->domain;
- $from = "\"Support Polytechnique.org\" <$cc>";
- $mailer->setSubject($this->_mail_subj());
- $mailer->setFrom($from);
- $mailer->addTo("\"{$this->user->fullName()}\" <{$this->user->bestEmail()}>");
- $mailer->addCc($cc);
-
- $body = $this->user->displayName() . ",\n\n"
- . $this->_mail_body($isok)
- . (Env::has('comm') ? "\n\n".Env::v('comm') : '')
- . "\n\nCordialement,\n\n-- \nL'équipe de Polytechnique.org\n";
-
- $mailer->setTxtBody(wordwrap($body));
- $mailer->send();
+ if (!$isok) {
+ return false;
+ }
+
+ Platal::load('admin', 'homonyms.inc.php');
+ if ($this->warning) {
+ send_warning_homonym($this->user, $this->email);
+ } else {
+ send_robot_homonym($this->user, $this->email);
+ }
}
// }}}
// {{{ function commit()
public function commit()
{
- Platal::load('admin', 'homonyms.inc.php');
if (!$this->warning) {
- require_once 'emails.inc.php';
-
- XDB::execute('DELETE FROM email_source_account
- WHERE email = {?} AND type = \'alias\'',
- $this->loginbis);
- XDB::execute('INSERT INTO email_source_other (hrmid, email, domain, type, expire)
- SELECT {?}, {?}, id, \'homonym\', NOW()
- FROM email_virtual_domains
- WHERE name = {?}',
- User::makeHomonymHrmid($this->loginbis), $this->loginbis, $this->user->mainEmailDomain());
- fix_bestalias($this->user);
+ Platal::load('admin', 'homonyms.inc.php');
+ fix_homonym($this->user, $this->email);
}
return true;
// When we have a valid target, prepare emails.
if ($target) {
- require_once 'emails.inc.php';
// Examine what operation needs to be performed.
switch ($op) {
case 'mail':
S::assert_xsrf_token();
- send_warning_homonyme($user, $loginbis);
- fix_bestalias($user);
+ send_warning_homonym($user, $loginbis);
$op = 'list';
$page->trigSuccess('Email envoyé à ' . $user->forlifeEmail() . '.');
break;
case 'correct':
S::assert_xsrf_token();
- XDB::execute('DELETE FROM email_source_account
- WHERE email = {?} AND type = \'alias\'',
- $loginbis);
- XDB::execute('INSERT INTO email_source_other (hrmid, email, domain, type, expire)
- SELECT {?}, {?}, id, \'homonym\', NOW()
- FROM email_virtual_domains
- WHERE name = {?}',
- User::makeHomonymHrmid($loginbis), $loginbis, $user->mainEmailDomain());
- fix_bestalias($user);
- send_robot_homonyme($user, $loginbis);
+ fix_homonym($user, $loginbis);
+ send_robot_homonym($user, $loginbis);
$op = 'list';
$page->trigSuccess('Email envoyé à ' . $user->forlifeEmail() . ', alias supprimé.');
break;
}
$page->assign_by_ref('homonyms_to_fix', $homonyms_to_fix);
}
+
+ if ($op == 'correct-conf') {
+ $page->assign('robot_mail_text', get_robot_mail_text($user, $loginbis));
+ }
+
+ if ($op == 'mail-conf') {
+ $page->assign('warning_mail_text', get_warning_mail_text($user, $loginbis));
+ }
}
function handler_deaths($page, $promo = 0, $validate = false)
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
***************************************************************************/
-function select_if_homonym(PlUser $user) {
+function select_if_homonym(PlUser $user)
+{
return XDB::fetchOneCell('SELECT email
FROM email_source_account
WHERE uid = {?} AND expire IS NOT NULL',
$user->id());
}
-function send_warning_homonyme(PlUser $user, $loginbis) {
- global $globals;
- $cc = "support+homonyme@" . $globals->mail->domain;
- $FROM = "\"Support Polytechnique.org\" <$cc>";
+function send_warning_homonym(PlUser $user, $email)
+{
+ $cc = "validation+homonyme@" . Platal::globals()->mail->domain;
+ $from = "\"Support Polytechnique.org\" <$cc>";
+ $body = Post::has('mailbody') ? Post::t('mailbody') : get_warning_mail_text($user, $email);
+
$mymail = new PlMailer();
- $mymail->setFrom($FROM);
+ $mymail->setFrom($from);
$mymail->addCc($cc);
- $mymail->setSubject("Dans 2 semaines, suppression de $loginbis@" . $user->mainEmailDomain());
- $mymail->setTxtBody(Env::v('mailbody'));
+ $mymail->setSubject("Dans 1 semaine, suppression de $email@" . $user->mainEmailDomain());
+ $mymail->setTxtBody($body);
$mymail->sendTo($user);
}
-function send_robot_homonyme(PlUser $user, $loginbis) {
- global $globals;
- $cc = "support+homonyme@" . $globals->mail->domain;
- $FROM = "\"Support Polytechnique.org\" <$cc>";
+function send_robot_homonym(PlUser $user, $email)
+{
+ $cc = "validation+homonyme@" . Platal::globals()->mail->domain;
+ $from = "\"Support Polytechnique.org\" <$cc>";
+ $body = Post::has('mailbody') ? Post::t('mailbody') : get_robot_mail_text($user, $email);
+ $user = User::getSilentWithUID($user->id());
+
$mymail = new PlMailer();
- $mymail->setFrom($FROM);
- $mymail->setSubject("Mise en place du robot $loginbis@" . $user->mainEmailDomain());
+ $mymail->setFrom($from);
+ $mymail->setSubject("Mise en place du robot $email@" . $user->mainEmailDomain());
$mymail->addCc($cc);
- $mymail->setTxtBody(Env::v('mailbody'));
+ $mymail->setTxtBody($body);
$mymail->sendTo($user);
}
+function get_warning_mail_text(PlUser $user, $email)
+{
+ $display_name = $user->displayName();
+ $former_email = $email . '@' . $user->mainEmailDomain();
+ $forlife_email = $user->forlifeEmail();
+
+ return "$display_name,\n\nComme nous t'en avons informé par email il y a "
+ . "quelques temps, pour respecter nos engagements en terme d'adresses "
+ . "email devinables, tu te verras bientôt retirer l'alias $former_email "
+ . "pour ne garder que $forlife_email.\n\nToute personne qui écrira à "
+ . "$former_email recevra la réponse d'un robot qui l'informera que "
+ . "$former_email est ambigu pour des raisons d'homonymie et signalera "
+ . "ton email exact.\n\nCordialement,\n-- \nl'équipe de Polytechnique.org"
+ . "\nLe portail des élèves & anciens élèves de l'École polytechnique";
+}
+
+function get_robot_mail_text(PlUser $user, $email)
+{
+ $display_name = $user->displayName();
+ $former_email = $email . '@' . $user->mainEmailDomain();
+
+ return "$display_name,\n\nComme nous t'en avons informé par email il y a "
+ . "quelques temps, nous t'avons retiré de façon définitive l'adresse "
+ . "$former_email.\n\nToute personne qui écrit à $former_email reçoit "
+ . "la réponse d'un robot qui l'informe que $former_email est ambigu "
+ . "pour des raisons d'homonymie et indique ton email exact.\n\nTu peux "
+ . "faire l'essai toi-même en écrivant à $former_email.\n\nCordialement,"
+ . "\n-- \nl'équipe de Polytechnique.org"
+ . "\nLe portail des élèves & anciens élèves de l'École polytechnique";
+}
+
+function fix_homonym(PlUser $user, $email)
+{
+ XDB::execute('DELETE FROM email_source_account
+ WHERE email = {?} AND type = \'alias\'',
+ $email);
+
+ $hrmid = User::makeHomonymHrmid($email);
+ XDB::execute('INSERT INTO email_source_other (hrmid, email, domain, type, expire)
+ SELECT {?}, {?}, id, \'homonym\', NOW()
+ FROM email_virtual_domains
+ WHERE name = {?}',
+ $hrmid, $email, $user->mainEmailDomain());
+ XDB::execute("INSERT INTO email_redirect_other (hrmid, redirect, type, action)
+ VALUES ({?}, '', 'homonym', 'homonym')",
+ $hrmid);
+
+
+ require_once 'emails.inc.php';
+ fix_bestalias($user);
+}
+
// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>
</tr>
<tr>
<td>
- <textarea cols="80" rows="20" name="mailbody">
-{$user->displayName()},
-
-
-Comme nous t'en avons informé par email il y a quelques temps,
-pour respecter nos engagements en terme d'adresses email devinables,
-tu te verras bientôt retirer l'alias {$loginbis}@{$user->mainEmailDomain()} pour
-ne garder que {$user->forlifeEmail()}.
-
-Toute personne qui écrira à {$loginbis}@{$user->mainEmailDomain()} recevra la
-réponse d'un robot qui l'informera que {$loginbis}@{$user->mainEmailDomain()}
-est ambigu pour des raisons d'homonymie et signalera ton email exact.
-
-L'équipe Polytechnique.org
-{#globals.baseurl#}
- </textarea>
+ <textarea cols="80" rows="20" name="mailbody">{$warning_mail_text}</textarea>
</td>
</tr>
<tr>
</tr>
<tr>
<td>
- <textarea cols="80" rows="20" name="mailbody">
-{$user->displayName()},
-
-Comme nous t'en avons informé par email il y a quelques temps,
-nous t'avons retiré de façon définitive l'adresse
-{$loginbis}@{$user->mainEmailDomain()}.
-
-Toute personne qui écrit à {$loginbis}@{$user->mainEmailDomain()} reçoit la
-réponse d'un robot qui l'informe que {$loginbis}@{$user->mainEmailDomain()}
-est ambigu pour des raisons d'homonymie et indique ton email exact.
-
-Tu peux faire l'essai toi-même en écrivant à {$loginbis}@{$user->mainEmailDomain()}.
-
-L'équipe Polytechnique.org
-{#globals.baseurl#}
- </textarea>
+ <textarea cols="80" rows="20" name="mailbody">{$robot_mail_text}</textarea>
</td>
</tr>
<tr>
<tr class="pair">
<td class="titre">Adresse litigieuse :</td>
<td>
- {$valid->loginbis}@polytechnique.org
+ {$valid->email}@polytechnique.org
</td>
</tr>
<tr class="pair">
projects / platal.git / commitdiff