bumping the request header size, at least, trying.
This commit is contained in:
@@ -55,21 +55,23 @@
|
|||||||
(let [stats-handler (StatisticsHandler.)
|
(let [stats-handler (StatisticsHandler.)
|
||||||
gzip-handler (gzip-handler)
|
gzip-handler (gzip-handler)
|
||||||
default-handler (.getHandler server)]
|
default-handler (.getHandler server)]
|
||||||
|
|
||||||
(.setHandler gzip-handler default-handler)
|
(.setHandler gzip-handler default-handler)
|
||||||
(.setHandler stats-handler gzip-handler)
|
(.setHandler stats-handler gzip-handler)
|
||||||
(.setHandler server stats-handler))
|
(.setHandler server stats-handler))
|
||||||
(.setStopAtShutdown server true))
|
(.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
|
(mount/defstate jetty
|
||||||
:start (run-jetty app {:port port
|
:start (run-jetty app {:port port
|
||||||
:join? false
|
:join? false
|
||||||
:configurator configure-jetty})
|
:configurator configure-jetty
|
||||||
|
:request-header-size 16384})
|
||||||
:stop (.stop jetty))
|
:stop (.stop jetty))
|
||||||
|
|
||||||
(defn collect-jetty-stats []
|
(defn collect-jetty-stats []
|
||||||
(try
|
(try
|
||||||
(statsd/gauge "requests.active" (double (.getRequestsActive (.getHandler jetty))))
|
(statsd/gauge "requests.active" (double (.getRequestsActive (.getHandler jetty))))
|
||||||
(statsd/gauge "requests.1xx" (double (.getResponses1xx (.getHandler jetty))))
|
(statsd/gauge "requests.1xx" (double (.getResponses1xx (.getHandler jetty))))
|
||||||
(statsd/gauge "requests.2xx" (double (.getResponses2xx (.getHandler jetty))))
|
(statsd/gauge "requests.2xx" (double (.getResponses2xx (.getHandler jetty))))
|
||||||
@@ -88,7 +90,7 @@
|
|||||||
(defn shutdown-mount []
|
(defn shutdown-mount []
|
||||||
(mount/stop))
|
(mount/stop))
|
||||||
|
|
||||||
(defn -main [& _]
|
(defn -main [& _]
|
||||||
(let [job (System/getenv "INTEGREAT_JOB")]
|
(let [job (System/getenv "INTEGREAT_JOB")]
|
||||||
(println "JOB is" job)
|
(println "JOB is" job)
|
||||||
(cond (= job "square-import-job")
|
(cond (= job "square-import-job")
|
||||||
|
|||||||
Reference in New Issue
Block a user