+ Fix #3

connectors/vmware/src/centreon/script/centreon_vmware.pm

@@ -68,6 +68,7 @@ my @load_modules = (
     'centreon::vmware::cmdmaintenancehost',
     'centreon::vmware::cmdmemvm',
     'centreon::vmware::cmdnethost',
+    'centreon::vmware::cmdservicehost',
     'centreon::vmware::cmdsnapshotvm',
     'centreon::vmware::cmdstatushost',
     'centreon::vmware::cmdstatusvm',

connectors/vmware/src/centreon/vmware/cmdservicehost.pm

@@ -0,0 +1,152 @@
+# Copyright 2015 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets 
+# the needs in IT infrastructure and application monitoring for 
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#    http://www.apache.org/licenses/LICENSE-2.0  
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+package centreon::vmware::cmdservicehost;
+
+use strict;
+use warnings;
+use centreon::vmware::common;
+
+sub new {
+    my $class = shift;
+    my $self  = {};
+    $self->{logger} = shift;
+    $self->{commandName} = 'servicehost';
+    
+    bless $self, $class;
+    return $self;
+}
+
+sub getCommandName {
+    my $self = shift;
+    return $self->{commandName};
+}
+
+sub checkArgs {
+    my ($self, %options) = @_;
+
+    if (defined($options{arguments}->{esx_hostname}) && $options{arguments}->{esx_hostname} eq "") {
+        $options{manager}->{output}->output_add(severity => 'UNKNOWN',
+                                                short_msg => "Argument error: esx hostname cannot be null");
+        return 1;
+    }
+    if (defined($options{arguments}->{disconnect_status}) && 
+        $options{manager}->{output}->is_litteral_status(status => $options{arguments}->{disconnect_status}) == 0) {
+        $options{manager}->{output}->output_add(severity => 'UNKNOWN',
+                                                short_msg => "Argument error: wrong value for disconnect status '" . $options{arguments}->{disconnect_status} . "'");
+        return 1;
+    }
+    return 0;
+}
+
+sub initArgs {
+    my ($self, %options) = @_;
+    
+    foreach (keys %{$options{arguments}}) {
+        $self->{$_} = $options{arguments}->{$_};
+    }
+    $self->{manager} = centreon::vmware::common::init_response();
+    $self->{manager}->{output}->{plugin} = $options{arguments}->{identity};
+}
+
+sub set_connector {
+    my ($self, %options) = @_;
+    
+    $self->{connector} = $options{connector};
+}
+
+sub run {
+    my $self = shift;
+
+    my %filters = ();
+    my $multiple = 0;
+    
+    if (defined($self->{esx_hostname}) && !defined($self->{filter})) {
+        $filters{name} = qr/^\Q$self->{esx_hostname}\E$/;
+    } elsif (!defined($self->{esx_hostname})) {
+        $filters{name} = qr/.*/;
+    } else {
+        $filters{name} = qr/$self->{esx_hostname}/;
+    }
+    my @properties = ('name', 'runtime.connectionState', 'runtime.inMaintenanceMode', 'configManager.serviceSystem');
+    my $result = centreon::vmware::common::search_entities(command => $self, view_type => 'HostSystem', properties => \@properties, filter => \%filters);
+    return if (!defined($result));
+
+    my %host_names = ();
+    my @host_array = ();
+    foreach my $entity_view (@$result) {
+        next if (centreon::vmware::common::host_state(connector => $self->{connector},
+                                                      hostname => $entity_view->{name}, 
+                                                      state => $entity_view->{'runtime.connectionState'}->val,
+                                                      status => $self->{disconnect_status},
+                                                      multiple => $multiple) == 0);
+        next if (centreon::vmware::common::host_maintenance(connector => $self->{connector},
+                                                            hostname => $entity_view->{name}, 
+                                                            maintenance => $entity_view->{'runtime.inMaintenanceMode'},
+                                                            multiple => $multiple) == 0);
+        if (defined($entity_view->{'configManager.serviceSystem'})) {
+            push @host_array, $entity_view->{'configManager.serviceSystem'};
+            $host_names{$entity_view->{'configManager.serviceSystem'}->{value}} = $entity_view->{name}; 
+        }
+    }
+    
+    return if (scalar(@host_array) == 0);
+    
+    @properties = ('serviceInfo');
+    my $result2 = centreon::vmware::common::get_views($self->{connector}, \@host_array, \@properties);
+    return if (!defined($result2));
+    
+    if (scalar(@$result) > 1) {
+        $multiple = 1;
+    }
+
+    if ($multiple == 1) {
+        $self->{manager}->{output}->output_add(severity => 'OK',
+                                               short_msg => sprintf("All ESX services are ok"));
+    }
+    
+    foreach my $entity (@$result2) {
+        my $hostname = $host_names{$entity->{mo_ref}->{value}};
+        
+        my @services_ok = ();
+        my @services_problem = ();
+        foreach my $service (@{$entity->{serviceInfo}->{service}}) {
+            next if (defined($self->{filter_services}) && $self->{filter_services} ne '' &&
+                     $service->{key} !~ /$self->{filter_services}/);
+            
+            if ($service->{policy} =~ /^on|automatic/i && !$service->{running}) {
+                push @services_problem, $service->{key};
+            } else {
+                push @services_ok, $service->{key};
+            }
+        }
+        
+        $self->{manager}->{output}->output_add(long_msg => sprintf("'%s' services [ ok : %s ] [ nok : %s ]", $hostname, 
+                                                                   join(', ', @services_ok), join(', ', @services_problem)));
+        my $status = 'OK';
+        $status = 'CRITICAL' if (scalar(@services_problem) > 0);
+        if ($multiple == 0 || 
+            !$self->{manager}->{output}->is_status(value => $status, compare => 'ok', litteral => 1)) {
+            $self->{manager}->{output}->output_add(severity => $status,
+                                                   short_msg => sprintf("'%s' services [ ok : %s ] [ nok : %s ]", $hostname, 
+                                                                        join(', ', @services_ok), join(', ', @services_problem)));
+        }
+    }
+}
+
+1;

connectors/vmware/src/centreon/vmware/cmdstatushost.pm

@@ -110,10 +110,10 @@ sub run {
     
     foreach my $entity_view (@$result) {
         next if (centreon::vmware::common::host_state(connector => $self->{connector},
-                                                    hostname => $entity_view->{name}, 
-                                                    state => $entity_view->{'runtime.connectionState'}->val,
-                                                    status => $self->{disconnect_status},
-                                                    multiple => $multiple) == 0);
+                                                      hostname => $entity_view->{name}, 
+                                                      state => $entity_view->{'runtime.connectionState'}->val,
+                                                      status => $self->{disconnect_status},
+                                                      multiple => $multiple) == 0);
         
         my $status_esx = $entity_view->{'summary.overallStatus'}->val;
         $self->{manager}->{output}->output_add(long_msg => sprintf("'%s' %s", $entity_view->{name}, $overallStatus{$status_esx}));

connectors/vmware/src/centreon/vmware/common.pm

@@ -633,6 +633,21 @@ sub host_state {
     return 1;
 }
 
+sub host_maintenance {
+    my (%options) = @_;
+    
+    if ($options{maintenance} =~ /^true|1$/) {
+        my $output = "Host '" . $options{hostname} . "' is in maintenance mode.";
+        if ($options{multiple} == 0) {
+            $manager_display->{output}->output_add(severity => 'OK',
+                                                   short_msg => $output);
+        }
+        return 0;
+    }
+    
+    return 1;
+}
+
 sub substitute_name {
     my (%options) = @_;