diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-25 01:34:20 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-25 01:34:20 +0100 |
| commit | 702601b311c57877524ae8005c4810d9831bade7 (patch) | |
| tree | 4262f35e6844f725c8e02e2f5ab13e107581988d | |
| parent | 1e8e13d2650d4fe4d906f92719a7120cca2b8088 (diff) | |
Disable the cache for POST requests and fix another stupid IF condition confusion bug.
| -rw-r--r-- | mulkcms.lisp | 7 |
1 files 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) |