+#!/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 *
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
***************************************************************************/
-ini_set('include_path', '../include:/usr/share/php');
-
-require_once('../include/xorg.inc.php');
-require_once('../include/emails.inc.php');
+ini_set('include_path', '.:../include:/usr/share/php');
+
+require_once('connect.db.inc.php');
+require_once('xorg.inc.php');
+require_once('emails.inc.php');
+require_once('../classes/plmailer.php');
$opts = getopt('i:o:');
if (($opts['i'] && $opts['i'] == '-') || empty($opts['i'])) {
$emails = explode("\n", file_get_contents($file));
$list = array();
+
foreach ($emails as $_email) {
$email = valide_email($_email);
if (empty($email) || $email=='@') {
GROUP BY e1.uid", $email);
if ($x = $sel->fetchOneAssoc()) {
if (!$x['panne']) {
- XDB::execute("UPDATE emails SET panne=NOW() WHERE email = {?}", $email);
+ XDB::execute("UPDATE emails
+ SET panne=NOW(), last=NOW(),
+ panne_level = 1
+ WHERE email = {?}",
+ $email);
+ } else {
+ XDB::execute("UPDATE emails
+ SET last = CURDATE(),
+ panne_level = panne_level + 1
+ WHERE email = {?}
+ AND DATE_ADD(last, INTERVAL 7 DAY) < CURDATE()", $email);
}
if (empty($x['nb_mails'])) {
echo "$email : seule adresse active de {$x['prenom']} {$x['nom']}\n";
} else {
- $message = " Bonjour !
-
- Nous t'écrivons car lors de l'envoi de la lettre d'information mensuelle
-de Polytechnique.org à ton adresse polytechnicienne :
-
- {$x['alias']}@polytechnique.org,
-
-l'adresse {$email}, sur laquelle tu rediriges ton courrier, ne
-fonctionnait pas.
-
- Estimant que cette information serait susceptible de t'intéresser, nous
-avons préféré t'en informer. Il n'est pas impossible qu'il ne s'agisse que
-d'une panne temporaire. Si tu souhaites changer la liste des adresses sur
-lesquelles tu reçois le courrier qui t'es envoyé à ton adresse
-polytechnicienne, il te suffit de te rendre sur la page :
-
- {$globals->baseurl}/emails/redirect
-
-
- A bientôt sur Polytechnique.org !
- L'équipe d'administration <support@polytechnique.org>
-
----------------------------------------------------------------------------
-
- PS : si jamais tu ne disposes plus du mot de passe te permettant
-d'accéder au site, rends toi sur la page
-
- {$globals->baseurl}/recovery
-
-elle te permettra de créer un nouveau mot de passe après avoir rentré ton
-login ({$x['alias']}) et ta date de naissance !";
-
- require_once("diogenes/diogenes.hermes.inc.php");
- $mail = new HermesMailer();
- $mail->setFrom('"Polytechnique.org" <support@polytechnique.org>');
- $mail->addTo("\"{$x['prenom']} {$x['nom']}\" <{$x['alias']}@polytechnique.org>");
- $mail->setSubject("Une de tes adresse de redirection Polytechnique.org ne marche plus !!");
- $mail->setTxtBody($message);
+ $mail = new PlMailer('emails/broken.mail.tpl');
+ $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']])) {
}
}
+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) {
$sel = Xdb::query(
fwrite($fo, $csv);
fclose($fo);
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>