Changeset 893 for trunk/DNSDB/ExportBIND.pm

Timestamp:

06/25/25 18:45:14 (6 days ago)

Author:

Kris Deugau

Message:

/trunk

Copy sub in from tiny-import.pl to convert octal escapes to normal
characters, so ExportBIND.pm can use it on stray TXT records. Exported
as-is these work fine in tinyDNS, but get weirdly unescaped when fed to
BIND et al (assuming they don't just reject the zone outright).

Should arguably remove the copy in tiny-import.pl and reference it from
DNSDB.pm

File:

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

trunk/DNSDB/ExportBIND.pm

@@ -579 +579 @@
 #    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
 #    print {$zonefiles->{$loc}} "$host  $ttl    IN      TXT     \"$val\"\n" or die $!;
+    # Clean up some lingering tinydns/VegaDNSisms
+    DNSDB::_deoctal(\$val);
     my $recdata = "$host.       $ttl    IN      TXT     \"$val\"\n";
     __recprint($zonefiles, $loclist, $loc, $recdata);