[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: services: cuirass: Add ‘log-expiry’ option for ‘remote-server’.
From: |
guix-commits |
Subject: |
03/03: services: cuirass: Add ‘log-expiry’ option for ‘remote-server’. |
Date: |
Thu, 12 Oct 2023 16:15:36 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 5a3fb306535c2ec0a118f2f0bc8f6a162b85c7d6
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Oct 12 22:12:51 2023 +0200
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.
---
doc/guix.texi | 4 ++++
gnu/services/cuirass.scm | 7 ++++++-
2 files changed, 10 insertions(+), 1 deletion(-)
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="