retry with random delay after "too-many-requests" error

tu-phys · Jul 23, 2023 · 6970b19 · 6970b19
1 parent 07be5aa
commit 6970b19
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/config-example.lisp b/src/config-example.lisp
@@ -19,6 +19,7 @@
       :whitelist (#?|127\.0\.0\.1| #?|141\.30\.[0-9]{1,3}\.[0-9]{1,3}|)
       :ip-header "x-real-ip"
       :root "https://klausurnoug.at"
+      :max-retry-extra-delay 1
       :discourse (:url "https://physik.protagon.space"
                   :key "<KEY>"
                   :username "hiro98"

diff --git a/src/main.lisp b/src/main.lisp
@@ -39,6 +39,7 @@
 
 (setf (who:html-mode) :html5)
 (log:config (or :info (get-config :log-level)))
+(setf *random-state* (make-random-state t))
 
 (defvar *static-directory* (merge-pathnames-as-directory
                             (get-config :application-root)
@@ -98,6 +99,15 @@
                              (~> (dexador.error:response-body c)
                                  (json:decode-json-from-string)
                                  (aget :errors)))))
+    (dexador.error:http-request-too-many-requests (c)
+      (declare (ignore c))
+      (handle-discourse
+       (lambda ()
+         (progn
+           (log:warn "Discourse says too many requests, slowing down...")
+           (sleep (+ (parse-integer (href-default 1 (dexador.error:response-headers c) "retry-after"))
+                     (* (get-config :max-retry-extra-delay) (/ (random 100) 100))))
+           (funcall call)))))
     (error (c)
       (discourse-500 (format nil "~A" c)))))