Changeset 861 for trunk

Timestamp:

09/15/22 18:17:04 (2 years ago)

Author:

Kris Deugau

Message:

/trunk

BIND export, unwinding dev saves, 13 of many many

• Add code blocks outputting A, AAAA, TXT, CNAME, SRV, and RP records, largely copy-pasted from printrec_tiny() and updated for BIND record format
• Add minimally-updated copy-pasted block for PTR records

File:

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

trunk/DNSDB/ExportBIND.pm

@@ -249 +249 @@
   } # SOA
 
+  elsif ($typemap{$type} eq 'A') {
+#    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
+#    print $datafile "+$host:$val:$ttl:$stamp:$loc\n" or die $!;
+    print {$zonefiles->{$loc}} "$host  $ttl    IN      A       $val\n" or die $!;
+  } # A
+
   elsif ($typemap{$type} eq 'NS') {
     if ($revrec eq 'y') {
@@ -258 +264 @@
 
 #      print {$zonefiles->{$loc}} "$zone       $ttl    IN      NS      $host\n";
-      print "$zone     $ttl    IN      NS      $host\n";
+      print "$zone     $ttl    IN      NS      $host\n" or die $!;
 
     } else {
@@ -265 +271 @@
   } # NS
 
+  elsif ($typemap{$type} eq 'AAAA') {
+#    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
+    my $altgrp = 0;
+    my @altconv;
+    # Split in to up to 8 groups of hex digits (allows for IPv6 :: 0-collapsing)
+    foreach (split /:/, $val) {
+      if (/^$/) {
+        # flag blank entry;  this is a series of 0's of (currently) unknown length
+        $altconv[$altgrp++] = 's';
+      } else {
+        # call sub to convert 1-4 hex digits to 2 string-rep octal bytes
+        $altconv[$altgrp++] = octalize($_)
+      }
+    }
+    my $prefix = ":$host:28:";
+    foreach my $octet (@altconv) {
+      # if not 's', output
+      $prefix .= $octet unless $octet =~ /^s$/;
+      # if 's', output (9-array length)x literal '\000\000'
+      $prefix .= '\000\000'x(9-$altgrp) if $octet =~ /^s$/;
+    }
+    print {$zonefiles->{$loc}} "$host  $ttl    IN      AAAA    $val\n" or die $!;
+  } # AAAA
+
+  elsif ($typemap{$type} eq 'TXT') {
+#    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
+    print {$zonefiles->{$loc}} "$host  $ttl    IN      TXT     \"$val\"\n" or die $!;
+  } # TXT
+
+  elsif ($typemap{$type} eq 'CNAME') {
+#    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
+    print {$zonefiles->{$loc}} "$host  $ttl    IN      CNAME   $val\n" or die $!;
+  } # CNAME
+
+  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 $!;
+  } # SRV
+
+  elsif ($typemap{$type} eq 'RP') {
+#    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
+    print {$zonefiles->{$loc}} "$host  $ttl    IN      RP      $val\n" or die $!;
+  } # RP
+
+
+  elsif ($typemap{$type} eq 'PTR') {
+#    $$recflags{$val}++;
+    if ($revrec eq 'y') {
+
+      if ($val =~ /\.arpa$/) {
+        # someone put in the formal .arpa name.  humor them.
+        print {$zonefiles->{$loc}} "^$val:$host:$ttl:$stamp:$loc\n" or die $!;
+      } else {
+        $zone = NetAddr::IP->new($zone);
+        if (!$zone->{isv6} && $zone->masklen > 24) {
+          # sub-octet v4 zone
+          ($val) = ($val =~ /\.(\d+)$/);
+          print {$zonefiles->{$loc}} "^$val."._ZONE($zone, 'ZONE', 'r', '.').'.in-addr.arpa'.
+            ":$host:$ttl:$stamp:$loc\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}} "^".
+            _ZONE($val, 'ZONE', 'r', '.').($val->{isv6} ? '.ip6.arpa' : '.in-addr.arpa').
+            ":$host:$ttl:$stamp:$loc\n" or die $!;
+        }
+      } # non-".arpa" $val
+
+    } else {
+      # PTRs in forward zones are less bizarre and insane than some other record types
+      # in reverse zones...  OTOH we can't validate them any which way, so we cross our
+      # fingers and close our eyes and make it Someone Else's Problem.
+      print {$zonefiles->{$loc}} "^$host:$val:$ttl:$stamp:$loc\n" or die $!;
+    }
+  } # PTR
 
 } # printrec_bind()