From 728901a3f210089f301de4fe8d4e1769d64170dc Mon Sep 17 00:00:00 2001 From: Peter Taoussanis Date: Tue, 20 Sep 2022 15:40:25 +0200 Subject: [PATCH] [mod] [Undertow adapter] [#409] Add default Ajax read timeout (@kajism) --- src/taoensso/sente/server_adapters/undertow.clj | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/src/taoensso/sente/server_adapters/undertow.clj b/src/taoensso/sente/server_adapters/undertow.clj index 81ea377..feb9c4b 100644 --- a/src/taoensso/sente/server_adapters/undertow.clj +++ b/src/taoensso/sente/server_adapters/undertow.clj @@ -84,10 +84,18 @@ (defn get-sch-adapter "Returns an Undertow ServerChanAdapter. Options: - :ajax-resp-timeout-ms ; Max msecs to wait for Ajax responses - :ajax-resp-timeout-val ; Value returned in case of above timeout" + :ajax-resp-timeout-ms ; Max msecs to wait for Ajax responses (default 60 secs) + :ajax-resp-timeout-val ; Value returned in case of above timeout + ; (default `:undertow/ajax-resp-timeout`)" ([] (get-sch-adapter nil)) ([{:as opts :keys [ajax-resp-timeout-ms - ajax-resp-timeout-val]}] - (UndertowServerChanAdapter. opts))) + ajax-resp-timeout-val] + + :or {ajax-resp-timeout-ms (* 60 1000) + ajax-resp-timeout-val :undertow/ajax-resp-timeout}}] + + (UndertowServerChanAdapter. + (assoc opts + :ajax-resp-timeout-ms ajax-resp-timeout-ms + :ajax-resp-timeout-val ajax-resp-timeout-val))))