Changeset 863

Timestamp:

09/20/22 16:25:48 (20 months ago)

Author:

Kris Deugau

Message:

/trunk

BIND export, unwinding dev saves, 15 of many many

• Refine PTR record printing to actually print BIND-format records
• Add A+PTR output, which just calls recursively for A or PTR records

File:

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

trunk/DNSDB/ExportBIND.pm

@@ -322 +322 @@
       if ($val =~ /\.arpa$/) {
         # someone put in the formal .arpa name.  humor them.
-        print {$zonefiles->{$loc}} "^$val:$host:$ttl:$stamp:$loc\n" or die $!;
+        print {$zonefiles->{$loc}} "$val        $ttl    IN      PTR     $host\n" or die $!;
       } else {
         $zone = NetAddr::IP->new($zone);
@@ -328 +328 @@
           # sub-octet v4 zone
           ($val) = ($val =~ /\.(\d+)$/);
-          print {$zonefiles->{$loc}} "^$val.".DNSDB::_ZONE($zone, 'ZONE', 'r', '.').'.in-addr.arpa'.
-            ":$host:$ttl:$stamp:$loc\n" or die $!;
+          print {$zonefiles->{$loc}} "$val.".DNSDB::_ZONE($zone, 'ZONE', 'r', '.').'.in-addr.arpa'.
+                "       $ttl    IN      PTR     $host\n"
+                or die $!;
         } else {
           # not going to care about strange results if $val is not an IP value and is resolveable in DNS
           $val = NetAddr::IP->new($val);
-          print {$zonefiles->{$loc}} "^".
-            DNSDB::_ZONE($val, 'ZONE', 'r', '.').($val->{isv6} ? '.ip6.arpa' : '.in-addr.arpa').
-            ":$host:$ttl:$stamp:$loc\n" or die $!;
+          print {$zonefiles->{$loc}} DNSDB::_ZONE($val, 'ZONE', 'r', '.').($val->{isv6} ? '.ip6.arpa' : '.in-addr.arpa').
+                "       $ttl    IN      PTR     $host\n"
+                or die $!;
+
         }
       } # non-".arpa" $val
@@ -347 +349 @@
   } # PTR
 
+  elsif ($type == 65280) { # A+PTR
+    # Recurse to PTR or A as appropriate because BIND et al don't share
+    # the tinydns concept of merged forward/reverse records
+#    $$recflags{$val}++;
+    if ($revrec eq 'y') {
+      printrec_bind($zonefiles, $recid, $revrec, $loclist, $zone, $host, 12, $val, $distance, $weight, $port, $ttl,
+       $loc, $stamp, $expires, $stampactive);
+#print {$zonefiles->{$loc}} "=$host:$val:$ttl:$stamp:$loc\n" or die $!;
+#          printrec_bind(\%zonefiles, $recid, 'y', \@loclist, $revzone,
+#            $host, $type, $val, $dist, $weight, $port, $ttl, $loc, $stamp, $expires, $stampactive);
+#  my ($zonefiles, $recid, $revrec, $loclist, $zone, $host, $type, $val, $distance, $weight, $port, $ttl,
+#        $loc, $stamp, $expires, $stampactive) = @_;
+    } else {
+      printrec_bind($zonefiles, $recid, $revrec, $loclist, $zone, $host, 1, $val, $distance, $weight, $port, $ttl,
+       $loc, $stamp, $expires, $stampactive);
+    }
+  } # A+PTR
+
 } # printrec_bind()