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-06-02 00:56:41 -07:00
parent ed9b044f91
commit af7b9c8fac
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
bind8/old_save_controls.cgi
View File

@@ -1,6 +1,9 @@
#!/usr/local/bin/perl
# save_misc.cgi
# Save global miscellaneous options
use strict;
use warnings;
our (%access, %text, %in, %config);
require './bind8-lib.pl';
$access{'defaults'} || &error($text{'misc_ecannot'});
@@ -8,7 +11,7 @@ $access{'defaults'} || &error($text{'misc_ecannot'});
&ReadParse();
&lock_file(&make_chroot($config{'named_conf'}));
$conf = &get_config();
my $conf = &get_config();
my $controls = &find("controls", $conf);
if ($in{'inet_def'} && $in{'unix_def'}) {
@@ -27,7 +30,7 @@ if ($in{'inet_def'} && $in{'unix_def'}) {
my $port=$in{'inetport'};
$port =~ /^\d+$/ || &error($text{'controls_eport'});
my @allows=();
foreach $allow (split(/\s+/, $in{'inetallow'})) {
foreach my $allow (split(/\s+/, $in{'inetallow'})) {
# Need to check acl is OK!
push(@allows, { 'name' => $allow });
}