From ce1f5ff6cff2a3c820c4212ae8d4c4cfa5ae949c Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 7 Dec 2022 22:29:35 +0100 Subject: services: cuirass-remote-worker: Rotate logs. * gnu/services/cuirass.scm (cuirass-remote-worker-log-rotations): New procedure. (cuirass-remote-worker-service-type): Use it. --- gnu/services/cuirass.scm | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index d7c6ab9877..43a1edcb34 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -394,12 +394,21 @@ CONFIG." #:log-file #$log-file)) (stop #~(make-kill-destructor)))))) +(define (cuirass-remote-worker-log-rotations config) + "Return the list of log rotations that corresponds to CONFIG." + (list (log-rotation + (files (list (cuirass-remote-worker-log-file config))) + (frequency 'weekly) + (options `("rotate 4" ;don't keep too many of them + ,@%default-log-rotation-options))))) + (define cuirass-remote-worker-service-type (service-type (name 'cuirass-remote-worker) (extensions - (list - (service-extension shepherd-root-service-type - cuirass-remote-worker-shepherd-service))) + (list (service-extension shepherd-root-service-type + cuirass-remote-worker-shepherd-service) + (service-extension rottlog-service-type + cuirass-remote-worker-log-rotations))) (description "Run the Cuirass remote build worker service."))) -- cgit 1.4.1