diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-24 14:11:19 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-24 14:11:19 +0100 |
commit | f89b79c4817f8c456c5460491dbfe9163ccdd9fa (patch) | |
tree | 32589e80e923af1acd422a70746ea44462328c9a | |
parent | 4fcf67b7c1b9ce5c35e87e9bdc39ee48c22dd3fd (diff) |
Make the cache SSL-aware.
-rw-r--r-- | mulkcms.lisp | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp index df29b46..2fd8e4b 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -155,7 +155,9 @@ (setf (hunchentoot:return-code*) hunchentoot:+http-not-modified+) (hunchentoot:abort-request-handler)))) (let* ((chars characteristics) - (charstring (prin1-to-string chars)) + (charstring (format nil "~A; ssl=~A" + (prin1-to-string chars) + *use-ssl-p*)) (charbytes (flexi-streams:string-to-octets charstring :external-format :utf-8)) @@ -560,7 +562,7 @@ "feed" "feed/" "journal/feed" "journal/feed") :test #'string=) - (dynamic-lambda (*propagated-params* *base-uri*) () + (dynamic-lambda (*propagated-params* *base-uri* *use-ssl-p*) () (with-db (with-cache (path (query "SELECT max(date) FROM article_revisions" :single) @@ -812,7 +814,7 @@ *requested-characteristics*)) (declare (ignore characteristics action)) (when (string= path "admin/comments") - (dynamic-lambda (*propagated-params* *base-uri*) () + (dynamic-lambda (*propagated-params* *base-uri* *use-ssl-p*) () (with-authorization (user-id :require :admin) (declare (ignore user-id)) (with-db @@ -860,7 +862,7 @@ *requested-characteristics*)) (declare (ignore characteristics action)) (when (string= path "admin/articles") - (dynamic-lambda (*propagated-params* *base-uri*) () + (dynamic-lambda (*propagated-params* *base-uri* *use-ssl-p*) () (with-authorization (user-id :require :admin) (with-db (labels ((paramify-revision-row (row article-id) @@ -965,7 +967,7 @@ :single))) (ecase action (:edit - (dynamic-lambda (*propagated-params* *base-uri*) () + (dynamic-lambda (*propagated-params* *base-uri* *use-ssl-p*) () (with-authorization (user-id :require :admin) (with-db (with-transaction () @@ -1064,7 +1066,7 @@ :content-label "Content" :characteristics-label "Characteristics")))))))) (:view - (dynamic-lambda (*propagated-params* *base-uri*) () + (dynamic-lambda (*propagated-params* *base-uri* *use-ssl-p*) () (with-db (with-cache (path (query "SELECT max(date) @@ -1178,7 +1180,7 @@ (defun find-transaction-key-handler (path) (when (string= path "RPC/generate-transaction-key") - (dynamic-lambda (*propagated-params* *base-uri*) () + (dynamic-lambda (*propagated-params* *base-uri* *use-ssl-p*) () (with-db (setf (hunchentoot:content-type*) "text/plain; charset=utf-8") (format nil "~D" (query "SELECT nextval('transaction_key_seq')" :single!)))))) |