Add mailing list headers to newsletters
[platal.git] / bin / cron / homonyms.php
1 #!/usr/bin/php5 -q
2 <?php
3 /***************************************************************************
4 * Copyright (C) 2003-2013 Polytechnique.org *
5 * http://opensource.polytechnique.org/ *
6 * *
7 * This program is free software; you can redistribute it and/or modify *
8 * it under the terms of the GNU General Public License as published by *
9 * the Free Software Foundation; either version 2 of the License, or *
10 * (at your option) any later version. *
11 * *
12 * This program is distributed in the hope that it will be useful, *
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
15 * GNU General Public License for more details. *
16 * *
17 * You should have received a copy of the GNU General Public License *
18 * along with this program; if not, write to the Free Software *
19 * Foundation, Inc., *
20 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
21 ***************************************************************************/
22
23 /**
24 * Requires destruction of aliases: a first notification 7 days before
25 * destruction, a second on the date.
26 */
27 require 'connect.db.inc.php';
28
29 $resRobot = XDB::iterator("SELECT uid, email, expire
30 FROM email_source_account
31 WHERE expire <= NOW() + INTERVAL 7 DAY");
32 while ($old = $resRobot->next()) {
33 $res = XDB::query('SELECT a.hruid
34 FROM homonyms_list AS h
35 INNER JOIN accounts AS a ON (h.uid = a.uid)
36 WHERE h.hrmid = {?}',
37 User::makeHomonymHrmid($old['email']));
38 $hruids = $res->fetchColumn();
39
40 $homonym = User::getSilent($old['uid']);
41 $req = new HomonymeReq($homonym, $old['email'], $hruids, $old['expire'] > date("Y-m-d"));
42 $req->submit();
43 }
44
45 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
46 ?>