Changeset 850 for trunk/DNSDB

Timestamp:

09/01/22 17:49:59 (2 years ago)

Author:

Kris Deugau

Message:

/trunk

BIND export, unwinding dev saves, 3 of many many

• Set up SOA and general record retrieval statement handles
• Prepare possible caching pathname
• Extend zone file pathname assembly/generation

File:

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

trunk/DNSDB/ExportBIND.pm

@@ -36 +36 @@
   my $viewlist = $self->getLocList(curgroup => 1);
 
+  my $soasth = $dbh->prepare("SELECT host,type,val,distance,weight,port,ttl,record_id,location ".
+        "FROM records WHERE rdns_id=? AND type=6");
+  my $recsth = $dbh->prepare("SELECT host,type,val,distance,weight,port,ttl,record_id,location,extract(epoch from stamp),expires,stampactive ".
+        "FROM records WHERE rdns_id=? AND NOT type=6 ".
+        "ORDER BY masklen(inetlazy(val)) DESC, inetlazy(val)");
+
   # Fetch active zone list
   my $revsth = $self->{dbh}->prepare("SELECT rdns_id,revnet,status,changed,default_location FROM revzones WHERE status=1 ".
@@ -43 +49 @@
   $revsth->execute();
   while (my ($revid,$revzone,$revstat,$changed,$defloc) = $revsth->fetchrow_array) {
+    my $tmpzone = NetAddr::IP->new($revzone);
+    my $zfile = $tmpzone->network->addr."-".$tmpzone->masklen;
+#    my $cachefile = "$self->{exportcache}/$zfile";
+#    my $tmpcache = "$self->{exportcache}/tmp.$zfile.$$";
+    my $tmpcache = "tmp.$zfile.$$";      # safety net.  don't overwrite a previous known-good file
+
+##fixme:  convert logical revzone into .arpa name?  maybe take a slice of showrev_arpa?
+##fixme:  need to bodge logical non-octet-boundary revzones into octet-boundary revzones
+##fixme:  do we do cache files?  views balloon the file count stupidly
+
+
     # 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;
+    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) {
-      local $zonepath =~ s/\%view/$loc/;
-print "open $zonefiles{$loc}, $zonepath\n";
+      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";
     }
+
+    $soasth->execute($revid);
+    my (@zsoa) = $soasth->fetchrow_array();
 
   } # revsth->fetch