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
# save_acl.cgi
# Save access control options for some module

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl';    ## no critic
our (%in, %text, %config, %access, $base_remote_user, %gconfig,
     $config_directory);
&ReadParse();

my $who;
if ($in{'_acl_group'}) {
	$access{'groups'} || &error($text{'acl_egroup'});
	$who = $in{'_acl_group'};
	}
else {
	my $me = &get_user($base_remote_user);
	my @mcan = $access{'mode'} == 1 ? @{$me->{'modules'}} :
		   $access{'mode'} == 2 ? split(/\s+/, $access{'mods'}) :
				          ( &list_modules(), "" );
	&indexof($in{'_acl_mod'}, @mcan) >= 0 || &error($text{'acl_emod'});
	&can_edit_user($in{'_acl_user'}) || &error($text{'acl_euser'});
	$who = $in{'_acl_user'};
	}

my $aclfile = $in{'_acl_group'} ? "$config_directory/$in{'_acl_mod'}/$who.gacl"
			        : "$config_directory/$in{'_acl_mod'}/$who.acl";
my %minfo = $in{'_acl_mod'} ? &get_module_info($in{'_acl_mod'})
			    : ( 'desc' => $text{'index_global'} );
if ($in{'reset'}) {
	# Just remove the .acl file
	&lock_file($aclfile);
	if ($in{'_acl_group'}) {
		# For a group
		&save_group_module_acl(undef, $in{'_acl_group'},
				       $in{'_acl_mod'}, 1);
		}
	else {
		# For a user
		&save_module_acl(undef, $in{'_acl_user'},
				 $in{'_acl_mod'},1);
		}
	&unlock_file($aclfile);
	$in{'moddesc'} = $minfo{'desc'};
	&webmin_log("reset", undef, $who, \%in);
	}
else {
	# Validate and store ACL settings
	&error_setup($text{'acl_err'});
	my %maccess;
	if (defined($in{'noconfig'})) {
		$maccess{'noconfig'} = $in{'noconfig'};
		}
	if (-r "../$in{'_acl_mod'}/acl_security.pl") {
		# Use user inputs
		&foreign_require($in{'_acl_mod'}, "acl_security.pl");
		&foreign_call($in{'_acl_mod'}, "acl_security_save",
			      \%maccess, \%in);
		}

# Write out the ACL
	&lock_file($aclfile);
	if ($in{'_acl_group'}) {
		# For a group
		&save_group_module_acl(\%maccess, $in{'_acl_group'},
				       $in{'_acl_mod'}, 1);
		}
	else {
		# For a user
		&save_module_acl(\%maccess, $in{'_acl_user'},
				 $in{'_acl_mod'},1);
		}
	&set_ownership_permissions(undef, undef, 0640, $aclfile);
	&unlock_file($aclfile);

if ($in{'_acl_group'}) {
		# Recursively update the ACL for all member users and groups
		# XXX ACL in DB?
		my @ulist = &list_users();
		my @glist = &list_groups();
		my ($group) = grep { $_->{'name'} eq $in{'_acl_group'} } @glist;
		&set_acl_files(\@ulist, \@glist, $in{'_acl_mod'},
			       $group->{'members'}, \%maccess);
		}

$in{'moddesc'} = $minfo{'desc'};
	&webmin_log("acl", undef, $who, \%in);
	}
if ($config{'display'}) {
	if ($in{'_acl_group'}) {
		&redirect("edit_group.cgi?group=$in{'_acl_group'}");
		}
	else {
		&redirect("edit_user.cgi?user=$in{'_acl_user'}&readwrite=1");
		}
	}
else {
	&redirect("");
	}