diff options
Diffstat (limited to 'tools/make-reverse4-files.pl')
| -rwxr-xr-x | tools/make-reverse4-files.pl | 14 |
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"; |