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

        server->refresh;

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

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

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

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

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

        warn "rcode: $rcode ",dump( @ans );

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

        warn "DNS $server::domain_name";

        $ns->main_loop;
}

1; 
1	dpavlin	122	package dnsd;
2
3			use warnings;
4			use strict;
5
6			use Net::DNS::Nameserver;
7	dpavlin	125	use Net::DNS::Resolver;
8	dpavlin	122	use Data::Dump qw/dump/;
9
10	dpavlin	125	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	dpavlin	122	sub reply_handler {
20			my ($qname, $qclass, $qtype, $peerhost,$query,$conn) = @_;
21			my ($rcode, @ans, @auth, @add);
22
23	dpavlin	128	server->refresh;
24
25	dpavlin	122	print "Received query from $peerhost to ". $conn->{"sockhost"}. "\n";
26			$query->print;
27
28	dpavlin	148	if ( $qname =~ s{\Q$server::domain_name\E$}{} ) {
29			warn "local $qname $qtype";
30			if ( $qtype eq "A" && $qname eq "pxelator." ) {
31			my ($ttl, $rdata) = (3600, "172.16.10.1");
32			push @ans, Net::DNS::RR->new("$qname $ttl $qclass $qtype $rdata");
33			$rcode = "NOERROR";
34			} else {
35			$rcode = "NXDOMAIN";
36			}
37	dpavlin	122
38	dpavlin	125	} elsif ( my $packet = $res->query( $qname, $qtype ) ) {
39
40			$packet->print;
41			push @ans, $_ foreach $packet->answer;
42			$rcode = "NOERROR";
43
44			} else {
45			# not found
46			$rcode = "NXDOMAIN";
47	dpavlin	122	}
48
49	dpavlin	148	warn "rcode: $rcode ",dump( @ans );
50
51	dpavlin	122	# mark the answer as authoritive (by setting the 'aa' flag
52			return ($rcode, \@ans, \@auth, \@add, { aa => 1 });
53			}
54
55			sub start {
56			my $ns = Net::DNS::Nameserver->new(
57			LocalPort => 53,
58			ReplyHandler => \&reply_handler,
59	dpavlin	125	Verbose => $debug,
60	dpavlin	122	) \|\| die "couldn't create nameserver object\n";
61
62	dpavlin	148	warn "DNS $server::domain_name";
63
64	dpavlin	122	$ns->main_loop;
65			}
66
67	dpavlin	148	1;