clojure - 如何让 Compojure 收听单个 IP

Question

我已经启动了一个 Compojure (Jetty) 服务器:

(defonce *server* (run-server {:host "localhost" :port 8080} "/*" (servlet routes)))

但是 netstat 仍然显示它正在监听 0.0.0.0:8080，即所有 IP。

传递给 run-server 以使其监听单个 IP 的正确参数是什么？

Answer 1

我认为您将不得不修补 Compojure。它对您的 :host 没有任何作用范围。将此更改更改为 server/jetty.clj似乎有效，但我还没有彻底测试过。

(defn- create-server  "Construct a Jetty Server instance."  [options servlets]  (let [port     (options :port 80)        host     (options :host "0.0.0.0")        connector (doto (org.mortbay.jetty.bio.SocketConnector.)                    (.setPort port)                    (.setHost host))        server   (doto (Server.)                   (.addConnector connector))        servlets (partition 2 servlets)]    (when (or (options :ssl) (options :ssl-port))      (add-ssl-connector! server options))    (doseq [[url-or-path servlet] servlets]      (add-servlet! server url-or-path servlet))    server))

user> (run-server {:port 12346})
2009-07-22 13:48:53.999::INFO:  jetty-6.1.15
2009-07-22 13:48:54.002::INFO:  Started SocketConnector@0.0.0.0:12346
nil
user> (run-server {:host "127.0.0.1" :port 12345})
2009-07-22 13:48:08.061::INFO:  jetty-6.1.15
2009-07-22 13:48:08.129::INFO:  Started SocketConnector@127.0.0.1:12345