You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

78 lines
1.9 KiB

#!/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";
}