summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 13:44:03 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 13:44:03 +0200
commit65aca7998ad98788e713c46f53e784bd5dd3f2c9 (patch)
treeda3aebbdf31304b6f6d5aa66ec60a1871ffd3d90
parent988d11a8f188b45af64fa2579718f990b34f3aa6 (diff)
Enable caching for feeds.
Ignore-this: c1f9c6911cf4e7a6b3b4ce819e757704 darcs-hash:453af9de0db5e2b1f6d6510ab08f920633308e9b
-rwxr-xr-xjournal.lisp2
1 files changed, 2 insertions, 0 deletions
diff --git a/journal.lisp b/journal.lisp
index f1fd5b1..e9f55c8 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -51,6 +51,7 @@
(defun show-comment-feed ()
#.(locally-enable-sql-reader-syntax)
+ (revalidate-cache-or-die)
(http-add-header "Last-Modified" (http-timestamp (compute-journal-last-modified-date)))
(http-add-header "Content-Language" "de")
(http-send-headers "application/atom+xml; charset=UTF-8")
@@ -122,6 +123,7 @@
(defun show-atom-feed ()
#.(locally-enable-sql-reader-syntax)
+ (revalidate-cache-or-die)
(http-add-header "Last-Modified" (http-timestamp (compute-journal-last-modified-date)))
(http-add-header "Content-Language" "de")
(http-send-headers "application/atom+xml; charset=UTF-8")