Implement sane caching behaviour.

Ignore-this: 8ed0815613cb44c0eee9d8ac47e1753b

darcs-hash:e41ff965d8172b7979369cb0df98302f29a9a9c4

1 files changed, 10 insertions, 0 deletions

diff --git a/utils.lisp b/utils.lisp
index 74030b8..590d310 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -325,3 +325,13 @@ ELEMENT-TYPE as the stream's."
                 (submitter-user-agent comment)
                 (spamp comment)
                 (body-of comment))))
+
+(defun revalidate-cache-or-die ()
+  #+clisp
+    (let ((time (cybertiggyr-time:parse-time *if-modified-since*)))
+      (when (and (integerp time) (>= *if-modified-since* (compute-journal-last-modified-date)))
+        (http-add-header "Status: 304 Not Modified")
+        (http-send-headers)
+        (ext:quit 0)))
+  #-clisp
+    nil)