Changeset 436 for trunk/DNSDB.pm

Timestamp:

10/30/12 12:18:50 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix bug in AXFR import (couldn't import as inactive)
Extend AXFR import to allow overriding TTLs. Note this is all-or-nothing.

File:

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

trunk/DNSDB.pm

@@ -4158 +4158 @@
   my $zone = shift;
   my $group = shift;
-  my $status = shift || 1;
+  my $status = shift;
+  $status = (defined($status) ? $status : 0);   # force sane semantics, and allow passing "null" (inactive) status
   my $rwsoa = shift || 0;
   my $rwns = shift || 0;
+  my $newttl = shift;
   my $merge = shift || 0;       # do we attempt to merge A/AAAA and PTR records whenever possible?
                                 # do we overload this with the fixme below?
@@ -4316 +4318 @@
       my $type = $rr->type;
       my $host = $rr->name;
-      my $ttl = $rr->ttl;
+      my $ttl = ($newttl ? $newttl : $rr->ttl); # allow force-override TTLs
 
       $soaflag = 1 if $type eq 'SOA';