summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-12-07 22:38:24 +0100
committerLudovic Courtès <ludo@gnu.org>2022-12-07 23:36:20 +0100
commitac682963a385a44874d91052fd5845f2cc0e8f3e (patch)
tree87bde59c6e7f6d3d9ac22cdf457c695efde5222c
parentce1f5ff6cff2a3c820c4212ae8d4c4cfa5ae949c (diff)
service: cuirass: Rotate remote server logs.
* gnu/services/cuirass.scm (cuirass-log-rotations): Add the remote server log when it is used.
-rw-r--r--gnu/services/cuirass.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 43a1edcb34..43b0e0946e 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -302,8 +302,13 @@
(define (cuirass-log-rotations config)
"Return the list of log rotations that corresponds to CONFIG."
(list (log-rotation
- (files (list (cuirass-configuration-log-file config)
- (cuirass-configuration-web-log-file config)))
+ (files (append (list (cuirass-configuration-log-file config)
+ (cuirass-configuration-web-log-file config))
+ (let ((server
+ (cuirass-configuration-remote-server config)))
+ (if server
+ (list (cuirass-remote-server-log-file server))
+ '()))))
(frequency 'weekly)
(options `("rotate 40" ;worth keeping
,@%default-log-rotation-options)))))