mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
83 lines
2.2 KiB
Perl
Executable File
83 lines
2.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# delete_group.cgi
|
|
# Delete a group, after asking for confirmation
|
|
|
|
require './user-lib.pl';
|
|
&ReadParse();
|
|
@glist = &list_groups();
|
|
($group) = grep { $_->{'group'} eq $in{'group'} } @glist;
|
|
$group || &error($text{'gedit_egone'});
|
|
$| = 1;
|
|
&error_setup($text{'gdel_err'});
|
|
&can_edit_group(\%access, $group) || &error($text{'gdel_egroup'});
|
|
$access{'gdelete'} || &error($text{'gdel_egroup'});
|
|
|
|
&ui_print_header(undef, $text{'gdel_title'}, "");
|
|
|
|
if (!$config{'delete_root'} && $group->{'gid'} <= 10) {
|
|
print "<b>$text{'gdel_eroot'}</b> <p>\n";
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}
|
|
|
|
if ($in{'confirmed'}) {
|
|
# Check for repeat click
|
|
if ($group->{'group'} ne $in{'group'} || $in{'group'} eq '') {
|
|
print "<b>$text{'gdel_ealready'}</b> <p>\n";
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}
|
|
|
|
# Delete from other modules
|
|
if ($in{'others'}) {
|
|
print "$text{'gdel_other'}<br>\n";
|
|
local $error_must_die = 1;
|
|
eval { &other_modules("useradmin_delete_group", $group); };
|
|
if ($@) {
|
|
print &text('udel_failed', $@),"<p>\n";
|
|
}
|
|
else {
|
|
print "$text{'gdel_done'}<p>\n";
|
|
}
|
|
}
|
|
|
|
# Delete from group file
|
|
&lock_user_files();
|
|
print "$text{'gdel_group'}<br>\n";
|
|
&set_group_envs($group, 'DELETE_GROUP');
|
|
$merr = &making_changes();
|
|
&error(&text('usave_emaking', "<tt>$merr</tt>")) if (defined($merr));
|
|
|
|
&delete_group($group);
|
|
&unlock_user_files();
|
|
&made_changes();
|
|
&webmin_log("delete", "group", $group->{'group'}, $group);
|
|
print "$text{'gdel_done'}<p>\n";
|
|
|
|
done:
|
|
&ui_print_footer("index.cgi?mode=groups", $text{'index_return'});
|
|
}
|
|
else {
|
|
# check if this is anyone's primary group
|
|
foreach $u (&list_users()) {
|
|
if ($u->{'gid'} == $group->{'gid'}) {
|
|
print "<b>",&text('gdel_eprimary', $u->{'user'}),
|
|
"</b> <p>\n";
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}
|
|
}
|
|
|
|
# Ask if the user is sure
|
|
print &ui_confirmation_form("delete_group.cgi",
|
|
&text('gdel_sure', $group->{'group'}),
|
|
[ [ "group", $group->{'group'} ] ],
|
|
[ [ "confirmed", $text{'gdel_del'} ] ],
|
|
ui_checkbox("others", 1, $text{'gdel_dothers'},
|
|
$config{'default_other'}),
|
|
);
|
|
|
|
&ui_print_footer("index.cgi?mode=groups", $text{'index_return'});
|
|
}
|
|
|