bumping the request header size, at least, trying.
This commit is contained in:
@@ -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")
|
||||
|
||||
Reference in New Issue
Block a user