From 4fcf67b7c1b9ce5c35e87e9bdc39ee48c22dd3fd Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 24 Mar 2011 14:01:08 +0100 Subject: Introduce site variables *BASE-URI/SSL* and *BASE-URI/PLAIN*. When using SSL, set *BASE-URI* to the former, otherwise set it to the latter. --- mulkcms-hunchentoot.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'mulkcms-hunchentoot.lisp') diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 9cd4b9c..9f81cb0 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -13,7 +13,9 @@ (lambda () (handle-static-file file))))) (defun dispatch-mulkcms-request (request) - (let* ((relative-path (subseq (script-name request) 1))) + (let* ((relative-path (subseq (script-name request) 1)) + (mulkcms::*use-ssl-p* (equal (header-in* :x-use-ssl) + "true"))) (mulkcms::find-request-handler relative-path (append (get-parameters*) (post-parameters*)) -- cgit v1.2.3