+ if ($rr->type ne 'A') {
+ # decrease counter if it's not an A record
+ $acount--;
+ # report CNAMEs and don't add them to target list
+ if ($rr->type eq 'CNAME') {
+ printf (" ~ '%s' is a CNAME for '%s' and will be resolved accordingly. \n",$rr->name,$rr->cname) if !($options{'q'});
+ $$logr .= sprintf("CNAME resolved: %s -> %s\n",$rr->name,$rr->cname);
+ }
+ next;
+ }