mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 14:13:29 +00:00
58 lines
1.4 KiB
Perl
Executable File
58 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# list_users.cgi
|
|
# Show all Webmin users with access to this module only
|
|
|
|
require './itsecur-lib.pl';
|
|
&foreign_require("acl", "acl-lib.pl");
|
|
&can_use_error("users");
|
|
&header($text{'users_title'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
|
|
print &ui_hr();
|
|
|
|
# Work out which users have access to this module
|
|
my @users = &acl::list_users();
|
|
foreach $u (@users) {
|
|
my @m = @{$u->{'modules'}};
|
|
if ($u->{'name'} ne "root" &&
|
|
&indexof($module_name, @m) >= 0) {
|
|
push(@musers, $u);
|
|
}
|
|
}
|
|
|
|
#print "$text{'users_desc'}<p>\n";
|
|
my $edit = &can_edit("users");
|
|
my $link = ( $edit ? &ui_link("edit_user.cgi?new=1", $text{'users_add'}) : "" );
|
|
if (@musers) {
|
|
print $link;
|
|
my @cols;
|
|
print &ui_columns_start([$text{'users_name'}, $text{'users_ips'}, $text{'users_enabled'}]);
|
|
foreach $u (@musers) {
|
|
push(@cols, &ui_link("edit_user.cgi?name=".$u->{'name'},$u->{'name'}) );
|
|
my $tx = "";
|
|
if ($u->{'allow'}) {
|
|
$tx = &text('users_allow', $u->{'allow'});
|
|
}
|
|
elsif ($u->{'deny'}) {
|
|
$tx = &text('users_deny', $u->{'deny'});
|
|
}
|
|
else {
|
|
$tx = $text{'users_all'};
|
|
}
|
|
push(@cols, $tx);
|
|
push(@cols, ($u->{'pass'} =~ /^\*LK\*/ ? $text{'rule_no'} : $text{'rule_yes'}) );
|
|
#%uaccess = &get_module_acl($u->{'name'});
|
|
}
|
|
print &ui_columns_row(\@cols);
|
|
print &ui_columns_end();
|
|
}
|
|
else {
|
|
print "<b>$text{'users_none'}</b><p>\n";
|
|
}
|
|
|
|
|
|
print $link;
|
|
|
|
print &ui_hr();
|
|
&footer("", $text{'index_return'});
|