Remove most references to @polytechnique.org email adresses.
[platal.git] / bin / cron / cron_validations.php
index 75ef035..4a45df5 100755 (executable)
  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  ***************************************************************************/
 /* vim: set sw=4 ts=4 sts=4 tw=100:
- * vérifie qu'il n'y a pas de validations en cours, et maile si c'est le cas
+ * vérifie qu'il n'y a pas de validations en cours, et maile si c'est le cas
 */ 
 
-$M_PERIOD = "INTERVAL 3 HOUR"; // période d'envoi des mails de 3h
-$R_PERIOD = "INTERVAL 6 HOUR"; // période de réponse moyenne de 6h
+$M_PERIOD = "INTERVAL 3 HOUR"; // période d'envoi des mails de 3h
+$R_PERIOD = "INTERVAL 6 HOUR"; // période de réponse moyenne de 6h
 
 require('./connect.db.inc.php');
 require('plmailer.php');
@@ -36,19 +36,30 @@ if (empty($nb)) {
     exit;
 }
 
+$plural = $nb == 1 ? "" : "s";
+
 $mymail = new PlMailer();
-$mymail->setFrom('validation@polytechnique.org');
-$mymail->addTo("validation@polytechnique.org");
-$mymail->setSubject((empty($nbveryold)?"":"[urgent] ")."il y a $nb validations non effectuées");
+$mymail->setFrom('validation@' . $globals->mails->domain);
+$mymail->addTo("validation@" . $globals->mails->domain);
+$mymail->setSubject((empty($nbveryold)?"":"[urgent] ")."il y a $nb validation$plural non effectuée$plural");
 
 $message =
-       "il y a $nb validation à effectuer \n"
+       "il y a $nb validation$plural à effectuer \n"
        .(empty($nbold)?"":"dont $nbold depuis le dernier mail !!!\n")
-       .(empty($nbveryold)?"":"et dont *$nbveryold* sont en retard de plus de 6h !!!")
+       .(empty($nbveryold)?"":"et dont *$nbveryold* ".($nbveryold == 1 ? "est" : "sont")." en retard de plus de 6h !!!")
        ."\n"
-       ."https://www.polytechnique.org/admin/validate\n";
+       ."https://www.polytechnique.org/admin/validate\n\n"
+        ."Par catégorie :\n";
+$res = XDB::iterRow("SELECT  type, count(*)
+                       FROM  x4dat.requests
+                   GROUP BY  type
+                   ORDER BY  type");
+while (list($type, $nb) = $res->next()) {
+    $message .= "- $type: $nb\n";
+}
 
 $message = wordwrap($message,78);  
 $mymail->setTxtBody($message);
 $mymail->send();
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 ?>