23 lines
542 B
Clojure
23 lines
542 B
Clojure
(ns fuck-cors-app.core
|
|
(:require
|
|
[clj-http.client :as client]
|
|
[ring.adapter.jetty :as jetty]
|
|
[ring.middleware.params :refer [wrap-params]]
|
|
[fuck-cors.core :refer [wrap-open-cors]])
|
|
(:gen-class))
|
|
|
|
(defn handler
|
|
[request]
|
|
(let [url (get-in request [:query-params "url"])]
|
|
(client/request {:request-method (:request-method request)
|
|
:url url})))
|
|
|
|
(defn -main
|
|
[& _args]
|
|
(jetty/run-jetty
|
|
(-> handler
|
|
(wrap-params)
|
|
(wrap-open-cors))
|
|
{:port 1977
|
|
:host "127.0.0.1"}))
|