PAL.C.T MINI SHELL
#!/usr/bin/perl
# mass_delete_user.cgi
# Delete multiple users, after asking for confirmation
require './user-lib.pl';
&ReadParse();
%ulist = map { $_->{'user'}, $_ } &list_users();
&error_setup($text{'umass_err'});
foreach $name (split(/\0/, $in{'d'})) {
$user = $ulist{$name};
if ($user) {
&can_edit_user(\%access, $user) ||
&error(&text('umass_euser', $name));
push(@dlist, $user);
$delete_sys = $user if ($user->{'uid'} < 10 &&
(!$delete_sys || $user->{'uid'} < $delete_sys->{'uid'}));
}
}
@dlist || &error($text{'umass_enone'});
if ($in{'disable'}) {
# Disabling a bunch of users
&ui_print_unbuffered_header(undef, $text{'dmass_title'}, "");
if ($in{'confirmed'}) {
foreach $user (@dlist) {
# Show username
print "<b>",&text('dmass_doing', $user->{'user'}),"</b><br>\n";
print "<ul>\n";
# Run the before command
local @secs;
foreach $g (&list_groups()) {
@mems = split(/,/, $g->{'members'});
if (&indexof($user->{'user'}, @mems) >= 0) {
push(@secs, $g->{'gid'});
}
}
&set_user_envs($user, 'MODIFY_USER', undef, \@secs);
$merr = &making_changes();
&error(&text('usave_emaking', "<tt>$merr</tt>"))
if (defined($merr));
# Do it
&lock_user_files();
print "$text{'dmass_pass'}<br>\n";
if ($user->{'pass'} !~ /^$disable_string/) {
$user->{'pass'} =
$disable_string.$user->{'pass'};
&modify_user($user, $user);
print "$text{'udel_done'}<p>\n";
}
else {
print "$text{'dmass_already'}<p>\n";
}
&unlock_user_files();
&made_changes();
print "</ul>\n";
}
&webmin_log("disable", "users", scalar(@dlist),
{ 'user' => [ map { $_->{'user'} } @dlist ] });
&ui_print_footer("", $text{'index_return'});
}
else {
# Ask if the user is sure he wants to disable
print &ui_confirmation_form("mass_delete_user.cgi",
&text('dmass_sure', scalar(@dlist)),
[ [ "confirmed", 1 ],
[ "disable", 1 ],
map { [ "d", $_->{'user'} ] } @dlist ],
[ [ undef, $text{'dmass_dis'} ] ],
);
&ui_print_footer("", $text{'index_return'});
}
}
elsif ($in{'enable'}) {
# Enabling a bunch of users
&ui_print_unbuffered_header(undef, $text{'emass_title'}, "");
foreach $user (@dlist) {
# Show username
print "<b>",&text('emass_doing', $user->{'user'}),"</b><br>\n";
print "<ul>\n";
# Run the before command
local @secs;
foreach $g (&list_groups()) {
@mems = split(/,/, $g->{'members'});
if (&indexof($user->{'user'}, @mems) >= 0) {
push(@secs, $g->{'gid'});
}
}
&set_user_envs($user, 'MODIFY_USER', undef, \@secs);
$merr = &making_changes();
&error(&text('usave_emaking', "<tt>$merr</tt>"))
if (defined($merr));
# Do it
&lock_user_files();
print "$text{'emass_pass'}<br>\n";
if ($user->{'pass'} =~ s/^$disable_string//) {
&modify_user($user, $user);
print "$text{'udel_done'}<p>\n";
}
else {
print "$text{'emass_already'}<p>\n";
}
&unlock_user_files();
&made_changes();
print "</ul>\n";
}
&webmin_log("enable", "users", scalar(@dlist),
{ 'user' => [ map { $_->{'user'} } @dlist ] });
&ui_print_footer("", $text{'index_return'});
}
else {
# Deleting a bunch of users
$access{'udelete'} || &error($text{'udel_euser'});
&ui_print_unbuffered_header(undef, $text{'umass_title'}, "");
# Check for deletion of system user
if (!$config{'delete_root'} && $delete_sys) {
print "<p> <b>",&text('umass_eroot',
$delete_root->{'user'}),"</b> <p>\n";
&ui_print_footer("", $text{'index_return'});
exit;
}
if ($in{'confirmed'}) {
foreach $user (@dlist) {
# Show username
print "<b>",&text('umass_doing', $user->{'user'}),"</b><br>\n";
print "<ul>\n";
# Run the before command
local @secs;
foreach $g (&list_groups()) {
@mems = split(/,/, $g->{'members'});
if (&indexof($user->{'user'}, @mems) >= 0) {
push(@secs, $g->{'gid'});
}
}
&set_user_envs($user, 'DELETE_USER', undef, \@secs);
$merr = &making_changes();
&error(&text('usave_emaking', "<tt>$merr</tt>"))
if (defined($merr));
# Go ahead and do it!
$others = $in{'others'};
$others = !$access{'dothers'}
if ($access{'dothers'} != 1);
if ($others) {
print "$text{'udel_other'}<br>\n";
local $error_must_die = 1;
eval { &other_modules("useradmin_delete_user",$user); };
if ($@) {
print &text('udel_failed', $@),"<p>\n";
}
else {
print "$text{'udel_done'}<p>\n";
}
}
# Delete the user from /etc/passwd
&lock_user_files();
print "$text{'udel_pass'}<br>\n";
&delete_user($user);
print "$text{'udel_done'}<p>\n";
# Delete the user as a secondary member from groups
$mygroup = undef;
print "$text{'udel_groups'}<br>\n";
foreach $g (&list_groups()) {
@mems = split(/,/, $g->{'members'});
$idx = &indexof($user->{'user'}, @mems);
if ($idx >= 0) {
splice(@mems, $idx, 1);
%newg = %$g;
$newg{'members'} = join(',', @mems);
&modify_group($g, \%newg);
}
$mygroup = $g if ($g->{'group'} eq $user->{'user'});
}
print "$text{'udel_done'}<p>\n";
# Delete the user's personal group, if nobody else is
# a member
if ($mygroup && !$mygroup->{'members'}) {
local $another;
foreach $ou (&list_users()) {
$another = $ou if ($ou->{'gid'} ==
$mygroup->{'gid'});
}
if (!$another && $others) {
# Delete in other modules
print "$text{'udel_ugroupother'}<br>\n";
local $error_must_die = 1;
eval { &other_modules(
"useradmin_delete_group",
$mygroup); };
if ($@) {
print &text('udel_failed', $@),
"<p>\n";
}
else {
print "$text{'gdel_done'}<p>\n";
}
}
if (!$another) {
# Delete from /etc/group
print "$text{'udel_ugroup'}<br>\n";
&delete_group($mygroup);
print "$text{'udel_done'}<p>\n";
}
}
&unlock_user_files();
if ($in{'delhome'} && $user->{'home'} !~ /^\/+$/) {
print "$text{'udel_home'}<br>\n";
&lock_file($user->{'home'});
&delete_home_directory($user);
&unlock_file($user->{'home'});
print "$text{'udel_done'}<p>\n";
}
&made_changes();
print "</ul>\n";
}
&webmin_log("delete", "users", scalar(@dlist),
{ 'user' => [ map { $_->{'user'} } @dlist ] });
&ui_print_footer("", $text{'index_return'});
}
else {
# Ask if the user is sure
@hids = ( [ "confirmed", 1 ] );
foreach $user (@dlist) {
push(@hids, [ "d", $user->{'user'} ]);
}
# Sum up home directories
foreach $user (@dlist) {
if ($user->{'home'} ne "/" && -d $user->{'home'}) {
$size += &disk_usage_kb($user->{'home'});
@uothers = &backquote_command(
"find ".quotemeta($user->{'home'}).
" ! -user $user->{'uid'} 2>/dev/null", 1);
push(@others, @uothers);
}
}
if ($access{'delhome'} == 1) {
# Force home directory deletion
push(@hids, [ "delhome", 1 ]);
@buts = ( [ undef, $text{'umass_del2'} ] );
}
elsif ($access{'delhome'} == 0) {
# Never allow home directory deletion
@buts = ( [ undef, $text{'umass_del1'} ] );
}
else {
# Give user a choice
@buts = ( [ undef, $text{'umass_del1'} ],
[ "delhome", $text{'umass_del2'} ] );
}
# Show the warning
print &ui_confirmation_form(
"mass_delete_user.cgi",
$size ? &text('umass_sure', scalar(@dlist),
&nice_size($size*1024)) :
&text('umass_sure2', scalar(@dlist)),
\@hids, \@buts,
$access{'dothers'} == 1 ?
&ui_checkbox("others", 1, $text{'udel_dothers'},
$config{'default_other'}) : "",
(@others ? &text('umass_others', scalar(@others))."<p>"
: "").
($delete_sys && $delete_sys->{'user'} eq 'root' ?
$text{'udel_root'} : ""),
);
&ui_print_footer("", $text{'index_return'});
}
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`