Clojure/Noir: forza HTTPS, reindirizza se la richiesta era http: // a https: //

Question

Sto provando a forzare SSL sul mio sito. Voglio avere un middleware stile ring per reindirizzare il sito allo stesso URL con https se è solo http

Ho scritto il seguente codice ma in realtà non fa nulla oltre a controllare lo schema di richiesta e stampare il URL a cui dovrebbe essere reindirizzato.

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

Come implementarlo in un'app reale?

Sto usando Clojure 1.2 con Noir.

Nota a margine: come si combinano più stringhe in una stringa senza utilizzare più str annidati?

Answer 1

È possibile utilizzare ring.util.response/redirect:

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

Per quanto riguarda la nota a margine, str è variadic:

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