changeset 77:a8c013fa4416

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.
author defr@hedwige.defr.net
date Sun, 13 Jul 2008 13:26:42 +0200
parents 55582b82c43d
children 80bb1ca0114e
files tools/mail_comments.php
diffstat 1 files changed, 30 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /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));