Clojure/Noir: Wymuś HTTPS, przekieruj, jeśli żądanie było http: // na https: //

Question

Próbuję zmusić SSL do mojej witryny. Chcę mieć medium w stylu pierścienia do przekierowania witryny do tego samego adresu URL za pomocą protokołu https, jeśli jest to tylko http

Napisałem poniższy kod, ale tak naprawdę nic nie robi, oprócz sprawdzenia schematu żądania i wydrukowania Adres URL, do którego powinien przekierowywać.

(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) 

Jak zastosować to w prawdziwej aplikacji?

Używam clojure 1.2 z Noir.

Nota boczna: Jak połączyć wiele ciągów w jeden ciąg bez użycia wielu zagnieżdżonych str?

Answer 1

Można użyć ring.util.response/redirect:

(fn handler [request] 
    (if need-to-redirect? 
    ;; NB. target-url should be a string 
    (ring.util.response/redirect target-url) 
    ...)) 

chodzi o marginesie, str jest o zmiennej liczbie argumentów:

(str "foo" 'bar "baz") 
; => "foobarbaz"