Lines Matching refs:qname
34 my ($qname, $qclass, $qtype, $peerhost, $query, $conn) = @_;
37 print ("request: $qname/$qtype\n");
40 if ($qname eq "example.broken") {
42 my $rr = new Net::DNS::RR("$qname $ttl $qclass SOA . . 0 0 0 0 0");
45 my $rr = new Net::DNS::RR("$qname $ttl $qclass NS $nsname");
51 } elsif ($qname eq "cname-to-$synth2") {
52 my $rr = new Net::DNS::RR("$qname $ttl $qclass CNAME name.$synth2");
59 } elsif ($qname eq "$synth" || $qname eq "$synth2") {
61 my $rr = new Net::DNS::RR("$qname $ttl $qclass DNAME .");
65 } elsif ($qname eq "name.$synth") {
66 my $rr = new Net::DNS::RR("$qname $ttl $qclass CNAME name.");
71 } elsif ($qname eq "name.$synth2") {
72 my $rr = new Net::DNS::RR("$qname $ttl $qclass CNAME name.");