aleph.proxy.clj

(require '[aleph.http :as http])
(require '[ring.middleware.cookies :as cookies])

;; serv is a component which wraps aleph.http.server creation/teardown
(def ECHO (component/start (serv/create "ECHO" {:port 3037
                                                :handler (fn [req]
                                                      (log/info req)
                                                           {:status 200 :body "ok" })})))

;; (component/stop ECHO)



(def PROXY (component/start (serv/create "PROXY"
                                         {:port 3000
                                          :handler (fn [req]
                                                     (log/infof "REQ to proxy %s" req)
                                                     (http/request {:method (:request-method req)
                                                                    :url (str "http://localhost:3037" (:uri req))
                                                                    :headers (dissoc (:headers req) "host" "content-length")
                                                                    :follow-redirects true
                                                                    :throw-exceptions false}))})))


;;  (component/stop PROXY)