From 9bd71bffac052d1d0d47a02c3a794df0ddeca1e4 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 19 Jul 2011 11:52:21 +0000
Subject: [PATCH] bind dns to $server::ip

---
 lib/PXElator/dnsd.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/PXElator/dnsd.pm b/lib/PXElator/dnsd.pm
index 2a68c71..b443be3 100644
--- 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;
-- 
2.20.1