Clojure / Noir: принудительное HTTPS, перенаправление, если запрос был http: // на https: // - PullRequest
Новая
       5

Clojure / Noir: принудительное HTTPS, перенаправление, если запрос был http: // на https: //

8 голосов
/ 16 февраля 2012

Я пытаюсь установить SSL на своем сайте. Я хочу иметь промежуточное программное обеспечение в кольцевом стиле для перенаправления сайта на тот же URL с https, если это только 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.

Примечание: Как объединить несколько строк в одну строку без использования нескольких вложенных строк?

1 Ответ

6 голосов
/ 16 февраля 2012

Вы можете использовать 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"
...