diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-12-07 22:38:24 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-12-07 23:36:20 +0100 |
| commit | ac682963a385a44874d91052fd5845f2cc0e8f3e (patch) | |
| tree | 87bde59c6e7f6d3d9ac22cdf457c695efde5222c | |
| parent | ce1f5ff6cff2a3c820c4212ae8d4c4cfa5ae949c (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.scm | 9 |
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))))) |