From cae8e0ccbc03d28b5fa189f3bb77a9833e3964b0 Mon Sep 17 00:00:00 2001
From: Quentin Garnier <qgarnier@merethis.com>
Date: Thu, 13 Sep 2012 15:22:15 +0000
Subject: [PATCH] Evolution #3959 Commande de cartographie

git-svn-id: http://svn.merethis.net/centreon-esxd/trunk@13 a5eaa968-4c79-4d68-970d-af6011b5b055
---
 connectors/vmware/centreon_esx_client.pl | 732 ++++++++++++-----------
 connectors/vmware/centreon_esxd          |  63 +-
 2 files changed, 432 insertions(+), 363 deletions(-)

diff --git a/connectors/vmware/centreon_esx_client.pl b/connectors/vmware/centreon_esx_client.pl
index 727f7a95f..5f2069b04 100644
--- a/connectors/vmware/centreon_esx_client.pl
+++ b/connectors/vmware/centreon_esx_client.pl
@@ -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";
diff --git a/connectors/vmware/centreon_esxd b/connectors/vmware/centreon_esxd
index d874aa879..da8d76bb8 100644
--- a/connectors/vmware/centreon_esxd
+++ b/connectors/vmware/centreon_esxd
@@ -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;
 				}