Changeset 928 for branches/secondaryzones/DNSDB.pm

Timestamp:

08/21/25 16:57:47 (15 hours ago)

Author:

Kris Deugau

Message:

/branches/secondaryzones

Fill out autoaxfr branch of tinydns secondary zone export. See #86.

File:

• branches/secondaryzones/DNSDB.pm (modified) (1 diff)

branches/secondaryzones/DNSDB.pm

@@ -6904 +6904 @@
   } # while ($domsth)
 
+  my $sec_sth = $dbh->prepare("SELECT secondary_id FROM secondary_zones WHERE zone = ? AND status = 1");
+
+  # update secondary zones as needed
+  if ($self->{tiny_secondary_method} eq 'autoaxfr') {
+    # secondary zone AXFR managed by Matt Armstrong's autoaxfr (http://www.lickey.com/autoaxfr/)
+
+    my $secondary_path = $self->{autoaxfr_root}.'/slaves/';
+##fixme:  arguably should be configurable, since this is not part of autoaxfr
+    my $secondary_removed = $self->{autoaxfr_root}.'/slaves.removed/';
+    # remove secondaries no longer in DB
+    opendir AUTOROOT, $secondary_path;
+    my %activesecondaries;
+    while (my $zone = readdir AUTOROOT) {
+      next if $zone eq '.' || $zone eq '..';
+
+      $sec_sth->execute($zone);
+      my ($zid) = $sec_sth->fetchrow_array;
+      if (!$zid) {
+        # zone removed/disabled
+        rename $secondary_path.$zone, $secondary_removed.$zone;
+      } else {
+        open PRIMARY, "<$secondary_path/$zone";
+        my @primary;
+        foreach (<PRIMARY>) {
+          chomp;
+          push @primary, $_;
+        }
+        $activesecondaries{$zone} = join ',', sort @primary;
+      } # remove/refresh existing entries
+    } # readdir AUTOROOT
+
+    # Now we iterate the active zones in dnsadmin to update existing ones or add new ones
+    $sec_sth = $dbh->prepare("SELECT zone,primaryserver FROM secondary_zones WHERE status = 1") or print $dbh->errstr;
+    $sec_sth->execute or print $dbh->errstr;
+    while (my ($zone, $primary) = $sec_sth->fetchrow_array) {
+      my @plist = split ',', $primary;
+      # need deterministic comparison
+      my $pcompare = join ',', sort @plist;
+      next if $activesecondaries{$zone} && $activesecondaries{$zone} eq $pcompare;
+      # primary list is either different or zone is new/recently-(re-)enabled
+      open PRIMARY, ">$secondary_path/$zone";
+      foreach my $p (@plist) {
+        print PRIMARY "$p\n";
+      }
+      close PRIMARY;
+    }
+
+  } elsif ($self->{tiny_secondary_method} eq 'dnsadmin') {
+    # secondary zone AXFR managed by dnsadmin
+
+  } else {
+    # Your llama is on fire
+  }
+
   return 1;
 } # end __export_tiny()