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

# XXX need little module for assigning ACLs

require 'ldap-useradmin-lib.pl';

# acl_security_form(&options)
# Output HTML for editing security options for the useradmin module
sub acl_security_form
{
local $o = $_[0];
my $uedit_group = $o->{'uedit_mode'} == 5 ?
	join(" ", map { "".getgrgid($_) } split(/\s+/, $o->{'uedit'})) : "";

print &ui_table_row($text{'acl_uedit'},
	&ui_radio_table("uedit_mode",
		defined($o->{'uedit_mode'}) ? $o->{'uedit_mode'} : 0,
		[ [ 0, $text{'acl_uedit_all'} ],
		  [ 1, $text{'acl_uedit_none'} ],
		  [ 6, $text{'acl_uedit_this'} ],
		  [ 2, $text{'acl_uedit_only'},
		    &ui_textbox("uedit_can",
				$o->{'uedit_mode'} == 2 ? $o->{'uedit'} : "", 40).
		    " ".&user_chooser_button("uedit_can", 1) ],
		  [ 3, $text{'acl_uedit_except'},
		    &ui_textbox("uedit_cannot",
				$o->{'uedit_mode'} == 3 ? $o->{'uedit'} : "", 40).
		    " ".&user_chooser_button("uedit_cannot", 1) ],
		  [ 4, $text{'acl_uedit_uid'},
		    &ui_textbox("uedit_uid",
				$o->{'uedit_mode'} == 4 ? $o->{'uedit'} : "", 6).
		    " - ".&ui_textbox("uedit_uid2",
				      $o->{'uedit_mode'} == 4 ? $o->{'uedit2'} : "", 6) ],
		  [ 5, $text{'acl_uedit_group'},
		    &ui_textbox("uedit_group", $uedit_group, 40)." ".
		    &group_chooser_button("uedit_group", 1)."<br>\n".
		    &ui_checkbox("uedit_sec", 1, $text{'acl_uedit_sec'},
				 $o->{'uedit_sec'}) ],
		  [ 7, $text{'acl_uedit_re'},
		    &ui_textbox("uedit_re",
				$o->{'uedit_mode'} == 7 ? $o->{'uedit_re'} : "", 40) ] ], 1),
	3);

print &ui_table_row($text{'acl_ucreate'},
	&ui_yesno_radio("ucreate", $o->{'ucreate'}));
print &ui_table_row($text{'acl_batch'},
	&ui_yesno_radio("batch", $o->{'batch'}));
print &ui_table_row($text{'acl_batchdir'},
	&ui_textbox("batchdir",
		    defined($o->{'batchdir'}) ? $o->{'batchdir'} : "/", 40)." ".
	&file_chooser_button("batchdir", 1));

print &ui_table_row($text{'acl_home'},
	&ui_textbox("home", $o->{'home'}, 40)." ".
	&file_chooser_button("home", 1)."<br>\n".
	&ui_checkbox("autohome", 1, $text{'acl_autohome'}, $o->{'autohome'}),
	3);

print &ui_table_row($text{'acl_uid'},
	join("", map { &ui_checkbox($_, 1, $text{'acl_'.$_}, $o->{$_}) }
		    ('umultiple', 'gmultiple')),
	3);

print &ui_table_hr();

print &ui_table_row($text{'acl_gedit'},
	&ui_radio_table("gedit_mode",
		defined($o->{'gedit_mode'}) ? $o->{'gedit_mode'} : 0,
		[ [ 0, $text{'acl_gedit_all'} ],
		  [ 1, $text{'acl_gedit_none'} ],
		  [ 2, $text{'acl_gedit_only'},
		    &ui_textbox("gedit_can",
				$o->{'gedit_mode'} == 2 ? $o->{'gedit'} : "", 40).
		    " ".&group_chooser_button("gedit_can", 1) ],
		  [ 3, $text{'acl_gedit_except'},
		    &ui_textbox("gedit_cannot",
				$o->{'gedit_mode'} == 3 ? $o->{'gedit'} : "", 40).
		    " ".&group_chooser_button("gedit_cannot", 1) ],
		  [ 4, $text{'acl_gedit_gid'},
		    &ui_textbox("gedit_gid",
				$o->{'gedit_mode'} == 4 ? $o->{'gedit'} : "", 6).
		    " - ".&ui_textbox("gedit_gid2",
				      $o->{'gedit_mode'} == 4 ? $o->{'gedit2'} : "", 6) ] ], 1),
	3);

print &ui_table_row($text{'acl_gcreate'},
	&ui_radio("gcreate", defined($o->{'gcreate'}) ? $o->{'gcreate'} : 0,
		  [ [ 1, $text{'yes'} ],
		    [ 2, $text{'acl_gnew'} ],
		    [ 0, $text{'no'} ] ]),
	3);
}

# acl_security_save(&options)
# Parse the form for security options for the useradmin module
sub acl_security_save
{
$_[0]->{'lowuid'} = $in{'lowuid'};
$_[0]->{'hiuid'} = $in{'hiuid'};
$_[0]->{'autouid'} = $in{'autouid'};
$_[0]->{'autogid'} = $in{'autogid'};
$_[0]->{'calcuid'} = $in{'calcuid'};
$_[0]->{'calcgid'} = $in{'calcgid'};
$_[0]->{'useruid'} = $in{'useruid'};
$_[0]->{'usergid'} = $in{'usergid'};
$_[0]->{'lowgid'} = $in{'lowgid'};
$_[0]->{'higid'} = $in{'higid'};
$_[0]->{'uedit_mode'} = $in{'uedit_mode'};
$_[0]->{'uedit'} = $in{'uedit_mode'} == 2 ? $in{'uedit_can'} :
		   $in{'uedit_mode'} == 3 ? $in{'uedit_cannot'} :
		   $in{'uedit_mode'} == 4 ? $in{'uedit_uid'} :
		   $in{'uedit_mode'} == 5 ?
			join(" ", map { "".getgrnam($_) }
			     split(/\s+/, $in{'uedit_group'})) : "";
$_[0]->{'uedit2'} = $in{'uedit_mode'} == 4 ? $in{'uedit_uid2'} : undef;
$_[0]->{'uedit_sec'} = $in{'uedit_mode'} == 5 ? $in{'uedit_sec'} : undef;
$_[0]->{'uedit_re'} = $in{'uedit_mode'} == 7 ? $in{'uedit_re'} : undef;
$_[0]->{'gedit_mode'} = $in{'gedit_mode'};
$_[0]->{'gedit'} = $in{'gedit_mode'} == 2 ? $in{'gedit_can'} :
		   $in{'gedit_mode'} == 3 ? $in{'gedit_cannot'} :
		   $in{'gedit_mode'} == 4 ? $in{'gedit_gid'} : "";
$_[0]->{'gedit2'} = $in{'gedit_mode'} == 4 ? $in{'gedit_gid2'} : undef;
$_[0]->{'ucreate'} = $in{'ucreate'};
$_[0]->{'gcreate'} = $in{'gcreate'};
if ($in{'uedit_gmode'} == 0) {
	delete($_[0]->{'uedit_gmode'});
	$_[0]->{'ugroups'} = "*";
	}
elsif ($in{'uedit_gmode'} == 2) {
	delete($_[0]->{'uedit_gmode'});
	$_[0]->{'ugroups'} = $in{'uedit_gcan'};
	}
else {
	$_[0]->{'uedit_gmode'} = $in{'uedit_gmode'};
	$_[0]->{'ugroups'} = $in{'uedit_gmode'} == 3 ? $in{'uedit_gcannot'} :
			     $in{'uedit_gmode'} == 4 ? $in{'uedit_gid'} : "";
	}
$_[0]->{'ugroups2'} = $in{'uedit_gmode'} == 4 ? $in{'uedit_gid2'} : undef;

$_[0]->{'logins'} = $in{'logins_mode'} == 0 ? "" :
		    $in{'logins_mode'} == 1 ? "*" : $in{'logins'};
$_[0]->{'shells'} = $in{'shells_def'} ? "*"
				      : join(" ", split(/\s+/, $in{'shells'}));
$_[0]->{'peopt'} = $in{'peopt'};
$_[0]->{'batch'} = $in{'batch'};
$_[0]->{'batchdir'} = $in{'batchdir'};
$_[0]->{'export'} = $in{'export'};
$_[0]->{'home'} = $in{'home'};
$_[0]->{'delhome'} = $in{'delhome'};
$_[0]->{'autohome'} = $in{'autohome'};
$_[0]->{'umultiple'} = $in{'umultiple'};
$_[0]->{'uuid'} = $in{'uuid'};
$_[0]->{'gmultiple'} = $in{'gmultiple'};
$_[0]->{'ggid'} = $in{'ggid'};
foreach $o ('chuid', 'chgid', 'movehome', 'mothers',
	    'makehome', 'copy', 'cothers', 'dothers') {
	$_[0]->{$o} = $in{$o};
	}
}