Gecko [ thearyasamaj.org ]

Name	Size	Permission
acl	[ DIR ]	drwxr-xr-x
adsl-client	[ DIR ]	drwxr-xr-x
apache	[ DIR ]	drwxr-xr-x
at	[ DIR ]	drwxr-xr-x
authentic-theme	[ DIR ]	drwxr-xr-x
backup-config	[ DIR ]	drwxr-xr-x
bacula-backup	[ DIR ]	drwxr-xr-x
bandwidth	[ DIR ]	drwxr-xr-x
bin	[ DIR ]	drwxr-xr-x
bind8	[ DIR ]	drwxr-xr-x
blue-theme	[ DIR ]	drwxr-xr-x
change-user	[ DIR ]	drwxr-xr-x
cluster-copy	[ DIR ]	drwxr-xr-x
cluster-cron	[ DIR ]	drwxr-xr-x
cluster-passwd	[ DIR ]	drwxr-xr-x
cluster-shell	[ DIR ]	drwxr-xr-x
cluster-software	[ DIR ]	drwxr-xr-x
cluster-useradmin	[ DIR ]	drwxr-xr-x
cluster-usermin	[ DIR ]	drwxr-xr-x
cluster-webmin	[ DIR ]	drwxr-xr-x
cpan	[ DIR ]	drwxr-xr-x
cron	[ DIR ]	drwxr-xr-x
custom	[ DIR ]	drwxr-xr-x
dfsadmin	[ DIR ]	drwxr-xr-x
dhcpd	[ DIR ]	drwxr-xr-x
dovecot	[ DIR ]	drwxr-xr-x
exim	[ DIR ]	drwxr-xr-x
exports	[ DIR ]	drwxr-xr-x
fail2ban	[ DIR ]	drwxr-xr-x
fdisk	[ DIR ]	drwxr-xr-x
fetchmail	[ DIR ]	drwxr-xr-x
filemin	[ DIR ]	drwxr-xr-x
filter	[ DIR ]	drwxr-xr-x
firewall	[ DIR ]	drwxr-xr-x
firewall6	[ DIR ]	drwxr-xr-x
firewalld	[ DIR ]	drwxr-xr-x
fsdump	[ DIR ]	drwxr-xr-x
gray-theme	[ DIR ]	drwxr-xr-x
grub	[ DIR ]	drwxr-xr-x
heartbeat	[ DIR ]	drwxr-xr-x
htaccess-htpasswd	[ DIR ]	drwxr-xr-x
idmapd	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
inetd	[ DIR ]	drwxr-xr-x
init	[ DIR ]	drwxr-xr-x
inittab	[ DIR ]	drwxr-xr-x
ipfilter	[ DIR ]	drwxr-xr-x
ipfw	[ DIR ]	drwxr-xr-x
ipsec	[ DIR ]	drwxr-xr-x
iscsi-client	[ DIR ]	drwxr-xr-x
iscsi-server	[ DIR ]	drwxr-xr-x
iscsi-target	[ DIR ]	drwxr-xr-x
iscsi-tgtd	[ DIR ]	drwxr-xr-x
jabber	[ DIR ]	drwxr-xr-x
jailkit	[ DIR ]	drwxr-xr-x
krb5	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
ldap-client	[ DIR ]	drwxr-xr-x
ldap-server	[ DIR ]	drwxr-xr-x
ldap-useradmin	[ DIR ]	drwxr-xr-x
logrotate	[ DIR ]	drwxr-xr-x
logviewer	[ DIR ]	drwxr-xr-x
lpadmin	[ DIR ]	drwxr-xr-x
lvm	[ DIR ]	drwxr-xr-x
mailboxes	[ DIR ]	drwxr-xr-x
mailcap	[ DIR ]	drwxr-xr-x
man	[ DIR ]	drwxr-xr-x
mon	[ DIR ]	drwxr-xr-x
mount	[ DIR ]	drwxr-xr-x
mysql	[ DIR ]	drwxr-xr-x
net	[ DIR ]	drwxr-xr-x
nis	[ DIR ]	drwxr-xr-x
openslp	[ DIR ]	drwxr-xr-x
package-updates	[ DIR ]	drwxr-xr-x
pam	[ DIR ]	drwxr-xr-x
pap	[ DIR ]	drwxr-xr-x
passwd	[ DIR ]	drwxr-xr-x
php-pear	[ DIR ]	drwxr-xr-x
phpini	[ DIR ]	drwxr-xr-x
postfix	[ DIR ]	drwxr-xr-x
postgresql	[ DIR ]	drwxr-xr-x
ppp-client	[ DIR ]	drwxr-xr-x
pptp-client	[ DIR ]	drwxr-xr-x
pptp-server	[ DIR ]	drwxr-xr-x
proc	[ DIR ]	drwxr-xr-x
procmail	[ DIR ]	drwxr-xr-x
proftpd	[ DIR ]	drwxr-xr-x
qmailadmin	[ DIR ]	drwxr-xr-x
quota	[ DIR ]	drwxr-xr-x
raid	[ DIR ]	drwxr-xr-x
ruby-gems	[ DIR ]	drwxr-xr-x
samba	[ DIR ]	drwxr-xr-x
sarg	[ DIR ]	drwxr-xr-x
sendmail	[ DIR ]	drwxr-xr-x
servers	[ DIR ]	drwxr-xr-x
shell	[ DIR ]	drwxr-xr-x
shorewall	[ DIR ]	drwxr-xr-x
shorewall6	[ DIR ]	drwxr-xr-x
smart-status	[ DIR ]	drwxr-xr-x
smf	[ DIR ]	drwxr-xr-x
software	[ DIR ]	drwxr-xr-x
spam	[ DIR ]	drwxr-xr-x
squid	[ DIR ]	drwxr-xr-x
sshd	[ DIR ]	drwxr-xr-x
status	[ DIR ]	drwxr-xr-x
stunnel	[ DIR ]	drwxr-xr-x
syslog	[ DIR ]	drwxr-xr-x
syslog-ng	[ DIR ]	drwxr-xr-x
system-status	[ DIR ]	drwxr-xr-x
tcpwrappers	[ DIR ]	drwxr-xr-x
time	[ DIR ]	drwxr-xr-x
tunnel	[ DIR ]	drwxr-xr-x
unauthenticated	[ DIR ]	drwxr-xr-x
updown	[ DIR ]	drwxr-xr-x
useradmin	[ DIR ]	drwxr-xr-x
usermin	[ DIR ]	drwxr-xr-x
vendor_perl	[ DIR ]	drwxr-xr-x
vgetty	[ DIR ]	drwxr-xr-x
virtual-server	[ DIR ]	drwxr-xr-x
virtualmin-awstats	[ DIR ]	drwxr-xr-x
virtualmin-git	[ DIR ]	drwxr-xr-x
virtualmin-htpasswd	[ DIR ]	drwxr-xr-x
virtualmin-init	[ DIR ]	drwxr-xr-x
virtualmin-registrar	[ DIR ]	drwxr-xr-x
virtualmin-slavedns	[ DIR ]	drwxr-xr-x
virtualmin-sqlite	[ DIR ]	drwxr-xr-x
webalizer	[ DIR ]	drwxr-xr-x
webmin	[ DIR ]	drwxr-xr-x
webmincron	[ DIR ]	drwxr-xr-x
webminlog	[ DIR ]	drwxr-xr-x
wuftpd	[ DIR ]	drwxr-xr-x
xinetd	[ DIR ]	drwxr-xr-x
xterm	[ DIR ]	drwxr-xr-x
LICENCE	1.48 KB	-rw-r--r--
LICENCE.ja	1.62 KB	-rw-r--r--
README.md	4.01 KB	-rw-r--r--
WebminCore.pm	7.78 KB	-rw-r--r--
acl_security.pl	4.51 KB	-rwxr-xr-x
changepass.pl	868 B	-rwxr-xr-x
chooser.cgi	7.21 KB	-rwxr-xr-x
config-aix	227 B	-rw-r--r--
config-cobalt-linux	264 B	-rw-r--r--
config-coherent-linux	264 B	-rw-r--r--
config-corel-linux	264 B	-rw-r--r--
config-debian-linux	264 B	-rw-r--r--
config-freebsd	256 B	-rw-r--r--
config-generic-linux	264 B	-rw-r--r--
config-gentoo-linux	264 B	-rw-r--r--
config-hpux	243 B	-rw-r--r--
config-irix	284 B	-rw-r--r--
config-lib.pl	10.82 KB	-rwxr-xr-x
config-macos	260 B	-rw-r--r--
config-mandrake-linux	278 B	-rw-r--r--
config-msc-linux	264 B	-rw-r--r--
config-netbsd	283 B	-rw-r--r--
config-open-linux	264 B	-rw-r--r--
config-openbsd	241 B	-rw-r--r--
config-openmamba-linux	264 B	-rw-r--r--
config-openserver	236 B	-rw-r--r--
config-osf1	266 B	-rw-r--r--
config-pardus-linux	264 B	-rw-r--r--
config-redhat-linux	264 B	-rw-r--r--
config-slackware-linux	280 B	-rw-r--r--
config-sol-linux	264 B	-rw-r--r--
config-solaris	417 B	-rw-r--r--
config-suse-linux	264 B	-rw-r--r--
config-syno-linux	364 B	-rw-r--r--
config-trustix-linux	264 B	-rw-r--r--
config-turbo-linux	264 B	-rw-r--r--
config-united-linux	264 B	-rw-r--r--
config-unixware	286 B	-rw-r--r--
config-windows	88 B	-rw-r--r--
config.cgi	1.55 KB	-rwxr-xr-x
config_save.cgi	1.64 KB	-rwxr-xr-x
copyconfig.pl	4.33 KB	-rwxr-xr-x
create-module.pl	3.82 KB	-rwxr-xr-x
date_chooser.cgi	2.19 KB	-rwxr-xr-x
defaultacl	98 B	-rw-r--r--
defaulttheme	16 B	-rw-r--r--
entities_map.txt	1.47 KB	-rw-r--r--
fastrpc.cgi	10.59 KB	-rwxr-xr-x
favicon.ico	14.73 KB	-rw-r--r--
feedback.cgi	6.37 KB	-rwxr-xr-x
feedback_form.cgi	3.45 KB	-rwxr-xr-x
group_chooser.cgi	7.36 KB	-rwxr-xr-x
help.cgi	2.94 KB	-rwxr-xr-x
index.cgi	5.61 KB	-rwxr-xr-x
install-module.pl	1.54 KB	-rwxr-xr-x
install-type	4 B	-rw-r--r--
javascript-lib.pl	14.69 KB	-rwxr-xr-x
lang_list.txt	3.41 KB	-rw-r--r--
maketemp.pl	424 B	-rwxr-xr-x
mime.types	12.42 KB	-rw-r--r--
miniserv.pem	2.9 KB	-rw-r--r--
miniserv.pl	178.95 KB	-rwxr-xr-x
module_chooser.cgi	4.14 KB	-rwxr-xr-x
newmods.pl	1.25 KB	-rwxr-xr-x
os_list.txt	34.02 KB	-rw-r--r--
oschooser.pl	4.55 KB	-rwxr-xr-x
pam_login.cgi	2.83 KB	-rwxr-xr-x
password_change.cgi	7 KB	-rwxr-xr-x
password_form.cgi	1.3 KB	-rwxr-xr-x
perlpath.pl	571 B	-rwxr-xr-x
record-failed.pl	503 B	-rwxr-xr-x
record-login.pl	513 B	-rwxr-xr-x
record-logout.pl	516 B	-rwxr-xr-x
robots.txt	26 B	-rw-r--r--
rpc.cgi	4 KB	-rwxr-xr-x
run-postinstalls.pl	1 KB	-rwxr-xr-x
run-uninstalls.pl	1004 B	-rwxr-xr-x
safeacl	44 B	-rw-r--r--
session_login.cgi	3.55 KB	-rwxr-xr-x
setup-repos.sh	4.48 KB	-rwxr-xr-x
setup.bat	3.09 KB	-rw-r--r--
setup.pl	30.26 KB	-rwxr-xr-x
setup.sh	32 KB	-rwxr-xr-x
switch_skill.cgi	293 B	-rwxr-xr-x
switch_user.cgi	404 B	-rwxr-xr-x
thirdparty.pl	1.73 KB	-rwxr-xr-x
ui-lib.pl	82.48 KB	-rwxr-xr-x
update-from-repo.sh	14.8 KB	-rwxr-xr-x
uptracker.cgi	2.88 KB	-rwxr-xr-x
user_chooser.cgi	7.29 KB	-rwxr-xr-x
version	6 B	-rw-r--r--
web-lib-funcs.pl	330.73 KB	-rwxr-xr-x
web-lib.pl	907 B	-rwxr-xr-x
webmin-daemon	80 B	-rw-r--r--
webmin-debian-pam	104 B	-rw-r--r--
webmin-init	1.93 KB	-rwxr-xr-x
webmin-pam	101 B	-rw-r--r--
webmin-search-lib.pl	9.42 KB	-rwxr-xr-x
webmin-systemd	351 B	-rw-r--r--
webmin_search.cgi	2.63 KB	-rwxr-xr-x
xmlrpc.cgi	7.53 KB	-rwxr-xr-x

Code Editor : config-lib.pl

# config-lib.pl
# Common functions for parsing config.info files
# Each module has a number of configurable parameters (stored in the config and
# config-* files in the module directory). Descriptions and possible values for
# each option are stored in the file config.info in the module directory.
# Each line of config.info looks like
# name=desc,type[,options]
#  desc - A description of the parameter
#  type - Possible types (and options) are
#	0 - Free text
#	1 - One of many (options are possibilities)
#	2 - Many of many (options are possibilities)
#	3 - Optional free text
#	4 - Like 1, but uses a pulldown menu
#	5 - User name
#	6 - Group name
#	7 - Directory
#	8 - File
#	9 - Multiline text
#	10 - Like 1, but with free text option
#	11 - Section header
#	12 - Password free text, with don't change option
#	13 - Like 2, but uses a list box
#	14 - Parameter is the name of a function in config_info.pl that
#	     returns an alternate set of config.info values.
#	15 - Parameter is the suffix for a pair of functions with show_
#	     and parse_ prepended.
#	16 - Password free text

# generate_config(&config, info-file, [module], [&can-config], [checkbox-name],
#		  [only-section])
# Prints HTML for 
sub generate_config
{
my ($configref, $file, $module, $canconfig, $cbox, $section) = @_;
my %config = %$configref;

my $auto = $gconfig{"langauto_$remote_user"};
if (!defined($auto)) {
my $glangauto = $gconfig{'langauto'};
if (defined($glangauto)) {
	$auto = $glangauto;
	} 
else {
	my ($clanginfo) = grep { $_->{'lang'} eq $current_lang } &list_languages();
	$auto = $clanginfo->{'auto'};
	}
}

# Read the .info file in the right language
my (%info, @info_order, %einfo, $o);
&read_file($file, \%info, \@info_order);
%einfo = %info;
foreach $o (@lang_order_list) {
	&read_file("$file.$o", \%info, \@info_order);
	&read_file("$file.$o.auto", \%info, \@info_order)
		if ($auto && -r "$file.$o.auto");
	}

# Call any config pre-load function
if (&foreign_defined($module, 'config_pre_load')) {
	&foreign_call($module, "config_pre_load", \%info, \@info_order);
	&foreign_call($module, "config_pre_load", \%einfo);
	}

@info_order = &unique(@info_order);

if ($section) {
	# Limit to settings in one section
	@info_order = &config_in_section($section, \@info_order, \%info);
	}

# Show the parameter editors
foreach my $c (@info_order) {
	my $checkhtml;
	if ($cbox) {
		# Show checkbox to allow configuring
		$checkhtml = &ui_checkbox($cbox, $c, "",
					  !$canconfig || $canconfig->{$c});
		}
	else {
		# Skip those not allowed to be configured
		next if ($canconfig && !$canconfig->{$c});
		}
	my @p = split(/,/, $info{$c});
	my @ep = split(/,/, $einfo{$c});
	if (scalar(@ep) > scalar(@p)) {
		push(@p, @ep[scalar(@p) .. @ep-1]);
		}
	if ($p[1] == 14) {
		$module || &error($text{'config_ewebmin'});
		&foreign_require($module, "config_info.pl");
		my @newp = &foreign_call($module, $p[2], @p);
		$newp[0] ||= $p[0];
		@p = @newp;
		}
	if ($p[1] == 11) {
		# Title row
		print &ui_table_row(undef, "<b>$p[0]</b>", 2, [ undef, $tb ]);
		next;
		}
	if ($p[1] == 16 && $gconfig{'config_16_insecure'}) {
		# Don't allow mode 16
		$p[1] = 12;
		}
	my $label;
	if ($module && -r &help_file($module, "config_$c")) {
		$label = $checkhtml." ".
		         &hlink($p[0], "config_$c", $module);
		}
	else {
		$label = $checkhtml." ".$p[0];
		}
	my $field;
	if ($p[1] == 0) {
		# Text value
		$field = &ui_textbox($c, $config{$c}, $p[2] || 40, 0, $p[3]).
			 " ".$p[4];
		}
	elsif ($p[1] == 1) {
		# One of many
		my $len = 0;
		for(my $i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			$len += length($2);
			}
		my @opts;
		for($i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			push(@opts, [ $1, $2.($len > 50 ? "<br>" : "") ]);
			}
		$field = &ui_radio($c, $config{$c}, \@opts);
		}
	elsif ($p[1] == 2) {
		# Many of many
		my %sel;
		map { $sel{$_}++ } split(/,/, $config{$c});
		for($i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			$field .= &ui_checkbox($c, $1, $2, $sel{$1});
			}
		}
	elsif ($p[1] == 3) {
		# Optional value
		my $none = $p[2] || $text{'config_none'};
		$field = &ui_opt_textbox($c, $config{$c}, $p[3] || 20, $none,
					 $p[6], 0, undef, $p[4])." ".$p[5];
		}
	elsif ($p[1] == 4) {
		# One of many menu
		my @opts;
		for($i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			push(@opts, [ $1, $2 ]);
			}
		$field = &ui_select($c, $config{$c}, \@opts);
		}
	elsif ($p[1] == 5) {
		# User chooser
		if ($p[2]) {
			$field = &ui_radio($c."_def", $config{$c} ? 0 : 1,
					   [ [ 1, $p[2] ], [ 0, " " ] ]);
			}
		if ($p[3]) {
			$field .= &ui_textbox($c, $config{$c}, 30)." ".
				  &user_chooser_button($c, 1);
			}
		else {
			$field .= &unix_user_input($c, $config{$c});
			}
		}
	elsif ($p[1] == 6) {
		# Group chooser
		if ($p[2]) {
			$field = &ui_radio($c."_def", $config{$c} ? 0 : 1,
					   [ [ 1, $p[2] ], [ 0, " " ] ]);
			}
		if ($p[3]) {
			$field .= &ui_textbox($c, $config{$c}, 30)." ".
				  &group_chooser_button($c, 1);
			}
		else {
			$field .= &unix_group_input($c, $config{$c});
			}
		}
	elsif ($p[1] == 7) {
		# Directory chooser
		$field = &ui_textbox($c, $config{$c}, 40)." ".
			 &file_chooser_button($c, 1);
		}
	elsif ($p[1] == 8) {
		# File chooser
		$field = &ui_textbox($c, $config{$c}, 40)." ".
			 &file_chooser_button($c, 0);
		}
	elsif ($p[1] == 9) {
		# Text area
		my $cols = $p[2] || 40;
		my $rows = $p[3] || 5;
		my $sp = $p[4] ? eval "\"$p[4]\"" : " ";
		$field = &ui_textarea($c, join("\n", split(/$sp/, $config{$c})),
				      $rows, $cols);
		}
	elsif ($p[1] == 10) {
		# Radios with freetext option
		my $len = 20;
		for(my $i=2; $i<@p; $i++) {
			if ($p[$i] =~ /^(\S*)\-(.*)$/) {
				$len += length($2);
				}
			else {
				$len += length($p[$i]);
				}
			}
		my $fv = $config{$c};
		my @opts;
		for(my $i=2; $i<@p; $i++) {
			($p[$i] =~ /^(\S*)\-(.*)$/) || next;
			push(@opts, [ $1, $2.($len > 50 ? "<br>" : "") ]);
			$fv = undef if ($config{$c} eq $1);
			}
		push(@opts, [ "free", $p[$#p] !~ /^(\S*)\-(.*)$/ ? $p[$#p]
								 : " " ]);
		$field = &ui_radio($c, $fv ? "free" : $config{$c}, \@opts)." ".
			 &ui_textbox($c."_free", $fv, 20);
		}
	elsif ($p[1] == 12) {
		# Password field
		$field = &ui_radio($c."_nochange", 1,
				   [ [ 1, $text{'config_nochange'} ],
				     [ 0, $text{'config_setto'} ] ])." ".
			 &ui_password($c, undef, $p[2] || 40, 0, $p[3]);
		}
	elsif ($p[1] == 13) {
		# Multiple selections from menu
		my @sel = split(/,/, $config{$c});
		my @opts;
		for($i=2; $i<@p; $i++) {
			$p[$i] =~ /^(\S*)\-(.*)$/;
			push(@opts, [ $1, $2 ]);
			}
		$field = &ui_select($c, \@sel, \@opts, 5, 1);
		}
	elsif ($p[1] == 15) {
		# Input generated by function
		$module || &error($text{'config_ewebmin'});
		&foreign_require($module, "config_info.pl");
		$field = &foreign_call($module, "show_".$p[2],
				       $config{$c}, @p);
		}
	elsif ($p[1] == 16) {
		# Password free text
		$field = &ui_password($c, undef, $p[2] || 40, 0, $p[3]);
		}
	$label = "<a name=$c>$label</a>";
	print &ui_table_row($label, $field, 1, [ "width=30% nowrap" ]);
	}
}

# parse_config(&config, info-file, [module], [&canconfig], [section])
# Updates the specified configuration with values from %in
sub parse_config
{
my ($config, $file, $module, $canconfig, $section) = @_;

# Read the .info file
my (%info, @info_order, $o);
&read_file($file, \%info, \@info_order);
foreach $o (@lang_order_list) {
	&read_file("$file.$o", \%info, \@info_order);
	}
@info_order = &unique(@info_order);

if ($section) {
	# Limit to settings in one section
	@info_order = &config_in_section($section, \@info_order, \%info);
	}

# If config fields are conditional (not displayed)
# make sure to preserve system default values to
# prevent changing behaviour of a module
if (&foreign_exists($module) &&
    &foreign_require($module) &&
    &foreign_defined($module, 'config_pre_load')) {
	&foreign_call($module, "config_pre_load", \%info, \@info_order);
	}

# Actually parse the inputs
foreach my $c (@info_order) {
	next if ($canconfig && !$canconfig->{$c});
	my @p = split(/,/, $info{$c});
	if ($p[1] == 14) {
		$_[2] || &error($text{'config_ewebmin'});
		&foreign_require($_[2], "config_info.pl");
		my @newp = &foreign_call($_[2], $p[2]);
		$newp[0] ||= $p[0];
		@p = @newp;
		}
	if ($p[1] == 16 && $gconfig{'config_16_insecure'}) {
		# Don't allow mode 16
		$p[1] = 12;
		}
	if ($p[1] == 0 || $p[1] == 7 || $p[1] == 8 || $p[1] == 16) {
		# Free text input
		$config->{$c} = $in{$c};
		}
	elsif ($p[1] == 1 || $p[1] == 4) {
		# One of many
		$config->{$c} = $in{$c};
		}
	elsif ($p[1] == 5 || $p[1] == 6) {
		# User or group
		$config->{$c} = ($p[2] && $in{$c."_def"} ? "" : $in{$c});
		}
	elsif ($p[1] == 2 || $p[1] == 13) {
		# Many of many
		$in{$c} =~ s/\0/,/g;
		$config->{$c} = $in{$c};
		}
	elsif ($p[1] == 3) {
		# Optional free text
		if ($in{$c."_def"}) { $config->{$c} = ""; }
		else { $config->{$c} = $in{$c}; }
		}
	elsif ($p[1] == 9) {
		# Multilines of free text
		my $sp = $p[4] ? eval "\"$p[4]\"" : " ";
		$in{$c} =~ s/\r//g;
		$in{$c} =~ s/\n/$sp/g;
		$in{$c} =~ s/\s+$//;
		$config->{$c} = $in{$c};
		}
	elsif ($p[1] == 10) {
		# One of many or free text
		if ($in{$c} eq 'free') {
			$config->{$c} = $in{$c.'_free'};
			}
		else {
			$config->{$c} = $in{$c};
			}
		}
	elsif ($p[1] == 12) {
		# Optionally changed password
		if (!$in{"${c}_nochange"}) {
			$config->{$c} = $in{$c};
			}
		}
	elsif ($p[1] == 15) {
		# Parse custom HTML field
		$_[2] || &error($text{'config_ewebmin'});
		&foreign_require($_[2], "config_info.pl");
		$config->{$c} = &foreign_call($_[2], "parse_".$p[2],
					    $config->{$c}, @p);
		}
	}
}

# config_in_section(&section, &order, &config-info)
# Returns a list of config names that are in some section
sub config_in_section
{
my ($section, $info_order, $info) = @_;
my @new_order = ( );
my $in_section = 0;
foreach my $c (@$info_order) {
	my @p = split(/,/, $info->{$c});
	if ($p[1] == 11 && $c eq $section) {
		$in_section = 1;
		}
	elsif ($p[1] == 11 && $c ne $section) {
		$in_section = 0;
		}
	elsif ($in_section) {
		push(@new_order, $c);
		}
	}
return @new_order;
}

# save_module_preferences(module, &config)
# Check which user preferences can be save for
# given module based on module's prefs.info file
sub save_module_preferences
{
my ($module, $curr_config) = @_;
my $module_dir = &module_root_directory($module);
my $module_prefs_conf = "$module_dir/prefs.info";
if (-r $module_prefs_conf) {
	my %module_prefs_conf_allowed;
	&read_file($module_prefs_conf, \%module_prefs_conf_allowed);
	mkdir("$config_directory/$module", 0700);
	my $user_prefs_file = "$config_directory/$module/prefs.$remote_user";
	&lock_file($user_prefs_file);
	if ($module_prefs_conf_allowed{'allowed'} eq "*") {
		&write_file($user_prefs_file, \%$curr_config);
		}
	else {
		my %newconfigtmp;
		foreach my $key (keys %{$curr_config}) {
			if (grep(/^$key$/, split(",", $module_prefs_conf_allowed{'allowed'}))) {
				$newconfigtmp->{$key} = $curr_config->{$key};
				}
			}
		&write_file($user_prefs_file, \%$newconfigtmp);
		}
	&unlock_file($user_prefs_file);
	}
}

${this.title}

Code Editor : config-lib.pl