michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-06-19 19:00:22 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-06-03 14:30:37 -07:00
parent a4c8e4a7bb
commit caa329d749
2 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bind8/slave_delete.cgi
View File

@@ -1,14 +1,18 @@
#!/usr/local/bin/perl
# Remove some servers from the managed list
use strict;
use warnings;
our (%access, %text, %in);
require './bind8-lib.pl';
$access{'slaves'} || &error($text{'slaves_ecannot'});
&ReadParse();
&foreign_require("servers", "servers-lib.pl");
@servers = &list_slave_servers();
my @servers = &list_slave_servers();
@d = split(/\0/, $in{'d'});
foreach $id (@d) {
my @d = split(/\0/, $in{'d'});
my $server;
foreach my $id (@d) {
($server) = grep { $_->{'id'} == $id } @servers;
&delete_slave_server($server);
}

13
bind8/slave_form.cgi
View File

@@ -1,12 +1,15 @@
#!/usr/local/bin/perl
# slave_form.cgi
# A form for creating a new slave or stub zone
use strict;
use warnings;
our (%access, %text, %config);
require './bind8-lib.pl';
$type = ($0 =~ /slave_form/);
my $type = ($0 =~ /slave_form/);
$access{'slave'} || &error($type ? $text{'screate_ecannot1'}
: $text{'screate_ecannot2'});
$conf = &get_config();
my $conf = &get_config();
&ui_print_header(undef, $type ? $text{'screate_title1'}
: $text{'screate_title2'}, "",
undef, undef, undef, undef, &restart_links());
@@ -27,9 +30,9 @@ print &ui_table_row($text{'screate_dom'},
&ui_textbox("zone", undef, 60), 3);
# Create in view
@views = &find("view", $conf);
my @views = &find("view", $conf);
if (@views) {
($defview) = grep { lc($_->{'values'}->[0]) eq
my ($defview) = grep { lc($_->{'values'}->[0]) eq
lc($config{'default_view'}) } @views;
print &ui_table_row($text{'mcreate_view'},
&ui_select("view", $defview ? $defview->{'index'} : undef,
@@ -55,7 +58,7 @@ print &ui_table_row($text{'slave_masterport'},
$text{'slave_master_port'}));
# Create on slave servers?
@servers = grep { $_->{'sec'} } &list_slave_servers();
my @servers = grep { $_->{'sec'} } &list_slave_servers();
if (@servers && $access{'remote'}) {
print &ui_table_row($text{'master_onslave'},
&ui_yesno_radio("onslave", 1));