From 702601b311c57877524ae8005c4810d9831bade7 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Fri, 25 Mar 2011 01:34:20 +0100
Subject: Disable the cache for POST requests and fix another stupid IF
 condition confusion bug.

---
 mulkcms.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mulkcms.lisp b/mulkcms.lisp
index 230a5bc..97b5de3 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -141,6 +141,9 @@
          (simple-date:timestamp-to-universal-time last-update)))
   (when content-type
     (setf (hunchentoot:content-type*) content-type))
+  (when (eq (hunchentoot:request-method*) :post)
+    (return-from call-with-cache
+      (funcall thunk)))
   (when-let (date-string (hunchentoot:header-in* :if-modified-since))
     (when-let (if-modified-since (parse-http-date date-string))
       ;; We need to subtract 1 second, since LAST-UPDATE will probably
@@ -1132,8 +1135,8 @@
                                 body
                                 author
                                 (if spam-p
-                                    "pending"
-                                    "spam")
+                                    "spam"
+                                    "pending")
                                 revision
                                 (hunchentoot:real-remote-addr)
                                 (hunchentoot:user-agent)
-- 
cgit v1.2.3