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-17 23:12:11 -07:00
parent 90d0244950
commit edccc4ea10
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
at/save_allow.cgi
View File

@@ -1,5 +1,8 @@
#!/usr/local/bin/perl
# Update allowed or denied At users
use strict;
use warnings;
our (%access, %text, %in);
require './at-lib.pl';
ReadParse();
@@ -11,13 +14,13 @@ if ($in{'amode'} == 0) {
&save_denied();
}
elsif ($in{'amode'} == 1) {
@users = split(/\s+/, $in{'ausers'});
my @users = split(/\s+/, $in{'ausers'});
@users || &error($text{'allow_eusers'});
&save_allowed(@users);
&save_denied();
}
elsif ($in{'amode'} == 2) {
@users = split(/\s+/, $in{'ausers'});
my @users = split(/\s+/, $in{'ausers'});
@users || &error($text{'allow_eusers'});
&save_allowed();
&save_denied(@users);