3 /***************************************************************************
4 * Copyright (C) 2003-2009 Polytechnique.org *
5 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
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
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
29 require('connect.db.inc.php');
30 require('plmailer.php');
32 $res = XDB
::query("SELECT count(r.stamp), UNIX_TIMESTAMP(MIN(r.stamp)),
33 sum(r.stamp < NOW() - $M_PERIOD), sum(r.stamp < NOW() - $R_PERIOD)
34 FROM x4dat.requests AS r");
35 list($nb, $age, $nbold, $nbveryold) = $res->fetchOneRow();
37 $age = (time() - intval($age)) / 86400;
40 $head = "[autodestruction du serveur] ";
42 $head = "[armageddon imminent] ";
44 $head = "[guerre nucléaire] ";
46 $head = "[ET Téléphone maison] ";
48 $head = "[réveil !] ";
49 } elseif (!empty($nbveryold)) {
58 $plural = $nb == 1 ?
"" : "s";
60 $mymail = new PlMailer();
61 $mymail->setFrom('validation@' . $globals->mail
->domain
);
62 $mymail->addTo("validation@" . $globals->mail
->domain
);
63 $mymail->setSubject($head . "il y a $nb validation$plural non effectuée$plural");
66 "il y a $nb validation$plural à effectuer \n"
67 .(empty($nbold)?
"":"dont $nbold depuis le dernier mail !!!\n")
68 .(empty($nbveryold)?
"":"et dont *$nbveryold* ".($nbveryold == 1 ?
"est" : "sont")." en retard de plus de 6h !!!")
70 ."https://www.polytechnique.org/admin/validate\n\n"
72 $res = XDB
::iterRow("SELECT type, count(*)
76 while (list($type, $nb) = $res->next()) {
77 $message .= "- $type: $nb\n";
80 $message = wordwrap($message,78);
81 $mymail->setTxtBody($message);
83 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: