Changeset 367

Timestamp:

07/26/12 17:57:19 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Tweak tinydns export processing to support automatic TTLs.
See #40, sort of.

File:

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

trunk/DNSDB.pm

@@ -4227 +4227 @@
       my $stamp = '';
 
+      # support tinydns' auto-TTL
+      $ttl = '' if $ttl == '0';
+
       _printrec_tiny($datafile,'n',\%recflags,$dom,$host,$type,$val,$dist,$weight,$port,$ttl,$loc,$stamp);
       $recflags{$recid} = 1;
@@ -4272 +4275 @@
 # ~~ 2^62 + time()
       my $stamp = '';
+
+      # support tinydns' auto-TTL
+      $ttl = '' if $ttl == '0';
 
       _printrec_tiny($datafile,'y',\%recflags,$revzone,$host,$type,$val,$dist,$weight,$port,$ttl,$loc,$stamp);