forked from Lainports/opnsense-ports
32 lines
1,018 B
Perl
32 lines
1,018 B
Perl
--- dnsenum.pl.orig 2016-04-22 00:50:16 UTC
|
|
+++ dnsenum.pl
|
|
@@ -58,6 +58,8 @@ use Net::Netmask;
|
|
use XML::Writer;
|
|
use Socket;
|
|
use String::Random;
|
|
+no if $] >= 5.017011, warnings => 'experimental::smartmatch';
|
|
+
|
|
|
|
my ($ithreads_support, $whois_support, $mech_support, $html_support,$xml_support);
|
|
|
|
@@ -71,7 +73,7 @@ my ($domain, $recur, $table, $extend_b,
|
|
my ($timeout, $delay, $pages, $ipcount, $ipvalid) = (10, 3, 5, 0, 0);
|
|
my ($output);
|
|
my $writer;
|
|
-my $program = 'dnsenum.pl';
|
|
+my $program = 'dnsenum';
|
|
my $string_gen = String::Random->new;
|
|
my $wildcards = $string_gen->randpattern("cccccccccccc");
|
|
my @wildcardaddress;
|
|
@@ -176,11 +178,6 @@ if ($whois && !defined $whois_support) {
|
|
"whois queries disabled.\n";
|
|
$whois = undef;
|
|
}
|
|
-if ($whois && !defined $whois_support) {
|
|
- warn "Warning: can't load Net::Whois::IP module, ".
|
|
- "whois queries disabled.\n";
|
|
- $whois = undef;
|
|
-}
|
|
if ($output && !defined $xml_support) {
|
|
warn "Warning: can't load XML::Writer module, ".
|
|
"xml output disabled.\n";
|