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.
parent
f0c929f1e6
commit
5a3fb30653
|
@ -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}.
|
||||
|
|
|
@ -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="
|
||||
|
|
Reference in New Issue