branch master updated: Add Zabbix command line argument.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 5e58505  Add Zabbix command line argument.
5e58505 is described below

commit 5e5850533e680fd090f7fb695d9133cb0d98b23a
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Feb 8 13:31:28 2021 +0100

    Add Zabbix command line argument.
    
    * bin/cuirass.in: Add "--zabbix-uri" argument.
    * src/cuirass/zabbix.scm (%zabbix-uri): Export it.
---
 bin/cuirass.in         | 4 ++++
 src/cuirass/zabbix.scm | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/bin/cuirass.in b/bin/cuirass.in
index 8edebef..cca7848 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -34,6 +34,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
              (cuirass metrics)
              (cuirass utils)
              (cuirass watchdog)
+             (cuirass zabbix)
              (guix ui)
              ((guix build utils) #:select (mkdir-p))
              (fibers)
@@ -61,6 +62,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
       --use-substitutes     Allow usage of pre-built substitutes
       --record-events       Record events for distribution
       --threads=N           Use up to N kernel threads
+  -z, --zabbix-uri=URI      Use Zabbix server at URI
   -V, --version             Display version
   -h, --help                Display this help message")
   (newline)
@@ -78,6 +80,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
     (build-remote                     (value #f))
     (use-substitutes                  (value #f))
     (threads                          (value #t))
+    (zabbix-uri     (single-char #\z) (value #f))
     (fallback                         (value #f))
     (record-events                    (value #f))
     (ttl                              (value #t))
@@ -106,6 +109,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" 
"$@"
          (%package-cachedir
           (option-ref opts 'cache-directory (%package-cachedir)))
          (%build-remote? (option-ref opts 'build-remote #f))
+         (%zabbix-uri (option-ref opts 'zabbix-uri #f))
          (%use-substitutes? (option-ref opts 'use-substitutes #f))
          (%fallback? (option-ref opts 'fallback #f))
          (%record-events? (option-ref opts 'record-events #f))
diff --git a/src/cuirass/zabbix.scm b/src/cuirass/zabbix.scm
index 3ceff34..adc51cb 100644
--- a/src/cuirass/zabbix.scm
+++ b/src/cuirass/zabbix.scm
@@ -25,7 +25,8 @@
   #:use-module (rnrs bytevectors)
   #:use-module (srfi srfi-11)
   #:use-module (ice-9 match)
-  #:export (zabbix-api-version
+  #:export (%zabbix-uri
+            zabbix-api-version
             zabbix-available?
             zabbix-login
             zabbix-logout