diff options
| author | Marius Bakke <marius@gnu.org> | 2022-01-28 19:15:13 +0100 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2022-01-29 12:52:37 +0100 |
| commit | 8fa6f975d4bb87b3d177722221e4db4263d8b5f9 (patch) | |
| tree | 05151412b8374f474ff7541a129311f3a47553ff | |
| parent | 7f12a40e9a83996af15d9b82160264d985bafc2c (diff) | |
| download | guix-8fa6f975d4bb87b3d177722221e4db4263d8b5f9.tar.gz guix-8fa6f975d4bb87b3d177722221e4db4263d8b5f9.zip | |
services: zabbix-frontend: Adjust indentation.
* gnu/services/monitoring.scm (zabbix-front-end-activation): Reindent.
| -rw-r--r-- | gnu/services/monitoring.scm | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/gnu/services/monitoring.scm b/gnu/services/monitoring.scm index 428371f2cf..a3955808e9 100644 --- a/gnu/services/monitoring.scm +++ b/gnu/services/monitoring.scm @@ -622,28 +622,28 @@ $DB['PORT'] = '" (number->string db-port) "'; $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'] = ''; |