Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	484 B	-rw-r--r--	2026-07-17 21:17
allmanual_form.cgi	983 B	-rwxr-xr-x	2026-07-17 21:22
allmanual_save.cgi	652 B	-rwxr-xr-x	2026-07-17 21:22
anon_index.cgi	2.09 KB	-rwxr-xr-x	2026-07-17 21:22
apply.cgi	349 B	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	797 B	-rwxr-xr-x	2026-07-17 21:17
config	191 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	304 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux-2-ALL	270 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	304 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	304 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	304 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	304 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	270 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	304 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	270 B	-rw-r--r--	2026-07-17 21:17
config-Ubuntu-Linux	243 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	169 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	169 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	239 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-10.0-ALL	243 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-4.0-9.0	247 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	185 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8-ALL	281 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	177 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	231 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	169 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	169 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	243 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	234 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-10.0-23.0	274 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0-ALL	320 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	169 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	207 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	239 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	191 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	239 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	249 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	239 B	-rw-r--r--	2026-07-17 21:17
config.info	857 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	970 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	720 B	-rw-r--r--	2026-07-17 21:17
config.info.de	933 B	-rw-r--r--	2026-07-17 21:17
config.info.es	241 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	792 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	1.02 KB	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	789 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	686 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	661 B	-rw-r--r--	2026-07-17 21:17
config.info.no	626 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	696 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	769 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	349 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	376 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	410 B	-rw-r--r--	2026-07-17 21:17
create_dir.cgi	1.08 KB	-rwxr-xr-x	2026-07-17 21:22
create_dirlimit.cgi	396 B	-rwxr-xr-x	2026-07-17 21:22
create_ftpaccess.cgi	784 B	-rwxr-xr-x	2026-07-17 21:22
create_limit.cgi	1.16 KB	-rwxr-xr-x	2026-07-17 21:22
create_virt.cgi	1.01 KB	-rwxr-xr-x	2026-07-17 21:22
delete_ftpaccess.cgi	408 B	-rwxr-xr-x	2026-07-17 21:22
dir_index.cgi	2.46 KB	-rwxr-xr-x	2026-07-17 21:22
edit_anon.cgi	1009 B	-rwxr-xr-x	2026-07-17 21:22
edit_aserv.cgi	1.63 KB	-rwxr-xr-x	2026-07-17 21:22
edit_dir.cgi	1.86 KB	-rwxr-xr-x	2026-07-17 21:22
edit_dserv.cgi	1.78 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ftpaccess.cgi	998 B	-rwxr-xr-x	2026-07-17 21:22
edit_ftpusers.cgi	589 B	-rwxr-xr-x	2026-07-17 21:22
edit_global.cgi	863 B	-rwxr-xr-x	2026-07-17 21:22
edit_limit.cgi	3.53 KB	-rwxr-xr-x	2026-07-17 21:22
edit_lserv.cgi	3.65 KB	-rwxr-xr-x	2026-07-17 21:22
edit_net.cgi	639 B	-rwxr-xr-x	2026-07-17 21:22
edit_virt.cgi	875 B	-rwxr-xr-x	2026-07-17 21:22
edit_vserv.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	126 B	-rwxr-xr-x	2026-07-17 21:17
find_ftpaccess.cgi	1.01 KB	-rwxr-xr-x	2026-07-17 21:22
ftpaccess.cgi	962 B	-rwxr-xr-x	2026-07-17 21:22
ftpaccess_index.cgi	1.64 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	6.55 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	446 B	-rwxr-xr-x	2026-07-17 21:17
limit_index.cgi	2.9 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	3.14 KB	-rwxr-xr-x	2026-07-17 21:17
manual_form.cgi	3.91 KB	-rwxr-xr-x	2026-07-17 21:22
manual_save.cgi	3.14 KB	-rwxr-xr-x	2026-07-17 21:22
mod_auth.pl	2.2 KB	-rwxr-xr-x	2026-07-17 21:17
mod_core.pl	37.51 KB	-rwxr-xr-x	2026-07-17 21:17
mod_ldap.pl	8.76 KB	-rwxr-xr-x	2026-07-17 21:17
mod_log.pl	2.58 KB	-rwxr-xr-x	2026-07-17 21:17
mod_ls.pl	3.28 KB	-rwxr-xr-x	2026-07-17 21:17
mod_pam.pl	676 B	-rwxr-xr-x	2026-07-17 21:17
mod_readme.pl	426 B	-rwxr-xr-x	2026-07-17 21:17
mod_site.pl	443 B	-rwxr-xr-x	2026-07-17 21:17
mod_tls.pl	2.96 KB	-rw-r--r--	2026-07-17 21:17
mod_unixpw.pl	1.54 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	204 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	193 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	230 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	141 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	16 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	23 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	139 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	162 B	-rw-r--r--	2026-07-17 21:17
module.info.de	151 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	16 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	265 B	-rw-r--r--	2026-07-17 21:17
module.info.es	25 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	139 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	220 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	24 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	143 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	162 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	136 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	159 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	26 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	175 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	23 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	147 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	148 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	16 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	23 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.no	22 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	29 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	137 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	155 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	28 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	136 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	28 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	194 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	162 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	152 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	164 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	224 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	146 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	27 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	127 B	-rw-r--r--	2026-07-17 21:17
proftpd-lib.pl	23.93 KB	-rwxr-xr-x	2026-07-17 21:17
save_anon.cgi	594 B	-rwxr-xr-x	2026-07-17 21:22
save_aserv.cgi	1.7 KB	-rwxr-xr-x	2026-07-17 21:22
save_dir.cgi	874 B	-rwxr-xr-x	2026-07-17 21:22
save_dserv.cgi	1.37 KB	-rwxr-xr-x	2026-07-17 21:22
save_ftpaccess.cgi	486 B	-rwxr-xr-x	2026-07-17 21:22
save_ftpusers.cgi	342 B	-rwxr-xr-x	2026-07-17 21:22
save_global.cgi	529 B	-rwxr-xr-x	2026-07-17 21:22
save_limit.cgi	1.02 KB	-rwxr-xr-x	2026-07-17 21:22
save_lserv.cgi	1.79 KB	-rwxr-xr-x	2026-07-17 21:22
save_virt.cgi	496 B	-rwxr-xr-x	2026-07-17 21:22
save_vserv.cgi	1.55 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	223 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	207 B	-rwxr-xr-x	2026-07-17 21:22
userpermissions_form.cgi	16.7 KB	-rwxr-xr-x	2026-07-17 21:22
virt_index.cgi	2.14 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

# mod_ldap.pl
use Data::Dumper;
sub mod_ldap_directives
{
my $rv = [
	[ 'LDAPServer', 0, 4, 'root', 1.15 ],
	[ 'LDAPDoAuth', 0, 4, 'root', 1.15 ],
        [ 'LDAPDNInfo', 0, 4, 'root', 1.15 ],
        [ 'LDAPDoUIDLookups', 0, 4, 'root', 1.15 ],
        [ 'LDAPDoGIDLookups', 0, 4, 'root', 1.15 ],
        [ 'LDAPAuthBinds', 0, 4, 'root', 1.15 ],
        [ 'LDAPDefaultUID', 0, 4, 'root', 1.15 ],
        [ 'LDAPDefaultGID', 0, 4, 'root', 1.15 ],
        [ 'LDAPHomedirOnDemand', 0, 4, 'root', 1.15 ],
        [ 'LDAPNegativeCache', 0, 4, 'root', 1.15 ],
        [ 'LDAPQueryTimeout', 0, 4, 'root', 1.15 ],
        [ 'LDAPDefaultAuthScheme', 0, 4, 'root', 1.15 ],
	];
return &make_directives($rv, $_[0], "mod_ldap");
}

sub edit_LDAPServer
{
my ($rv);
my $param = $_[0]->{'value'};
$name="LDAPServerp";
$namep=$name.'_m';
my ($port) =$param =~ /.+:(.+)/;
 (my $serveur,my $port)=$param =~ /([^:]+):?(.*)/;
$rv=sprintf "<b>Server:</b> <input name=LDAPServer size=20 value='%s'>\n",
	 $serveur;
$rv .= sprintf "<b> &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp Port:</b><input type=radio
  name=$namep value=0 %s> %s\n",
		!$port  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$namep value=1 %s> \n",
		$port ? "checked" : "" ;
$rv .= sprintf "<input name=$name size=6 value='%s'><br>\n",
		$port ? $port: "";
return (2, "LDAP  Server info",$rv);
}

sub edit_LDAPQueryTimeout
{
my ($rv);
my $param = $_[0]->{'value'};
$name="LDAPQueryTimeout";
$namep=$name.'_m';
$rv = sprintf "<input type=radio
  name=$namep value=0 %s> %s\n",
		!$param  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$namep value=1 %s> \n",
		$param ? "checked" : "" ;
$rv .= sprintf "<input name=$name size=6 value='%s'><br>\n",
		$param ? $param: "";

return (2, "LDAP  Query timeout",$rv);
}

sub edit_LDAPDoAuth
{
my ($rv);
my @tab =@_;
my $name ='LDAPDoAuthp';
my $param = $tab[0]->{'value'};
my $option = $tab[0]->{'words'}->[0];
my $dn = $tab[0]->{'words'}->[1];
$namep=$name.'_m';
$rv = sprintf "<input type=radio  name=$namep value=0 %s> %s\n",
		!$option  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$namep value=1 %s> %s\n",
		$option =~/off/i ? "checked" : "" ,"Off";
$rv .= sprintf "<input type=radio name=$namep value=2 %s> %s \n",
		$option =~/on/i ? "checked" : "" ,"On";
$rv .= sprintf "<input name=$name size=40 value='%s'> %s\n",
		$dn ? $dn: "","<b>auth base prefix</b><br>";
return (2,"LDAP Do authentification",$rv);
}

sub edit_LDAPDefaultUID
{
my ($rv);
my @tab =@_;
my $name ='LDAPDefaultUID';
my $param = $tab[0]->{'value'};
$rv = sprintf "<input name=$name size=6 value='%s'> %s\n",
		$param ? $param: "","<br>";
return (1,"LDAP Default UID",$rv);
}

sub edit_LDAPHomedirOnDemand
{
my ($rv);
my @tab =@_;
my $name ='LDAPHomedirOnDemand';
my $param = $tab[0]->{'value'};
$namep=$name.'_m';
$rv = sprintf "<input type=radio  name=$namep value=0 %s> %s\n",
		!$param  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$namep value=1 %s> %s\n",
		$param =~/off/i ? "checked" : "" ,"Off";
$rv .= sprintf "<input type=radio name=$namep value=2 %s> %s \n",
		$param =~/on/i ? "checked" : "" ,"On";
return (1,"LDAP Homedir on demand",$rv);
}

sub edit_LDAPNegativeCache
{
my ($rv);
my @tab =@_;
my $name ='LDAPNegativeCache';
my $param = $tab[0]->{'value'};
$namep=$name.'_m';
$rv = sprintf "<input type=radio  name=$namep value=0 %s> %s\n",
		!$param  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$namep value=1 %s> %s\n",
		$param =~/off/i ? "checked" : "" ,"Off";
$rv .= sprintf "<input type=radio name=$namep value=2 %s> %s \n",
		$param =~/on/i ? "checked" : "" ,"On";
return (1,"LDAP negative cache",$rv);
}

sub edit_LDAPDefaultGID
{
my ($rv);
my @tab =@_;
my $name ='LDAPDefaultGID';
my $param = $tab[0]->{'value'};
$rv = sprintf "<input name=$name size=6 value='%s'> %s\n",
		$param ? $param: "","<br>";
return (1,"LDAP Default GID",$rv);
}

sub edit_LDAPDoUIDLookups
{
my ($rv);
my @tab =@_;
my $name ='LDAPDoUIDLookups';
my $param = $tab[0]->{'value'};
my $option = $tab[0]->{'words'}->[0];
my $dn = $tab[0]->{'words'}->[1];
$namep=$name.'_m';
$rv = sprintf "<input type=radio  name=$namep value=0 %s> %s\n",
		!$option  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$namep value=1 %s> %s\n",
		$option =~/off/i ? "checked" : "" ,"Off";
$rv .= sprintf "<input type=radio name=$namep value=2 %s> %s \n",
		$option =~/on/i ? "checked" : "" ,"On";
$rv .= sprintf "<input name=$name size=40 value='%s'> %s\n",
		$dn ? $dn: "","<b>uid base prefix</b><br>";
return (2,"LDAP Do UID Lookups",$rv);
}

sub edit_LDAPDoGIDLookups
{
my ($rv);
my @tab =@_;
my $name ='LDAPDoGIDLookups';
my $param = $tab[0]->{'value'};
my $option = $tab[0]->{'words'}->[0];
my $dn = $tab[0]->{'words'}->[1];
$namep=$name.'_m';
$rv = sprintf "<input type=radio  name=$namep value=0 %s> %s\n",
		!$option  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$namep value=1 %s> %s\n",
		$option =~/off/i ? "checked" : "" ,"Off";
$rv .= sprintf "<input type=radio name=$namep value=2 %s> %s \n",
		$option =~/on/i ? "checked" : "" ,"On";
$rv .= sprintf "<input name=$name size=40 value='%s'> %s\n",
		$dn ? $dn: "","<b>gid base prefix</b><br>";
return (2,"LDAP Do GID Lookups",$rv);
}

sub edit_LDAPDNInfo
{
my ($rv);
#return (2, "LDAPDNinfo",
$rv =sprintf "<b>BindDN:</b><input name=LDAPDNinfodn size=30 value='%s'>\n",
	 $_[0]->{'words'}->[0];
$rv .=sprintf "<b>&nbsp&nbsp&nbsp&nbsp PasswordDN</b><input name=LDAPDNinfopasswd size=20 value='%s'>\n",
	 $_[0]->{'words'}->[1];
return(2,"LDAP DN info",$rv);
}

sub edit_LDAPAuthBinds
{
my ($rv);
my @tab =@_;
my $name ='LDAPAuthBinds';
my $option = $tab[0]->{'value'};
#my $dn = $tab[0]->{'words'}->[1];
$rv = sprintf "<br><input type=radio  name=$name value=0 %s> %s\n",
		!$option  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$name value=1 %s> %s\n",
		$option =~/off/i ? "checked" : "" ,"Off";
$rv .= sprintf "<input type=radio name=$name value=2 %s> %s \n",
		$option =~/on/i ? "checked" : "" ,"On";
return (2,"LDAP auth bind ",$rv);
}

sub edit_LDAPDefaultAuthScheme
{
my ($rv);
my @tab =@_;
my $name ='LDAPDefaultAuthScheme';
my $option = $tab[0]->{'value'};
#my $dn = $tab[0]->{'words'}->[1];
$rv = sprintf "<br><input type=radio  name=$name value=0 %s> %s\n",
		!$option  ? "checked" : "", $text{'default'};
$rv .= sprintf "<input type=radio name=$name value=1 %s> %s\n",
		$option =~/crypt/i ? "checked" : "" ,"crypt";
$rv .= sprintf "<input type=radio name=$name value=2 %s> %s \n",
		$option =~/clear/i ? "checked" : "" ,"clear";
return (2,"LDAP default auth scheme ",$rv);
}

sub save_LDAPAuthBinds
{
my $option =$in{'LDAPAuthBinds'};
return ([ ]) unless $option;
return (['off']) if $option==1;
return (['on']) if $option==2;;
return ([ ]);
}

sub save_LDAPDefaultUID
{
my $option =$in{'LDAPDefaultUID'};
return ([ ]) unless $option;
return (["$option"]) if $option;
}

sub save_LDAPDefaultGID
{
my $option =$in{'LDAPDefaultGID'};
return ([ ]) unless $option;
return (["$option"]) if $option;
}

sub save_LDAPServer
{
my $param =$in{'LDAPServer'};
if (($in{'LDAPServerp_m'} == 1) &&  ($in{'LDAPServerp'})){
	$param.=":". $in{'LDAPServerp'};
	}
return ( [ $param ] ) if $param;
return ( [ ] ) unless $param;
}

sub save_LDAPQueryTimeout
{
my $param =$in{'LDAPQueryTimeout'};
if (($in{'LDAPQueryTimeout_m'} == 1) &&  ($in{'LDAPQueryTimeout'})){
	$param= $in{'LDAPQueryTimeout'};
	}
else {
	$param = undef;
	}
return ( [ $param ] ) if $param;
return ( [ ] ) unless $param;
}

sub save_LDAPDNInfo
{
my $dn = $in{'LDAPDNinfodn'} ;
my $dnp = $in{'LDAPDNinfopasswd'} ;
return([ "\"$dn\" \"$dnp\""]) if $dn;
return ([ ]) unless $dn;
}

sub save_LDAPDoAuth
{
my $option = $in{'LDAPDoAuthp_m'} ;
return ([ ]) unless $option;
return (['off']) if $option==1;
my $dn=$in{'LDAPDoAuthp'}; 
return([ "on \"$dn\""]) if $dn;
return ([ ]);
}

sub save_LDAPHomedirOnDemand
{
my $option = $in{'LDAPHomedirOnDemand_m'} ;
return ([ ]) unless $option;
return (['off']) if $option==1;
return(['on']) if  $option==2;
}

sub save_LDAPDefaultAuthScheme
{
my $option = $in{'LDAPDefaultAuthScheme'} ;
return ([ ]) unless $option;
return ([ ]) if  $option==0;
return (['"crypt"']) if $option==1;
return(['"clear"']) if  $option==2;
}

sub save_LDAPNegativeCache
{
my $option = $in{'LDAPNegativeCache_m'} ;
return ([ ]) unless $option;
return (['off']) if $option==1;
return(['on']) if  $option==2;
}

sub save_LDAPDoUIDLookups
{
my $option = $in{'LDAPDoUIDLookups_m'} ;
return ([ ]) unless $option;
return (['off']) if $option==1;
my $dn=$in{'LDAPDoUIDLookups'}; 
return([ "on \"$dn\""]) if $dn;
return ([ ]);
}

sub save_LDAPDoGIDLookups
{
my $option = $in{'LDAPDoGIDLookups_m'} ;
return ([ ]) unless $option;
return (['off']) if $option==1;
my $dn=$in{'LDAPDoGIDLookups'}; 
return([ "on \"$dn\""]) if $dn;
return ([ ]);
}