| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/cluster-passwd/ |
Upload File : |
#!/usr/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
my @grid;
for($i=0; $i<@ulist; $i++) {
push(@grid, &ui_link("edit_passwd.cgi?user=$ulist[$i]->{'user'}",
&html_escape($ulist[$i]->{'user'})));
}
print &ui_grid_table(\@grid, 4, 100, undef, undef,
$passwd::text{'index_header'});
}
&ui_print_footer("/", $text{'index'});