+ First command finished for connector 1.6.x

This commit is contained in:
Quentin Garnier 2014-10-21 16:35:28 +02:00
parent 81727d1841
commit 638c36e95c
1 changed files with 10 additions and 2 deletions

View File

@ -44,8 +44,6 @@ use ZMQ::LibZMQ3;
use ZMQ::Constants qw(:all); use ZMQ::Constants qw(:all);
use UUID; use UUID;
my %handlers = (ALRM => {} );
sub new { sub new {
my ($class, %options) = @_; my ($class, %options) = @_;
my $self = $class->SUPER::new(package => __PACKAGE__, %options); my $self = $class->SUPER::new(package => __PACKAGE__, %options);
@ -60,6 +58,7 @@ sub new {
"esx-hostname:s" => { name => 'esx_hostname' }, "esx-hostname:s" => { name => 'esx_hostname' },
"filter" => { name => 'filter' }, "filter" => { name => 'filter' },
"storage-status" => { name => 'storage_status' }, "storage-status" => { name => 'storage_status' },
"disconnect-status:s" => { name => 'disconnect_status', default => 'unknown' },
"timeout:s" => { name => 'timeout', default => 50 }, "timeout:s" => { name => 'timeout', default => 50 },
}); });
$self->{json_send} = {}; $self->{json_send} = {};
@ -81,6 +80,11 @@ sub check_options {
} else { } else {
$self->{timeout} = 50; $self->{timeout} = 50;
} }
if ($self->{output}->is_litteral_status(status => $self->{option_results}->{disconnect_status}) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong disconnect-status status option '" . $self->{option_results}->{disconnect_status} . "'.");
$self->{output}->option_exit();
}
} }
sub build_request { sub build_request {
@ -172,6 +176,10 @@ ESX hostname is a regexp.
Check storage(s) status. Check storage(s) status.
=item B<--disconnect-status>
Status if ESX host disconnected (default: 'unknown').
=item B<--timeout> =item B<--timeout>
Set global execution timeout (Default: 50) Set global execution timeout (Default: 50)