$mailer->send($u['mail_fmt'] == 'html');
}
-XDB::execute("DELETE FROM watch_profile
- WHERE ts < DATE_SUB(CURRENT_DATE, INTERVAL 15 DAY)");
+XDB::execute("UPDATE watch_profile
+ SET ts = NOW()
+ WHERE field = 'broken'");
+XDB::execute('DELETE FROM watch_profile
+ WHERE ts < DATE_SUB(CURRENT_DATE, INTERVAL 15 DAY)');
// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>
// {{{
global $prf_desc;
-$prf_desc = array('nom' => 'Son patronyme',
- 'freetext' => 'Le texte libre',
- 'mobile' => 'Son numéro de téléphone portable',
+$prf_desc = array('nom' => 'Son patronyme',
+ 'freetext' => 'Le texte libre',
+ 'mobile' => 'Son numéro de téléphone portable',
'nationalite' => 'Sa nationalité',
- 'nick' => 'Son surnom',
- 'web' => 'L\'adresse de son site web',
- 'appli1' => 'Son école d\'application',
- 'appli2' => 'Son école de post-application',
- 'addresses' => 'Ses adresses',
- 'section' => 'Sa section sportive',
- 'binets' => 'La liste de ses binets',
- 'medals' => 'Ses décorations',
- 'cv' => 'Son Curriculum Vitae',
- 'jobs' => 'Ses informations professionnelles',
- 'photo' => 'Sa photographie');
+ 'nick' => 'Son surnom',
+ 'web' => "L'adresse de son site web",
+ 'appli1' => "Son école d'application",
+ 'appli2' => 'Son école de post-application',
+ 'addresses' => 'Ses adresses',
+ 'section' => 'Sa section sportive',
+ 'binets' => 'La liste de ses binets',
+ 'medals' => 'Ses décorations',
+ 'cv' => 'Son curriculum vitae',
+ 'jobs' => 'Ses informations professionnelles',
+ 'photo' => 'Sa photographie',
+ 'broken' => "Il n'a plus d'adresse de redirection valide");
function get_profile_change_details($event, $limit) {
global $prf_desc;
// Output the list of users with recently broken addresses,
// along with the count of valid redirections.
+ require_once 'include/notifs.inc.php';
pl_content_headers("text/x-csv");
$csv = fopen('php://output', 'w');
GROUP BY u.user_id", $alias);
if ($x = $sel->fetchOneAssoc()) {
+ if ($x['nb_mails'] == 0) {
+ register_profile_update($x['user_id'], 'broken');
+ }
fputcsv($csv, array($x['nom'], $x['prenom'], $x['promo'], $alias,
join(',', $mails), $x['nb_mails'],
'https://www.polytechnique.org/marketing/broken/' . $alias), ';');