TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

services: zabbix-frontend: Adjust indentation.

Browse source 
* gnu/services/monitoring.scm (zabbix-front-end-activation): Reindent.
This commit is contained in:
Marius Bakke 2022-01-28 19:15:13 +01:00
parent 7f12a40e9a
commit 8fa6f975d4
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
gnu/services/monitoring.scm
View file

@ -622,28 +622,28 @@ (define (zabbix-front-end-config config)
$DB['DATABASE'] = '" db-name "'; $DB['DATABASE'] = '" db-name "';
$DB['USER'] = '" db-user "'; $DB['USER'] = '" db-user "';
$DB['PASSWORD'] = " (let ((file (location-file %location)) $DB['PASSWORD'] = " (let ((file (location-file %location))
(line (location-line %location)) (line (location-line %location))
(column (location-column %location))) (column (location-column %location)))
(if (string-null? db-password) (if (string-null? db-password)
(if (string-null? db-secret-file) (if (string-null? db-secret-file)
(raise (make-compound-condition (raise (make-compound-condition
(condition (condition
(&message (&message
(message (message
(format #f "no '~A' or '~A' field in your '~A' record" (format #f "no '~A' or '~A' field in your '~A' record"
'db-secret-file 'db-password 'db-secret-file 'db-password
'zabbix-front-end-configuration)))) 'zabbix-front-end-configuration))))
(condition (condition
(&error-location (&error-location
(location %location))))) (location %location)))))
(string-append "trim(file_get_contents('" (string-append "trim(file_get_contents('"
db-secret-file "'));\n")) db-secret-file "'));\n"))
(begin (begin
(display-hint (format #f (G_ "~a:~a:~a: ~a: (display-hint (format #f (G_ "~a:~a:~a: ~a:
Consider using @code{db-secret-file} instead of @code{db-password} for better Consider using @code{db-secret-file} instead of @code{db-password} for better
security.") file line column 'zabbix-front-end-configuration)) security.") file line column 'zabbix-front-end-configuration))
(format #f "'~a';~%" db-password)))) (format #f "'~a';~%" db-password))))
" "
// Schema name. Used for IBM DB2 and PostgreSQL. // Schema name. Used for IBM DB2 and PostgreSQL.
$DB['SCHEMA'] = ''; $DB['SCHEMA'] = '';