/[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 481 by dpavlin, Sun Sep 13 09:38:00 2009 UTC revision 482 by dpavlin, Sat Jan 23 18:31:14 2010 UTC
# Line 6  use strict; Line 6  use strict;
6  use Net::DNS::Nameserver;  use Net::DNS::Nameserver;
7  use Net::DNS::Resolver;  use Net::DNS::Resolver;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use CouchDB;  use store;
10    
11  use server;  use server;
12  use client;  use client;
# Line 106  warn "## no $qname in ",dump( $ptr_cache Line 106  warn "## no $qname in ",dump( $ptr_cache
106                  $data;                  $data;
107          } @ans ];          } @ans ];
108    
109          CouchDB::audit( 'response', $audit );          store::audit( 'response', $audit );
110    
111          # mark the answer as authoritive (by setting the 'aa' flag          # mark the answer as authoritive (by setting the 'aa' flag
112          return ($rcode, \@ans, \@auth, \@add, { aa => 1 });          return ($rcode, \@ans, \@auth, \@add, { aa => 1 });
# Line 122  sub start { Line 122  sub start {
122                  Verbose      => $debug,                  Verbose      => $debug,
123          ) || die "couldn't create nameserver object\n";          ) || die "couldn't create nameserver object\n";
124    
125          CouchDB::audit('start', { port => 53, domain => $server::domain });          store::audit('start', { port => 53, domain => $server::domain });
126          warn "DNS $server::domain";          warn "DNS $server::domain";
127    
128          $ns->main_loop;          $ns->main_loop;
Legend:
Removed from v.481  
changed lines
  Added in v.482
  ViewVC Help
Powered by ViewVC 1.1.26