Changeset 895 for trunk/DNSDB/ExportBIND.pm

Timestamp:

06/27/25 14:08:46 (4 days ago)

Author:

Kris Deugau

Message:

/trunk

Commit some tagalongs in ExportBIND.pm that go along with the general
validator update and tinydns export tweak for RPZ zones from r888

File:

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

trunk/DNSDB/ExportBIND.pm

@@ -354 +354 @@
         # Check for out-of-zone data
         $host = $domain if $host eq '@';
-        if ($host !~ /$domain$/i) {
+        if ($domain !~ /\.rpz$/ && $host !~ /$domain$/i) {
           warn "Not exporting out-of-zone record $host $type $val, $ttl (zone $domain)\n";
           next;
@@ -588 +588 @@
 #    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
 #    print {$zonefiles->{$loc}} "$host  $ttl    IN      CNAME   $val\n" or die $!;
-    my $recdata = "$host.       $ttl    IN      CNAME   $val.\n";
+    my $recdata;
+    if ($zone =~ /\.rpz$/) {
+      # RPZ data stored and published as-is
+      $recdata = "$host        $ttl    IN      CNAME   $val\n";
+    } else {
+      $recdata = "$host.       $ttl    IN      CNAME   $val.\n";
+    }
     __recprint($zonefiles, $loclist, $loc, $recdata);
   } # CNAME