Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.1 KB	-rw-r--r--
atboot.cgi	483 B	-rwxr-xr-x
browser.cgi	2.29 KB	-rwxr-xr-x
check.cgi	2.93 KB	-rwxr-xr-x
config-ALL-linux	79 B	-rw-r--r--
config-CentOS-Linux-6.0-ALL	66 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	66 B	-rw-r--r--
config-Scientific-Linux-6.0-AL...	66 B	-rw-r--r--
config-debian-linux-3.1	100 B	-rw-r--r--
config-debian-linux-4.0-5.9	65 B	-rw-r--r--
config-debian-linux-6.0-6.9	128 B	-rw-r--r--
config-debian-linux-7.0-ALL	65 B	-rw-r--r--
config-pardus-linux	74 B	-rw-r--r--
config-redhat-linux-13.0-ALL	89 B	-rw-r--r--
config.info	556 B	-rw-r--r--
config.info.ca	717 B	-rw-r--r--
config.info.ca.UTF-8	732 B	-rw-r--r--
config.info.de	597 B	-rw-r--r--
config.info.de.UTF-8	597 B	-rw-r--r--
config.info.nl	473 B	-rw-r--r--
config.info.nl.UTF-8	473 B	-rw-r--r--
config.info.no	532 B	-rw-r--r--
config.info.no.UTF-8	532 B	-rw-r--r--
config.info.pt_BR	691 B	-rw-r--r--
config.info.pt_BR.UTF-8	691 B	-rw-r--r--
cpan_modules.pl	82 B	-rwxr-xr-x
edit_base.cgi	2.47 KB	-rwxr-xr-x
edit_pam.cgi	1.36 KB	-rwxr-xr-x
edit_server.cgi	3.27 KB	-rwxr-xr-x
edit_switch.cgi	1.74 KB	-rwxr-xr-x
fixpam.cgi	364 B	-rwxr-xr-x
index.cgi	2.36 KB	-rwxr-xr-x
install_check.pl	334 B	-rwxr-xr-x
ldap-client-lib.pl	11.53 KB	-rwxr-xr-x
list_switches.cgi	772 B	-rwxr-xr-x
log_parser.pl	461 B	-rwxr-xr-x
module.info	158 B	-rw-r--r--
module.info.ca	97 B	-rw-r--r--
module.info.ca.UTF-8	109 B	-rw-r--r--
module.info.de	103 B	-rw-r--r--
module.info.de.UTF-8	115 B	-rw-r--r--
module.info.ms_MY	109 B	-rw-r--r--
module.info.ms_MY.UTF-8	121 B	-rw-r--r--
module.info.nl	20 B	-rw-r--r--
module.info.nl.UTF-8	26 B	-rw-r--r--
module.info.no	20 B	-rw-r--r--
module.info.no.UTF-8	26 B	-rw-r--r--
module.info.pt_BR	24 B	-rw-r--r--
module.info.pt_BR.UTF-8	30 B	-rw-r--r--
popup_browser.cgi	2.73 KB	-rwxr-xr-x
restart.cgi	329 B	-rwxr-xr-x
save_base.cgi	1.86 KB	-rwxr-xr-x
save_pam.cgi	1.31 KB	-rwxr-xr-x
save_server.cgi	3.53 KB	-rwxr-xr-x
save_switch.cgi	932 B	-rwxr-xr-x
start.cgi	282 B	-rwxr-xr-x
stop.cgi	254 B	-rwxr-xr-x
switch-lib.pl	3.08 KB	-rwxr-xr-x

Code Editor : edit_server.cgi

#!/usr/bin/perl
# Show a form for editing the LDAP server to connect to

require './ldap-client-lib.pl';
&ui_print_header(undef, $text{'server_title'}, "", "server");

$conf = &get_config();
print &ui_form_start("save_server.cgi", "post");
print &ui_table_start($text{'server_header'}, "width=100%", 2);

$uri = &find_svalue("uri", $conf);
if ($uri) {
	# Show LDAP servers as URIs
	$utable = &ui_columns_start([
			$text{'server_uhost'},
			$text{'server_uport'},
			$text{'server_uproto'} ]);
	$i = 0;
	foreach $u (split(/\s+/, $uri), undef) {
		local ($proto, $host, $port);
		if ($u =~ /^(ldap|ldaps|ldapi):\/\/([a-z0-9\_\-\.]+)(:(\d+))?/) {
			($proto, $host, $port) = ($1, $2, $4);
			}
		$utable .= &ui_columns_row([
		    &ui_textbox("uhost_$i", $host, 20),
		    &ui_opt_textbox("uport_$i", $port, 5, $text{'default'}),
		    &ui_select("uproto_$i", $proto,
			       [ [ 'ldap', $text{'server_ldap'} ],
				 [ 'ldaps', $text{'server_ldaps'} ],
				 [ 'ldapi', $text{'server_ldapi'} ] ]),
		    ]);
		$i++;
		}
	$utable .= &ui_columns_end();
	print &ui_table_row($text{'server_uri'}, $utable);
	}
else {
	# Show LDAP servers from host and port
	print &ui_table_row($text{'server_host'},
		&ui_textarea("host", join("\n", split(/\s+/,
				  &find_svalue("host", $conf))), 3, 50));

print &ui_table_row($text{'server_port'},
		&ui_opt_textbox("port", &find_svalue("port", $conf), 5,
				$text{'default'}));
	}

print &ui_table_row($text{'server_version'},
	&ui_radio("version", &find_svalue("ldap_version", $conf),
		  [ [ "", $text{'default'} ],
		    [ 1, "V1" ], [ 2, "V2" ], [ 3, "V3" ] ]));

print &ui_table_row($text{'server_timelimit'},
	&ui_opt_textbox("timelimit", &find_svalue("bind_timelimit", $conf), 5,
		 	$text{'default'})." ".$text{'base_secs'});

print &ui_table_row($text{'server_binddn'},
	&ui_opt_textbox("binddn", &find_svalue("binddn", $conf), 40,
			$text{'server_anon'}));

print &ui_table_row($text{'server_bindpw'},
	&ui_opt_textbox("bindpw", &find_svalue("bindpw", $conf), 20,
			$text{'server_none'}));

my $rootbindbn = &find_svalue("rootpwmoddn", $conf, 2) ?
			&find_svalue("rootpwmoddn", $conf) :
			&find_svalue("rootbinddn", $conf);
print &ui_table_row($text{'server_rootbinddn'},
	&ui_opt_textbox("rootbinddn", $rootbindbn, 40, $text{'server_same'}));

my $rootsecret = &find_svalue("rootpwmoddn", $conf, 2) ?
			&find_svalue("rootpwmodpw", $conf) :
			&get_rootbinddn_secret();
print &ui_table_row($text{'server_rootbindpw'},
	&ui_opt_textbox("rootbindpw", $rootsecret, 20,
			$text{'server_none'}));

# SSL options
print &ui_table_hr();

$ssl = &find_svalue("ssl", $conf);
$ssl = "" if ($ssl eq "no");
print &ui_table_row($text{'server_ssl'},
	&ui_radio("ssl", &find_svalue("ssl", $conf),
		  [ [ "yes", $text{'yes'} ],
		    [ "start_tls", $text{'server_tls'} ],
		    [ "", $text{'no'} ] ]));

print &ui_table_row($text{'server_peer'},
	&ui_radio("peer", &find_svalue("tls_checkpeer", $conf),
		  [ [ "", &text('server_def', $text{'no'}) ],
		    [ "yes", $text{'yes'} ],
		    [ "no", $text{'no'} ] ]));

print &ui_table_row($text{'server_cacert'},
	&ui_opt_textbox("cacert", &find_svalue("tls_cacertfile", $conf),
			40, $text{'server_none'})." ".
	&file_chooser_button("cacert"));

print &ui_table_end();
print &ui_form_end([ [ "save", $text{'save'} ] ]);

&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : edit_server.cgi