Fix #641
This commit is contained in:
parent
551bd3f737
commit
1f22cfdb24
|
@ -46,6 +46,7 @@ sub new {
|
|||
"subjectname:s" => { name => 'subjectname', default => '' },
|
||||
"issuername:s" => { name => 'issuername', default => '' },
|
||||
"timeout:s" => { name => 'timeout', default => 5 },
|
||||
'ssl-opt:s%' => { name => 'ssl_opt' },
|
||||
});
|
||||
return $self;
|
||||
}
|
||||
|
@ -74,6 +75,13 @@ sub check_options {
|
|||
$self->{output}->add_option_msg(short_msg => "Please set the validity-mode option (issuer, subject or expiration)");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
|
||||
$self->{ssl_opts} = '';
|
||||
if (defined($self->{option_results}->{ssl_opt})) {
|
||||
foreach (keys %{$self->{option_results}->{ssl_opt}}) {
|
||||
$self->{ssl_opts} .= "$_ => " . $self->{option_results}->{ssl_opt}->{$_} . ", ";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub run {
|
||||
|
@ -83,6 +91,7 @@ sub run {
|
|||
my $client = IO::Socket::SSL->new(
|
||||
PeerHost => $self->{option_results}->{hostname},
|
||||
PeerPort => $self->{option_results}->{port},
|
||||
eval $self->{ssl_opts},
|
||||
$self->{option_results}->{servername} ? ( SSL_hostname => $self->{option_results}->{servername} ):(),
|
||||
);
|
||||
if (!defined($client)) {
|
||||
|
@ -206,6 +215,10 @@ Subject Name pattern (support alternative subject name)
|
|||
|
||||
Issuer Name pattern
|
||||
|
||||
=item B<--ssl-opt>
|
||||
|
||||
Set SSL Options (--ssl-opt="SSL_verify_mode=SSL_VERIFY_NONE").
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
|
|
@ -326,7 +326,7 @@ Don't try to find ILO version.
|
|||
=item B<--ssl-opt>
|
||||
|
||||
Set SSL Options (--ssl-opt="SSL_version=SSLv3").
|
||||
Default: --ssl-opt="SSL_version=SSL_VERIFY_NONE"
|
||||
Default: --ssl-opt="SSL_verify_mode=SSL_VERIFY_NONE"
|
||||
|
||||
=back
|
||||
|
||||
|
|
Loading…
Reference in New Issue