diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-10-12 22:12:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-10-12 22:14:34 +0200 |
| commit | 5a3fb306535c2ec0a118f2f0bc8f6a162b85c7d6 (patch) | |
| tree | d4c81e21e7c9543063ed969bb0d02ca7d9acdca1 | |
| parent | f0c929f1e672a9c77ec681f7d548c26c63ff7b83 (diff) | |
| download | guix-patches-5a3fb306535c2ec0a118f2f0bc8f6a162b85c7d6.tar guix-patches-5a3fb306535c2ec0a118f2f0bc8f6a162b85c7d6.tar.gz | |
services: cuirass: Add ‘log-expiry’ option for ‘remote-server’.
* gnu/services/cuirass.scm (<cuirass-remote-server-configuration>)[log-expiry]:
New field.
(cuirass-shepherd-service): Honor it.
* doc/guix.texi (Continuous Integration): Document it.
| -rw-r--r-- | doc/guix.texi | 4 | ||||
| -rw-r--r-- | gnu/services/cuirass.scm | 7 |
2 files changed, 10 insertions, 1 deletions
diff --git a/doc/guix.texi b/doc/guix.texi index d6b8bf1e52..9be321661b 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -33822,6 +33822,10 @@ Location of the log file. @item @code{cache} (default: @code{"/var/cache/cuirass/remote"}) Use @var{cache} directory to cache build log files. +@item @code{log-expiry} (default: 6 months) +The duration in seconds after which build logs collected by +@command{cuirass remote-worker} may be deleted. + @item @code{trigger-url} (default: @code{#f}) Once a substitute is successfully fetched, trigger substitute baking at @var{trigger-url}. 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 @@ (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 @@ (stop #~(make-kill-destructor))) ,@(if remote-server (match-record remote-server <cuirass-remote-server-configuration> - (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 @@ (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=" |