Changeset 633

Timestamp:

05/14/14 17:32:58 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Catch another instance where a .arpa name could possibly result in a
bizarre value in a NetAddr::IP.

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -4039 +4039 @@
       # skip all reverse zone .arpa "hostnames" since they're already .arpa names.
 ##enhance:  extend {showrev_arpa} eq 'record' to specify record types
-      my $tmpip = new NetAddr::IP $rec->{val};
+      my $tmpip = new NetAddr::IP $rec->{val} if $rec->{val} =~ /^(?:[\d.\/]+|[a-fA-F0-9:\/]+)$/;
       $rec->{val} = DNSDB::_ZONE($tmpip, 'ZONE', 'r', '.').($tmpip->{isv6} ? '.ip6.arpa' : '.in-addr.arpa') if $tmpip;
     }