#!/usr/bin/php5 -q
<?php
/***************************************************************************
- * Copyright (C) 2003-2006 Polytechnique.org *
+ * Copyright (C) 2003-2007 Polytechnique.org *
* http://opensource.polytechnique.org/ *
* *
* This program is free software; you can redistribute it and/or modify *
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']])) {
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) {
fwrite($fo, $csv);
fclose($fo);
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>