Mercurial > defr > DualBlog

annotate tools/mail_comments.php @ 80:b6ea01331de2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mail: On envoie seulement si des commentaires ont été modérés
author Franck Deroche <franck@defr.org>
date Tue, 20 Nov 2018 00:52:38 +0100
parents 80bb1ca0114e
children
rev   line source
franck@80 1 <?php
defr@78 2 require_once(dirname(__FILE__) . "/../classes.php");
defr@77 3 $db = new DataAccess();
defr@77 4 $db->query("
defr@77 5 SELECT c.Auteur, c.Comment, p.Titre
defr@77 6 FROM Commentaires c
defr@77 7 LEFT JOIN Mess p on p.num_mess=c.MessId
defr@77 8 WHERE
defr@77 9 c.DateComment IS NOT NULL
defr@77 10 AND UNIX_TIMESTAMP(c.DateComment) > UNIX_TIMESTAMP(NOW()) - 24*3600
defr@77 11 AND c.Visible = 0
defr@77 12 ");
defr@77 13 $tmp = "
defr@77 14 Voici les commentaires qui se sont vu filtres ces
defr@77 15 dernieres 24h sur Dual Blog:
defr@77 16 ";
defr@77 17 $i = 0;
defr@77 18 while($row = $db->getRow()) {
defr@77 19 $i++;
defr@77 20 $debComment = substr($row['Comment'], 0, 200);
defr@77 21 $tmp .= "
defr@77 22 $i. {$row['Auteur']}, sur le post {$row['Titre']}:
defr@77 23 {$debComment}
defr@77 24
defr@77 25 ********************************************************
defr@77 26 ";
defr@77 27 }
defr@77 28
franck@80 29 if ($i) {
franck@80 30 $subject = gmdate("Y-m-d") . " : Commentaires filtrés";
franck@80 31 mail(ADMIN_MAIL, $subject, wordwrap($tmp, 70));
franck@80 32 }