Mercurial > defr > DualBlog
annotate 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 |
| rev | line source |
|---|---|
| defr@77 | 1 <? |
| defr@77 | 2 require_once("../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 |
| defr@77 | 29 $subject = gmdate("Y-m-d") . " : Commentaires filtrés"; |
| defr@77 | 30 mail(ADMIN_MAIL, $subject, wordwrap($tmp, 70)); |