#!/usr/local/bin/perl # delete_user.cgi # Delete a user, after asking for confirmation require './user-lib.pl'; &ReadParse(); &lock_user_files(); @ulist = &list_users(); ($user) = grep { $_->{'user'} eq $in{'user'} } @ulist; $user || &error($text{'uedit_egone'}); &error_setup($text{'udel_err'}); &can_edit_user(\%access, $user) || &error($text{'udel_euser'}); $access{'udelete'} || &error($text{'udel_euser'}); $| = 1; &ui_print_header(undef, $text{'udel_title'}, ""); if (!$config{'delete_root'} && $user->{'uid'} <= 10) { print "
$text{'udel_eroot'}
\n"; print &ui_hr(); &footer("", $text{'index_return'}); exit; } # Check for repeat click if ($user->{'user'} ne $in{'user'} || $in{'user'} eq '') { print "
$text{'udel_ealready'}
\n";
print &ui_hr();
&footer("", $text{'index_return'});
exit;
}
if ($in{'confirmed'}) {
# Run the before command
local @secs;
foreach $g (&list_groups()) {
@mems = split(/,/, $g->{'members'});
if (&indexof($user->{'user'}, @mems) >= 0) {
push(@secs, $g->{'gid'});
}
}
# Go ahead and do it!
&set_user_envs($user, 'DELETE_USER', undef, \@secs);
$merr = &making_changes();
&error(&text('usave_emaking', "$merr")) if (defined($merr));
# Delete in other modules first
$in{'others'} = !$access{'dothers'} if ($access{'dothers'} != 1);
if ($in{'others'}) {
print "$text{'udel_other'}
\n";
local $error_must_die = 1;
eval { &other_modules("useradmin_delete_user", $user); };
if ($@) {
print &text('udel_failed', $@),"
\n"; } else { print "$text{'udel_done'}
\n";
}
}
# Delete the user
print "$text{'udel_pass'}
\n";
&delete_user($user);
print "$text{'udel_done'}
\n";
# Delete the user from other groups
print "$text{'udel_groups'}
\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'}
\n";
# Delete the user's personal group, if it has no other members
if ($mygroup && !$mygroup->{'members'}) {
local $another;
foreach $ou (&list_users()) {
$another = $ou if ($ou->{'gid'} == $mygroup->{'gid'});
}
if (!$another && $in{'others'}) {
print "$text{'udel_ugroupother'}
\n";
local $error_must_die = 1;
eval { &other_modules("useradmin_delete_group",
$mygroup); };
if ($@) {
print &text('udel_failed', $@),"
\n"; } else { print "$text{'gdel_done'}
\n";
}
}
if (!$another) {
print "$text{'udel_ugroup'}
\n";
&delete_group($mygroup);
print "$text{'udel_done'}
\n";
}
}
&unlock_user_files();
if ($in{'delhome'} && $user->{'home'} !~ /^\/+$/ &&
$access{'delhome'} != 0) {
# Delete home directory
print "$text{'udel_home'}
\n";
&lock_file($user->{'home'});
&delete_home_directory($user);
&unlock_file($user->{'home'});
print "$text{'udel_done'}
\n"; } &made_changes(); %p = ( %in, %$user ); delete($p{'pass'}); &webmin_log("delete", "user", $user->{'user'}, \%p); done: &ui_print_footer("", $text{'index_return'}); } else { # Check if something has changed if ($user->{'user'} ne $in{'user'}) { print "$text{'udel_echanged'}
\n"; &ui_print_footer("", $text{'index_return'}); exit; } # Ask if the user is sure @buts = ( ); if ($user->{'home'} ne "/" && -d $user->{'home'} && $access{'delhome'} != 0) { # Has a home directory, so check for files owned by others $size = &disk_usage_kb($user->{'home'}); $msg = &text('udel_sure', &html_escape($user->{'user'}), "".&html_escape($user->{'home'})."", &nice_size($size*1024)); if ($access{'delhome'} != 1) { push(@buts, [ undef, $text{'udel_del1'} ]); } push(@buts, [ "delhome", $text{'udel_del2'} ]); # check for files owned by other users @others = &backquote_command("find ".quotemeta($user->{'home'}). " ! -user $user->{'uid'} 2>/dev/null", 1); } else { # No home directory $msg = &text('udel_sure2',&html_escape($user->{'user'})); push(@buts, [ undef, $text{'udel_del1'} ]); } print &ui_confirmation_form("delete_user.cgi", $msg, [ [ "user", $user->{'user'} ], [ "confirmed", 1 ] ], \@buts, $access{'dothers'} == 1 ? &ui_checkbox("others", 1, $text{'udel_dothers'}, $config{'default_other'}) : "", (@others ? &text('udel_others', "".&html_escape($user->{'home'})."", scalar(@others))."
" : ""). ($user->{'user'} eq 'root' ? $text{'udel_root'} : ""), ); &ui_print_footer("", $text{'index_return'}); }