Additional scripts for Zabbix agent on Linux to discover and monitor several services
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.

31 lines
673 B

#!/usr/bin/perl -w
use strict;
use JSON;
my $json;
@{$json->{data}} = ();
my $hpacucli = '/usr/sbin/hpacucli';
# the hpacucli utility is needed
unless (-x $hpacucli){
print to_json($json);
exit(0);
}
open( HPACUCLI, "$hpacucli controller all show status|" )
or die "An error occured while running $hpacucli: $!";
foreach my $line (<HPACUCLI>){
if ( $line =~ m/Another instance of hpacucli is running! Stop it first\./i ){
die "Another instance of hpacucli is running\n";
}
elsif ( $line =~ m/(.*) in Slot (\d+)/i ) {
push @{$json->{data}}, {"#MODEL" => $1, "#SLOT" => $2};
}
}
close HPACUCLI;
print to_json($json);
exit(0);