projects
/
platal.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Wiki search do not require admin perms
[platal.git]
/
bin
/
emails.broken.php
diff --git
a/bin/emails.broken.php
b/bin/emails.broken.php
index
d1a31f7
..
626286e
100755
(executable)
--- a/
bin/emails.broken.php
+++ b/
bin/emails.broken.php
@@
-1,7
+1,7
@@
#!/usr/bin/php5 -q
<?php
/***************************************************************************
#!/usr/bin/php5 -q
<?php
/***************************************************************************
- * Copyright (C) 2003-200
6
Polytechnique.org *
+ * Copyright (C) 2003-200
7
Polytechnique.org *
* http://opensource.polytechnique.org/ *
* *
* This program is free software; you can redistribute it and/or modify *
* http://opensource.polytechnique.org/ *
* *
* This program is free software; you can redistribute it and/or modify *
@@
-96,6
+96,10
@@
XDB::execute("UPDATE emails
SET panne_level = panne_level - 1
WHERE flags = 'active' AND panne_level > 1
AND last != CURDATE()");
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) {
$csv = "nom;prenom;promo;alias;bounce;nbmails\n";
foreach ($list as $alias=>$mails) {