Evolution #3959
Commande de cartographie git-svn-id: http://svn.merethis.net/centreon-esxd/trunk@13 a5eaa968-4c79-4d68-970d-af6011b5b055
This commit is contained in:
Quentin Garnier
parent
8c277b8947
commit
cae8e0ccbc
|
|
@ -1,359 +1,373 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
use strict;
|
||||
no strict "refs";
|
||||
use IO::Socket;
|
||||
use Getopt::Long;
|
||||
|
||||
my $PROGNAME = $0;
|
||||
my $VERSION = "1.0";
|
||||
my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
|
||||
my $socket;
|
||||
|
||||
sub print_help();
|
||||
sub print_usage();
|
||||
sub print_revision($$);
|
||||
|
||||
my %OPTION = (
|
||||
"help" => undef, "version" => undef,
|
||||
"esxd-host" => undef, "esxd-port" => 5700,
|
||||
"usage" => undef,
|
||||
"esx-host" => undef,
|
||||
"datastore" => undef,
|
||||
"nic" => undef,
|
||||
"warning" => undef,
|
||||
"critical" => undef
|
||||
);
|
||||
|
||||
Getopt::Long::Configure('bundling');
|
||||
GetOptions(
|
||||
"h|help" => \$OPTION{'help'},
|
||||
"V|version" => \$OPTION{'version'},
|
||||
"H|centreon-esxd-host=s" => \$OPTION{'esxd-host'},
|
||||
"P|centreon-esxd-port=i" => \$OPTION{'esxd-port'},
|
||||
|
||||
"u|usage=s" => \$OPTION{'usage'},
|
||||
"e|esx-host=s" => \$OPTION{'esx-host'},
|
||||
|
||||
"datastore=s" => \$OPTION{'datastore'},
|
||||
"nic=s" => \$OPTION{'nic'},
|
||||
|
||||
"w|warning=i" => \$OPTION{'warning'},
|
||||
"c|critical=i" => \$OPTION{'critical'},
|
||||
);
|
||||
|
||||
if (defined($OPTION{'version'})) {
|
||||
print_revision($PROGNAME, $VERSION);
|
||||
exit $ERRORS{'OK'};
|
||||
}
|
||||
|
||||
if (defined($OPTION{'help'})) {
|
||||
print_help();
|
||||
exit $ERRORS{'OK'};
|
||||
}
|
||||
|
||||
#############
|
||||
# Functions #
|
||||
#############
|
||||
|
||||
sub print_usage () {
|
||||
print "Usage: ";
|
||||
print $PROGNAME."\n";
|
||||
print " -V (--version) Plugin version\n";
|
||||
print " -h (--help) usage help\n";
|
||||
print " -H centreon-esxd Host (required)\n";
|
||||
print " -P centreon-esxd Port (default 5700)\n";
|
||||
print " -u (--usage) What to check. The list and args (required)\n";
|
||||
print "\n";
|
||||
print "'healthhost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print "\n";
|
||||
print "'maintenancehost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print "\n";
|
||||
print "'statushost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print "\n";
|
||||
print "'datastores':\n";
|
||||
print " --datastore Datastore name to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in percent (default 80)\n";
|
||||
print " -c (--critical) Critical Threshold in percent (default 90)\n";
|
||||
print "\n";
|
||||
print "'cpuhost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in percent (default 80)\n";
|
||||
print " -c (--critical) Critical Threshold in percent (default 90)\n";
|
||||
print "\n";
|
||||
print "'nethost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print " --nic Physical nic name to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in percent (default 80)\n";
|
||||
print " -c (--critical) Critical Threshold in percent (default 90)\n";
|
||||
print "\n";
|
||||
print "'memhost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in percent (default 80)\n";
|
||||
print " -c (--critical) Critical Threshold in percent (default 90)\n";
|
||||
print "\n";
|
||||
print "'swaphost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in MB/s (default 0.8)\n";
|
||||
print " -c (--critical) Critical Threshold in MB/s (default 1)\n";
|
||||
print "\n";
|
||||
print "'listhost':\n";
|
||||
print " None\n";
|
||||
print "\n";
|
||||
print "'listdatastore':\n";
|
||||
print " None\n";
|
||||
print "\n";
|
||||
print "'listnichost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
}
|
||||
|
||||
sub print_help () {
|
||||
print "##############################################\n";
|
||||
print "# Copyright (c) 2005-2012 Centreon #\n";
|
||||
print "# Bugs to http://redmine.merethis.net/ #\n";
|
||||
print "##############################################\n";
|
||||
print "\n";
|
||||
print_usage();
|
||||
print "\n";
|
||||
}
|
||||
|
||||
sub print_revision($$) {
|
||||
my $commandName = shift;
|
||||
my $pluginRevision = shift;
|
||||
print "$commandName v$pluginRevision (centreon-esxd)\n";
|
||||
}
|
||||
|
||||
sub myconnect {
|
||||
if (!($socket = IO::Socket::INET->new( Proto => "tcp",
|
||||
PeerAddr => $OPTION{'esxd-host'},
|
||||
PeerPort => $OPTION{'esxd-port'}))) {
|
||||
print "Cannot connect to on '$OPTION{'esxd-host'}': $!\n";
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
$socket->autoflush(1);
|
||||
}
|
||||
|
||||
#################
|
||||
# Func Usage
|
||||
#################
|
||||
|
||||
sub maintenancehost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub maintenancehost_get_str {
|
||||
return "maintenancehost|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
sub statushost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub statushost_get_str {
|
||||
return "statushost|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
sub healthhost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub healthhost_get_str {
|
||||
return "healthhost|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
sub datastores_check_arg {
|
||||
if (!defined($OPTION{'datastore'})) {
|
||||
print "Option --datastore is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 80;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 90;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub datastores_get_str {
|
||||
return "datastores|" . $OPTION{'datastore'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub cpuhost_check_arg {
|
||||
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 80;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 90;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub cpuhost_get_str {
|
||||
return "cpuhost|" . $OPTION{'esx-host'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub memhost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 80;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 90;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub memhost_get_str {
|
||||
return "memhost|" . $OPTION{'esx-host'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub swaphost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 0.8;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 1;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub swaphost_get_str {
|
||||
return "swaphost|" . $OPTION{'esx-host'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub nethost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'nic'})) {
|
||||
print "Option --nic is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 80;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 90;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub nethost_get_str {
|
||||
return "nethost|" . $OPTION{'esx-host'} . "|" . $OPTION{'nic'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub listhost_check_arg {
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub listhost_get_str {
|
||||
return "listhost";
|
||||
}
|
||||
|
||||
sub listdatastore_check_arg {
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub listdatastore_get_str {
|
||||
return "listdatastore";
|
||||
}
|
||||
|
||||
sub listnichost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub listnichost_get_str {
|
||||
return "listnichost|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
#################
|
||||
#################
|
||||
|
||||
if (!defined($OPTION{'esxd-host'})) {
|
||||
print "Option -H (--esxd-host) is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
|
||||
if (!defined($OPTION{'usage'})) {
|
||||
print "Option -u (--usage) is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if ($OPTION{'usage'} !~ /^(healthhost|datastores|maintenancehost|statushost|cpuhost|nethost|memhost|swaphost|listhost|listdatastore|listnichost)$/) {
|
||||
print "Usage value is unknown\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
|
||||
my $func_check_arg = $OPTION{'usage'} . "_check_arg";
|
||||
my $func_get_str = $OPTION{'usage'} . "_get_str";
|
||||
&$func_check_arg();
|
||||
my $str_send = &$func_get_str();
|
||||
myconnect();
|
||||
print $socket "$str_send\n";
|
||||
my $return = <$socket>;
|
||||
close $socket;
|
||||
|
||||
chomp $return;
|
||||
$return =~ /^(-?[0-9]*?)\|/;
|
||||
my $status_return = $1;
|
||||
$return =~ s/^(-?[0-9]*?)\|//;
|
||||
print $return . "\n";
|
||||
|
||||
if ($status_return == -1) {
|
||||
$status_return = 3;
|
||||
}
|
||||
exit $status_return;
|
||||
|
||||
#print $remote "healthhost|srvi-esx-dev-1.merethis.net\n";
|
||||
#print $remote "datastores|LUN-VMFS-QGARNIER|80|90\n";
|
||||
#print $remote "maintenancehost|srvi-esx-dev-1.merethis.net\n";
|
||||
#print $remote "statushost|srvi-esx-dev-1.merethis.net\n";
|
||||
#print $remote "cpuhost|srvi-esx-dev-1.merethis.net|60\n";
|
||||
#print $remote "nethost|srvi-esx-dev-1.merethis.net|vmnic1|60\n";
|
||||
#print $remote "memhost|srvi-esx-dev-1.merethis.net|80\n";
|
||||
#print $remote "swaphost|srvi-esx-dev-1.merethis.net|80\n";
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
use strict;
|
||||
no strict "refs";
|
||||
use IO::Socket;
|
||||
use Getopt::Long;
|
||||
|
||||
my $PROGNAME = $0;
|
||||
my $VERSION = "1.0";
|
||||
my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
|
||||
my $socket;
|
||||
|
||||
sub print_help();
|
||||
sub print_usage();
|
||||
sub print_revision($$);
|
||||
|
||||
my %OPTION = (
|
||||
"help" => undef, "version" => undef,
|
||||
"esxd-host" => undef, "esxd-port" => 5700,
|
||||
"usage" => undef,
|
||||
"esx-host" => undef,
|
||||
"datastore" => undef,
|
||||
"nic" => undef,
|
||||
"warning" => undef,
|
||||
"critical" => undef
|
||||
);
|
||||
|
||||
Getopt::Long::Configure('bundling');
|
||||
GetOptions(
|
||||
"h|help" => \$OPTION{'help'},
|
||||
"V|version" => \$OPTION{'version'},
|
||||
"H|centreon-esxd-host=s" => \$OPTION{'esxd-host'},
|
||||
"P|centreon-esxd-port=i" => \$OPTION{'esxd-port'},
|
||||
|
||||
"u|usage=s" => \$OPTION{'usage'},
|
||||
"e|esx-host=s" => \$OPTION{'esx-host'},
|
||||
|
||||
"datastore=s" => \$OPTION{'datastore'},
|
||||
"nic=s" => \$OPTION{'nic'},
|
||||
|
||||
"w|warning=i" => \$OPTION{'warning'},
|
||||
"c|critical=i" => \$OPTION{'critical'},
|
||||
);
|
||||
|
||||
if (defined($OPTION{'version'})) {
|
||||
print_revision($PROGNAME, $VERSION);
|
||||
exit $ERRORS{'OK'};
|
||||
}
|
||||
|
||||
if (defined($OPTION{'help'})) {
|
||||
print_help();
|
||||
exit $ERRORS{'OK'};
|
||||
}
|
||||
|
||||
#############
|
||||
# Functions #
|
||||
#############
|
||||
|
||||
sub print_usage () {
|
||||
print "Usage: ";
|
||||
print $PROGNAME."\n";
|
||||
print " -V (--version) Plugin version\n";
|
||||
print " -h (--help) usage help\n";
|
||||
print " -H centreon-esxd Host (required)\n";
|
||||
print " -P centreon-esxd Port (default 5700)\n";
|
||||
print " -u (--usage) What to check. The list and args (required)\n";
|
||||
print "\n";
|
||||
print "'healthhost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print "\n";
|
||||
print "'maintenancehost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print "\n";
|
||||
print "'statushost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print "\n";
|
||||
print "'datastores':\n";
|
||||
print " --datastore Datastore name to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in percent (default 80)\n";
|
||||
print " -c (--critical) Critical Threshold in percent (default 90)\n";
|
||||
print "\n";
|
||||
print "'cpuhost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in percent (default 80)\n";
|
||||
print " -c (--critical) Critical Threshold in percent (default 90)\n";
|
||||
print "\n";
|
||||
print "'nethost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print " --nic Physical nic name to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in percent (default 80)\n";
|
||||
print " -c (--critical) Critical Threshold in percent (default 90)\n";
|
||||
print "\n";
|
||||
print "'memhost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in percent (default 80)\n";
|
||||
print " -c (--critical) Critical Threshold in percent (default 90)\n";
|
||||
print "\n";
|
||||
print "'swaphost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print " -w (--warning) Warning Threshold in MB/s (default 0.8)\n";
|
||||
print " -c (--critical) Critical Threshold in MB/s (default 1)\n";
|
||||
print "\n";
|
||||
print "'listhost':\n";
|
||||
print " None\n";
|
||||
print "\n";
|
||||
print "'listdatastore':\n";
|
||||
print " None\n";
|
||||
print "\n";
|
||||
print "'listnichost':\n";
|
||||
print " -e (--esx-host) Esx Host to check (required)\n";
|
||||
print "\n";
|
||||
print "'getmap':\n";
|
||||
print " -e (--esx-host) Esx Host to check\n";
|
||||
}
|
||||
|
||||
sub print_help () {
|
||||
print "##############################################\n";
|
||||
print "# Copyright (c) 2005-2012 Centreon #\n";
|
||||
print "# Bugs to http://redmine.merethis.net/ #\n";
|
||||
print "##############################################\n";
|
||||
print "\n";
|
||||
print_usage();
|
||||
print "\n";
|
||||
}
|
||||
|
||||
sub print_revision($$) {
|
||||
my $commandName = shift;
|
||||
my $pluginRevision = shift;
|
||||
print "$commandName v$pluginRevision (centreon-esxd)\n";
|
||||
}
|
||||
|
||||
sub myconnect {
|
||||
if (!($socket = IO::Socket::INET->new( Proto => "tcp",
|
||||
PeerAddr => $OPTION{'esxd-host'},
|
||||
PeerPort => $OPTION{'esxd-port'}))) {
|
||||
print "Cannot connect to on '$OPTION{'esxd-host'}': $!\n";
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
$socket->autoflush(1);
|
||||
}
|
||||
|
||||
#################
|
||||
# Func Usage
|
||||
#################
|
||||
|
||||
sub maintenancehost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub maintenancehost_get_str {
|
||||
return "maintenancehost|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
sub statushost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub statushost_get_str {
|
||||
return "statushost|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
sub healthhost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub healthhost_get_str {
|
||||
return "healthhost|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
sub datastores_check_arg {
|
||||
if (!defined($OPTION{'datastore'})) {
|
||||
print "Option --datastore is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 80;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 90;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub datastores_get_str {
|
||||
return "datastores|" . $OPTION{'datastore'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub cpuhost_check_arg {
|
||||
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 80;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 90;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub cpuhost_get_str {
|
||||
return "cpuhost|" . $OPTION{'esx-host'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub memhost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 80;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 90;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub memhost_get_str {
|
||||
return "memhost|" . $OPTION{'esx-host'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub swaphost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 0.8;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 1;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub swaphost_get_str {
|
||||
return "swaphost|" . $OPTION{'esx-host'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub nethost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'nic'})) {
|
||||
print "Option --nic is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if (!defined($OPTION{'warning'})) {
|
||||
$OPTION{'warning'} = 80;
|
||||
}
|
||||
if (!defined($OPTION{'critical'})) {
|
||||
$OPTION{'critical'} = 90;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub nethost_get_str {
|
||||
return "nethost|" . $OPTION{'esx-host'} . "|" . $OPTION{'nic'} . "|" . $OPTION{'warning'} . "|" . $OPTION{'critical'};
|
||||
}
|
||||
|
||||
sub listhost_check_arg {
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub listhost_get_str {
|
||||
return "listhost";
|
||||
}
|
||||
|
||||
sub listdatastore_check_arg {
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub listdatastore_get_str {
|
||||
return "listdatastore";
|
||||
}
|
||||
|
||||
sub listnichost_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
print "Option --esx-host is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub listnichost_get_str {
|
||||
return "listnichost|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
sub getmap_check_arg {
|
||||
if (!defined($OPTION{'esx-host'})) {
|
||||
$OPTION{'esx-host'} = "";
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub getmap_get_str {
|
||||
return "getmap|" . $OPTION{'esx-host'};
|
||||
}
|
||||
|
||||
#################
|
||||
#################
|
||||
|
||||
if (!defined($OPTION{'esxd-host'})) {
|
||||
print "Option -H (--esxd-host) is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
|
||||
if (!defined($OPTION{'usage'})) {
|
||||
print "Option -u (--usage) is required\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
if ($OPTION{'usage'} !~ /^(healthhost|datastores|maintenancehost|statushost|cpuhost|nethost|memhost|swaphost|listhost|listdatastore|listnichost|getmap)$/) {
|
||||
print "Usage value is unknown\n";
|
||||
print_usage();
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
|
||||
my $func_check_arg = $OPTION{'usage'} . "_check_arg";
|
||||
my $func_get_str = $OPTION{'usage'} . "_get_str";
|
||||
&$func_check_arg();
|
||||
my $str_send = &$func_get_str();
|
||||
myconnect();
|
||||
print $socket "$str_send\n";
|
||||
my $return = <$socket>;
|
||||
close $socket;
|
||||
|
||||
chomp $return;
|
||||
$return =~ /^(-?[0-9]*?)\|/;
|
||||
my $status_return = $1;
|
||||
$return =~ s/^(-?[0-9]*?)\|//;
|
||||
print $return . "\n";
|
||||
|
||||
if ($status_return == -1) {
|
||||
$status_return = 3;
|
||||
}
|
||||
exit $status_return;
|
||||
|
||||
#print $remote "healthhost|srvi-esx-dev-1.merethis.net\n";
|
||||
#print $remote "datastores|LUN-VMFS-QGARNIER|80|90\n";
|
||||
#print $remote "maintenancehost|srvi-esx-dev-1.merethis.net\n";
|
||||
#print $remote "statushost|srvi-esx-dev-1.merethis.net\n";
|
||||
#print $remote "cpuhost|srvi-esx-dev-1.merethis.net|60\n";
|
||||
#print $remote "nethost|srvi-esx-dev-1.merethis.net|vmnic1|60\n";
|
||||
#print $remote "memhost|srvi-esx-dev-1.merethis.net|80\n";
|
||||
#print $remote "swaphost|srvi-esx-dev-1.merethis.net|80\n";
|
||||
|
|
|
|||
|
|
@ -67,7 +67,8 @@ our %checks_descr = (
|
|||
"swaphost" => {'arg' => \&swaphost_check_args, 'compute' => \&swaphost_compute_args, 'exec' => \&swaphost_do},
|
||||
"listhost" => {'arg' => \&listhost_check_args, 'compute' => \&listhost_compute_args, 'exec' => \&listhost_do},
|
||||
"listdatastore" => {'arg' => \&listdatastore_check_args, 'compute' => \&listdatastore_compute_args, 'exec' => \&listdatastore_do},
|
||||
"listnichost" => {'arg' => \&listnichost_check_args, 'compute' => \&listnichost_compute_args, 'exec' => \&listnichost_do}
|
||||
"listnichost" => {'arg' => \&listnichost_check_args, 'compute' => \&listnichost_compute_args, 'exec' => \&listnichost_do},
|
||||
"getmap" => {'arg' => \&getmap_check_args, 'compute' => \&getmap_compute_args, 'exec' => \&getmap_do}
|
||||
);
|
||||
|
||||
sub writeLogFile($$) {
|
||||
|
|
@ -887,7 +888,6 @@ sub listhost_compute_args {
|
|||
}
|
||||
|
||||
sub listhost_do {
|
||||
my ($lhost) = @_;
|
||||
my %filters = ();
|
||||
my @properties = ('name');
|
||||
my $result = get_entities_host('HostSystem', \%filters, \@properties);
|
||||
|
|
@ -1000,6 +1000,61 @@ sub listnichost_do {
|
|||
print_response($ERRORS{$MYERRORS{$status}} . "|$output_up. $output_down.\n");
|
||||
}
|
||||
|
||||
############
|
||||
# Get Map Func
|
||||
############
|
||||
|
||||
sub getmap_check_args {
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub getmap_compute_args {
|
||||
my $lhost = $_[0];
|
||||
return ($lhost);
|
||||
}
|
||||
|
||||
sub getmap_do {
|
||||
my ($lhost) = @_;
|
||||
my %filters = ();
|
||||
if (defined($lhost) and $lhost ne "") {
|
||||
%filters = ('name' => $lhost);
|
||||
}
|
||||
my @properties = ('name', 'vm');
|
||||
my $result = get_entities_host('HostSystem', \%filters, \@properties);
|
||||
if (!defined($result)) {
|
||||
return ;
|
||||
}
|
||||
|
||||
my $status = 0; # OK
|
||||
my $output = '';
|
||||
my $output_append = "";
|
||||
|
||||
foreach my $entity_view (@$result) {
|
||||
$output .= $output_append . "ESX Host '" . $entity_view->name . "': ";
|
||||
my @vm_array = ();
|
||||
if (defined $entity_view->vm) {
|
||||
@vm_array = (@vm_array, @{$entity_view->vm});
|
||||
}
|
||||
|
||||
@properties = ('name', 'summary.runtime.powerState');
|
||||
my $result2 = get_views(\@vm_array, \@properties);
|
||||
if (!defined($result)) {
|
||||
return ;
|
||||
}
|
||||
|
||||
my $output_append2 = '';
|
||||
foreach my $vm (@$result2) {
|
||||
if ($vm->{'summary.runtime.powerState'}->val eq "poweredOn") {
|
||||
$output .= $output_append2 . "[" . $vm->name . "]";
|
||||
$output_append2 = ', ';
|
||||
}
|
||||
}
|
||||
$output_append = ". ";
|
||||
}
|
||||
|
||||
print_response($ERRORS{$MYERRORS{$status}} . "|$output\n");
|
||||
}
|
||||
|
||||
############
|
||||
|
||||
sub catch_zap_term {
|
||||
|
|
@ -1273,16 +1328,16 @@ while (1) {
|
|||
my ($name, @args) = split /\|/, $line;
|
||||
if (!defined($checks_descr{$name})) {
|
||||
$rh->send("3|Unknown method name '$name'\n");
|
||||
delete $sockets{fileno($rh)};
|
||||
$read_select->remove($rh);
|
||||
close $rh;
|
||||
delete $sockets{fileno($rh)};
|
||||
next;
|
||||
}
|
||||
if ($checks_descr{$name}->{'arg'}(@args)) {
|
||||
$rh->send("3|Params error '$name'\n");
|
||||
delete $sockets{fileno($rh)};
|
||||
$read_select->remove($rh);
|
||||
close $rh;
|
||||
delete $sockets{fileno($rh)};
|
||||
next;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue