Changeset 853 for trunk/DNSDB

Timestamp:

09/15/22 15:46:07 (2 years ago)

Author:

Kris Deugau

Message:

/trunk

BIND export, unwinding dev saves, 5 of many many

• Refinement of zone-file-per-location assembly

File:

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

trunk/DNSDB/ExportBIND.pm

@@ -60 +60 @@
 
 
-    # fetch a list of views/locations present in the zone.  we need to publish a file for each one.
-    # in the event that no locations are present (~~ $viewlist is empty), /%view collapses to nothing in the zone path
-    my (@loclist) = $self->{dbh}->selectrow_array("SELECT DISTINCT location FROM records WHERE rdns_id = ?", undef, $revid);
-    push @loclist, $defloc unless grep /$defloc/, @loclist;
-    my $zonepath = $self->{bind_export_zone_path};
-    my %zonefiles;  # to be a list of file handles.
-##fixme:  convert logical revzone into .arpa name
-    foreach my $loc (@loclist) {
-      my $zfilepath = $zonepath;
-      $zonepath =~ s/\%view/$loc/;
-      $zonepath =~ s/\%zone/$revzone/;
-      # Just In Case(TM)
-      $zonepath =~ s,[^\w./-],_,g;
-      #open $zonefiles{$loc}, ">", $zfilepath;
-print "open zonefile for '$loc', '$zonepath'\n";
-    }
-
     eval {
 
@@ -90 +73 @@
           $zonefilehandle = *ZONECACHE;
         }
+
+        # fetch a list of views/locations present in the zone.  we need to publish a file for each one.
+        # in the event that no locations are present (~~ $viewlist is empty), /%view collapses to nothing in the zone path
+        my (@loclist) = $self->{dbh}->selectrow_array("SELECT DISTINCT location FROM records WHERE rdns_id = ?", undef, $revid);
+        push @loclist, $defloc unless grep /$defloc/, @loclist;
+        my $zonepath = $self->{bind_export_zone_path};
+        my %zonefiles;  # to be a list of file handles.
+##fixme:  convert logical revzone into .arpa name
+        foreach my $loc (@loclist) {
+          my $zfilepath = $zonepath;
+          $zfilepath =~ s/\%view/$loc/;
+          $zfilepath =~ s/\%zone/$revzone/;
+          # Just In Case(TM)
+          $zfilepath =~ s,[^\w./-],_,g;
+          #open $zonefiles{$loc}, ">", $zfilepath;
+print "open zonefile for '$loc', '$zfilepath'\n";
+        }
+
 
         # need to fetch this separately since the rest of the records all (should) have real IPs in val