我正在尝试在我的网站上强制使用 SSL。我想要一个环形中间件，将网站重定向到与 https 相同的 URL（如果它只是 http）
我编写了以下代码，但除了检查请求方案并打印它应该重定向到的 URL 之外，它实际上没有做任何事情。
(defn https-url [request-url]
(str (str (str (str "https://" (:server-name request-url) ":") (:server-port request-url))) (:uri request-url)))
(defn require-https
[handler]
(fn [request]
(let [page-request (handler request)]
(if (= (:scheme page-request) :http)
(println (https-url page-request))))))
(server/add-middleware require-https)
我如何将其实现到真正的应用程序中？
我正在使用 clojure 1.2 和 Noir。
旁注：如何在不使用多个嵌套 str 的情况下将多个字符串合并为一个字符串？
您可以使用ring.util.response/redirect:
(fn handler [request]
(if need-to-redirect?
;; NB. target-url should be a string
(ring.util.response/redirect target-url)
...))
至于旁注，str是可变的：
(str "foo" 'bar "baz")
; => "foobarbaz"
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
