trying to make it readable :)
when DNS_REQUEST {
set ldns [IP::client_addr]
if { [DNS::edns0 exists] &! [catch { DNS::edns0 subnet address }] } {
set gtm_ecs_address [DNS::edns0 subnet address]
log "ip-- $gtm_ecs_address"
set gtm_ecs_source [DNS::edns0 subnet source]
log "subnet source $gtm_ecs_source"
set gtm_ecs_scope [DNS::edns0 subnet scope]
set ldns $gtm_ecs_address
if {([$gtm_ecs_address match "1.1.0.0/16"]) or ([$gtm_ecs_address match "1.2.0.0/16"]) or ([$gtm_ecs_address match "1.3.0.0/16"])}{
log "pool_A"
}
else {
log "pool_B"
}
}
}