add TEXT dns search

This commit is contained in:
garnier-quentin 2020-01-17 14:43:54 +01:00
parent 74ecfe6c45
commit 71a95ac60d
1 changed files with 4 additions and 6 deletions

View File

@ -33,6 +33,7 @@ my %map_search_field = (
A => 'address',
PTR => 'name',
CNAME => 'cname',
TXT => 'txtdata',
);
sub search {
@ -51,12 +52,9 @@ sub search {
if ($reply) {
foreach my $rr ($reply->answer) {
if (!defined($search_type)) {
if ($rr->type eq 'A') {
push @results, $rr->address;
}
if ($rr->type eq 'PTR') {
push @results, $rr->name;
}
push @results, $rr->address if ($rr->type eq 'A');
push @results, $rr->name if ($rr->type eq 'PTR');
push @results, $rr->txtdata if ($rr->type eq 'TXT');
next;
}