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

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-06-03 01:15:14 -07:00
parent e422ae0eaf
commit 20c9d9f0f1
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bind8/save_view.cgi
View File

@@ -1,13 +1,16 @@
#!/usr/local/bin/perl
# save_view.cgi
# Update an existing view
use strict;
use warnings;
our (%access, %text, %in);
require './bind8-lib.pl';
&ReadParse();
&error_setup($text{'view_err'});
$pconf = &get_config_parent();
$conf = $pconf->{'members'};
$view = $conf->[$in{'index'}];
my $pconf = &get_config_parent();
my $conf = $pconf->{'members'};
my $view = $conf->[$in{'index'}];
$access{'views'} || &error($text{'view_ecannot'});
&can_edit_view($view) || &error($text{'view_ecannot'});
$access{'ro'} && &error($text{'view_ecannot'});
@@ -24,6 +27,7 @@ $access{'ro'} && &error($text{'view_ecannot'});
if ($in{'transfer-source'})
{
&check_ipaddress($in{'transfer-source'}) || &error(&text('net_eaddr', $in{'transfer-source'}));
my @tvals;
push(@tvals, $in{'transfer-source'});
if (@tvals)
{