Skip to content
Snippets Groups Projects
Unverified Commit a024eedb authored by Mathieu Othacehe's avatar Mathieu Othacehe
Browse files

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".
parent 80e26d74
No related branches found
No related tags found
No related merge requests found
......@@ -186,6 +186,9 @@ (define (cuirass-activation config)
(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 @@ (define (cuirass-activation config)
(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."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment