diff --git a/src/clj/auto_ap/server.clj b/src/clj/auto_ap/server.clj index 7d86c3a9..83240388 100644 --- a/src/clj/auto_ap/server.clj +++ b/src/clj/auto_ap/server.clj @@ -55,21 +55,23 @@ (let [stats-handler (StatisticsHandler.) gzip-handler (gzip-handler) default-handler (.getHandler server)] - + (.setHandler gzip-handler default-handler) (.setHandler stats-handler gzip-handler) (.setHandler server stats-handler)) (.setStopAtShutdown server true)) -(mount/defstate port :start (Integer/parseInt (or (env :port) "3000"))) +(mount/defstate port :start (Integer/parseInt (or (env :port) "9000"))) + (mount/defstate jetty :start (run-jetty app {:port port :join? false - :configurator configure-jetty}) + :configurator configure-jetty + :request-header-size 16384}) :stop (.stop jetty)) (defn collect-jetty-stats [] - (try + (try (statsd/gauge "requests.active" (double (.getRequestsActive (.getHandler jetty)))) (statsd/gauge "requests.1xx" (double (.getResponses1xx (.getHandler jetty)))) (statsd/gauge "requests.2xx" (double (.getResponses2xx (.getHandler jetty)))) @@ -88,7 +90,7 @@ (defn shutdown-mount [] (mount/stop)) - (defn -main [& _] +(defn -main [& _] (let [job (System/getenv "INTEGREAT_JOB")] (println "JOB is" job) (cond (= job "square-import-job")