mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-24 11:39:46 -05:00
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".
This commit is contained in:
parent
80e26d7429
commit
a024eedb1c
1 changed files with 10 additions and 1 deletions
|
@ -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."
|
||||
|
|
Loading…
Reference in a new issue