Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	5.66 KB	-rw-r--r--
acl_security.pl	13.74 KB	-rwxr-xr-x
aix-lib.pl	1.17 KB	-rwxr-xr-x
backup_config.pl	749 B	-rwxr-xr-x
batch_exec.cgi	17.21 KB	-rwxr-xr-x
batch_form.cgi	2.42 KB	-rwxr-xr-x
cgi_args.pl	477 B	-rwxr-xr-x
config-aix	703 B	-rw-r--r--
config-cobalt-linux	710 B	-rw-r--r--
config-coherent-linux	657 B	-rw-r--r--
config-corel-linux	665 B	-rw-r--r--
config-debian-linux	665 B	-rw-r--r--
config-freebsd	684 B	-rw-r--r--
config-generic-linux	677 B	-rw-r--r--
config-gentoo-linux	637 B	-rw-r--r--
config-hpux	579 B	-rw-r--r--
config-irix	757 B	-rw-r--r--
config-macos	581 B	-rw-r--r--
config-mandrake-linux	662 B	-rw-r--r--
config-msc-linux	657 B	-rw-r--r--
config-netbsd	623 B	-rw-r--r--
config-open-linux	687 B	-rw-r--r--
config-openSUSE-Linux-15.0-ALL	715 B	-rw-r--r--
config-openbsd	636 B	-rw-r--r--
config-openmamba-linux	657 B	-rw-r--r--
config-openserver	841 B	-rw-r--r--
config-osf1	579 B	-rw-r--r--
config-pardus-linux	665 B	-rw-r--r--
config-redhat-linux-15.0-ALL	659 B	-rw-r--r--
config-redhat-linux-ALL-14.9	657 B	-rw-r--r--
config-slackware-linux	663 B	-rw-r--r--
config-sol-linux	657 B	-rw-r--r--
config-solaris	631 B	-rw-r--r--
config-suse-linux	677 B	-rw-r--r--
config-suse-linux-9.0-ALL	715 B	-rw-r--r--
config-trustix-linux	657 B	-rw-r--r--
config-turbo-linux	677 B	-rw-r--r--
config-united-linux	677 B	-rw-r--r--
config-unixware	595 B	-rw-r--r--
config.info	4.05 KB	-rw-r--r--
config.info.bg	7.87 KB	-rw-r--r--
config.info.ca	4.82 KB	-rw-r--r--
config.info.cs	4.21 KB	-rw-r--r--
config.info.da	3.7 KB	-rw-r--r--
config.info.de	4.65 KB	-rw-r--r--
config.info.es	4.34 KB	-rw-r--r--
config.info.fa	6.04 KB	-rw-r--r--
config.info.fr	2.77 KB	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ja	4.96 KB	-rw-r--r--
config.info.nl	4.61 KB	-rw-r--r--
config.info.no	4.12 KB	-rw-r--r--
config.info.pl	3.01 KB	-rw-r--r--
config.info.pt_BR	4.36 KB	-rw-r--r--
config.info.ru	4.61 KB	-rw-r--r--
config.info.sv	1.06 KB	-rw-r--r--
config.info.tr	3.69 KB	-rw-r--r--
config.info.uk	4.58 KB	-rw-r--r--
config.info.zh	961 B	-rw-r--r--
config.info.zh_TW	909 B	-rw-r--r--
cpan_modules.pl	256 B	-rwxr-xr-x
defaultacl	358 B	-rw-r--r--
delete_group.cgi	2.18 KB	-rwxr-xr-x
delete_user.cgi	4.67 KB	-rwxr-xr-x
edit_group.cgi	4.97 KB	-rwxr-xr-x
edit_user.cgi	18.46 KB	-rwxr-xr-x
export_exec.cgi	2.9 KB	-rwxr-xr-x
export_form.cgi	1.77 KB	-rwxr-xr-x
freebsd-lib.pl	1.74 KB	-rwxr-xr-x
gbatch_exec.cgi	8.1 KB	-rwxr-xr-x
gbatch_form.cgi	1.59 KB	-rwxr-xr-x
gexport_exec.cgi	1.73 KB	-rwxr-xr-x
gexport_form.cgi	1.26 KB	-rwxr-xr-x
help.html	6.79 KB	-rw-r--r--
hpux-lib.pl	1.02 KB	-rwxr-xr-x
index.cgi	7.38 KB	-rwxr-xr-x
irix-lib.pl	1.09 KB	-rwxr-xr-x
linux-lib.pl	4.75 KB	-rwxr-xr-x
list_logins.cgi	1.55 KB	-rwxr-xr-x
list_who.cgi	945 B	-rwxr-xr-x
log_parser.pl	1.68 KB	-rwxr-xr-x
macos-lib.pl	3.15 KB	-rwxr-xr-x
mass_delete_group.cgi	2.41 KB	-rwxr-xr-x
mass_delete_user.cgi	7.65 KB	-rwxr-xr-x
md5-lib.pl	7.58 KB	-rwxr-xr-x
module.info	544 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	155 B	-rw-r--r--
module.info.ar	173 B	-rw-r--r--
module.info.ar.auto	34 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	247 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	228 B	-rw-r--r--
module.info.ca	117 B	-rw-r--r--
module.info.ca.auto	27 B	-rw-r--r--
module.info.cs	30 B	-rw-r--r--
module.info.cs.auto	134 B	-rw-r--r--
module.info.da	27 B	-rw-r--r--
module.info.da.auto	116 B	-rw-r--r--
module.info.de	133 B	-rw-r--r--
module.info.de.auto	25 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	258 B	-rw-r--r--
module.info.es	26 B	-rw-r--r--
module.info.es.auto	136 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	175 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	220 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	156 B	-rw-r--r--
module.info.fr	32 B	-rw-r--r--
module.info.fr.auto	154 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	182 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	147 B	-rw-r--r--
module.info.hu	37 B	-rw-r--r--
module.info.hu.auto	156 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	129 B	-rw-r--r--
module.info.ja	39 B	-rw-r--r--
module.info.ja.auto	175 B	-rw-r--r--
module.info.ko	29 B	-rw-r--r--
module.info.ko.auto	142 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	166 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	167 B	-rw-r--r--
module.info.ms	124 B	-rw-r--r--
module.info.ms.auto	26 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	133 B	-rw-r--r--
module.info.nl	30 B	-rw-r--r--
module.info.nl.auto	123 B	-rw-r--r--
module.info.no	27 B	-rw-r--r--
module.info.no.auto	116 B	-rw-r--r--
module.info.pl	122 B	-rw-r--r--
module.info.pl.auto	31 B	-rw-r--r--
module.info.pt	30 B	-rw-r--r--
module.info.pt.auto	124 B	-rw-r--r--
module.info.pt_BR	30 B	-rw-r--r--
module.info.pt_BR.auto	130 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	167 B	-rw-r--r--
module.info.ru	49 B	-rw-r--r--
module.info.ru.auto	208 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	177 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	163 B	-rw-r--r--
module.info.sv	31 B	-rw-r--r--
module.info.sv.auto	128 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	260 B	-rw-r--r--
module.info.tr	31 B	-rw-r--r--
module.info.tr.auto	147 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	247 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	232 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	177 B	-rw-r--r--
module.info.zh	24 B	-rw-r--r--
module.info.zh.auto	103 B	-rw-r--r--
module.info.zh_TW	30 B	-rw-r--r--
module.info.zh_TW.auto	109 B	-rw-r--r--
my_group_chooser.cgi	6.9 KB	-rwxr-xr-x
my_user_chooser.cgi	6.56 KB	-rwxr-xr-x
netbsd-lib.pl	1.74 KB	-rwxr-xr-x
openbsd-lib.pl	1.74 KB	-rwxr-xr-x
openserver-lib.pl	1.18 KB	-rwxr-xr-x
osf1-lib.pl	1.01 KB	-rwxr-xr-x
prefs.info	134 B	-rw-r--r--
rbac-mapping	190 B	-rw-r--r--
save_group.cgi	4.86 KB	-rwxr-xr-x
save_user.cgi	20.39 KB	-rwxr-xr-x
search_group.cgi	991 B	-rwxr-xr-x
search_user.cgi	1.33 KB	-rwxr-xr-x
solaris-lib.pl	1.78 KB	-rwxr-xr-x
unixware-lib.pl	1.13 KB	-rwxr-xr-x
user-lib.pl	71.71 KB	-rwxr-xr-x

Code Editor : acl_security.pl

require 'user-lib.pl';

# acl_security_form(&options)
# Output HTML for editing security options for the useradmin module
sub acl_security_form
{
local $o = $_[0];

print "<tr> <td valign=top><b>$text{'acl_uedit'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=uedit_mode value=0 %s> $text{'acl_uedit_all'}&nbsp;&nbsp;\n",
	$o->{'uedit_mode'} == 0 ? "checked" : "";
printf "<input type=radio name=uedit_mode value=1 %s> $text{'acl_uedit_none'}&nbsp;\n",
	$o->{'uedit_mode'} == 1 ? "checked" : "";
printf "<input type=radio name=uedit_mode value=6 %s> $text{'acl_uedit_this'}<br>\n",
	$o->{'uedit_mode'} == 6 ? "checked" : "";
printf "<input type=radio name=uedit_mode value=2 %s> $text{'acl_uedit_only'}\n",
	$o->{'uedit_mode'} == 2 ? "checked" : "";
printf "<input name=uedit_can size=40 value='%s'> %s<br>\n",
	$o->{'uedit_mode'} == 2 ? $o->{'uedit'} : "",
	&user_chooser_button("uedit_can", 1);
printf "<input type=radio name=uedit_mode value=3 %s> $text{'acl_uedit_except'}\n",
	$o->{'uedit_mode'} == 3 ? "checked" : "";
printf "<input name=uedit_cannot size=40 value='%s'> %s<br>\n",
	$o->{'uedit_mode'} == 3 ? $o->{'uedit'} : "",
	&user_chooser_button("uedit_cannot", 1);
printf "<input type=radio name=uedit_mode value=4 %s> $text{'acl_uedit_uid'}\n",
	$o->{'uedit_mode'} == 4 ? "checked" : "";
printf "<input name=uedit_uid size=6 value='%s'> - \n",
	$o->{'uedit_mode'} == 4 ? $o->{'uedit'} : "";
printf "<input name=uedit_uid2 size=6 value='%s'><br>\n",
	$o->{'uedit_mode'} == 4 ? $o->{'uedit2'} : "";
printf "<input type=radio name=uedit_mode value=5 %s> $text{'acl_uedit_group'}\n",
	$o->{'uedit_mode'} == 5 ? "checked" : "";
printf "<input name=uedit_group size=40 value='%s'> %s<br>\n",
	$o->{'uedit_mode'} == 5 ?
	 join(" ", map { "".&my_getgrgid($_) } split(/\s+/, $o->{'uedit'})) :"",
	&group_chooser_button("uedit_group", 1);
printf "%s <input type=checkbox name=uedit_sec value=1 %s> %s<br>\n",
	"&nbsp;" x 5, $o->{'uedit_sec'} ? 'checked' : '',$text{'acl_uedit_sec'};
printf "<input type=radio name=uedit_mode value=7 %s> $text{'acl_uedit_re'}\n",
	$o->{'uedit_mode'} == 7 ? "checked" : "";
printf "<input name=uedit_re size=40 value='%s'> %s<br>\n",
	$o->{'uedit_mode'} == 7 ? $o->{'uedit_re'} : "";
print "</td> </tr>\n";

print "<tr> <td><b>$text{'acl_ucreate'}</b></td> <td>\n";
printf "<input type=radio name=ucreate value=1 %s> $text{'yes'}\n",
	$o->{'ucreate'} ? "checked" : "";
printf "<input type=radio name=ucreate value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'ucreate'} ? "" : "checked";

print "<tr> <td><b>$text{'acl_batch'}</b></td> <td>\n";
printf "<input type=radio name=batch value=1 %s> $text{'yes'}\n",
	$o->{'batch'} ? "checked" : "";
printf "<input type=radio name=batch value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'batch'} ? "" : "checked";

print "<tr> <td><b>$text{'acl_export'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=export value=2 %s> $text{'yes'}\n",
	$o->{'export'} == 2 ? "checked" : "";
printf "<input type=radio name=export value=1 %s> $text{'acl_export1'}\n",
	$o->{'export'} == 1 ? "checked" : "";
printf "<input type=radio name=export value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'export'} == 0 ? "checked" : "";

print "<tr> <td valign=top><b>$text{'acl_uid'}</b></td>\n";
print "<td colspan=3><input name=lowuid size=6 value='$o->{'lowuid'}'> -\n";
print "<input name=hiuid size=6 value='$o->{'hiuid'}'><br>\n";
printf "<input type=checkbox name=autouid value=1 %s> %s<br>\n",
	$o->{'autouid'} ? "checked" : "", $text{'acl_autouid'};
printf "<input type=checkbox name=calcuid value=1 %s> %s<br>\n",
	$o->{'calcuid'} ? "checked" : "", $text{'acl_calcuid'};
printf "<input type=checkbox name=useruid value=1 %s> %s<br>\n",
	$o->{'useruid'} ? "checked" : "", $text{'acl_useruid'};
printf "<input type=checkbox name=umultiple value=1 %s> %s<br>\n",
	$o->{'umultiple'} ? "checked" : "", $text{'acl_umultiple'};
printf "<input type=checkbox name=uuid value=1 %s> %s</td> </tr>\n",
	$o->{'uuid'} ? "checked" : "", $text{'acl_uuid'};

local $uedit_gmode = defined($o->{'uedit_gmode'}) ? $o->{'uedit_gmode'} :
		     $o->{'ugroups'} eq '*' ? 0 : 2;
print "<tr> <td valign=top><b>$text{'acl_ugroups'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=uedit_gmode value=0 %s> $text{'acl_gedit_all'}<br>\n",
	$uedit_gmode == 0 ? "checked" : "";
printf "<input type=radio name=uedit_gmode value=2 %s> $text{'acl_gedit_only'}\n",
	$uedit_gmode == 2 ? "checked" : "";
printf "<input name=uedit_gcan size=40 value='%s'> %s<br>\n",
	$uedit_gmode == 2 ? $o->{'ugroups'} : "",
	&group_chooser_button("uedit_gcan", 1);
printf "<input type=radio name=uedit_gmode value=3 %s> $text{'acl_gedit_except'}\n",
	$uedit_gmode == 3 ? "checked" : "";
printf "<input name=uedit_gcannot size=40 value='%s'> %s<br>\n",
	$uedit_gmode == 3 ? $o->{'ugroups'} : "",
	&group_chooser_button("uedit_gcannot", 1);
printf "<input type=radio name=uedit_gmode value=4 %s> $text{'acl_gedit_gid'}\n",
	$uedit_gmode == 4 ? "checked" : "";
printf "<input name=uedit_gid size=6 value='%s'> -\n",
	$uedit_gmode == 4 ? $o->{'ugroups'} : "";
printf "<input name=uedit_gid2 size=6 value='%s'></td> </tr>\n",
	$uedit_gmode == 4 ? $o->{'ugroups2'} : "";

print "<tr> <td valign=top><b>$text{'acl_shells'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=shells_def value=1 %s> $text{'acl_any'}\n",
	$o->{'shells'} eq "*" ? "checked" : "";
printf "<input type=radio name=shells_def value=0 %s> $text{'acl_listed'}<br>\n",
	$o->{'shells'} eq "*" ? "" : "checked";
print "<textarea name=shells rows=3 cols=40>",
	$o->{'shells'} eq "*" ? "" : join("\n", split(/\s+/, $o->{'shells'})),
	"</textarea></td> </tr>\n";

print "<tr> <td><b>$text{'acl_epeopt'}</b></td> <td>\n";
printf "<input type=radio name=peopt value=1 %s> $text{'yes'}\n",
	$o->{'peopt'} ? "checked" : "";
printf "<input type=radio name=peopt value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'peopt'} ? "" : "checked";

print "<tr> <td valign=top><b>$text{'acl_home'}</b></td>\n";
printf "<td colspan=3><input name=home size=40 value='%s'> %s<br>\n",
	$o->{'home'}, &file_chooser_button("home", 1);
printf "<input type=checkbox name=autohome value=1 %s> %s</td> </tr>\n",
	$o->{'autohome'} ? "checked" : "",
	$text{'acl_autohome'};

print "<tr> <td><b>$text{'acl_udelete'}</b></td> <td>\n";
printf "<input type=radio name=udelete value=1 %s> $text{'yes'}\n",
	$o->{'udelete'} ? "checked" : "";
printf "<input type=radio name=udelete value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'udelete'} ? "" : "checked";

print "<tr> <td><b>$text{'acl_urename'}</b></td> <td>\n";
printf "<input type=radio name=urename value=1 %s> $text{'yes'}\n",
	$o->{'urename'} ? "checked" : "";
printf "<input type=radio name=urename value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'urename'} ? "" : "checked";

print "<tr> <td valign=top><b>$text{'acl_delhome'}</b></td>\n";
print "<td colspan=3>",&ui_radio("delhome", $o->{'delhome'},
			  [ [ 2, $text{'acl_option'} ],
			    [ 1, $text{'acl_always'} ],
			    [ 0, $text{'acl_never'} ] ]),"</td> </tr>\n";

# 0 = always on, 1 = can edit, 2 = always off
print "<tr> <td valign=top><b>$text{'acl_saveopts'}</b></td> ",
      "<td colspan=3><table>\n";
foreach $opt ('chuid', 'chgid', 'movehome', 'mothers',
	      'makehome', 'copy', 'cothers', 'dothers') {
	print "<tr> <td>",$text{"uedit_$opt"},"</td>\n";
	printf "<td><input type=radio name=$opt value=1 %s> %s\n",
		$o->{$opt} == 1 ? "checked" : "", $text{'acl_canedit'};
	printf "<input type=radio name=$opt value=0 %s> %s\n",
		$o->{$opt} == 0 ? "checked" : "", $text{'acl_on'};
	printf "<input type=radio name=$opt value=2 %s> %s</td> </tr>\n",
		$o->{$opt} == 2 ? "checked" : "", $text{'acl_off'};
	}
print "</table></td> </tr>\n";

print "<tr> <td colspan=4><hr></td> </tr>\n";

print "<tr> <td valign=top><b>$text{'acl_gedit'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=gedit_mode value=0 %s> $text{'acl_gedit_all'}&nbsp;&nbsp;\n",
	$o->{'gedit_mode'} == 0 ? "checked" : "";
printf "<input type=radio name=gedit_mode value=1 %s> $text{'acl_gedit_none'}<br>\n",
	$o->{'gedit_mode'} == 1 ? "checked" : "";
printf "<input type=radio name=gedit_mode value=2 %s> $text{'acl_gedit_only'}\n",
	$o->{'gedit_mode'} == 2 ? "checked" : "";
printf "<input name=gedit_can size=40 value='%s'> %s<br>\n",
	$o->{'gedit_mode'} == 2 ? $o->{'gedit'} : "",
	&group_chooser_button("gedit_can", 1);
printf "<input type=radio name=gedit_mode value=3 %s> $text{'acl_gedit_except'}\n",
	$o->{'gedit_mode'} == 3 ? "checked" : "";
printf "<input name=gedit_cannot size=40 value='%s'> %s<br>\n",
	$o->{'gedit_mode'} == 3 ? $o->{'gedit'} : "",
	&group_chooser_button("gedit_cannot", 1);
printf "<input type=radio name=gedit_mode value=4 %s> $text{'acl_gedit_gid'}\n",
	$o->{'gedit_mode'} == 4 ? "checked" : "";
printf "<input name=gedit_gid size=6 value='%s'> -\n",
	$o->{'gedit_mode'} == 4 ? $o->{'gedit'} : "";
printf "<input name=gedit_gid2 size=6 value='%s'></td> </tr>\n",
	$o->{'gedit_mode'} == 4 ? $o->{'gedit2'} : "";

print "<tr> <td><b>$text{'acl_gcreate'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=gcreate value=1 %s> $text{'yes'}\n",
	$o->{'gcreate'}==1 ? "checked" : "";
printf "<input type=radio name=gcreate value=2 %s> $text{'acl_gnew'}\n",
	$o->{'gcreate'}==2 ? "checked" : "";
printf "<input type=radio name=gcreate value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'gcreate'}==0 ? "checked" : "";

print "<tr> <td valign=top><b>$text{'acl_gid'}</b></td>\n";
print "<td colspan=3><input name=lowgid size=6 value='$o->{'lowgid'}'> -\n";
print "<input name=higid size=6 value='$o->{'higid'}'><br>\n";
printf "<input type=checkbox name=autogid value=1 %s> %s<br>\n",
	$o->{'autogid'} ? "checked" : "", $text{'acl_autogid'};
printf "<input type=checkbox name=calcgid value=1 %s> %s<br>\n",
	$o->{'calcgid'} ? "checked" : "", $text{'acl_calcgid'};
printf "<input type=checkbox name=usergid value=1 %s> %s<br>\n",
	$o->{'usergid'} ? "checked" : "", $text{'acl_usergid'};
printf "<input type=checkbox name=gmultiple value=1 %s> %s<br>\n",
	$o->{'gmultiple'} ? "checked" : "", $text{'acl_gmultiple'};
printf "<input type=checkbox name=ggid value=1 %s> %s</td> </tr>\n",
	$o->{'ggid'} ? "checked" : "", $text{'acl_ggid'};

print "<tr> <td><b>$text{'acl_gdelete'}</b></td> <td>\n";
printf "<input type=radio name=gdelete value=1 %s> $text{'yes'}\n",
	$o->{'gdelete'} ? "checked" : "";
printf "<input type=radio name=gdelete value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'gdelete'} ? "" : "checked";

print "<tr> <td><b>$text{'acl_grename'}</b></td> <td>\n";
printf "<input type=radio name=grename value=1 %s> $text{'yes'}\n",
	$o->{'grename'} ? "checked" : "";
printf "<input type=radio name=grename value=0 %s> $text{'no'}</td> </tr>\n",
	$o->{'grename'} ? "" : "checked";

print "<tr> <td colspan=4><hr></td> </tr>\n";

print "<tr><td valign=top><b>$text{'acl_logins'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=logins_mode value=0 %s> $text{'acl_lnone'}<br>\n",
	$o->{'logins'} ? "" : "checked";
printf "<input type=radio name=logins_mode value=1 %s> $text{'acl_lall'}<br>\n",
	$o->{'logins'} eq "*" ? "checked" : "";
printf "<input type=radio name=logins_mode value=2 %s>\n",
	$o->{'logins'} =~ /[^\*]/ ? "checked" : "";
printf "<input name=logins size=40 value='%s'> %s</td> </tr>\n",
	$o->{'logins'} =~ /[^\*]/ ? $o->{'logins'} : "",
	&user_chooser_button("logins", 1);
}

# 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 { "".&my_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]->{'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};
	}
$_[0]->{'udelete'} = $in{'udelete'};
$_[0]->{'urename'} = $in{'urename'};
$_[0]->{'gdelete'} = $in{'gdelete'};
$_[0]->{'grename'} = $in{'grename'};
}

${this.title}

Code Editor : acl_security.pl