dnsdist

dnsdist.lua

function maintenance()
  res = blockingGetAddrInfo(newDNSName('mydns.service.consul'))
  active = getPoolServers("apool")
  local match = {}
  local match2 = {}
  for k,v in pairs(res) do
    match[v:toString()]=false
   end
   for a,b in pairs(active) do
     match2[a]=false
   end
   for a,b in pairs(active) do
    for k,v in pairs(res) do
      server = "[" .. v:toString() .. "]:53"
      if server == b:getNameWithAddr() then
        match[v:toString()]=true
      end
    end 
   end
  for k,v in pairs(match) do
    if v == false then
      newServer({address=k,pool="apool"})
    end
  end
  for k,v in pairs(match2) do
    if v == false then
      rmServer(k-1)
    end
  end
end