02/03: service: cuirass: Rotate remote server logs.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ac682963a385a44874d91052fd5845f2cc0e8f3e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Dec 7 22:38:24 2022 +0100

    service: cuirass: Rotate remote server logs.
    
    * gnu/services/cuirass.scm (cuirass-log-rotations): Add the remote
    server log when it is used.
---
 gnu/services/cuirass.scm | 9 +++++++--
 1 file 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)))))