diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-22 16:57:58 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-22 16:57:58 +0100 |
| commit | 42f9eab207b449b24ecda0579b22b9a9a9b8a76e (patch) | |
| tree | a883d19f6a0c86a5ec2ecd279c9111567bc36abb | |
| parent | df928a8339af1148ec835d8f917385a73d57c767 (diff) | |
Make use Hunchentoot's restricted If-Modified-Since handling.
| -rw-r--r-- | mulkcms.lisp | 5 |
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))) |