Changeset 886
- Timestamp:
- 06/20/25 12:18:21 (11 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r885 r886 1674 1674 my @newlist; 1675 1675 foreach my $rr ($reply->answer) { #@alist) { 1676 next unless $rr->type eq "A" ;1676 next unless $rr->type eq "A" || $rr->type eq "AAAA"; 1677 1677 push @newlist, $rr->address; 1678 1678 $minttl = $rr->ttl if $rr->ttl < $minttl; … … 1682 1682 $minttl = 60 if $minttl < 60; 1683 1683 # 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; 1685 1685 #fixme: should it be a formal error case if there are no A records returned? 1686 1686 } else { … … 7158 7158 7159 7159 # slice the TTL we'll actually publish off the front 7160 my @asubs = split ' :', $iplist;7160 my @asubs = split ';', $iplist; 7161 7161 my $attl = shift @asubs; 7162 7162
Note:
See TracChangeset
for help on using the changeset viewer.