Changeset 886

Timestamp:

06/20/25 12:18:21 (5 weeks ago)

Author:

Kris Deugau

Message:

/trunk

Commit refinement to ALIAS target caching/handling to include AAAA records

File:

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

trunk/DNSDB.pm

@@ -1674 +1674 @@
     my @newlist;
     foreach my $rr ($reply->answer) {  #@alist) {
-      next unless $rr->type eq "A";
+      next unless $rr->type eq "A" || $rr->type eq "AAAA";
       push @newlist, $rr->address;
       $minttl = $rr->ttl if $rr->ttl < $minttl;
@@ -1682 +1682 @@
     $minttl = 60 if $minttl < 60;
     # we don't need this to be perfectly correct IP address order, just consistent.
-    $liveips = "$minttl:".join(':', sort(@newlist)) if @newlist;
+    $liveips = "$minttl:".join(';', sort(@newlist)) if @newlist;
 #fixme:  should it be a formal error case if there are no A records returned?
   } else {
@@ -7158 +7158 @@
 
     # slice the TTL we'll actually publish off the front
-    my @asubs = split ':', $iplist;
+    my @asubs = split ';', $iplist;
     my $attl = shift @asubs;