⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.133
Server IP:
185.119.109.197
Server:
Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
webmin
/
useradmin
/
View File Name :
mass_delete_user.cgi
#!/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', &html_escape($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', &html_escape($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', &html_escape($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'}); } }