lib/PXElator/dnsd.pm

package dnsd;
 
use warnings;
use strict;

use Net::DNS::Nameserver;
use Net::DNS::Resolver;
use Data::Dump qw/dump/;

use server;
our $debug = server::debug;

my $res = Net::DNS::Resolver->new(
#       nameserver => [ '10.60.0.1' ],
        recurse => 1,
        debug => $debug,
);

sub reply_handler {
        my ($qname, $qclass, $qtype, $peerhost,$query,$conn) = @_;
        my ($rcode, @ans, @auth, @add);

        print "Received query from $peerhost to ". $conn->{"sockhost"}. "\n";
        $query->print;

        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";

        } elsif ( my $packet = $res->query( $qname, $qtype ) ) {

                $packet->print;
                push @ans, $_ foreach $packet->answer;
                $rcode = "NOERROR";

        } else {
                # not found
                $rcode = "NXDOMAIN";
        }

        # mark the answer as authoritive (by setting the 'aa' flag
        return ($rcode, \@ans, \@auth, \@add, { aa => 1 });
}

sub start {
        my $ns = Net::DNS::Nameserver->new(
                LocalPort    => 53,
                ReplyHandler => \&reply_handler,
                Verbose      => $debug,
        ) || die "couldn't create nameserver object\n";

        $ns->main_loop;
}

1;
1	package dnsd;
2
3	use warnings;
4	use strict;
5
6	use Net::DNS::Nameserver;
7	use Net::DNS::Resolver;
8	use Data::Dump qw/dump/;
9
10	use server;
11	our $debug = server::debug;
12
13	my $res = Net::DNS::Resolver->new(
14	# nameserver => [ '10.60.0.1' ],
15	recurse => 1,
16	debug => $debug,
17	);
18
19	sub reply_handler {
20	my ($qname, $qclass, $qtype, $peerhost,$query,$conn) = @_;
21	my ($rcode, @ans, @auth, @add);
22
23	print "Received query from $peerhost to ". $conn->{"sockhost"}. "\n";
24	$query->print;
25
26	if ( $qtype eq "A" && $qname eq "pxelator" ) {
27	my ($ttl, $rdata) = (3600, "172.16.10.1");
28	push @ans, Net::DNS::RR->new("$qname $ttl $qclass $qtype $rdata");
29	$rcode = "NOERROR";
30	} elsif ( $qname eq "foo.example.com" ) {
31	$rcode = "NOERROR";
32
33	} elsif ( my $packet = $res->query( $qname, $qtype ) ) {
34
35	$packet->print;
36	push @ans, $_ foreach $packet->answer;
37	$rcode = "NOERROR";
38
39	} else {
40	# not found
41	$rcode = "NXDOMAIN";
42	}
43
44	# mark the answer as authoritive (by setting the 'aa' flag
45	return ($rcode, \@ans, \@auth, \@add, { aa => 1 });
46	}
47
48	sub start {
49	my $ns = Net::DNS::Nameserver->new(
50	LocalPort => 53,
51	ReplyHandler => \&reply_handler,
52	Verbose => $debug,
53	) \|\| die "couldn't create nameserver object\n";
54
55	$ns->main_loop;
56	}
57
58	1;