(plugin) database::mongodb - add --no-ssl option (#3940)
This commit is contained in:
parent
b539ee729f
commit
96a6ad5e39
|
@ -50,7 +50,8 @@ sub new {
|
||||||
'username:s' => { name => 'username' },
|
'username:s' => { name => 'username' },
|
||||||
'password:s' => { name => 'password' },
|
'password:s' => { name => 'password' },
|
||||||
'timeout:s' => { name => 'timeout' },
|
'timeout:s' => { name => 'timeout' },
|
||||||
'ssl-opt:s@' => { name => 'ssl_opt' }
|
'ssl-opt:s@' => { name => 'ssl_opt' },
|
||||||
|
'no-ssl' => { name => 'no_ssl' }
|
||||||
});
|
});
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -78,6 +79,7 @@ sub check_options {
|
||||||
$self->{timeout} = (defined($self->{option_results}->{timeout})) ? $self->{option_results}->{timeout} : 10;
|
$self->{timeout} = (defined($self->{option_results}->{timeout})) ? $self->{option_results}->{timeout} : 10;
|
||||||
$self->{username} = (defined($self->{option_results}->{username})) ? $self->{option_results}->{username} : '';
|
$self->{username} = (defined($self->{option_results}->{username})) ? $self->{option_results}->{username} : '';
|
||||||
$self->{password} = (defined($self->{option_results}->{password})) ? $self->{option_results}->{password} : '';
|
$self->{password} = (defined($self->{option_results}->{password})) ? $self->{option_results}->{password} : '';
|
||||||
|
$self->{no_ssl} = (defined($self->{option_results}->{no_ssl})) ? 1 : 0;
|
||||||
|
|
||||||
if (!defined($self->{hostname}) || $self->{hostname} eq '') {
|
if (!defined($self->{hostname}) || $self->{hostname} eq '') {
|
||||||
$self->{output}->add_option_msg(short_msg => "Need to specify --hostname option.");
|
$self->{output}->add_option_msg(short_msg => "Need to specify --hostname option.");
|
||||||
|
@ -118,8 +120,12 @@ sub connect {
|
||||||
|
|
||||||
$self->{output}->output_add(long_msg => 'Connection URI: ' . $uri, debug => 1);
|
$self->{output}->output_add(long_msg => 'Connection URI: ' . $uri, debug => 1);
|
||||||
|
|
||||||
my $ssl = (defined($self->{ssl_opts})) ? $self->{ssl_opts} : 0;
|
my %mongodb_options = ();
|
||||||
$self->{client} = MongoDB::MongoClient->new(host => $uri, ssl => $ssl);
|
if ($self->{no_ssl} == 0) {
|
||||||
|
$mongodb_options{ssl} = (defined($self->{ssl_opts}) && scalar(keys %{$self->{ssl_opts}}) > 0) ? $self->{ssl_opts} : 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
$self->{client} = MongoDB::MongoClient->new(host => $uri, %mongodb_options);
|
||||||
$self->{client}->connect();
|
$self->{client}->connect();
|
||||||
|
|
||||||
eval {
|
eval {
|
||||||
|
@ -223,6 +229,10 @@ Set timeout in seconds (Default: 10).
|
||||||
|
|
||||||
Set SSL Options (--ssl-opt="SSL_version => TLSv1" --ssl-opt="SSL_verify_mode => SSL_VERIFY_NONE").
|
Set SSL Options (--ssl-opt="SSL_version => TLSv1" --ssl-opt="SSL_verify_mode => SSL_VERIFY_NONE").
|
||||||
|
|
||||||
|
=item B<--no-ssl>
|
||||||
|
|
||||||
|
Don't use ssl connection.
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
=head1 DESCRIPTION
|
=head1 DESCRIPTION
|
||||||
|
|
Loading…
Reference in New Issue