strict conversion

This commit is contained in:
Jamie Cameron
2013-12-20 15:31:38 -08:00
parent cbb205b35b
commit 4bc6a0fb96
4 changed files with 13 additions and 1 deletions

View File

@ -1,5 +1,8 @@
use strict;
use warnings;
do 'acl-lib.pl';
our ($config_directory);
sub feedback_files
{

View File

@ -1,7 +1,10 @@
# log_parser.pl
# Functions for parsing this module's logs
use strict;
use warnings;
do 'acl-lib.pl';
our (%text);
# parse_webmin_log(user, script, action, type, object, &params)
# Converts logged information from this module into human-readable form

View File

@ -1,5 +1,8 @@
use strict;
use warnings;
require 'acl-lib.pl';
our ($config_directory);
# Rename the .acl files for any groups to .gacl files
sub module_install

View File

@ -1,5 +1,8 @@
use strict;
use warnings;
do "acl-lib.pl";
our (%config, $config_directory);
# useradmin_create_user(&details)
# Create a new webmin user in the group
@ -41,7 +44,7 @@ if ($u) {
&delete_user($u->{'name'});
&reload_miniserv();
}
foreach $g (&list_groups()) {
foreach my $g (&list_groups()) {
my @mems = @{$g->{'members'}};
my $i = &indexof($_[0]->{'user'}, @mems);
if ($i >= 0) {