mirror of
https://github.com/webmin/webmin.git
synced 2025-07-29 11:50:54 +00:00
87 lines
2.2 KiB
Perl
Executable File
87 lines
2.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Delete multiple groups
|
|
|
|
require './ldap-useradmin-lib.pl';
|
|
&ReadParse();
|
|
%glist = map { $_->{'group'}, $_ } &list_groups();
|
|
&error_setup($text{'gmass_err'});
|
|
foreach $name (split(/\0/, $in{'d'})) {
|
|
$group = $glist{$name};
|
|
if ($group) {
|
|
&can_edit_group(\%access, $group) ||
|
|
&error(&text('gmass_egroup', $name));
|
|
push(@dlist, $group);
|
|
}
|
|
}
|
|
@dlist || &error($text{'gmass_enone'});
|
|
|
|
&ui_print_header(undef, $text{'gmass_title'}, "");
|
|
|
|
if ($in{'confirmed'}) {
|
|
foreach $group (@dlist) {
|
|
# Show username
|
|
print "<b>",&text('gmass_doing', $group->{'group'}),"</b><br>\n";
|
|
print "<ul>\n";
|
|
|
|
# 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();
|
|
print "$text{'gdel_done'}<p>\n";
|
|
|
|
print "</ul>\n";
|
|
}
|
|
|
|
&webmin_log("delete", "group", $group->{'group'}, $group);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
}
|
|
else {
|
|
foreach $group (@dlist) {
|
|
# check if this is anyone's primary group
|
|
foreach $u (&list_users()) {
|
|
if ($u->{'gid'} == $group->{'gid'}) {
|
|
print "<b>",&text('gmass_eprimary',
|
|
$group->{'group'}, $u->{'user'}),
|
|
"</b> <p>\n";
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}
|
|
}
|
|
}
|
|
|
|
# Ask if the user is sure
|
|
print "<form action=mass_delete_group.cgi>\n";
|
|
foreach $group (@dlist) {
|
|
print "<input type=hidden name=d value='$group->{'group'}'>\n";
|
|
}
|
|
print "<input type=hidden name=confirmed value=1>\n";
|
|
print "<center><b>",&text('gmass_sure', scalar(@dlist)),"</b><p>\n";
|
|
print "<input type=submit value=\"$text{'gdel_del'}\">\n";
|
|
print "<br><input type=checkbox name=others value=1 checked> ",
|
|
"$text{'gdel_dothers'}<br>\n";
|
|
print "</center><p>\n";
|
|
print "</form>\n";
|
|
&ui_print_footer("", $text{'index_return'});
|
|
}
|
|
|