From 0161b4b655e549d57fef122cabae5d4e380a4e95 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Oct 2009 12:16:35 +0200
Subject: Implement sane caching behaviour.

Ignore-this: 8ed0815613cb44c0eee9d8ac47e1753b

darcs-hash:e41ff965d8172b7979369cb0df98302f29a9a9c4
---
 main.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'main.lisp')

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