<?php
/***************************************************************************
- * Copyright (C) 2003-2009 Polytechnique.org *
+ * Copyright (C) 2003-2011 Polytechnique.org *
* http://opensource.polytechnique.org/ *
* *
* This program is free software; you can redistribute it and/or modify *
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
***************************************************************************/
-function select_if_homonyme(PlUser &$user) {
- return XDB::fetchOneCell("SELECT a.alias
- FROM aliases AS a
- WHERE a.id = {?} AND a.expire != ''",
+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@" . $globals->mail->domain);
- $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@" . $globals->mail->domain);
+ $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 switch_bestalias(PlUser &$user, $loginbis) {
- // check if loginbis was the bestalias
- $bestailas = XDB::fetchOneCell("SELECT alias
- FROM aliases
- WHERE id = {?} AND FIND_IN_SET('bestalias', flags)",
- $user->id());
- if ($bestalias && $bestalias != $loginbis) {
- return false;
- }
+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);
+
- // select the shortest alias still alive
- $newbest = XDB::fetchOneCell("SELECT alias
- FROM aliases
- WHERE id = {?} AND alias != {?} AND expire IS NULL
- ORDER BY LENGTH(alias)
- LIMIT 1", $user->id(), $loginbis);
- // change the bestalias flag
- XDB::execute("UPDATE aliases
- SET flags = (flags & (255 - 1)) | IF(alias = {?}, 1, 0)
- WHERE id = {?}", $newbest, $user->id());
- return $newbest;
+ require_once 'emails.inc.php';
+ fix_bestalias($user);
}
// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: