services: anonip: Rotate log files.

* gnu/services/web.scm (anonip-log-files): New procedure.
(anonip-service-type): Use it to extend ‘log-rotation-service-type’.
* doc/guix.texi (Log Rotation): Document it.

Change-Id: I903bb79e0992b794bb0a40e504283cd57a8a087b

2 files changed, 9 insertions, 1 deletions

diff --git a/doc/guix.texi b/doc/guix.texi
index f7868422f7..bee80cd4e2 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -21453,7 +21453,9 @@ The file name of the input log file to process.  The service creates a
 FIFO of this name.  The web server should write its logs to this FIFO.
 
 @item @code{output}
-The file name of the processed log file.
+The file name of the processed log file.  This file is subject to log
+rotation @i{via} the Shepherd's log rotation service (@pxref{Log
+Rotation}).
 @end table
 
 The following optional settings may be provided:
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index f8cf06fb48..9caa03317b 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -1574,12 +1574,18 @@ files.")
                   "LC_ALL=en_US.utf8"))))
       (stop #~(make-kill-destructor))))))
 
+(define (anonip-log-files config)
+  "Return the list of log files produced by @command{anonip}."
+  (list (anonip-configuration-output config)))
+
 (define anonip-service-type
   (service-type
    (name 'anonip)
    (extensions
     (list (service-extension shepherd-root-service-type
                              anonip-shepherd-service)
+          (service-extension log-rotation-service-type
+                             anonip-log-files)
           (service-extension activation-service-type
                              anonip-activation)))
    (description