Mercurial > defr > DualBlog
comparison tools/mail_comments.php @ 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 | |
| children | 80bb1ca0114e |
comparison
equal
deleted
inserted
replaced
| 76:55582b82c43d | 77:a8c013fa4416 |
|---|---|
| 1 <? | |
| 2 require_once("../classes.php"); | |
| 3 $db = new DataAccess(); | |
| 4 $db->query(" | |
| 5 SELECT c.Auteur, c.Comment, p.Titre | |
| 6 FROM Commentaires c | |
| 7 LEFT JOIN Mess p on p.num_mess=c.MessId | |
| 8 WHERE | |
| 9 c.DateComment IS NOT NULL | |
| 10 AND UNIX_TIMESTAMP(c.DateComment) > UNIX_TIMESTAMP(NOW()) - 24*3600 | |
| 11 AND c.Visible = 0 | |
| 12 "); | |
| 13 $tmp = " | |
| 14 Voici les commentaires qui se sont vu filtres ces | |
| 15 dernieres 24h sur Dual Blog: | |
| 16 "; | |
| 17 $i = 0; | |
| 18 while($row = $db->getRow()) { | |
| 19 $i++; | |
| 20 $debComment = substr($row['Comment'], 0, 200); | |
| 21 $tmp .= " | |
| 22 $i. {$row['Auteur']}, sur le post {$row['Titre']}: | |
| 23 {$debComment} | |
| 24 | |
| 25 ******************************************************** | |
| 26 "; | |
| 27 } | |
| 28 | |
| 29 $subject = gmdate("Y-m-d") . " : Commentaires filtrés"; | |
| 30 mail(ADMIN_MAIL, $subject, wordwrap($tmp, 70)); |