Lines Matching refs:qname
53 my $qname = $questions[0]->qname;
58 if ($qname eq "foo.info") {
60 } elsif ($qname eq "cname1.example.com") {
64 } elsif ($qname eq "cname2.example.com") {
68 } elsif ($qname eq "www.example.org" || $qname eq "www.example.net" ||
69 $qname eq "badcname.example.org" ||
70 $qname eq "goodcname.example.org" ||
71 $qname eq "foo.baddname.example.org" ||
72 $qname eq "foo.gooddname.example.org") {
77 new Net::DNS::RR($qname .
81 new Net::DNS::RR($qname .
84 } elsif ($qname eq "badcname.example.net" ||
85 $qname eq "goodcname.example.net") {
90 } elsif ($qname =~ /^nodata\.example\.net$/i) {
92 } elsif ($qname =~ /^nxdomain\.example\.net$/i) {
95 } elsif ($qname =~ /sub\.example\.org/) {