|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/libexec/webmin/acl/ |
Upload File : |
#!/usr/bin/perl
# hide.cgi
# Remove from user's module list
require './acl-lib.pl';
&ReadParse();
%hide = map { $_, 1 } split(/\0/, $in{'hide'});
if ($in{'user'}) {
&can_edit_user($in{'user'}) || &error($text{'edit_euser'});
($user) = grep { $_->{'name'} eq $in{'user'} } &list_users();
$user->{'modules'} = [ grep { !$hide{$_} } @{$user->{'modules'}} ];
&modify_user($user->{'name'}, $user);
}
else {
$access{'groups'} || &error($text{'gedit_ecannot'});
($group) = grep { $_->{'name'} eq $in{'group'} } &list_groups();
$group->{'modules'} = [ grep { !$hide{$_} } @{$group->{'modules'}} ];
&modify_group($group->{'name'}, $group);
}
&restart_miniserv();
&redirect("");