me
/
guix
Archived
1
0
Fork 0
Code

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".
master
Mathieu Othacehe 2020-09-24 13:50:06 +02:00
parent 80e26d7429
commit a024eedb1c
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/services/cuirass.scm
View File

@ -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."