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	5.15 KB	-rw-r--r--	2026-07-17 21:17
acl-lib.pl	68.57 KB	-rwxr-xr-x	2026-07-17 21:17
acl_security.pl	2.33 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	2.64 KB	-rwxr-xr-x	2026-07-17 21:17
cert_form.cgi	1.53 KB	-rwxr-xr-x	2026-07-17 21:22
cert_issue.cgi	1.71 KB	-rwxr-xr-x	2026-07-17 21:22
cert_output.cgi	461 B	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	761 B	-rwxr-xr-x	2026-07-17 21:17
config	61 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	42 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	42 B	-rw-r--r--	2026-07-17 21:17
config-macos	42 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	42 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	42 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	46 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	51 B	-rw-r--r--	2026-07-17 21:17
config.info	258 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	385 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	397 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	295 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	265 B	-rw-r--r--	2026-07-17 21:17
config.info.da	259 B	-rw-r--r--	2026-07-17 21:17
config.info.de	273 B	-rw-r--r--	2026-07-17 21:17
config.info.es	265 B	-rw-r--r--	2026-07-17 21:17
config.info.eu	298 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	394 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	308 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	353 B	-rw-r--r--	2026-07-17 21:17
config.info.it	279 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	319 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	233 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	248 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	268 B	-rw-r--r--	2026-07-17 21:17
config.info.no	260 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	270 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	271 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	439 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	278 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	53 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	309 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	303 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	47 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	146 B	-rw-r--r--	2026-07-17 21:17
convert.cgi	3.81 KB	-rwxr-xr-x	2026-07-17 21:22
convert_form.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	226 B	-rw-r--r--	2026-07-17 21:17
delete_group.cgi	1.37 KB	-rwxr-xr-x	2026-07-17 21:22
delete_groups.cgi	1.47 KB	-rwxr-xr-x	2026-07-17 21:22
delete_session.cgi	501 B	-rwxr-xr-x	2026-07-17 21:22
delete_user.cgi	684 B	-rwxr-xr-x	2026-07-17 21:22
delete_users.cgi	2.95 KB	-rwxr-xr-x	2026-07-17 21:22
edit_acl.cgi	2.5 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	4.4 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pass.cgi	1.83 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sql.cgi	3.79 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sync.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
edit_unix.cgi	3.1 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	15.29 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	336 B	-rwxr-xr-x	2026-07-17 21:17
forgot_form.cgi	1.06 KB	-rwxr-xr-x	2026-07-17 21:22
forgot_send.cgi	2.71 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	8.52 KB	-rwxr-xr-x	2026-07-17 21:22
list_sessions.cgi	2.48 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	2.14 KB	-rwxr-xr-x	2026-07-17 21:17
makedn.cgi	1.77 KB	-rwxr-xr-x	2026-07-17 21:22
maketables.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
md5-lib.pl	7.73 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	187 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	193 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	43 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	192 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	129 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	28 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.da	23 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.de	146 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	19 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	253 B	-rw-r--r--	2026-07-17 21:17
module.info.es	125 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	24 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	159 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	238 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	150 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	28 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	154 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	147 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	30 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.it	22 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	137 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	120 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	26 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.no	23 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	113 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	133 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	31 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	31 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	40 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	190 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	29 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	26 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	32 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	152 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	246 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	28 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	106 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	28 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	112 B	-rw-r--r--	2026-07-17 21:17
negativeacl	13 B	-rw-r--r--	2026-07-17 21:17
openssl.cnf	6.02 KB	-rw-r--r--	2026-07-17 21:17
postinstall.pl	1012 B	-rwxr-xr-x	2026-07-17 21:17
prefs.info	22 B	-rw-r--r--	2026-07-17 21:17
save_acl.cgi	2.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	3.77 KB	-rwxr-xr-x	2026-07-17 21:22
save_pass.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_sql.cgi	3.4 KB	-rwxr-xr-x	2026-07-17 21:22
save_sync.cgi	746 B	-rwxr-xr-x	2026-07-17 21:22
save_twofactor.cgi	2.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_unix.cgi	2.24 KB	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	11.52 KB	-rwxr-xr-x	2026-07-17 21:22
schema.cgi	628 B	-rwxr-xr-x	2026-07-17 21:22
switch.cgi	742 B	-rwxr-xr-x	2026-07-17 21:22
system_info.pl	2.59 KB	-rw-r--r--	2026-07-17 21:17
test_twofactor.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
twofactor.pl	876 B	-rwxr-xr-x	2026-07-17 21:22
twofactor_form.cgi	2.03 KB	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	3.12 KB	-rwxr-xr-x	2026-07-17 21:17
webmin.schema	1.34 KB	-rw-r--r--	2026-07-17 21:17

Rename

#!/usr/bin/perl
# Delete a bunch of Webmin users, or add them to a group

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl';    ## no critic
our (%in, %text, %config, %access, $base_remote_user);
&ReadParse();
&error_setup($in{'joingroup'} ? $text{'udeletes_jerr'} : $text{'udeletes_err'});

# Validate inputs
my @d = split(/\0/, $in{'d'});
@d || &error($text{'udeletes_enone'});
foreach my $user (@d) {
	&can_edit_user($user) || &error($text{'delete_euser'});
	if ($base_remote_user eq $user && !$in{'joingroup'}) {
		&error($text{'delete_eself'});
		}
	&used_for_anonymous($user) && &error($text{'delete_eanonuser'});
	my $uinfo = &get_user($user);
	$uinfo->{'readonly'} && &error($text{'udeletes_ereadonly'});
	}

if ($in{'joingroup'}) {
	# Add users to a group
	my $newgroup = &get_group($in{'group'});
	if ($access{'gassign'} ne '*') {
		my @gcan = split(/\s+/, $access{'gassign'});
		&indexof($in{'group'}, @gcan) >= 0 ||
			&error($text{'save_egroup'});
		}
	foreach my $user (@d) {
		my $uinfo = &get_user($user);
		next if (!$uinfo);
		next if ($newgroup &&
			 &indexof($user, @{$newgroup->{'members'}}) >= 0);

# Remove from old group, if any
		my $oldgroup = &get_users_group($user);
		if ($oldgroup) {
			$oldgroup->{'members'} =
				[ grep { $_ ne $user }
				  @{$oldgroup->{'members'}} ];
			&modify_group($oldgroup->{'name'}, $oldgroup);
			}

# Add to new group
		push(@{$newgroup->{'members'}}, $user);
		&modify_group($newgroup->{'name'}, $newgroup);

my @mods = @{$uinfo->{'modules'}};
		if ($oldgroup) {
			# Remove modules from the old group
			@mods = grep { &indexof($_, @{$oldgroup->{'modules'}})
				       < 0 } @mods;
			}

if ($newgroup) {
			# Add modules from group to list
			my @ownmods;
			foreach my $m (@mods) {
				push(@ownmods, $m) if (&indexof($m,
					@{$newgroup->{'modules'}}) < 0);
				}
			@mods = &unique(@mods, @{$newgroup->{'modules'}});
			$uinfo->{'ownmods'} = \@ownmods;

# Copy ACL files for group
			&copy_group_user_acl_files($in{'group'}, $user,
				      [ @{$newgroup->{'modules'}}, "" ]);
			}
		$uinfo->{'modules'} = \@mods;

# Save the user
		&modify_user($user, $uinfo);
		}

&webmin_log("joingroup", "users", scalar(@d),
		    { 'group' => $in{'group'} });
	&redirect("");
	}
elsif ($in{'confirm'}) {
	# Do it
	$access{'delete'} || &error($text{'delete_ecannot'});
	foreach my $user (@d) {
		&delete_user($user);
		&delete_from_groups($user);
		}

&reload_miniserv();
	&webmin_log("delete", "users", scalar(@d));
	&redirect("");
	}
else {
	# Ask the user if he is sure
	$access{'delete'} || &error($text{'delete_ecannot'});
	&ui_print_header(undef, $text{'udeletes_title'}, "");

print &ui_confirmation_form(
		"delete_users.cgi",
		&text('udeletes_rusure', scalar(@d)),
		[ map { [ "d", $_ ] } @d ],
		[ [ "confirm", $text{'udeletes_ok'} ] ],
		&text('udeletes_users', join(" ", map { "<tt>$_</tt>" } @d)),
		);
	print "</center>\n";

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