# HG changeset patch
# User defr@hedwige.defr.net
# Date 1215948402 -7200
# Node ID a8c013fa4416c5b4240666e7b1aad2044684e8a7
# Parent  55582b82c43da72b299f381a37a020c3badbf1a4
Ajout d'un outil permettant d'envoyer par mail les commentaires moderes.

Typiquement utilise dans un cron-job pour avoir un envoi quotidien des commentaires
qui sont tombes dans la file de moderation pendant les dernieres 24h.

diff -r 55582b82c43d -r a8c013fa4416 tools/mail_comments.php
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/mail_comments.php	Sun Jul 13 13:26:42 2008 +0200
@@ -0,0 +1,30 @@
+<?
+  require_once("../classes.php");
+  $db = new DataAccess();
+  $db->query("
+   SELECT c.Auteur, c.Comment, p.Titre
+   FROM Commentaires c
+   LEFT JOIN Mess p on p.num_mess=c.MessId
+   WHERE 
+   	c.DateComment IS NOT NULL
+	AND UNIX_TIMESTAMP(c.DateComment) > UNIX_TIMESTAMP(NOW()) - 24*3600
+	AND c.Visible = 0
+  ");
+  $tmp = "
+  Voici les commentaires qui se sont vu filtres ces
+  dernieres 24h sur Dual Blog:
+  ";
+  $i = 0;
+  while($row = $db->getRow()) {
+    $i++;
+    $debComment = substr($row['Comment'], 0, 200);
+    $tmp .= "
+$i. {$row['Auteur']}, sur le post {$row['Titre']}:
+{$debComment}
+
+********************************************************
+";
+  }
+
+  $subject = gmdate("Y-m-d") . " : Commentaires filtrés";
+  mail(ADMIN_MAIL, $subject, wordwrap($tmp, 70));