115 |
sub start { |
sub start { |
116 |
my $ns = Net::DNS::Nameserver->new( |
my $ns = Net::DNS::Nameserver->new( |
117 |
LocalPort => 53, |
LocalPort => 53, |
118 |
|
LocalAddr => $server::ip, |
119 |
ReplyHandler => sub { |
ReplyHandler => sub { |
120 |
server->refresh; |
server->refresh; |
121 |
reply_handler(@_); |
reply_handler(@_); |
123 |
Verbose => $debug, |
Verbose => $debug, |
124 |
) || die "couldn't create nameserver object\n"; |
) || die "couldn't create nameserver object\n"; |
125 |
|
|
126 |
store::audit('start', { port => 53, domain => $server::domain }); |
store::audit('start', { ip => $server::ip, port => 53, domain => $server::domain }); |
127 |
warn "DNS $server::domain"; |
warn "DNS $server::domain"; |
128 |
|
|
129 |
$ns->main_loop; |
$ns->main_loop; |