02/02: services: cuirass: Add Zabbix support.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 703e5c92eeb38d86455c2b1cace5cad9fc08b349
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Feb 8 12:30:12 2021 +0100

    services: cuirass: Add Zabbix support.
    
    * gnu/services/cuirass.scm (<cuirass-configuration>)[zabbix-uri]: New field.
    (cuirass-shepherd-service): Honor it.
---
 gnu/services/cuirass.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 2d0bf47..d291d49 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -109,6 +109,8 @@
                     (default #f))
   (fallback?        cuirass-configuration-fallback? ;boolean
                     (default #f))
+  (zabbix-uri       cuirass-configuration-zabbix-uri ;string
+                    (default #f))
   (extra-options    cuirass-configuration-extra-options
                     (default '())))
 
@@ -129,6 +131,7 @@
         (use-substitutes? (cuirass-configuration-use-substitutes? config))
         (one-shot?        (cuirass-configuration-one-shot? config))
         (fallback?        (cuirass-configuration-fallback? config))
+        (zabbix-uri       (cuirass-configuration-zabbix-uri config))
         (extra-options    (cuirass-configuration-extra-options config)))
     `(,(shepherd-service
         (documentation "Run Cuirass.")
@@ -145,6 +148,11 @@
                         #$@(if use-substitutes? '("--use-substitutes") '())
                         #$@(if one-shot? '("--one-shot") '())
                         #$@(if fallback? '("--fallback") '())
+                        #$@(if zabbix-uri
+                               (list (string-append
+                                      "--zabbix-uri="
+                                      zabbix-uri))
+                               '())
                         #$@extra-options)
 
                   #:environment-variables