+ First command finished for connector 1.6.x
This commit is contained in:
parent
a7e1d15ef2
commit
5bb93c4bdb
|
@ -44,8 +44,6 @@ use ZMQ::LibZMQ3;
|
|||
use ZMQ::Constants qw(:all);
|
||||
use UUID;
|
||||
|
||||
my %handlers = (ALRM => {} );
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
|
@ -60,6 +58,7 @@ sub new {
|
|||
"esx-hostname:s" => { name => 'esx_hostname' },
|
||||
"filter" => { name => 'filter' },
|
||||
"storage-status" => { name => 'storage_status' },
|
||||
"disconnect-status:s" => { name => 'disconnect_status', default => 'unknown' },
|
||||
"timeout:s" => { name => 'timeout', default => 50 },
|
||||
});
|
||||
$self->{json_send} = {};
|
||||
|
@ -81,6 +80,11 @@ sub check_options {
|
|||
} else {
|
||||
$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 {
|
||||
|
@ -172,6 +176,10 @@ ESX hostname is a regexp.
|
|||
|
||||
Check storage(s) status.
|
||||
|
||||
=item B<--disconnect-status>
|
||||
|
||||
Status if ESX host disconnected (default: 'unknown').
|
||||
|
||||
=item B<--timeout>
|
||||
|
||||
Set global execution timeout (Default: 50)
|
||||
|
|
Loading…
Reference in New Issue