summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 23:22:43 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 23:22:43 +0200
commit0c229ebd03ccc935feb9f59316a28f322d8209b8 (patch)
tree91ff34d6f267016e8050e257e4cb8eb4969f0f58
parent642111b90390a96992ffac160e402cfbed309e08 (diff)
Do not automatically approve comments that pass Akismet spam checking.
Ignore-this: b23b3ce4e3ecb487cb7c87c02f1aab83 darcs-hash:fe86957519a16cbf6ee561b45f3a0164e047791a
-rw-r--r--main.lisp15
1 files changed, 14 insertions, 1 deletions
diff --git a/main.lisp b/main.lisp
index 100bfd7..25e1484 100644
--- a/main.lisp
+++ b/main.lisp
@@ -167,9 +167,22 @@
<p>Hinweis: Diese Website verwendet ~
<a href=\"http://akismet.com/\">Akismet</a> ~
f&uuml;r die Spamerkennung.</p>")
- *journal-warnings*)))
+ *journal-warnings*))
+ (unless spam-p
+ (push (format nil
+ "<p>Unmoderierte Kommentierung wurde ~
+ aufgrund des hohen Spamaufkommens ~
+ in diesem Blog deaktiviert. Ihr Kommentar ~
+ wurde daher an den Betreiber des Blogs ~
+ geschickt, welcher ihn freischalten wird, ~
+ sobald er dazu kommt.</p>")
+ *journal-warnings*)))
(update-records-from-instance comment)
(update-records-from-instance entry)
+ (unless (spamp comment)
+ (update-records 'journal-comment
+ :where [= [slot-value 'journal-comment 'id] (id-of comment)]
+ :avpairs `((spam-p nil))))
(when (eq *site* :nfs.net)
(mail-comment *notification-email* comment entry))))
(show-web-journal))