mirror of
https://github.com/webmin/webmin.git
synced 2026-02-07 07:52:13 +00:00
56 lines
1.7 KiB
Perl
Executable File
56 lines
1.7 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# index.cgi
|
|
# Show a list of all users whose passwords can be changed
|
|
|
|
require './cluster-passwd-lib.pl';
|
|
|
|
# Check if cluster-useradmin is set up
|
|
@hosts = &cluster_useradmin::list_useradmin_hosts();
|
|
if (!@hosts) {
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
|
|
&ui_print_endpage(&text('index_noservers', "../cluster-useradmin/"));
|
|
}
|
|
@ulist = grep { &can_edit_passwd($_) } &get_all_users(\@hosts);
|
|
if (@ulist == 1) {
|
|
# Can only edit one user, so re-direct to editing form
|
|
&redirect("edit_passwd.cgi?user=$ulist[0]->{'user'}&one=1");
|
|
}
|
|
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
|
|
if ($config{'sort_mode'}) {
|
|
@ulist = sort { lc($a->{'user'}) cmp lc($b->{'user'}) } @ulist;
|
|
}
|
|
|
|
print &text('index_hosts', scalar(@hosts)),"<p>\n";
|
|
|
|
if ($config{'max_users'} && @ulist > $config{'max_users'}) {
|
|
# Show as form for entering a username
|
|
print "$passwd::text{'index_toomany'}<br>\n";
|
|
print &ui_form_start("edit_passwd.cgi");
|
|
print &ui_submit($passwd::text{'index_user'});
|
|
if ($config{'input_type'}) {
|
|
print &ui_select("user", undef,
|
|
[ map { [ $_->{'user'} ] } @ulist ]);
|
|
}
|
|
else {
|
|
print &ui_user_textbox("user");
|
|
}
|
|
print &ui_form_end();
|
|
}
|
|
else {
|
|
# Show as table of users
|
|
print &ui_table_start($passwd::text{'index_header'}, "width=100%");
|
|
for($i=0; $i<@ulist; $i++) {
|
|
if ($i%4 == 0) { print "<tr>\n"; }
|
|
print "<td width=25%><a href=\"edit_passwd.cgi?",
|
|
"user=$ulist[$i]->{'user'}\">",
|
|
&html_escape($ulist[$i]->{'user'})."</a></td>\n";
|
|
if ($i%4 == 3) { print "</tr>\n"; }
|
|
}
|
|
while($i++ % 4) { print "<td width=25%></td>\n"; }
|
|
print &ui_table_end();
|
|
}
|
|
|
|
&ui_print_footer("/", $text{'index'});
|
|
|