Lines Matching refs:qname
54 my ($qname, $qclass, $qtype) = @_;
57 print ("request: $qname/$qtype\n");
63 if ($qname eq "count" ) {
66 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
71 } elsif ($qname eq "reset" ) {
77 } elsif ($qname eq "direct.example.org" ) {
80 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
84 } elsif ($qname eq "indirect1.example.org" ||
85 $qname eq "indirect2.example.org" ||
86 $qname eq "indirect3.example.org" ||
87 $qname eq "indirect4.example.org" ||
88 $qname eq "indirect5.example.org" ||
89 $qname eq "indirect6.example.org" ||
90 $qname eq "indirect7.example.org" ||
91 $qname eq "indirect8.example.org") {
93 my $rr = new Net::DNS::RR("$qname 86400 $qclass NS ns1.1.example.org");
97 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
101 } elsif ($qname =~ /^ns1\.(\d+)\.example\.org$/) {
111 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
112 print("\tresponse: $qname $ttl $qclass $qtype $rdata\n");
117 } elsif ($qname eq "direct.example.net" ) {
120 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
124 } elsif( $qname =~ /^ns1\.(\d+)\.example\.net$/ ) {
149 my $qname = $question->qname;
153 ($rcode, $ans, $auth, $add, $wait) = reply_handler($qname, $qclass, $qtype);