- if ( $qtype eq "A" && $qname eq "pxelator" ) {
- my ($ttl, $rdata) = (3600, "172.16.10.1");
- push @ans, Net::DNS::RR->new("$qname $ttl $qclass $qtype $rdata");
- $rcode = "NOERROR";
- } elsif ( $qname eq "foo.example.com" ) {
- $rcode = "NOERROR";
+ if ( $qname =~ s{\Q$server::domain_name\E$}{} ) {
+ warn "local $qname $qtype";
+ if ( $qtype eq "A" && $qname eq "pxelator." ) {
+ my ($ttl, $rdata) = (3600, "172.16.10.1");
+ push @ans, Net::DNS::RR->new("$qname $ttl $qclass $qtype $rdata");
+ $rcode = "NOERROR";
+ } else {
+ $rcode = "NXDOMAIN";
+ }