diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-24 14:01:08 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-24 14:01:08 +0100 |
| commit | 4fcf67b7c1b9ce5c35e87e9bdc39ee48c22dd3fd (patch) | |
| tree | 188dd80eee9f13c0bd4ab4d14f757bc9b9f087a6 /mulkcms-hunchentoot.lisp | |
| parent | 2049f93f991e72f05d73c5d640327fb6343ef245 (diff) | |
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.
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
| -rw-r--r-- | mulkcms-hunchentoot.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
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*)) |