I've used xinetd to set up a test nameserver on port 1024.
Here's the
Net: NS Perl
I'm using to say (falsely) that news.yahoo.com resolves
to 10.1.2.3 with a TTL of 1 day:
$res = Net:NS::Pack
et->new();
$rr = Net:NS::RR-&
gt;new("news.yahoo.com. 86400 A 10.1.2.3");
$res->push(answer => $rr);
print $res->data;
According to Net:NS,
here's the prettyprint version of the packet I create:
;; HEADER SECTION
;; id = 26432
;; qr = 0 opcode = QUERY aa = 0 tc = 0 rd = 1
;; ra = 0 ad = 0 cd = 0 rcode = NOERROR
;; qdcount = 1 ancount = 1 nscount = 0 arcount = 0
;; QUESTION SECTION (1 record)
;; . IN A
;; ANSWER SECTION (1 record)
news.yahoo.com. 86400 IN A 10.1.2.3
;; AUTHORITY SECTION (0 records)
;; ADDITIONAL SECTION (0 records)
It's ugly and minimal, but is it a valid DNS answer? Does
the question
section actually have to contain the question asked or is
that
optional?
When I try using dig to test, I get this error:
> dig -p 1024  localhost news.yahoo.com
; <<>> DiG 9.3.1 <<>> -p 1024 localhost
news.yahoo.com
; (1 server found)
;; global options: printcmd
;; connection timed out; no servers could be reached
My debug logs show that my test nameserver is called thrice
(dig tries
3 times by default?) with this packet (prettyprinted below):
;; HEADER SECTION
;; id = 41909
;; qr = 0 opcode = QUERY aa = 0 tc = 0 rd = 1
;; ra = 0 ad = 0 cd = 0 rcode = NOERROR
;; qdcount = 1 ancount = 0 nscount = 0 arcount = 0
;; QUESTION SECTION (1 record)
;; news.yahoo.com. IN A
;; ANSWER SECTION (0 records)
;; AUTHORITY SECTION (0 records)
;; ADDITIONAL SECTION (0 records)
I did notice the packet dig sends has id=41909 and my
response has
id=26432-- is that a problem?
I'm pretty sure the problem isn't with xinetd and that dig
is getting
my response packet-- it just doesn't seem to like it for
some reason.
--
We're just a Bunch Of Regular Guys, a collective group
that's trying
to understand and assimilate technology. We feel that
resistance to
new ideas and technology is unwise and ultimately futile.
Unsubscribing info is here: h
ttp://help.yahoo.com/help/us/groups/groups-32.html
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://g
roups.yahoo.com/group/perl-beginner/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http
://groups.yahoo.com/group/perl-beginner/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:perl-beginner-digest@yahoogroups.com
mailto:perl-beginner-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
perl-beginner-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.c
om/info/terms/
|