2 /***************************************************************************
3 * Copyright (C) 2003-2004 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 require_once('xorg.inc.php');
23 new_skinned_page('emails/broken.tpl',AUTH_COOKIE
);
24 require_once('emails.inc.php');
26 if (Get
::has('email') && Get
::has('action')) {
27 $email = valide_email(Get
::get('email'));
28 // vérifications d'usage
29 $sel = $globals->xdb
->query(
30 "SELECT e.uid, a.alias
32 INNER JOIN auth_user_md5 AS u ON e.uid = u.user_id
33 INNER JOIN aliases AS a ON (e.uid = a.id AND type!='homonyme' AND FIND_IN_SET('bestalias',a.flags))
34 WHERE e.email={?}", $email);
36 if (list($uid, $dest) = $sel->fetchOneRow()) {
40 Ce mail a été généré automatiquement par le service de patte cassée de
41 Polytechnique.org car un autre utilisateur, ".Session
::get('prenom').' '.Session
::get('nom').",
42 nous a signalé qu'en t'envoyant un mail, il avait reçu un message d'erreur
43 indiquant que ton adresse de redirection $email
44 ne fonctionnait plus !
46 Nous te suggérons de vérifier cette adresse, et le cas échéant de mettre
47 à jour sur le site <{$globals->baseurl}/emails.php> tes adresses
50 Pour plus de rensignements sur le service de patte cassée, n'hésites pas à
51 consulter la page <{$globals->baseurl}/emails/broken.php>.
54 A bientôt sur Polytechnique.org !
55 L'équipe d'administration <support@polytechnique.org>";
57 require_once("diogenes/diogenes.hermes.inc.php");
58 $mail = new HermesMailer();
59 $mail->setFrom('"Polytechnique.org" <support@polytechnique.org>');
60 $mail->addTo("$dest@polytechnique.org");
61 $mail->setSubject("Une de tes adresse de redirection Polytechnique.org ne marche plus !!");
62 $mail->setTxtBody($message);
64 $page->trig("Mail envoyé ! :o)");
66 } elseif (Post
::has('email')) {
67 $email = valide_email(Post
::get('email'));
68 $page->assign('email',$email);
69 $sel = $globals->xdb
->query(
70 "SELECT e1.uid, e1.panne != 0 AS panne, count(e2.uid) AS nb_mails, u.nom, u.prenom, u.promo
72 LEFT JOIN emails as e2 ON(e1.uid = e2.uid AND FIND_IN_SET('active', e2.flags) AND e1.email != e2.email)
73 INNER JOIN auth_user_md5 as u ON(e1.uid = u.user_id)
75 GROUP BY e1.uid", $email);
76 if ($x = $sel->fetchOneAssoc()) {
77 // on écrit dans la base que l'adresse est cassée
79 $globals->xdb
->execute("UPDATE emails SET panne=NOW() WHERE email = {?}", $email);
81 $page->assign_by_ref('x', $x);