From 5a3fb306535c2ec0a118f2f0bc8f6a162b85c7d6 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 12 Oct 2023 22:12:51 +0200 Subject: services: cuirass: Add ‘log-expiry’ option for ‘remote-server’. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/services/cuirass.scm ()[log-expiry]: New field. (cuirass-shepherd-service): Honor it. * doc/guix.texi (Continuous Integration): Document it. --- gnu/services/cuirass.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gnu/services') diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index 71787a85e6..fcbd5e08a5 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -73,6 +73,8 @@ (define-record-type* (default "/var/log/cuirass-remote-server.log")) (cache cuirass-remote-server-configuration-cache ;string (default "/var/cache/cuirass/remote/")) + (log-expiry cuirass-remote-server-configuration-log-expiry + (default (* 6 30 24 3600))) ;6 months (publish? cuirass-remote-server-configuration-publish? ;boolean (default #t)) (trigger-url cuirass-remote-server-trigger-url ;string @@ -194,7 +196,7 @@ (define (cuirass-shepherd-service config) (stop #~(make-kill-destructor))) ,@(if remote-server (match-record remote-server - (backend-port publish-port log-file cache publish? + (backend-port publish-port log-file log-expiry cache publish? trigger-url public-key private-key) (list (shepherd-service @@ -207,6 +209,9 @@ (define (cuirass-shepherd-service config) (string-append "--database=" #$database) (string-append "--cache=" #$cache) (string-append "--user=" #$user) + (string-append "--log-expiry=" + #$(number->string log-expiry) + "s") #$@(if backend-port (list (string-append "--backend-port=" -- cgit v1.2.3