Implement sane caching behaviour.

Ignore-this: 8ed0815613cb44c0eee9d8ac47e1753b

darcs-hash:e41ff965d8172b7979369cb0df98302f29a9a9c4

1 files changed, 2 insertions, 0 deletions

diff --git a/main.lisp b/main.lisp
index ae2c0cb..c8b489e 100644
--- a/main.lisp
+++ b/main.lisp
@@ -54,6 +54,8 @@
                                       (*post-number*                      :view)
                                       (t                                  nil))))
          (*method*          (keywordify (gethash "REQUEST_METHOD" *http-env*)))
+         (*if-modified-since* #+clisp (ext:getenv "HTTP_IF_MODIFIED_SINCE")
+                              #-clisp nil)
          (*script-filename* (pathname-as-file
                              (or (gethash "SCRIPT_FILENAME" *http-env*)
                                  "/home/mulk/Dokumente/Projekte/Mulkblog/journal.cgi")))