6 use Net::DNS::Nameserver;
7 use Net::DNS::Resolver;
8 use Data::Dump qw/dump/;
12 our $debug = server::debug;
14 my $res = Net::DNS::Resolver->new(
15 # nameserver => [ '10.60.0.1' ],
22 my ( $name, $ip ) = @_;
23 $ptr_cache->{ join('.', reverse split(/\./, $ip)) } = $name;
28 my ($qname, $qclass, $qtype, $peerhost,$query,$conn) = @_;
29 my ($rcode, @ans, @auth, @add);
32 $debug = server::debug;
34 CouchDB::audit( 'request', {
38 peerhost => $peerhost,
39 sockhost => $conn->{"sockhost"}
42 $query->print if $debug;
44 my $local = $1 if $qname =~ m{^(.+)\.\Q$server::domain_name\E$};
45 $local = $qname if $qname !~ m{\.};
49 my $audit = { source => 'unknown' };
52 warn "local[$local] $qname $qtype";
55 if ( $qtype eq "A" && $local eq "server" ) {
56 $rdata = name_ip( $local, $server::ip );
57 $audit->{source} = 'local';
62 push @ans, Net::DNS::RR->new("$qname $ttl $qclass $qtype $rdata") if $ttl;
64 } elsif ( $qtype eq 'PTR' && $qname =~ m{^([0-9\.]*)\.in-addr\.arpa$} ) {
65 if ( my $rdata = $ptr_cache->{$1} ) {
66 $rdata .= '.' . $server::domain_name;
67 push @ans, Net::DNS::RR->new("$qname $ttl $qclass $qtype $rdata");
68 $audit->{source} = 'PTR';
70 warn "## ",dump( $ptr_cache );
73 } elsif ( my $packet = $res->query( $qname, $qtype ) ) {
75 $audit->{source} = 'upstream';
77 push @ans, $_ foreach $packet->answer;
85 warn "rcode: $rcode ",dump( @ans );
87 $audit->{rcode} = $rcode;
88 $audit->{ans} = [ map {
90 foreach my $n ( keys %$_ ) {
91 $data->{$n} = $_->{$n};
96 CouchDB::audit( 'response', $audit );
98 # mark the answer as authoritive (by setting the 'aa' flag
99 return ($rcode, \@ans, \@auth, \@add, { aa => 1 });
103 my $ns = Net::DNS::Nameserver->new(
105 ReplyHandler => \&reply_handler,
107 ) || die "couldn't create nameserver object\n";
109 CouchDB::audit('start', { port => 53, domain_name => $server::domain_name });
110 warn "DNS $server::domain_name";