Changeset 862

Timestamp:

09/20/22 16:16:56 (20 months ago)

Author:

Kris Deugau

Message:

/trunk

BIND export, unwinding dev saves, 14 of many many

• Use $distance when printing an SRV record
• Call _ZONE() as DNSDB::_ZONE() since we're not in that module

File:

• trunk/DNSDB/ExportBIND.pm (modified) (3 diffs)

trunk/DNSDB/ExportBIND.pm

@@ -307 +307 @@
   elsif ($typemap{$type} eq 'SRV') {
 #    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
-    print {$zonefiles->{$loc}} "$host  $ttl    IN      SRV     $dist   $weight $port   $val\n" or die $!;
+    print {$zonefiles->{$loc}} "$host  $ttl    IN      SRV     $distance   $weight $port   $val\n" or die $!;
   } # SRV
 
@@ -328 +328 @@
           # sub-octet v4 zone
           ($val) = ($val =~ /\.(\d+)$/);
-          print {$zonefiles->{$loc}} "^$val."._ZONE($zone, 'ZONE', 'r', '.').'.in-addr.arpa'.
+          print {$zonefiles->{$loc}} "^$val.".DNSDB::_ZONE($zone, 'ZONE', 'r', '.').'.in-addr.arpa'.
             ":$host:$ttl:$stamp:$loc\n" or die $!;
         } else {
@@ -334 +334 @@
           $val = NetAddr::IP->new($val);
           print {$zonefiles->{$loc}} "^".
-            _ZONE($val, 'ZONE', 'r', '.').($val->{isv6} ? '.ip6.arpa' : '.in-addr.arpa').
+            DNSDB::_ZONE($val, 'ZONE', 'r', '.').($val->{isv6} ? '.ip6.arpa' : '.in-addr.arpa').
             ":$host:$ttl:$stamp:$loc\n" or die $!;
         }