私はCompojureは、単一のIPを聞く作るにはどうすればよいです

Question

私はとCompojure（突堤）サーバーを開始しました

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

が、netstatコマンドはまだそれが0.0.0.0:8080、すなわち上のすべてのIPを聞いていることを示しています。

これは、単一の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