michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 16:50:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-06-03 00:58:01 -07:00
parent 90196c3f88
commit 3eb49c27ed
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
bind8/save_slave.cgi
View File

@@ -1,18 +1,22 @@
#!/usr/local/bin/perl
# save_slave.cgi
# Save changes to slave zone options in named.conf
use strict;
use warnings;
our (%access, %text, %in);
require './bind8-lib.pl';
&ReadParse();
&error_setup($text{'slave_err'});
$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'};
my $conf = &get_config();
&can_edit_zone($zone) ||
&error($text{'master_ecannot'});
$indent = $zone->{'view'} ? 2 : 1;
my $indent = $zone->{'view'} ? 2 : 1;
$access{'ro'} && &error($text{'master_ero'});
$access{'opts'} || &error($text{'master_eoptscannot'});
@@ -40,7 +44,7 @@ return $_[0] =~ /^\d+$/ ? undef : &text('slave_emax', $_[0]);
sub file_check
{
return $text{'slave_efile'} if ($_[0] !~ /\S/);
local $file = $_[0];
my $file = $_[0];
if ($_[0] !~ /^\//) {
$file = &base_directory($conf)."/".$file;
}