[mod] [Undertow adapter] [#409] Add default Ajax read timeout (@kajism)

taoensso · Mar 7, 2023 · 728901a · 728901a
1 parent 8806e72
commit 728901a
Showing 1 changed file with 12 additions and 4 deletions.
diff --git 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))))