Changeset 860 for trunk

Timestamp:

09/15/22 18:10:35 (3 years ago)

Author:

Kris Deugau

Message:

/trunk

BIND export, unwinding dev saves, 12 of many many

• Improve zone file docucomment header with an export timestamp
• Sketch out NS record printing

File:

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

trunk/DNSDB/ExportBIND.pm

@@ -94 +94 @@
           $zfilepath =~ s,[^\w./-],_,g;
           open $zonefiles{$loc}, ">", $zfilepath;
-          print {$zonefiles{$loc}} "; $arpazone in view $loc\n";
+          printf {$zonefiles{$loc}} "; %s in view %s exported %s\n", $arpazone, $loc, scalar(localtime);
 print "open zonefile for '$loc', '$zfilepath'\n";
         }
@@ -249 +249 @@
   } # SOA
 
+  elsif ($typemap{$type} eq 'NS') {
+    if ($revrec eq 'y') {
+      $val = NetAddr::IP->new($val);
+
+##fixme:  conversion for sub-/24 delegations in reverse zones?
+#      if (!$val->{isv6} && ($val->masklen > 24)) {
+#      }
+
+#      print {$zonefiles->{$loc}} "$zone       $ttl    IN      NS      $host\n";
+      print "$zone     $ttl    IN      NS      $host\n";
+
+    } else {
+#      print $datafile "\&$host"."::$val:$ttl:$stamp:$loc\n" or die $!;
+    }
+  } # NS
+
+
 } # printrec_bind()