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	849 B	-rw-r--r--	2026-07-17 21:17
acl_form.cgi	3.76 KB	-rwxr-xr-x	2026-07-17 21:22
acl_save.cgi	2.9 KB	-rwxr-xr-x	2026-07-17 21:22
acl_security.pl	558 B	-rwxr-xr-x	2026-07-17 21:17
add.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
add_browser.cgi	1.01 KB	-rwxr-xr-x	2026-07-17 21:22
add_form.cgi	1.98 KB	-rwxr-xr-x	2026-07-17 21:22
apply.cgi	256 B	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	787 B	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	640 B	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	349 B	-rwxr-xr-x	2026-07-17 21:17
config	132 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	246 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux-2-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-6.0-6.9	278 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-6.0-6.9	274 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	272 B	-rw-r--r--	2026-07-17 21:17
config-Ubuntu-Linux-8.10-ALL	251 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-6.0-ALL	247 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-ALL-5.9	250 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	305 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8-ALL	334 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	266 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	263 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	186 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	277 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0-ALL	296 B	-rw-r--r--	2026-07-17 21:17
config-solaris	230 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	269 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	246 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	266 B	-rw-r--r--	2026-07-17 21:17
config.info	1.07 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.09 KB	-rw-r--r--	2026-07-17 21:17
config.info.de	1.14 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	1.02 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	1.03 KB	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	1.08 KB	-rw-r--r--	2026-07-17 21:17
create.cgi	2.68 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	65 B	-rw-r--r--	2026-07-17 21:17
delete_acls.cgi	964 B	-rwxr-xr-x	2026-07-17 21:22
delete_browser.cgi	1.01 KB	-rwxr-xr-x	2026-07-17 21:22
down_acl.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
down_schema.cgi	649 B	-rwxr-xr-x	2026-07-17 21:22
edit_acl.cgi	1.75 KB	-rwxr-xr-x	2026-07-17 21:22
edit_browser.cgi	7.61 KB	-rwxr-xr-x	2026-07-17 21:22
edit_create.cgi	1.05 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ldif.cgi	3.34 KB	-rwxr-xr-x	2026-07-17 21:22
edit_schema.cgi	2.31 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sfile.cgi	932 B	-rwxr-xr-x	2026-07-17 21:22
edit_slapd.cgi	3.9 KB	-rwxr-xr-x	2026-07-17 21:22
gencert.cgi	1.23 KB	-rwxr-xr-x	2026-07-17 21:22
gencert_form.cgi	1.25 KB	-rwxr-xr-x	2026-07-17 21:22
gencert_ldif.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
import_sfile.cgi	1.67 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	3.51 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	469 B	-rwxr-xr-x	2026-07-17 21:17
ldap-server-lib.pl	24.67 KB	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	1.71 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	160 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	158 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	173 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	105 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	0 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	108 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	113 B	-rw-r--r--	2026-07-17 21:17
module.info.de	95 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	23 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	191 B	-rw-r--r--	2026-07-17 21:17
module.info.es	0 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	126 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	125 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	152 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	126 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	123 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	138 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	129 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	114 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	146 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	114 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	96 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	20 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	88 B	-rw-r--r--	2026-07-17 21:17
module.info.no	20 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	90 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	116 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	121 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	25 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	26 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	142 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	111 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	105 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	118 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	169 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	110 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	119 B	-rw-r--r--	2026-07-17 21:17
perms.cgi	432 B	-rwxr-xr-x	2026-07-17 21:22
prefs.info	33 B	-rw-r--r--	2026-07-17 21:17
rename_browser.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
save_browser.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
save_ldif.cgi	2.4 KB	-rwxr-xr-x	2026-07-17 21:22
save_schema.cgi	727 B	-rwxr-xr-x	2026-07-17 21:22
save_sfile.cgi	607 B	-rwxr-xr-x	2026-07-17 21:22
save_slapd.cgi	2.74 KB	-rwxr-xr-x	2026-07-17 21:22
sdelete_browser.cgi	936 B	-rwxr-xr-x	2026-07-17 21:22
start.cgi	251 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	246 B	-rwxr-xr-x	2026-07-17 21:22
up_acl.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
up_schema.cgi	649 B	-rwxr-xr-x	2026-07-17 21:22
view_sfile.cgi	374 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Create, update or delete one access control rule

require './ldap-server-lib.pl';
&error_setup($text{'eacl_err'});
&local_ldap_server() == 1 || &error($text{'slapd_elocal'});
$access{'acl'} || &error($text{'acl_ecannot'});
&ReadParse();

# Get the current rule
&lock_slapd_files();
if (&get_config_type() == 1) {
	$conf = &get_config();
	@access = &find("access", $conf);
	$hasorder = 0;
	}
else {
	$defdb = &get_default_db();
	$conf = &get_ldif_config();
	@access = &find_ldif("olcAccess", $conf, $defdb);
	$hasorder = 1;
	}

# Get the ACL object
if (!$in{'new'}) {
	$acl = $access[$in{'idx'}];
	$p = &parse_ldap_access($acl);
	}
else {
	$p = { };
	}

if ($in{'delete'}) {
	# Just take out of access list
	@access = grep { $_ ne $acl } @access;
	}
else {
	# Validate and store inputs, starting with object
	if ($in{'what'} == 1) {
		$p->{'what'} = '*';
		}
	elsif ($in{'what'} == 2) {
		$p->{'what'} =
			'dn'.($in{'what_style'} ? '.'.$in{'what_style'} : '').
			'=""';
		}
	else {
		$in{'what_dn'} =~ /^\S+=\S.*$/ || &error($text{'eacl_edn'});
		$p->{'what'} =
			'dn'.($in{'what_style'} ? '.'.$in{'what_style'} : '').
			'='.$in{'what_dn'};
		}

# Object filter and attribute list
	delete($p->{'filter'});
	if ($in{'filter_on'}) {
		$in{'filter'} =~ /^\S+$/ || &error($text{'eacl_efilter'});
		$p->{'filter'} = $in{'filter'};
		}
	delete($p->{'attrs'});
	if ($in{'attrs_on'}) {
		$in{'attrs'} =~ /^\S+$/ || &error($text{'eacl_eattrs'});
		$p->{'attrs'} = $in{'attrs'};
		}

# Each granted user
	@by = ( );
	for($i=0; defined($in{"wmode_$i"}); $i++) {
		next if ($in{"wmode_$i"} eq "");
		local $by = { };

# Who are we granting
		if ($in{"wmode_$i"} eq "other") {
			# Other DN
			$in{"who_$i"} =~ /^\S+=\S.*$/ ||
				&error(&text('eacl_ewho', $i+1));
			$by->{'who'} = $in{"who_$i"};
			}
		else {
			# Just selected
			$by->{'who'} = $in{"wmode_$i"};
			}

# Access level
		$in{"access_$i"} =~ /^\S+$/ ||
			&error(&text('eacl_eaccess', $i+1));
		$by->{'access'} = $in{"access_$i"};

# Additional attributes
		$by->{'control'} = [ &split_quoted_string($in{"control_$i"}) ];
		push(@by, $by);
		}
	$p->{'by'} = \@by;

# Set order to end of list, if we are using orders
	if ($hasorder && $in{'new'}) {
		$maxorder = -1;
		foreach $oa (@access) {
			$op = &parse_ldap_access($oa);
			if ($op->{'order'} > $maxorder) {
				$maxorder = $op->{'order'};
				}
			}
		$p->{'order'} = $maxorder + 1;
		}

# Add to access directive list
	if ($in{'new'}) {
		$acl = { 'name' => 'access',
			 'values' => [ ] };
		push(@access, $acl);
		}
	&store_ldap_access($acl, $p);
	}

# Write out access directives
if (&get_config_type() == 1) {
	&save_directive($conf, "access", @access);
	}
else {
	&save_ldif_directive($conf, "olcAccess", $defdb, @access);
	}
&flush_file_lines();
&unlock_slapd_files();

# Log and return
&webmin_log($in{'delete'} ? "delete" : $in{'new'} ? "create" : "modify",
	    "access", $p->{'what'});
&redirect("edit_acl.cgi");