aleph-proxy.clj

aleph-proxy.clj

(require '[aleph.http :as http])

(def main-server
  (http/start-server
   (constantly {:status 200 :body "yo"})
   {:host "localhost"
    :port 3467}))

(def proxy-server
  (http/start-server
   (fn [req]
     (http/request {:method (:request-method req)
                    :url (str "http://localhost:3467" (:uri req))
                    :headers (dissoc (:headers req) "host" "content-length")
                    :follow-redirects true
                    :throw-exceptions false}))
   {:host "localhost"
    :port 3468}))

(while (with-open [s (:body (deref (http/get "http://localhost:3468/foo")))]
         (= (slurp s) "yo")))

(System/exit -1)