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['USER'] = '" db-user "';
$DB['PASSWORD'] = " (let ((file (location-file %location))
(line (location-line %location))
(column (location-column %location)))
(if (string-null? db-password)
(if (string-null? db-secret-file)
(raise (make-compound-condition
(condition
(&message
(message
(format #f "no '~A' or '~A' field in your '~A' record"
'db-secret-file 'db-password
'zabbix-front-end-configuration))))
(condition
(&error-location
(location %location)))))
(string-append "trim(file_get_contents('"
db-secret-file "'));\n"))
(begin
(display-hint (format #f (G_ "~a:~a:~a: ~a:
(line (location-line %location))
(column (location-column %location)))
(if (string-null? db-password)
(if (string-null? db-secret-file)
(raise (make-compound-condition
(condition
(&message
(message
(format #f "no '~A' or '~A' field in your '~A' record"
'db-secret-file 'db-password
'zabbix-front-end-configuration))))
(condition
(&error-location
(location %location)))))
(string-append "trim(file_get_contents('"
db-secret-file "'));\n"))
(begin
(display-hint (format #f (G_ "~a:~a:~a: ~a:
Consider using @code{db-secret-file} instead of @code{db-password} for better
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.
$DB['SCHEMA'] = '';