File:Check zmstatus.pl

Zimbra Nagios Check

<source lang=perl>

1. !/usr/bin/perl -w

use strict; use English; use Getopt::Long;

1. 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";

1. 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);

1. Check that binary exists

unless (-e $opt_z) {

       print "CRITICAL: ZMStatus not found - $opt_z\n";
       exit 2;

}

1. open "zmcontrol status" command

open(ZMCONTROL, "sudo -u ".$opt_u." $opt_z status |") || die('zmcontrol not found'); my @zmcontent = <ZMCONTROL>; close(ZMCONTROL);

my $i;

1. parse every line exept the first

for ($i=1; $i<@zmcontent;$i++) {

       if  ($zmcontent[$i] =~ m/\s(\w+)\s+(\w+)/g) {
               if ($2 ne "Running") {
                       push @failed_services, $1;
               }
       }

}

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: ";
       foreach my $service (@failed_services) {
               print $service . " ";
       }
       print "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";

} </source>