- $res = XDB::query('SELECT id, type, expire FROM aliases WHERE alias={?}', $mailorg);
-
- if ( $res->numRows() ) {
-
- list($h_id, $h_type, $expire) = $res->fetchOneRow();
-
- if ( $h_type != 'homonyme' and empty($expire) ) {
- 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 mail 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".