Merge pull request #4 from norrs/config_variables_renames

Config variables renames from norrs

1 files changed, 7 insertions, 7 deletions

diff --git a/tools/make-reverse4-files.pl b/tools/make-reverse4-files.pl
index d20ea37..2be6807 100755
--- a/tools/make-reverse4-files.pl
+++ b/tools/make-reverse4-files.pl
@@ -40,12 +40,12 @@ my $bind_sec_revzones_file = $bind_base . "named.slave-reverse4.conf";
 
 my $tgname    = $nms::config::tgname;
 
-my $pri_a     = $nms::config::pri_a;
-my $pri_ptr   = $nms::config::pri_ptr;
+my $pri_hostname     = $nms::config::pri_hostname;
+my $pri_v4   = $nms::config::pri_v4;
 my $pri_v6    = $nms::config::pri_v6;
 
-my $sec_a     = $nms::config::sec_a;
-my $sec_ptr   = $nms::config::sec_ptr;
+my $sec_hostname     = $nms::config::sec_hostname;
+my $sec_v4   = $nms::config::sec_v4;
 my $sec_v6    = $nms::config::sec_v6;
 
 my $ext_xfer  = $nms::config::ext_xfer;
@@ -68,9 +68,9 @@ my $base_ipv4 = new Net::IP( $base_ipv4net . "/" . $base_ipv4prefix );
 $base_ipv4net =~ m/^(\d+)\.(\d+)\.(\d+)\..*/;
 my ( $p_oct, $s_oct, $t_oct ) = ( $1, $2, $3 );
 
-$pri_ptr =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+).*/;
+$pri_v4 =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+).*/;
 my ( $pp_oct, $ps_oct, $pt_oct, $pf_oct) = ( $1, $2, $3, $4 );
-$sec_ptr =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+).*/;
+$sec_v4 =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+).*/;
 my ( $sp_oct, $ss_oct, $st_oct, $sf_oct) = ( $1, $2, $3, $4 );
 
 if ( $role eq "master" )
@@ -106,7 +106,7 @@ while (1)
 		print NFILE "    type master;\n";
 		print NFILE "    allow-update { key DHCP_UPDATER; };\n";
 		print NFILE "    notify yes;\n";
-		print NFILE "    allow-transfer { $sec_ptr; $ext_xfer; $noc_nett; $noc_nett_v6; };\n";
+		print NFILE "    allow-transfer { $sec_v4; $ext_xfer; $noc_nett; $noc_nett_v6; };\n";
 		print NFILE "    file \"reverse/". $rev_zone .".zone\";\n";
 		print NFILE "};\n\n";