Changeset 886


Ignore:
Timestamp:
06/20/25 12:18:21 (11 days ago)
Author:
Kris Deugau
Message:

/trunk

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/DNSDB.pm

    r885 r886  
    16741674    my @newlist;
    16751675    foreach my $rr ($reply->answer) {  #@alist) {
    1676       next unless $rr->type eq "A";
     1676      next unless $rr->type eq "A" || $rr->type eq "AAAA";
    16771677      push @newlist, $rr->address;
    16781678      $minttl = $rr->ttl if $rr->ttl < $minttl;
     
    16821682    $minttl = 60 if $minttl < 60;
    16831683    # we don't need this to be perfectly correct IP address order, just consistent.
    1684     $liveips = "$minttl:".join(':', sort(@newlist)) if @newlist;
     1684    $liveips = "$minttl:".join(';', sort(@newlist)) if @newlist;
    16851685#fixme:  should it be a formal error case if there are no A records returned?
    16861686  } else {
     
    71587158
    71597159    # slice the TTL we'll actually publish off the front
    7160     my @asubs = split ':', $iplist;
     7160    my @asubs = split ';', $iplist;
    71617161    my $attl = shift @asubs;
    71627162
Note: See TracChangeset for help on using the changeset viewer.