bind dns to $server::ip

diff --git a/lib/PXElator/dnsd.pm b/lib/PXElator/dnsd.pm
index 2a68c71..b443be3 100644 (file)
--- a/lib/PXElator/dnsd.pm
+++ b/lib/PXElator/dnsd.pm
@@ -115,6 +115,7 @@ warn "## no $qname in ",dump( $ptr_cache );
 sub start {
        my $ns = Net::DNS::Nameserver->new(
                LocalPort    => 53,
+               LocalAddr    => $server::ip,
                ReplyHandler => sub {
                        server->refresh;
                        reply_handler(@_);
@@ -122,7 +123,7 @@ sub start {
                Verbose      => $debug,
        ) || die "couldn't create nameserver object\n";
 
-       store::audit('start', { port => 53, domain => $server::domain });
+       store::audit('start', { ip => $server::ip, port => 53, domain => $server::domain });
        warn "DNS $server::domain";
 
        $ns->main_loop;