Lines Matching refs:qname
54 my $qname = $questions[0]->qname;
56 if ($qname eq "badcname.example.net") {
58 new Net::DNS::RR($qname .
60 } elsif ($qname eq "foo.baddname.example.net") {
64 } elsif ($qname eq "foo.gooddname.example.net") {
68 } elsif ($qname eq "goodcname.example.net") {
70 new Net::DNS::RR($qname .
72 } elsif ($qname eq "cname.sub.example.org") {
74 new Net::DNS::RR($qname .
76 } elsif ($qname eq "ok.sub.example.org") {
78 new Net::DNS::RR($qname . " 300 A 192.0.2.1"));
79 } elsif ($qname eq "www.dname.sub.example.org") {
83 } elsif ($qname eq "www.ok.sub.example.org") {
85 new Net::DNS::RR($qname . " 300 A 192.0.2.1"));