tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 12:01:49 +02:00
Code Activity

services: cuirass: Add web SQL queries logging support.

Browse Source 
* gnu/services/cuirass.scm (<cuirass-configuration>)[web-queries-log-file]:
New field.
(cuirass-shepherd-service): Honor it.
(cuirass-log-rotations): If defined, add the web queries log file to the log
rotation.
This commit is contained in:
Mathieu Othacehe
2020-09-24 11:28:14 +02:00
parent c5d9cdd913
commit 80e26d7429
2 changed files with 17 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/services/cuirass.scm
+13 -3
View File
@@ -56,6 +56,9 @@
(default "/var/log/cuirass-web.log"))
(queries-log-file cuirass-configuration-queries-log-file ;string
(default #f))
(web-queries-log-file
cuirass-configuration-web-queries-log-file ;string
(default #f))
(cache-directory cuirass-configuration-cache-directory ;string (dir-name)
(default "/var/cache/cuirass"))
(ttl cuirass-configuration-ttl ;integer
@@ -90,6 +93,8 @@
(web-log-file (cuirass-configuration-web-log-file config))
(log-file (cuirass-configuration-log-file config))
(queries-log-file (cuirass-configuration-queries-log-file config))
(web-queries-log-file
(cuirass-configuration-web-queries-log-file config))
(user (cuirass-configuration-user config))
(group (cuirass-configuration-group config))
(interval (cuirass-configuration-interval config))
@@ -147,9 +152,9 @@
"--port" #$(number->string port)
"--listen" #$host
"--interval" #$(number->string interval)
#$@(if queries-log-file
#$@(if web-queries-log-file
(list (string-append "--log-queries="
queries-log-file))
web-queries-log-file))
'())
#$@(if use-substitutes? '("--use-substitutes") '())
#$@(if fallback? '("--fallback") '())
@@ -198,11 +203,16 @@
(define (cuirass-log-rotations config)
"Return the list of log rotations that corresponds to CONFIG."
(let ((queries-log-file (cuirass-configuration-queries-log-file config)))
(let ((queries-log-file (cuirass-configuration-queries-log-file config))
(web-queries-log-file
(cuirass-configuration-web-queries-log-file config)))
(list (log-rotation
(files `(,(cuirass-configuration-log-file config)
,@(if queries-log-file
(list queries-log-file)
'())
,@(if web-queries-log-file
(list web-queries-log-file)
'())))
(frequency 'weekly)
(options '("rotate 40")))))) ;worth keeping