me
/
guix
Archived
1
0
Fork 0
Code

service: cuirass: Rotate remote server logs. 

* gnu/services/cuirass.scm (cuirass-log-rotations): Add the remote
server log when it is used.
Ludovic Courtès 2022-12-07 22:38:24 +01:00
parent ce1f5ff6cf
commit ac682963a3
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/services/cuirass.scm
View File

@ -302,8 +302,13 @@
(define (cuirass-log-rotations config) (define (cuirass-log-rotations config)
"Return the list of log rotations that corresponds to CONFIG." "Return the list of log rotations that corresponds to CONFIG."
(list (log-rotation (list (log-rotation
(files (list (cuirass-configuration-log-file config) (files (append (list (cuirass-configuration-log-file config)
(cuirass-configuration-web-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) (frequency 'weekly)
(options `("rotate 40" ;worth keeping (options `("rotate 40" ;worth keeping
,@%default-log-rotation-options))))) ,@%default-log-rotation-options)))))