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	2.06 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	5.51 KB	-rwxr-xr-x	2026-07-17 21:17
ask_epass.cgi	1.46 KB	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	752 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	1012 B	-rwxr-xr-x	2026-07-17 21:17
conf_bind.cgi	1.56 KB	-rwxr-xr-x	2026-07-17 21:22
conf_misc.cgi	2.05 KB	-rwxr-xr-x	2026-07-17 21:22
conf_net.cgi	2.6 KB	-rwxr-xr-x	2026-07-17 21:22
conf_pass.cgi	2.36 KB	-rwxr-xr-x	2026-07-17 21:22
conf_print.cgi	1.17 KB	-rwxr-xr-x	2026-07-17 21:22
conf_smb.cgi	3.75 KB	-rwxr-xr-x	2026-07-17 21:22
config-AlmaLinux-7.0-ALL	533 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux-2-ALL	488 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	533 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	533 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	533 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	533 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	488 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	533 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	488 B	-rw-r--r--	2026-07-17 21:17
config-aix	539 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	418 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	502 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	405 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	427 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-2.1	405 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-2.2-7.9	690 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-8.0-ALL	578 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	721 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8-ALL	813 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	547 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	545 B	-rw-r--r--	2026-07-17 21:17
config-hpux	574 B	-rw-r--r--	2026-07-17 21:17
config-irix	593 B	-rw-r--r--	2026-07-17 21:17
config-lfs-linux	418 B	-rw-r--r--	2026-07-17 21:17
config-macos	621 B	-rw-r--r--	2026-07-17 21:17
config-macos-1.5-ALL	517 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	476 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux-8.1-ALL	484 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	480 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	642 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	482 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	519 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	647 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	496 B	-rw-r--r--	2026-07-17 21:17
config-openserver	593 B	-rw-r--r--	2026-07-17 21:17
config-osf1	593 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	403 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	490 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-10.0-15.0	502 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-16.0-23.0	559 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0-ALL	563 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-7.0-9.0	502 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	452 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux-7.0-7.1	470 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux-8.0-ALL	533 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	528 B	-rw-r--r--	2026-07-17 21:17
config-solaris	593 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	461 B	-rw-r--r--	2026-07-17 21:17
config-solaris-8-9	533 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	452 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-13.0-ALL	494 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-7.3-8.0	470 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-8.2-12.9	545 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	293 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	492 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	418 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	492 B	-rw-r--r--	2026-07-17 21:17
config-unixware	593 B	-rw-r--r--	2026-07-17 21:17
config.info	918 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	1.54 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.02 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	746 B	-rw-r--r--	2026-07-17 21:17
config.info.da	991 B	-rw-r--r--	2026-07-17 21:17
config.info.de	1.15 KB	-rw-r--r--	2026-07-17 21:17
config.info.es	880 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	1.09 KB	-rw-r--r--	2026-07-17 21:17
config.info.fr	940 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	834 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	953 B	-rw-r--r--	2026-07-17 21:17
config.info.no	975 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	1.08 KB	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	869 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	891 B	-rw-r--r--	2026-07-17 21:17
config.info.ru.UTF-8	887 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	638 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	442 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	939 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	510 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	748 B	-rw-r--r--	2026-07-17 21:17
create_copy.cgi	735 B	-rwxr-xr-x	2026-07-17 21:22
defaultacl	369 B	-rw-r--r--	2026-07-17 21:17
delete_euser.cgi	464 B	-rwxr-xr-x	2026-07-17 21:22
delete_share.cgi	632 B	-rwxr-xr-x	2026-07-17 21:22
delete_shares.cgi	607 B	-rwxr-xr-x	2026-07-17 21:22
edit_epass.cgi	880 B	-rwxr-xr-x	2026-07-17 21:22
edit_euser.cgi	2.59 KB	-rwxr-xr-x	2026-07-17 21:22
edit_fmisc.cgi	2.21 KB	-rwxr-xr-x	2026-07-17 21:22
edit_fname.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
edit_fperm.cgi	1.85 KB	-rwxr-xr-x	2026-07-17 21:22
edit_fshare.cgi	3.2 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	1.82 KB	-rwxr-xr-x	2026-07-17 21:22
edit_gsync.cgi	1.08 KB	-rwxr-xr-x	2026-07-17 21:22
edit_manual.cgi	583 B	-rwxr-xr-x	2026-07-17 21:22
edit_popts.cgi	1.82 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pshare.cgi	3.27 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sec.cgi	3.06 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sync.cgi	1.23 KB	-rwxr-xr-x	2026-07-17 21:22
edit_winbind.cgi	800 B	-rwxr-xr-x	2026-07-17 21:22
index.cgi	9.34 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	365 B	-rwxr-xr-x	2026-07-17 21:17
kill_user.cgi	719 B	-rwxr-xr-x	2026-07-17 21:22
kill_users.cgi	783 B	-rwxr-xr-x	2026-07-17 21:22
list_groups.cgi	1.11 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.78 KB	-rwxr-xr-x	2026-07-17 21:17
logout.cgi	305 B	-rwxr-xr-x	2026-07-17 21:22
make_epass.cgi	4.24 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	246 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	165 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	212 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	104 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	47 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	104 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	114 B	-rw-r--r--	2026-07-17 21:17
module.info.de	106 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	22 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	264 B	-rw-r--r--	2026-07-17 21:17
module.info.es	60 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	100 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	143 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	180 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	130 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	47 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	96 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	144 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	158 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	124 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	41 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	39 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	107 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	104 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	23 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	34 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	32 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	82 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	125 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	51 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	98 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	60 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	104 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	36 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	151 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	136 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	29 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	88 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	41 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	115 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	226 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	35 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	78 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	36 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	84 B	-rw-r--r--	2026-07-17 21:17
opts.pl.dev	6.37 KB	-rw-r--r--	2026-07-17 21:17
prefs.info	17 B	-rw-r--r--	2026-07-17 21:17
rbac-mapping	457 B	-rw-r--r--	2026-07-17 21:17
readonly-share.pl	477 B	-rwxr-xr-x	2026-07-17 21:22
readwrite-share.pl	481 B	-rwxr-xr-x	2026-07-17 21:22
restart.cgi	1.33 KB	-rwxr-xr-x	2026-07-17 21:22
restart_wb.cgi	816 B	-rwxr-xr-x	2026-07-17 21:22
samba-lib.pl	26.13 KB	-rwxr-xr-x	2026-07-17 21:17
save_bind.cgi	1.34 KB	-rwxr-xr-x	2026-07-17 21:22
save_copy.cgi	711 B	-rwxr-xr-x	2026-07-17 21:22
save_euser.cgi	1.62 KB	-rwxr-xr-x	2026-07-17 21:22
save_fmisc.cgi	1.37 KB	-rwxr-xr-x	2026-07-17 21:22
save_fname.cgi	1012 B	-rwxr-xr-x	2026-07-17 21:22
save_fperm.cgi	1.13 KB	-rwxr-xr-x	2026-07-17 21:22
save_fshare.cgi	2.68 KB	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	1.2 KB	-rwxr-xr-x	2026-07-17 21:22
save_gsync.cgi	522 B	-rwxr-xr-x	2026-07-17 21:22
save_manual.cgi	395 B	-rwxr-xr-x	2026-07-17 21:22
save_misc.cgi	2.05 KB	-rwxr-xr-x	2026-07-17 21:22
save_net.cgi	1.75 KB	-rwxr-xr-x	2026-07-17 21:22
save_pass.cgi	2.17 KB	-rwxr-xr-x	2026-07-17 21:22
save_popts.cgi	1.2 KB	-rwxr-xr-x	2026-07-17 21:22
save_print.cgi	916 B	-rwxr-xr-x	2026-07-17 21:22
save_pshare.cgi	2.27 KB	-rwxr-xr-x	2026-07-17 21:22
save_sec.cgi	2.14 KB	-rwxr-xr-x	2026-07-17 21:22
save_smb.cgi	2.21 KB	-rwxr-xr-x	2026-07-17 21:22
save_sync.cgi	691 B	-rwxr-xr-x	2026-07-17 21:22
save_winbind.cgi	902 B	-rwxr-xr-x	2026-07-17 21:22
set-hostname-workgroup.pl	737 B	-rwxr-xr-x	2026-07-17 21:22
smbhash.pl	17.88 KB	-rwxr-xr-x	2026-07-17 21:17
start.cgi	748 B	-rwxr-xr-x	2026-07-17 21:22
start_wb.cgi	621 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	492 B	-rwxr-xr-x	2026-07-17 21:22
stop_wb.cgi	422 B	-rwxr-xr-x	2026-07-17 21:22
swat.cgi	3.17 KB	-rwxr-xr-x	2026-07-17 21:22
swat_save.cgi	515 B	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	4.69 KB	-rwxr-xr-x	2026-07-17 21:17
view_users.cgi	3.04 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

require 'samba-lib.pl';

# acl_security_form(&options)
# Output HTML for editing security options for the samba module
sub acl_security_form
{
my ($o) = @_;

foreach my $f ('apply', 'view_all_con', 'kill_con') {
	print &ui_table_row($text{'acl_'.$f},
		&ui_yesno_radio($f, $o->{$f}));
	}

print &ui_table_hr();

foreach my $f ('conf_net', 'conf_smb', 'conf_pass', 'conf_print',
	       'conf_misc', 'swat', 'manual', 'winbind') {
	print &ui_table_row($text{'acl_'.$f},
		&ui_yesno_radio($f, $o->{$f}));
	}
print &ui_table_row($text{'acl_bind'},
	&ui_yesno_radio("conf_bind", $o->{'conf_bind'}));

print &ui_table_hr();
print &ui_table_span($text{'acl_enc_passwd_opts'});

foreach my $f ('view_users', 'maint_users', 'maint_makepass', 'maint_sync') {
	print &ui_table_row($text{'acl_'.$f},
		&ui_yesno_radio($f, $o->{$f}));
	}

print &ui_table_hr();
print &ui_table_span($text{'acl_group_opts'});

foreach my $f ('maint_groups', 'maint_gsync') {
	print &ui_table_row($text{'acl_'.$f},
		&ui_yesno_radio($f, $o->{$f}));
	}

print &ui_table_hr();

print &ui_table_row($text{'acl_hide'},
	&ui_yesno_radio("hide", defined($o->{'hide'}) ? $o->{'hide'} : 0));

print &ui_table_hr();

print &ui_table_row($text{'acl_afs'},
	join("", map { &ui_checkbox($_."_fs", 1, $text{"acl_".$_}, $o->{$_."_fs"}) }
		    qw(c r w)),
	3);

print &ui_table_row($text{'acl_aps'},
	join("", map { &ui_checkbox($_."_ps", 1, $text{"acl_".$_}, $o->{$_."_ps"}) }
		    qw(c r w)),
	3);

print &ui_table_row($text{'acl_copy'},
	&ui_yesno_radio("copy", $o->{'copy'}));

print &ui_table_hr();

print &ui_table_row($text{'acl_per_fs_acls'},
	&ui_yesno_radio("per_fs_acls", $o->{'per_fs_acls'}));
print &ui_table_row($text{'acl_per_ps_acls'},
	&ui_yesno_radio("per_ps_acls", $o->{'per_ps_acls'}));

print &ui_table_hr();

my @heads = (
	$text{'acl_sname'},
	$text{'acl_saccess'},
	$text{'acl_sconn'},
	$text{'acl_ssec'},
	$text{'acl_sperm'},
	$text{'acl_snaming'},
	$text{'acl_smisc'}." / ".$text{'acl_sprn'},
	);
my $stable = &ui_columns_start(\@heads, 100);
foreach (&list_shares()) {
	$stable .= &display_acl_row($o, $_);
	}
$stable .= &ui_columns_end();
print &ui_table_row($text{'acl_per_share_acls'}, $stable, 3);
}

# acl_security_save(&options)
# Parse the form for security options for the samba module
sub acl_security_save
{
if ($in{'r_fs'} < $in{'w_fs'} || $in{'r_ps'} < $in{'w_ps'}) {
	&error($text{'acl_ernow'});
	}

# If create, read, AND write are all turned off... don't SHOW file shares...
$_[0]->{'conf_fs'}=1;
if ($in{'c_fs'} == "" && $in{'r_fs'} == "" && $in{'w_fs'} == "") {
        $_[0]->{'conf_fs'}=0;
        }
# If create, read, AND write are all turned off... don't SHOW print shares...
$_[0]->{'conf_ps'}=1;
if ($in{'c_ps'} == "" && $in{'r_ps'} == "" && $in{'w_ps'} == "") {
        $_[0]->{'conf_ps'}=0;
        }

$_[0]->{'apply'}=$in{'apply'};
$_[0]->{'view_all_con'}=$in{'view_all_con'};
$_[0]->{'kill_con'}=$in{'kill_con'};
$_[0]->{'conf_net'}=$in{'conf_net'};
$_[0]->{'conf_smb'}=$in{'conf_smb'};
$_[0]->{'conf_pass'}=$in{'conf_pass'};
$_[0]->{'conf_print'}=$in{'conf_print'};
$_[0]->{'conf_misc'}=$in{'conf_misc'};
$_[0]->{'swat'}=$in{'swat'};
$_[0]->{'manual'}=$in{'manual'};
$_[0]->{'hide'}=$in{'hide'};
$_[0]->{'per_fs_acls'}=$in{'per_fs_acls'};
$_[0]->{'per_ps_acls'}=$in{'per_ps_acls'};
$_[0]->{'c_fs'}=$in{'c_fs'};
$_[0]->{'r_fs'}=$in{'r_fs'};
$_[0]->{'w_fs'}=$in{'w_fs'};
$_[0]->{'c_ps'}=$in{'c_ps'};
$_[0]->{'r_ps'}=$in{'r_ps'};
$_[0]->{'w_ps'}=$in{'w_ps'};
$_[0]->{'copy'}=$in{'copy'};
$_[0]->{'view_users'}=$in{'view_users'};
$_[0]->{'maint_users'}=$in{'maint_users'};
$_[0]->{'maint_makepass'}=$in{'maint_makepass'};
$_[0]->{'maint_sync'}=$in{'maint_sync'};
$_[0]->{'maint_groups'}=$in{'maint_groups'};
$_[0]->{'maint_gsync'}=$in{'maint_gsync'};
$_[0]->{'winbind'}=$in{'winbind'};
$_[0]->{'conf_bind'}=$in{'conf_bind'};

foreach (keys %in) {
	  $_[0]->{$1} .= $in{$_} if /^\w\w_(ACL\w\w_\w+)$/;
	  }
}

# display_acl_row(\%access, $share_name)									
sub display_acl_row
{
local($acc,$name)=@_;
local %share;
&get_share($name);
local $stype=&istrue('printable') ? 'ps' : 'fs';
local $aclname='ACL' . $stype . '_' . $name;

return &ui_columns_row([
	$stype eq 'fs' ? "$name" : "$name",
	&display_acl_cell($acc, $name, 'r', 'w', $aclname,
			 $text{'acl_na'}, $text{'acl_r1'}, $text{'acl_rw'}),
	&display_acl_cell($acc, $name, 'v', 'V', $aclname,
			 $text{'acl_na'}, $text{'acl_view'}, $text{'acl_kill'}),
	&display_acl_cell($acc, $name, 's', 'S', $aclname,
			 $text{'acl_na'}, $text{'acl_view'}, $text{'acl_edit'}),
	$stype eq 'fs' ? &display_acl_cell($acc, $name, 'p', 'P', $aclname,
					 $text{'acl_na'}, $text{'acl_view'},
					 $text{'acl_edit'}) : "",
	$stype eq 'fs' ? &display_acl_cell($acc, $name, 'n', 'N', $aclname,
					 $text{'acl_na'}, $text{'acl_view'},
					 $text{'acl_edit'}) : "",
	&display_acl_cell($acc, $name, 'o', 'O', $aclname,
			 $text{'acl_na'}, $text{'acl_view'}, $text{'acl_edit'}),
	]);
}

#display_acl_cell(\%access, $name, 
#				 $rperm, $wperm, $aclname, 
#				 $text1, $text2, $text3)
sub display_acl_cell
{
local ($acc, $name, $rp, $wp, $aclname, $text1, $text2, $text3) = @_;
local $rn = $rp . $wp . '_' . $aclname;
my $sel = !$acc->{$aclname} || !&perm_to($rp, $acc, $aclname) ? '' :
	 &perm_to($rp.$wp, $acc, $aclname) ? $rp.$wp : $rp;
return &ui_radio($rn, $sel,
	[ [ '', $text1." " ],
	 [ $rp, $text2." " ],
	 [ $rp.$wp, $text3 ] ]);
}

# perm_to($permissions_string,\%access,$ACLname)
# check only per-share permissions
sub perm_to
{
local $acl=$_[1]->{$_[2]};
foreach (split //,$_[0]) {
	return 0 if index($acl,$_) == -1;
	}
return 1;
}
		
1;