(plugin) apps::protocols::dns - fix no nameservers error (#4259)

This commit is contained in:
qgarnier 2023-03-07 13:15:28 +00:00 committed by David Boucher
parent 85ecbf69e3
commit 6ddfca8258
1 changed files with 3 additions and 9 deletions

View File

@ -76,24 +76,18 @@ sub connect {
my ($self, %options) = @_; my ($self, %options) = @_;
my %dns_options = (); my %dns_options = ();
my $nameservers = [];
if (defined($self->{option_results}->{nameservers})) { if (defined($self->{option_results}->{nameservers})) {
$nameservers = [@{$self->{option_results}->{nameservers}}]; $dns_options{nameservers} = [@{$self->{option_results}->{nameservers}}];
} }
my $searchlist = [];
if (defined($self->{option_results}->{searchlist})) { if (defined($self->{option_results}->{searchlist})) {
$searchlist = [@{$self->{option_results}->{searchlist}}]; $dns_options{searchlist} = [@{$self->{option_results}->{searchlist}}];
} }
foreach my $option (@{$self->{option_results}->{dns_options}}) { foreach my $option (@{$self->{option_results}->{dns_options}}) {
next if ($option !~ /^(.+?)=(.+)$/); next if ($option !~ /^(.+?)=(.+)$/);
$dns_options{$1} = $2; $dns_options{$1} = $2;
} }
$handle = Net::DNS::Resolver->new( $handle = Net::DNS::Resolver->new(%dns_options);
nameservers => $nameservers,
searchlist => $searchlist,
%dns_options
);
} }
1; 1;