Clojure/Noir：HTTPSを強制し、要求がhttp：//からhttps：//にリダイレクトされた場合

Question

私は自分のサイトにSSLを強制しようとしています。私はHTTPだけであればhttpsで同じURLにサイトをリダイレクトするためのリングスタイルのミドルウェアを持っています

私は以下のコードを書いていますが、リクエストスキームをチェックし、 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) 

これを実際のアプリケーションに実装するにはどうすればよいですか？

私はNoirとclojure 1.2を使用しています。

サイドノート：複数のネストされた文字列を使用せずに複数の文字列を1つの文字列に結合するにはどうすればよいですか？

Answer 1

あなたは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"