Changeset 854

Timestamp:

09/15/22 16:03:14 (2 years ago)

Author:

Kris Deugau

Message:

/trunk

BIND export, unwinding dev saves, 6 of many many

• Start fleshing out actual record output blocks with SOA, largely copy-pasted from _printrec_tiny() in DNSDB.pm

File:

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

trunk/DNSDB/ExportBIND.pm

@@ -91 +91 @@
         }
 
-
         # need to fetch this separately since the rest of the records all (should) have real IPs in val
         $soasth->execute($revid);
         my (@zsoa) = $soasth->fetchrow_array();
-        $self->_printrec_tiny($zonefilehandle, $zsoa[7], 'y',\%recflags,$revzone,
+        printrec_bind($zonefilehandle, $zsoa[7], 'y',\%recflags,$revzone,
           $zsoa[0],$zsoa[1],$zsoa[2],$zsoa[3],$zsoa[4],$zsoa[5],$zsoa[6],$zsoa[8],'');
 
@@ -129 +128 @@
           }
 
-          $self->_printrec_tiny($zonefilehandle, $recid, 'y', \%recflags, $revzone,
+          printrec_bind($zonefilehandle, $recid, 'y', \%recflags, $revzone,
             $host, $type, $val, $dist, $weight, $port, $ttl, $loc, $stamp, $expires, $stampactive);
 
@@ -170 +169 @@
 
 
-
-    $soasth->execute($revid);
-    my (@zsoa) = $soasth->fetchrow_array();
 
   } # revsth->fetch
@@ -205 +201 @@
 } # export()
 
+
+# Print individual records in BIND format
+sub printrec_bind {
+  my ($zonefiles, $recid, $revrec, $loclist, $zone, $host, $type, $val, $distance, $weight, $port, $ttl,
+        $recloc, $stamp, $expires, $stampactive) = @_;
+
+  # Just In Case something is lingering in the DB
+  $recloc = '' if !$loc;
+
+  ## And now to the records!
+
+  if ($typemap{$type} eq 'SOA') {
+    # host contains pri-ns:responsible
+    # val is abused to contain refresh:retry:expire:minttl
+    # let's be explicit about abusing $host and $val
+    my ($email, $primary) = (split /:/, $host)[0,1];
+    my ($refresh, $retry, $expire, $min_ttl) = (split /:/, $val)[0,1,2,3];
+    my $serial = 0;  # fail less horribly than leaving it empty?
+    if ($revrec eq 'y') {
+##fixme:  have to publish SOA records for each v4 /24 in sub-/16, and each /16 in sub-/8
+# what about v6?
+# -> only need SOA for local chunks offset from reverse delegation boundaries, so v6 is fine
+# anyone who says they need sub-nibble v6 delegations, at this time, needs their head examined.
+##fixme?:  alternate SOA serial schemes?
+      ($serial) = $self->{dbh}->selectrow_array("SELECT zserial FROM revzones WHERE revnet=?", undef, $zone);
+      $zone = NetAddr::IP->new($zone);
+      # handle split-n-multiply SOA for off-octet (8 < mask < 16) or (16 < mask < 24) v4 zones
+      if (!$zone->{isv6} && ($zone->masklen < 24) && ($zone->masklen % 8 != 0)) {
+        foreach my $szone ($zone->split($zone->masklen + (8 - $zone->masklen % 8))) {
+          $szone = _ZONE($szone, 'ZONE.in-addr.arpa', 'r', '.');
+          print $datafile "Z$szone:$primary:$email:$serial:$refresh:$retry:$expire:$min_ttl:$ttl:$stamp:$loc\n"
+            or die $!;
+        }
+        return; # skips "default" bits just below
+      }
+      $zone = _ZONE($zone, 'ZONE', 'r', '.').($zone->{isv6} ? '.ip6.arpa' : '.in-addr.arpa');
+    } else {
+      # just snarfing the right SOA serial for the zone type
+##fixme?:  alternate SOA serial schemes?
+      ($serial) = $self->{dbh}->selectrow_array("SELECT zserial FROM domains WHERE domain=?", undef, $zone);
+    } # revrec <> 'y'
+    # suppress a "uninitialized value" warning.  should be impossible but...
+    # abuse hours as the last digit pair of the serial for simplicity
+    $serial = strftime("%Y%m%d%H", localtime()) if !$serial;
+    print $zonefiles{$recloc} "Z$zone:$primary:$email:$serial:$refresh:$retry:$expire:$min_ttl:$ttl:$stamp:$loc\n"
+      or die $!;
+  } # SOA
+
+} # printrec_bind()
+
+
 1;