From 0c229ebd03ccc935feb9f59316a28f322d8209b8 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Oct 2009 23:22:43 +0200
Subject: Do not automatically approve comments that pass Akismet spam
 checking.

Ignore-this: b23b3ce4e3ecb487cb7c87c02f1aab83

darcs-hash:fe86957519a16cbf6ee561b45f3a0164e047791a
---
 main.lisp | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

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))
-- 
cgit v1.2.3