aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/server.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-05-31 08:48:42 +0100
committerChristopher Baines <mail@cbaines.net>2023-05-31 08:48:42 +0100
commitb21d58dc1470e4e8a2b9f3a624925ba9637bebcb (patch)
treeda2457004f744d3da73fa03aeca5f422c3404c64 /guix-qa-frontpage/server.scm
parent0c7b9fb68d042d7369944322f7cd3711310c197b (diff)
downloadqa-frontpage-b21d58dc1470e4e8a2b9f3a624925ba9637bebcb.tar
qa-frontpage-b21d58dc1470e4e8a2b9f3a624925ba9637bebcb.tar.gz
Try to reduce the frequency of the requests to issues.guix.gnu.org
To avoid the DoS protection.
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r--guix-qa-frontpage/server.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index b232b40..bf4a589 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -157,7 +157,7 @@
database
'latest-patchwork-series-by-issue
latest-patchwork-series-by-issue
- #:ttl 1200))
+ #:ttl 1800))
(latest-series-with-overall-statuses
(map
(lambda (series)
@@ -356,7 +356,7 @@
database
'latest-patchwork-series-by-issue
latest-patchwork-series-by-issue
- #:ttl 1200)
+ #:ttl 1800)
(string->number number))))
(if series
(let* ((base-and-target-refs
@@ -517,7 +517,7 @@ port. Also, the port used can be changed by passing the --port option.\n"
#:key
(number-of-series-to-refresh 250))
(define frequency
- (* 10 60))
+ (* 15 60))
(define (refresh-data)
(simple-format (current-error-port)