What output do you get when you don't turn off debug?
--
I found what is causing this, $query is 'undef'
So was it the intent of the person who wrote this module to have this
code act in this way?
Do you have a recommendation on how to make this more usable in terms
of success/failure lookups for client nodes on each BIND server?
my $query = $res->query("CLIENT_IP");
use Data::Dumper;
print Dumper($query);
using Data::Dumper with debug off I get: $VAR1 = undef;
but with debug on, I seem to get an answer
__OUTPUT__
;; query(x.x.x.x)
;; setting up an AF_INET() family type UDP socket
;; send_udp(x.x.x.x)
;; answer from x.x.x.x:53 : 43 bytes
;; HEADER SECTION
;; id = 6637
;; qr = 1 opcode = QUERY aa = 0 tc = 0 rd = 0
;; ra = 1 ad = 0 cd = 0 rcode = SERVFAIL
;; qdcount = 1 ancount = 0 nscount = 0 arcount = 0
;; QUESTION SECTION (1 record)
;; x.x.x.x.in-addr.arpa. IN PTR
;; ANSWER SECTION (0 records)
;; AUTHORITY SECTION (0 records)
;; ADDITIONAL SECTION (0 records)
RCODE: SERVFAIL; trying next nameserver
;; send_udp(x.x.x.x:53)
;; answer from x.x.x.x:53 : 474 bytes
;; HEADER SECTION
;; id = 6637
;; qr = 1 opcode = QUERY aa = 0 tc = 0 rd = 0
;; ra = 1 ad = 0 cd = 0 rcode = NOERROR
;; qdcount = 1 ancount = 0 nscount = 13 arcount = 13
;; QUESTION SECTION (1 record)
;; x.x.x.x.in-addr.arpa. IN PTR
;; ANSWER SECTION (0 records)
;; AUTHORITY SECTION (13 records)
.
<snip>
$VAR1 = undef;
A manual nslookup does work :
# nslookup
Default Server: xxx.xxx.xxx.com
Address: 10..xx.xx.xx
> server ns7.xx.com
Default Server: ns7.xx.com
Address: xx.xx.xx.xx
> 10.8.xx.xx ## Client IP
Server: ns7.xx.com
Address: xx.xx.xx.xx
Name: xxx.xxx.xxx.com
Address: 10.xx.xx.254
> server xxx.xxx.xxx.com
Default Server: xxx.xxx.xxx.com
Address: 10.220.xx.xx
> 10.8.xx.xx ## Client IP
Server: xx.xx.xx.com
Address: 10.220.13.132
Name: xxx.xxx.xxx.com
Address: 10.8.xx.xx
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
