Make ipv6revzone available in all CGIs https://github.com/webmin/webmin/issues/369

bind8/edit_master.cgi

@@ -4,6 +4,7 @@
 
 require './bind8-lib.pl';
 &ReadParse();
+our $ipv6revzone;
 $in{'view'} = 'any' if ($in{'view'} eq '');
 $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
 $dom = $zone->{'name'};

bind8/edit_slave.cgi

@@ -4,6 +4,7 @@
 
 require './bind8-lib.pl';
 &ReadParse();
+our $ipv6revzone;
 
 $in{'view'} = 'any' if ($in{'view'} eq '');
 $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});

bind8/records-lib.pl

@@ -6,6 +6,7 @@ use warnings;
 our (%config, %text, %in);
 our $module_config_directory;
 our $bind_version;
+our $ipv6revzone = $config{'ipv6_mode'} ? "ip6.arpa" : "ip6.int";
 
 # read_zone_file(file, origin, [previous], [only-soa], [no-chroot])
 # Reads a DNS zone file and returns a data structure of records. The origin
@@ -601,8 +602,6 @@ if ($_[0] =~ /^([\d\-\.\/]+)$/) {
 return $_[0];
 }
 
-my $ipv6revzone = $config{'ipv6_mode'} ? "ip6.arpa" : "ip6.int";
-
 # ip6int_to_net(name)
 # Converts an address like a.b.c.d.4.3.2.1.ip6.int. to 1234:dcba::
 sub ip6int_to_net

bind8/save_record.cgi

@@ -3,6 +3,7 @@
 # Adds or updates a record of some type
 
 require './bind8-lib.pl';
+our $ipv6revzone;
 &ReadParse();
 &error_setup($text{'edit_err'});
 $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});