From bcbb597ac20f08fbb0e408b0fe2f792a240c9cd7 Mon Sep 17 00:00:00 2001
From: Joachim Tingvold <joachim@tingvold.com>
Date: Sun, 29 Mar 2015 13:23:32 +0200
Subject: Fix DNS-zone syntax.

---
 bootstrap/make-reverse4-files.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'bootstrap/make-reverse4-files.pl')

diff --git a/bootstrap/make-reverse4-files.pl b/bootstrap/make-reverse4-files.pl
index 184f6fc..f445207 100755
--- a/bootstrap/make-reverse4-files.pl
+++ b/bootstrap/make-reverse4-files.pl
@@ -52,7 +52,9 @@ else
 }
 
 sub add_zone{
-	my $rev_zone = $t_oct . "." .  $s_oct . "." . $p_oct . ".in-addr.arpa";
+	my $ptr_zone = Net::IP->new("$p_oct.$s_oct.$t_oct.0") or die ("dhcp_reverse fail");
+	my $dhcp_ptr = $ptr_zone->reverse_ip();
+	(my $bind_ptr = $dhcp_ptr) =~ s/\.$//;
 		
 	if ( $role eq "master" )
 	{
@@ -60,7 +62,7 @@ sub add_zone{
 		# both bind9 and dhcp on master.
 
 		print DFILE <<"EOF";
-zone "$rev_zone" {
+zone $dhcp_ptr {
 	primary $nms::config::ddns_to;
 	key DHCP_UPDATER;
 }
@@ -68,17 +70,17 @@ EOF
 
 		print NFILE <<"EOF";
 // $block
-zone "$rev_zone" {
+zone "$bind_ptr" {
 	type master;
 	allow-update { key DHCP_UPDATER; };
 	notify yes;
 	allow-transfer { ns-xfr; ext-xfr; };
-	file "reverse/$rev_zone.zone";
+	file "reverse/$bind_ptr.zone";
 };
 
 EOF
 
-		my $zfilename = $bind_base . "reverse/" . $rev_zone . ".zone";
+		my $zfilename = $bind_base . "reverse/" . $bind_ptr . ".zone";
 		open ZFILE, ">", $zfilename;
 
 		print ZFILE <<"EOF";
-- 
cgit v1.2.3


From 3c8969d3e3bf2726439e5f3ae1489d2ce01a85ce Mon Sep 17 00:00:00 2001
From: Joachim Tingvold <joachim@tingvold.com>
Date: Sun, 29 Mar 2015 13:24:32 +0200
Subject: Prefix.

---
 bootstrap/make-reverse4-files.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bootstrap/make-reverse4-files.pl')

diff --git a/bootstrap/make-reverse4-files.pl b/bootstrap/make-reverse4-files.pl
index f445207..afaff39 100755
--- a/bootstrap/make-reverse4-files.pl
+++ b/bootstrap/make-reverse4-files.pl
@@ -52,7 +52,7 @@ else
 }
 
 sub add_zone{
-	my $ptr_zone = Net::IP->new("$p_oct.$s_oct.$t_oct.0") or die ("dhcp_reverse fail");
+	my $ptr_zone = Net::IP->new("$p_oct.$s_oct.$t_oct.0/24") or die ("dhcp_reverse fail");
 	my $dhcp_ptr = $ptr_zone->reverse_ip();
 	(my $bind_ptr = $dhcp_ptr) =~ s/\.$//;
 		
-- 
cgit v1.2.3


From 685d6b1509d7c823b4ce9fb666cf4b8e89976995 Mon Sep 17 00:00:00 2001
From: Joachim Tingvold <joachim@tingvold.com>
Date: Sun, 29 Mar 2015 13:25:55 +0200
Subject: Remember to change all variables (-:

---
 bootstrap/make-reverse4-files.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'bootstrap/make-reverse4-files.pl')

diff --git a/bootstrap/make-reverse4-files.pl b/bootstrap/make-reverse4-files.pl
index afaff39..86489ba 100755
--- a/bootstrap/make-reverse4-files.pl
+++ b/bootstrap/make-reverse4-files.pl
@@ -98,7 +98,7 @@ EOF
 		IN	NS	$nms::config::pri_hostname.$nms::config::tgname.gathering.org.
 		IN	NS	$nms::config::sec_hostname.$nms::config::tgname.gathering.org.
 
-\$ORIGIN $rev_zone.
+\$ORIGIN $bind_ptr.
 EOF
 
 		# add reverse if DNS-servers belong to zone
@@ -116,10 +116,10 @@ EOF
 		# if not master, aka slave
 		print SFILE <<"EOF";
 // $block
-zone "$rev_zone" {
+zone "$bind_ptr" {
 	type slave;
 	notify no;
-	file "slave/$rev_zone.cache";
+	file "slave/$bind_ptr.cache";
 	masters { master_ns; };
 	allow-transfer { ns-xfr; ext-xfr; };
 };
-- 
cgit v1.2.3


From 3ec824b20fc65c2352d881b80c02e6c59565f39d Mon Sep 17 00:00:00 2001
From: Joachim Tingvold <joachim@tingvold.com>
Date: Sun, 29 Mar 2015 15:11:33 +0200
Subject: Make v4-rev on secondary DHCP.

---
 bootstrap/make-reverse4-files.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'bootstrap/make-reverse4-files.pl')

diff --git a/bootstrap/make-reverse4-files.pl b/bootstrap/make-reverse4-files.pl
index 86489ba..88f7a37 100755
--- a/bootstrap/make-reverse4-files.pl
+++ b/bootstrap/make-reverse4-files.pl
@@ -44,6 +44,7 @@ if ( $role eq "master" )
 }
 elsif ( $role eq "slave" )
 {
+	open DFILE, ">" . $dhcp_revzones_file or die $!;
 	open SFILE, ">" . $bind_sec_revzones_file or die $!;
 }
 else
-- 
cgit v1.2.3