X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=bin%2Femails.broken.php;h=9d3be0ddc5ac1e73b27361166a3acd1074f2fdc9;hb=214d92b0cef6c4298a2769242ebae5c31e27955a;hp=d1a31f7db05e903be76cf2d8240a6ce71a8a84bb;hpb=162b07eb856e3f1d9269c70c6f4491a5f19e89f5;p=platal.git

diff --git a/bin/emails.broken.php b/bin/emails.broken.php
index d1a31f7..9d3be0d 100755
--- a/bin/emails.broken.php
+++ b/bin/emails.broken.php
@@ -1,7 +1,7 @@
 #!/usr/bin/php5 -q
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2006 Polytechnique.org                              *
+ *  Copyright (C) 2003-2008 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
@@ -75,11 +75,11 @@ foreach ($emails as $_email) {
             echo "$email : seule adresse active de {$x['prenom']} {$x['nom']}\n";
         } else {
             $mail = new PlMailer('emails/broken.mail.tpl');
-            $mail->addTo("\"{$x['prenom']} {$x['nom']}\" <{$x['alias']}@polytechnique.org>");
+            $mail->addTo("\"{$x['prenom']} {$x['nom']}\" <{$x['alias']}@" . $globals->mail->domain . '>');
             $mail->assign('x', $x);
             $mail->assign('email', $email);
             $mail->send();
-            echo "$email : mail envoyé\n";
+            echo "$email : mail envoyé\n";
         }
 
         if (!isset($list[$x['alias']])) {
@@ -96,6 +96,10 @@ XDB::execute("UPDATE emails
                  SET panne_level = panne_level - 1
                WHERE flags = 'active' AND panne_level > 1
                      AND last != CURDATE()");
+XDB::execute("UPDATE emails
+                 SET panne_level = 0
+               WHERE flags = 'active' AND panne_level = 1
+                     AND DATE_ADD(last, INTERVAL 1 YEAR) < CURDATE()");
 
 $csv = "nom;prenom;promo;alias;bounce;nbmails\n";
 foreach ($list as $alias=>$mails) {
@@ -115,4 +119,5 @@ $fo = fopen($output, 'w+');
 fwrite($fo, $csv);
 fclose($fo);
 
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 ?>