bumping the request header size, at least, trying.

This commit is contained in:
2024-01-19 12:50:43 -08:00
parent 57f1805b55
commit ac8e8bbdaf

View File

@@ -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")