try ports

[awb99]

(defn- try-ports [func ports] (try (func (first ports)) (catch BindException ex (if-let [ports (next ports)] (try-ports func ports) (throw ex))))) (def suitable-ports (range 3000 3011))

[awb99]

(:import java.net.BindException #_ org.mortbay.log.Logger )

(defn- start-server ([handler] (try-ports #(start-server handler %) suitable-ports)) ([handler port] (jetty/run-jetty (-> handler st/wrap-stacktrace ) {:port port, :join? false})))

(defn run-jetty-blocking [handler port] (jetty/run-jetty handler {:port port}))

[ring.middleware.stacktrace :as st]