summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-03-22 16:57:58 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-03-22 16:57:58 +0100
commit42f9eab207b449b24ecda0579b22b9a9a9b8a76e (patch)
treea883d19f6a0c86a5ec2ecd279c9111567bc36abb
parentdf928a8339af1148ec835d8f917385a73d57c767 (diff)
Make use Hunchentoot's restricted If-Modified-Since handling.
-rw-r--r--mulkcms.lisp5
1 files changed, 5 insertions, 0 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp
index 1ca5359..c6c5419 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -104,6 +104,11 @@
charhashnum
path
:row)))
+ (hunchentoot:handle-if-modified-since
+ (simple-date:timestamp-to-universal-time last-update))
+ (setf (hunchentoot:header-out :last-modified)
+ (hunchentoot:rfc-1123-date
+ (simple-date:timestamp-to-universal-time last-update)))
(when content-type
(setf (hunchentoot:content-type*) content-type))
(if (and cached-data (simple-date:time< last-update (second cached-data)))