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.) (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")