Skip Menu |

This queue is for tickets about the Net-DNS CPAN distribution.

Report information
The Basics
Id: 4195
Status: resolved
Priority: 0/
Queue: Net-DNS

People
Owner: rt-cpan [...] triv.org
Requestors: mgermoni [...] uniautomation.it
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.41
Fixed in: (no value)



Subject: Nameserver.pm
Hi, I've used Net-DNS to make a fast coded and simple Server that gives fake answer depending on who has done the query. Now I found out that in the Nameserver.pm a check for $query existance has made in the make_reply method, (honestly I do not why an empty $query should come) but after jumping in the "invalid packet" portion of the condition it tries to build up the reply; but the strange thing is that it tries to build it up by using the $query and of course it dies saying "Can't call method "header" on an undefined value /usr/local/lib/perl5/site_perl/5.8.0/Net/DNS/Nameserver.pm line 170" just because the $query does not exist. Tx
Date: Fri, 24 Oct 2003 14:06:22 -0600 (MDT)
From: Rob Brown <bbb [...] cpan.org>
To: Guest via RT <bug-Net-DNS [...] rt.cpan.org>
Subject: Re: [cpan #4195] Nameserver.pm
RT-Send-Cc:
Maybe the Net::DNSServer module might be easier to do this. It is just a wrapper around Net::DNS using Net::Server which has hooks to allow what you are trying to do. -- Rob On Thu, 23 Oct 2003, Guest via RT wrote: Show quoted text
> Full context and any attached attachments can be found at: > <URL: https://rt.cpan.org/Ticket/Display.html?id=4195 > > > Hi, I've used Net-DNS to make a fast coded and simple Server that gives fake answer depending on who has done the query. > Now I found out that in the Nameserver.pm a check for $query existance has made in the make_reply method, (honestly I do not why an empty $query should come) but after jumping in the "invalid packet" portion of the condition it tries to build up the reply; but the strange thing is that it tries to build it up by using the $query and of course it dies saying "Can't call method "header" on an undefined value /usr/local/lib/perl5/site_perl/5.8.0/Net/DNS/Nameserver.pm line 170" > just because the $query does not exist. > Tx >
[guest - Thu Oct 23 03:59:07 2003]: Show quoted text
> Hi, I've used Net-DNS to make a fast coded and simple Server that > gives fake answer depending on who has done the query. > Now I found out that in the Nameserver.pm a check for $query existance > has made in the make_reply method, (honestly I do not why an empty > $query should come) but after jumping in the "invalid packet" > portion of the condition it tries to build up the reply; but the > strange thing is that it tries to build it up by using the $query > and of course it dies saying "Can't call method "header" on an > undefined value > /usr/local/lib/perl5/site_perl/5.8.0/Net/DNS/Nameserver.pm line > 170" > just because the $query does not exist.
This will be fixed in the next CPAN release of Net::DNS. -- Chris Reinhardt ctriv@dyndns.org Systems Architect Dynamic DNS Network Services http://www.dyndns.org/