branch master updated: services: cuirass: Create queries log files at activation.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new a024eed  services: cuirass: Create queries log files at activation.
a024eed is described below

commit a024eedb1c0a537aa236fa27fe7a94ba6aa3d76c
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Sep 24 13:50:06 2020 +0200

    services: cuirass: Create queries log files at activation.
    
    * gnu/services/cuirass.scm (cuirass-activation)[queries-log-file]: Create 
and
    set user permissions on "queries-log-file" and "web-queries-log-file".
---
 gnu/services/cuirass.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index adf79af..d4faf78 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -186,6 +186,9 @@
         (db    (dirname (cuirass-configuration-database config)))
         (user  (cuirass-configuration-user config))
         (log   "/var/log/cuirass")
+        (queries-log-file (cuirass-configuration-queries-log-file config))
+        (web-queries-log-file
+         (cuirass-configuration-web-queries-log-file config))
         (group (cuirass-configuration-group config)))
     (with-imported-modules '((guix build utils))
       #~(begin
@@ -199,7 +202,13 @@
                 (gid (group:gid (getgr #$group))))
             (chown #$cache uid gid)
             (chown #$db uid gid)
-            (chown #$log uid gid))))))
+            (chown #$log uid gid)
+
+            (call-with-output-file #$queries-log-file (const #t))
+            (call-with-output-file #$web-queries-log-file (const #t))
+
+            (chown #$queries-log-file uid gid)
+            (chown #$web-queries-log-file uid gid))))))
 
 (define (cuirass-log-rotations config)
   "Return the list of log rotations that corresponds to CONFIG."