diff --git a/bind8/edit_options.cgi b/bind8/edit_options.cgi index 2251f79b2..177f0daee 100755 --- a/bind8/edit_options.cgi +++ b/bind8/edit_options.cgi @@ -1,19 +1,22 @@ #!/usr/local/bin/perl # edit_options.cgi # Display options for an existing master zone +use strict; +use warnings; +our (%access, %text, %in); require './bind8-lib.pl'; &ReadParse(); -$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'}); -$z = &zone_to_config($zone); -$zconf = $z->{'members'}; -$dom = $zone->{'name'}; +my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'}); +my $z = &zone_to_config($zone); +my $zconf = $z->{'members'}; +my $dom = $zone->{'name'}; &can_edit_zone($zone) || &error($text{'master_ecannot'}); $access{'opts'} || &error($text{'master_eoptscannot'}); -$desc = &ip6int_to_net(&arpa_to_ip($dom)); +my $desc = &ip6int_to_net(&arpa_to_ip($dom)); &ui_print_header($desc, $text{'master_opts'}, "", undef, undef, undef, undef, &restart_links($zone));