From 42f9eab207b449b24ecda0579b22b9a9a9b8a76e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 22 Mar 2011 16:57:58 +0100
Subject: Make use Hunchentoot's restricted If-Modified-Since handling.

---
 mulkcms.lisp | 5 +++++
 1 file changed, 5 insertions(+)

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