ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

check that the server copes with responses containing a CNAME

Browse Source 
and other data
This commit is contained in:
Andreas Gustafsson
2000-07-28 22:42:42 +00:00
parent b98dd4edc8
commit e0f23ee828
2 changed files with 29 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
bin/tests/system/resolver/ans2/ans.pl
View File

@@ -27,12 +27,27 @@ for (;;) {
my ($packet, $err) = new Net::DNS::Packet(\$buf, 0);
$err and die $err;
print "REQUEST:\n";
print "REQUEST:\n";
$packet->print;
$packet->header->qr(1);
$packet->push("authority", new Net::DNS::RR("below.www.example.com 300 NS ns.below.www.example.com"));
$packet->push("additional", new Net::DNS::RR("ns.below.www.example.com 300 A 10.53.0.3"));
my @questions = $packet->question;
my $qname = $questions[0]->qname;
if ($qname eq "cname1.example.com") {
# Data for the "cname + other data / 1" test
$packet->push("answer", new Net::DNS::RR("cname1.example.com 300 CNAME cname1.example.com"));
$packet->push("answer", new Net::DNS::RR("cname1.example.com 300 A 1.2.3.4"));
} elsif ($qname eq "cname2.example.com") {
# Data for the "cname + other data / 2" test: same RRs in opposite order
$packet->push("answer", new Net::DNS::RR("cname2.example.com 300 A 1.2.3.4"));
$packet->push("answer", new Net::DNS::RR("cname2.example.com 300 CNAME cname2.example.com"));
} else {
# Data for the "bogus referrals" test
$packet->push("authority", new Net::DNS::RR("below.www.example.com 300 NS ns.below.www.example.com"));
$packet->push("additional", new Net::DNS::RR("ns.below.www.example.com 300 A 10.53.0.3"));
}
$sock->send($packet->data);