Backport
[platal.git] / bin / cron / cron_validations.php
CommitLineData
ee68ddc1 1#!/usr/bin/php5 -q
0337d704 2<?php
3/***************************************************************************
50a40a33 4 * Copyright (C) 2003-2006 Polytechnique.org *
0337d704 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/* vim: set sw=4 ts=4 sts=4 tw=100:
23 * vérifie qu'il n'y a pas de validations en cours, et maile si c'est le cas
24*/
25
26$M_PERIOD = "INTERVAL 3 HOUR"; // période d'envoi des mails de 3h
27$R_PERIOD = "INTERVAL 6 HOUR"; // période de réponse moyenne de 6h
28
29require('./connect.db.inc.php');
30require('diogenes/diogenes.hermes.inc.php');
31
08cce2ff 32$res = XDB::query("SELECT count(stamp), sum(stamp < NOW() - $M_PERIOD), sum(stamp < NOW() - $R_PERIOD) FROM x4dat.requests");
0337d704 33list($nb,$nbold,$nbveryold) = $res->fetchOneRow();
34
35if (empty($nb)) {
36 exit;
37}
38
39$mymail = new HermesMailer();
40$mymail->setFrom('validation@polytechnique.org');
41$mymail->addTo("validation@polytechnique.org");
42$mymail->setSubject((empty($nbveryold)?"":"[urgent] ")."il y a $nb validations non effectuées");
43
44$message =
45 "il y a $nb validation à effectuer \n"
46 .(empty($nbold)?"":"dont $nbold depuis le dernier mail !!!\n")
47 .(empty($nbveryold)?"":"et dont *$nbveryold* sont en retard de plus de 6h !!!")
48 ."\n"
a698a3fc 49 ."https://www.polytechnique.org/admin/validate\n";
0337d704 50
51$message = wordwrap($message,78);
52$mymail->setTxtBody($message);
53$mymail->send();
54?>