Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	6.18 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	5.63 KB	-rwxr-xr-x	2026-07-17 21:17
batch_exec.cgi	15.78 KB	-rwxr-xr-x	2026-07-17 21:22
batch_form.cgi	2.49 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	501 B	-rwxr-xr-x	2026-07-17 21:17
config	388 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	377 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	360 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	363 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-3.1	363 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-4.0-ALL	363 B	-rw-r--r--	2026-07-17 21:17
config-debian-squirrelmail-linux	530 B	-rw-r--r--	2026-07-17 21:17
config-macos	466 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	360 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	360 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	363 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	360 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	360 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	360 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	413 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	360 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	360 B	-rw-r--r--	2026-07-17 21:17
config.info	5.65 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	6 KB	-rw-r--r--	2026-07-17 21:17
config.info.de	6.47 KB	-rw-r--r--	2026-07-17 21:17
config.info.es	4.93 KB	-rw-r--r--	2026-07-17 21:17
config.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	5.99 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	5.75 KB	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	6.06 KB	-rw-r--r--	2026-07-17 21:17
cpan_modules.pl	85 B	-rwxr-xr-x	2026-07-17 21:17
defaultacl	329 B	-rw-r--r--	2026-07-17 21:17
edit_group.cgi	4.17 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	14.86 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	7.52 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	623 B	-rwxr-xr-x	2026-07-17 21:17
ldap-useradmin-lib.pl	34.82 KB	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	1.55 KB	-rwxr-xr-x	2026-07-17 21:17
mass_delete_group.cgi	2.04 KB	-rwxr-xr-x	2026-07-17 21:22
mass_delete_user.cgi	7.17 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	261 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	234 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	270 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	169 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	35 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	155 B	-rw-r--r--	2026-07-17 21:17
module.info.de	174 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	347 B	-rw-r--r--	2026-07-17 21:17
module.info.es	31 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	186 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	284 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	185 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	190 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	183 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	193 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	157 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	205 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	174 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	172 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	35 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.no	32 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	186 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	163 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	38 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	279 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	192 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	166 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	194 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	289 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	136 B	-rw-r--r--	2026-07-17 21:17
postinstall.pl	224 B	-rwxr-xr-x	2026-07-17 21:17
prefs.info	50 B	-rw-r--r--	2026-07-17 21:17
raw.cgi	967 B	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	9.38 KB	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	24.6 KB	-rwxr-xr-x	2026-07-17 21:22
search_group.cgi	1.31 KB	-rwxr-xr-x	2026-07-17 21:22
search_user.cgi	1.46 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/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{'gd'})) {
	$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 "",&text('gmass_doing', $group->{'group'}),
		 " \n";
		print "<ul>\n";

# Delete from other modules
		if ($in{'others'}) {
			print "$text{'gdel_other'} \n";
			local $error_must_die = 1;
			eval { &other_modules("useradmin_delete_group",
					 $group); };
			if ($@) {
				print &text('udel_failed', $@),"\n";
				}
			else {
				print "$text{'gdel_done'}\n";
				}
			}

# Delete from group file
		&lock_user_files();
		print "$text{'gdel_group'} \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'}\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 "",&text('gmass_eprimary',
					$group->{'group'}, $u->{'user'}),
					" \n";
				&ui_print_footer("", $text{'index_return'});
				exit;
				}
			}
		}

# Ask if the user is sure
	print &ui_confirmation_form(
		"mass_delete_group.cgi",
		&text('gmass_sure', scalar(@dlist)),
		[ map { [ "gd", $_->{'group'} ] } @dlist ],
		[ [ "confirmed", $text{'gdel_del'} ] ],
		&ui_checkbox("others", 1, $text{'gdel_dothers'},
			     $mconfig{'default_other'}),
		);

&ui_print_footer("", $text{'index_return'});
	}