ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: zabbix-front-end: Show location in messages.

Browse source 
* gnu/services/monitoring.scm (zabbix-front-end-config): Show location in
messages.
This commit is contained in:
Oleg Pykhalov 2018-12-22 23:32:05 +03:00
parent d132d9f96b
commit e44de1d2fb
No known key found for this signature in database
GPG key ID: 167F8EA5001AFA9C
1 changed files with 33 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
gnu/services/monitoring.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -29,7 +29,8 @@ (define-module (gnu services monitoring)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix records)
#:use-module ((guix ui) #:select (display-hint))
#:use-module (guix utils)
#:use-module ((guix ui) #:select (display-hint G_))
#:use-module (ice-9 match)
#:use-module (ice-9 rdelim)
#:use-module (srfi srfi-26)
@ -509,10 +510,9 @@ (define-configuration zabbix-front-end-configuration
(number 10051)
"Zabbix server port."))
(define zabbix-front-end-config
(match-lambda
(($ <zabbix-front-end-configuration>
_ db-host db-port db-name db-user db-password db-secret-file
(define (zabbix-front-end-config config)
(match-record config <zabbix-front-end-configuration>
(%location db-host db-port db-name db-user db-password db-secret-file
zabbix-host zabbix-port)
(mixed-text-file "zabbix.conf.php"
"\
@ -525,20 +525,29 @@ (define zabbix-front-end-config
$DB['PORT'] = '" (number->string db-port) "';
$DB['DATABASE'] = '" db-name "';
$DB['USER'] = '" db-user "';
$DB['PASSWORD'] = '" (if (string-null? db-password)
$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 (condition
(raise (make-compound-condition
(condition
(&message
(message "\
you must provide either 'db-secret-file' or 'db-password'"))))
(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-trim-both
(with-input-from-file db-secret-file
read-string)))
(begin
(display-hint "\
Consider using @code{db-secret-file} instead of @code{db-password} and unset
@code{db-password} for security in @code{zabbix-front-end-configuration}.")
db-password)) "';
(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))
db-password))) "';
// Schema name. Used for IBM DB2 and PostgreSQL.
$DB['SCHEMA'] = '';
@ -548,7 +557,7 @@ (define zabbix-front-end-config
$ZBX_SERVER_NAME = '';
$IMAGE_FORMAT_DEFAULT = IMAGE_FORMAT_PNG;
"))))
")))
(define %maintenance.inc.php
;; Empty php file to allow us move zabbix-frontend configs to ‘/etc/zabbix’