/[pxelator]/lib/PXElator/dnsd.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/dnsd.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 122 by dpavlin, Mon Aug 3 08:57:59 2009 UTC revision 125 by dpavlin, Mon Aug 3 15:06:23 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5    
6  use Net::DNS::Nameserver;  use Net::DNS::Nameserver;
7    use Net::DNS::Resolver;
8  use Data::Dump qw/dump/;  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 {  sub reply_handler {
20          my ($qname, $qclass, $qtype, $peerhost,$query,$conn) = @_;          my ($qname, $qclass, $qtype, $peerhost,$query,$conn) = @_;
21          my ($rcode, @ans, @auth, @add);          my ($rcode, @ans, @auth, @add);
# Line 13  sub reply_handler { Line 23  sub reply_handler {
23          print "Received query from $peerhost to ". $conn->{"sockhost"}. "\n";          print "Received query from $peerhost to ". $conn->{"sockhost"}. "\n";
24          $query->print;          $query->print;
25    
26                    if ( $qtype eq "A" && $qname eq "pxelator" ) {
27          if ($qtype eq "A" && $qname eq "foo.example.com" ) {                  my ($ttl, $rdata) = (3600, "172.16.10.1");
                 my ($ttl, $rdata) = (3600, "10.1.2.3");  
28                  push @ans, Net::DNS::RR->new("$qname $ttl $qclass $qtype $rdata");                  push @ans, Net::DNS::RR->new("$qname $ttl $qclass $qtype $rdata");
29                  $rcode = "NOERROR";                  $rcode = "NOERROR";
30          }elsif( $qname eq "foo.example.com" ) {          } 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";                  $rcode = "NOERROR";
38    
39          }else{          } else {
40                   $rcode = "NXDOMAIN";                  # not found
41                    $rcode = "NXDOMAIN";
42          }          }
43    
44          # mark the answer as authoritive (by setting the 'aa' flag          # mark the answer as authoritive (by setting the 'aa' flag
# Line 33  sub start { Line 49  sub start {
49          my $ns = Net::DNS::Nameserver->new(          my $ns = Net::DNS::Nameserver->new(
50                  LocalPort    => 53,                  LocalPort    => 53,
51                  ReplyHandler => \&reply_handler,                  ReplyHandler => \&reply_handler,
52                  Verbose      => 1,                  Verbose      => $debug,
53          ) || die "couldn't create nameserver object\n";          ) || die "couldn't create nameserver object\n";
54    
         warn dump( $ns );  
   
55          $ns->main_loop;          $ns->main_loop;
56  }  }
57    
Legend:
Removed from v.122  
changed lines
  Added in v.125
  ViewVC Help
Powered by ViewVC 1.1.26