Lines Matching refs:qname
53 my $qname = $questions[0]->qname;
56 if ($qname eq "cname1.example.com") {
60 } elsif ($qname eq "cname2.example.com") {
64 } elsif ($qname eq "www.example.org" || $qname eq "www.example.net" ||
65 $qname eq "badcname.example.org" ||
66 $qname eq "goodcname.example.org" ||
67 $qname eq "foo.baddname.example.org" ||
68 $qname eq "foo.gooddname.example.org") {
73 new Net::DNS::RR($qname .
77 new Net::DNS::RR($qname .
80 } elsif ($qname eq "badcname.example.net" ||
81 $qname eq "goodcname.example.net") {
86 } elsif ($qname =~ /^nodata\.example\.net$/i) {
88 } elsif ($qname =~ /^nxdomain\.example\.net$/i) {
91 } elsif ($qname =~ /sub\.example\.org/) {
96 } elsif ($qname =~ /\.broken/) {