From 0b44c1d0f2db08359600bef8308a035c0b2a80fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?s=C3=A9bastien?= <sebastien.faton@altinea.fr>
Date: Mon, 8 Apr 2024 13:38:43 +0200
Subject: [PATCH] =?UTF-8?q?=09nouveau=20fichier=C2=A0:=20Supervision/check?=
 =?UTF-8?q?=5Fzmstatus.pl?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Supervision/check_zmstatus.pl | 78 +++++++++++++++++++++++++++++++++++
 1 file changed, 78 insertions(+)
 create mode 100644 Supervision/check_zmstatus.pl

diff --git a/Supervision/check_zmstatus.pl b/Supervision/check_zmstatus.pl
new file mode 100644
index 0000000..55ad7fa
--- /dev/null
+++ b/Supervision/check_zmstatus.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/perl -w
+
+use strict;
+use English;
+use Getopt::Long;
+#use File::stat;
+sub print_help ();
+sub print_usage ();
+sub check_username ();
+
+my ($opt_z, $opt_h, $opt_b, $opt_u);
+my ($result, $message, @failed_services);
+
+my $PROGNAME="check_zmstatus";
+
+#default values
+$opt_z='/opt/zimbra/bin/zmcontrol';
+$opt_u='zimbra';
+
+
+Getopt::Long::Configure('bundling');
+GetOptions(
+        "h"   => \$opt_h, "help"        => \$opt_h,
+        "u=s" => \$opt_u, "username"        => \$opt_u,
+        "b=s" => \$opt_z, "binary"        => \$opt_z);
+
+if ($opt_h) {
+        print_help();
+        exit;
+}
+
+$opt_z = shift unless ($opt_z);
+
+# Check that binary exists 
+unless (-e $opt_z) {
+        print "CRITICAL: ZMStatus not found - $opt_z\n";
+        exit 2;
+}
+
+# open "zmcontrol status" command
+open(ZMCONTROL, "sudo -u ".$opt_u." $opt_z status |") || die('zmcontrol not found');
+my @zmcontent = <ZMCONTROL>;
+close(ZMCONTROL);
+
+my $i;
+# parse every line exept the first
+for ($i=1; $i<@zmcontent;$i++) {
+        if  ($zmcontent[$i] =~ m/\s([a-zA-Z ]+)\s{2,}(\w+)/g) {
+                if ($2 ne "Running") {
+                        push @failed_services, $1;
+
+                }
+        }
+}
+
+# $i tells if services where checked
+if (( @failed_services == 0 ) && ($i > 5)) {
+        print "OK: every service is running fine\n";
+        exit 0; # OK
+} else {
+        print "Critical: " . join(',', @failed_services) . " not running";
+        exit 2; # Error
+}        
+
+sub print_usage () {
+        print "Usage:\n";
+        print "  $PROGNAME [-u username] [-b zmstatuspath]\n";
+        print "  $PROGNAME [-h | --help]\n";
+}
+
+sub print_help () {
+        print "Copyright (c) 2008 Andreas Roth\n\n";
+        print_usage();
+        print "\n";
+        print "  <username>  username for zimbrauser - be aware of setting up sudo before (default: zimbra)\n";
+        print "  <zmstatuspath>  Path where zmcontrol command is found (default: /opt/zimbra/bin/zmcontrol)\n";
+        print "\n";
+}
\ No newline at end of file