PAL.C.T MINI SHELL
#!/usr/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 "<b>$text{'udel_eroot'}</b>\n";
&ui_print_footer("", $text{'index_return'});
exit;
}
# Check for repeat click
if ($user->{'user'} ne $in{'user'} || $in{'user'} eq '') {
print "<b>$text{'udel_ealready'}</b>\n";
&ui_print_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', "<tt>$merr</tt>")) if (defined($merr));
# Delete in other modules first
$in{'others'} = !$access{'dothers'} if ($access{'dothers'} != 1);
if ($in{'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
print "$text{'udel_pass'}<br>\n";
&delete_user($user);
print "$text{'udel_done'}<p>\n";
# Delete the user from other groups
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 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'}<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) {
print "$text{'udel_ugroup'}<br>\n";
&delete_group($mygroup);
print "$text{'udel_done'}<p>\n";
}
}
&unlock_user_files();
if ($in{'delhome'} && $user->{'home'} !~ /^\/+$/ &&
$access{'delhome'} != 0) {
# Delete home directory
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();
%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 "<b>$text{'udel_echanged'}</b> <p>\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'}),
"<tt>".&html_escape($user->{'home'})."</tt>", &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', "<tt>".&html_escape($user->{'home'})."</tt>",
scalar(@others))."<p>" : "").
($user->{'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`