Changeset 858

Timestamp:

09/15/22 17:28:10 (2 years ago)

Author:

Kris Deugau

Message:

/trunk

BIND export, unwinding dev saves, 10 of many many

• Trim out reverse metazone split in SOA output

File:

• trunk/DNSDB/ExportBIND.pm (modified) (1 diff)

trunk/DNSDB/ExportBIND.pm

@@ -229 +229 @@
     my ($refresh, $retry, $expire, $min_ttl) = (split /:/, $val)[0,1,2,3];
     my $serial = 0;  # fail less horribly than leaving it empty?
+    # just snarfing the right SOA serial for the zone type
     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) = $dnsdb->{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 = DNSDB::_ZONE($szone, 'ZONE.in-addr.arpa', 'r', '.');
-#          print $datafile "Z$szone:$primary:$email:$serial:$refresh:$retry:$expire:$min_ttl:$ttl:$stamp:$loc\n"
-print "$szone   $ttl    IN      SOA     $primary        $email  ( $serial $refresh $retry $expire $min_ttl )\n"
-            or die $!;
-        }
-        return; # skips "default" bits just below
-      }
-      $zone = DNSDB::_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) = $dnsdb->{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
+##fixme?:  alternate SOA serial schemes?
     $serial = strftime("%Y%m%d%H", localtime()) if !$serial;
 #    print *{$zonefiles->{$loc}} "Z$zone:$primary:$email:$serial:$refresh:$retry:$expire:$min_ttl:$ttl:$stamp:$loc\n"