- XDB::execute('UPDATE aliases SET expire=ADDDATE(NOW(),INTERVAL 1 MONTH) WHERE alias={?}', $mailorg);
- XDB::execute('REPLACE INTO homonymes (homonyme_id,user_id) VALUES ({?},{?})', $h_id, $h_id);
- XDB::execute('REPLACE INTO homonymes (homonyme_id,user_id) VALUES ({?},{?})', $h_id, $uid);
- $res = XDB::query("SELECT alias FROM aliases WHERE id={?} AND expire IS NULL", $h_id);
- $als = $res->fetchColumn();
-
- $mailer = new PlMailer();
- $mailer->setFrom('"Support Polytechnique.org" <support@' . $globals->mail->domain . '>');
- $mailer->addTo("$mailorg@" . $globals->mail->domain);
- $mailer->setSubject("perte de ton alias $mailorg dans un mois !");
- $mailer->addCc('"Support Polytechnique.org" <support@' . $globals->mail->domain . '>');
- $msg =
- "Bonjour,\n\n".
-
- "Un homonyme vient de s'inscrire. La politique de Polytechnique.org est de fournir des\n".
- "adresses email devinables, nous ne pouvons donc pas conserver ton alias '$mailorg' qui\n".
- "correspond maintenant à deux personnes.\n\n".
-
- "Tu gardes tout de même l'usage de cet alias pour un mois encore à compter de ce jour.\n\n".
-
- "Lorsque cet alias sera désactivé, l'adresse $mailorg@polytechnique.org renverra vers un \n".
- "robot qui indiquera qu'il y a plusieurs personnes portant le même nom ;\n".
- "cela évite que l'un des homonymes reçoive des courriels destinés à l'autre.\n\n".
-
- "Pour te connecter au site, tu pourras utiliser comme identifiant n'importe lequel de tes\n".
- "autres alias :\n".
- " ".join(', ', $als)."\n";
- "Commence dès aujourd'hui à communiquer à tes correspondants la nouvelle adresse que tu comptes utiliser !\n\n".
-
- "En nous excusant pour le désagrément occasionné,\n".
- "Cordialement,\n\n".
-
- "-- \n".
- "L'équipe de Polytechnique.org\n".
- "\"Le portail des élèves & anciens élèves de l'X\"";
+ XDB::execute('UPDATE email_source_account AS e
+ INNER JOIN email_virtual_domains AS d ON (e.domain = d.id)
+ SET e.expire = ADDDATE(NOW(), INTERVAL 1 MONTH)
+ WHERE e.email = {?} AND d.name = {?}',
+ $emailXorg, $globals->mail->domain);
+ $hrmid = 'h.' . $emailXorg . '.' . $globals->mail->domain;
+ XDB::execute('INSERT IGNORE INTO homonyms_list (hrmid, uid)
+ VALUES ({?}, {?}), ({?}, {?})',
+ $hrmid, $h_id, $hrmid, $subState->i('uid'));
+ $als = XDB::fetchColumn('SELECT *
+ FROM email_source_account AS s
+ INNER JOIN email_virtual_domains AS d ON (s.domain = d.id)
+ WHERE s.uid = {?} AND d.name = {?} AND s.expire IS NULL',
+ $h_id, $globals->mail->domain);
+
+ $mailer = new PlMailer('register/lostalias.mail.tpl');
+ $mailer->addTo($emailXorg . '@' . $globals->mail->domain);
+ $mailer->setSubject("Perte de ton alias $emailXorg dans un mois !");
+ $mailer->assign('emailXorg', $emailXorg);
+ $mailer->assign('als', join(', ', $als));