michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-05-30 17:39:19 -07:00
parent 7915579de4
commit 577f5ac754
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bind8/convert_master.cgi
View File

@@ -1,13 +1,17 @@
#!/usr/local/bin/perl
# convert_master.cgi
# Convert a master zone into a slave
use strict;
use warnings;
# Globals
our (%access, %text, %in, %config);
require './bind8-lib.pl';
&ReadParse();
&error_setup($text{'convert_err'});
$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
$zconf = &zone_to_config($zone);
my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
my $zconf = &zone_to_config($zone);
$access{'slave'} || &error($text{'screate_ecannot1'});
&lock_file(&make_chroot($zconf->{'file'}));
@@ -18,7 +22,7 @@ $access{'slave'} || &error($text{'screate_ecannot1'});
# Add a masters section
if ($config{'default_master'}) {
@mdirs = map { { 'name' => $_ } } split(/\s+/, $config{'default_master'});
my @mdirs = map { { 'name' => $_ } } split(/\s+/, $config{'default_master'});
&save_directive($zconf, 'masters', [ { 'name' => 'masters',
'type' => 1,
'members' => \@mdirs } ], 1);