diff options
| -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))) |