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.04 KB	-rw-r--r--
apply.cgi	233 B	-rwxr-xr-x
backup_config.pl	892 B	-rwxr-xr-x
cgi_args.pl	264 B	-rwxr-xr-x
config	202 B	-rw-r--r--
config-Ubuntu-Linux-10.10-ALL	256 B	-rw-r--r--
config-coherent-linux	276 B	-rw-r--r--
config-debian-linux-2.2-ALL	264 B	-rw-r--r--
config-macos	194 B	-rw-r--r--
config-macos-8.1-ALL	183 B	-rw-r--r--
config-mandrake-linux-7.1-ALL	258 B	-rw-r--r--
config-open-linux-3.1	276 B	-rw-r--r--
config-openmamba-linux	276 B	-rw-r--r--
config-pardus-linux	235 B	-rw-r--r--
config-redhat-linux-24.0-ALL	278 B	-rw-r--r--
config-redhat-linux-7.0-23.0	258 B	-rw-r--r--
config-slackware-linux-8.0-ALL	268 B	-rw-r--r--
config-sol-linux	274 B	-rw-r--r--
config-solaris-10-ALL	344 B	-rw-r--r--
config-solaris-9	205 B	-rw-r--r--
config-suse-linux-7.1-8.0	266 B	-rw-r--r--
config-suse-linux-8.2-ALL	271 B	-rw-r--r--
config-syno-linux	342 B	-rw-r--r--
config-trustix-linux	303 B	-rw-r--r--
config-turbo-linux-7.0	276 B	-rw-r--r--
config-united-linux	266 B	-rw-r--r--
config-windows	267 B	-rw-r--r--
config.info	479 B	-rw-r--r--
config.info.bg	579 B	-rw-r--r--
config.info.bg.UTF-8	909 B	-rw-r--r--
config.info.ca	564 B	-rw-r--r--
config.info.ca.UTF-8	577 B	-rw-r--r--
config.info.cz	516 B	-rw-r--r--
config.info.cz.UTF-8	555 B	-rw-r--r--
config.info.de	598 B	-rw-r--r--
config.info.de.UTF-8	598 B	-rw-r--r--
config.info.es	369 B	-rw-r--r--
config.info.es.UTF-8	372 B	-rw-r--r--
config.info.eu	597 B	-rw-r--r--
config.info.eu.UTF-8	597 B	-rw-r--r--
config.info.fa	576 B	-rw-r--r--
config.info.fr	667 B	-rw-r--r--
config.info.fr.UTF-8	667 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.it	576 B	-rw-r--r--
config.info.it.UTF-8	576 B	-rw-r--r--
config.info.ja_JP.UTF-8	558 B	-rw-r--r--
config.info.ja_JP.euc	436 B	-rw-r--r--
config.info.ko_KR.UTF-8	498 B	-rw-r--r--
config.info.ko_KR.euc	408 B	-rw-r--r--
config.info.nl	598 B	-rw-r--r--
config.info.nl.UTF-8	598 B	-rw-r--r--
config.info.no	515 B	-rw-r--r--
config.info.no.UTF-8	515 B	-rw-r--r--
config.info.pl	577 B	-rw-r--r--
config.info.pl.UTF-8	595 B	-rw-r--r--
config.info.ru.UTF-8	488 B	-rw-r--r--
config.info.ru_RU	323 B	-rw-r--r--
config.info.ru_RU.UTF-8	488 B	-rw-r--r--
config.info.ru_SU	323 B	-rw-r--r--
config.info.sk	473 B	-rw-r--r--
config.info.sk.UTF-8	498 B	-rw-r--r--
config.info.uk_UA	340 B	-rw-r--r--
config.info.uk_UA.UTF-8	504 B	-rw-r--r--
edit_access.cgi	2.25 KB	-rwxr-xr-x
edit_host.cgi	5.81 KB	-rwxr-xr-x
edit_keys.cgi	1.38 KB	-rwxr-xr-x
edit_manual.cgi	879 B	-rwxr-xr-x
edit_misc.cgi	3.32 KB	-rwxr-xr-x
edit_net.cgi	3.84 KB	-rwxr-xr-x
edit_sync.cgi	934 B	-rwxr-xr-x
edit_users.cgi	6.06 KB	-rwxr-xr-x
index.cgi	2.61 KB	-rwxr-xr-x
install_check.pl	370 B	-rwxr-xr-x
list_hosts.cgi	707 B	-rwxr-xr-x
log_parser.pl	612 B	-rwxr-xr-x
module.info	127 B	-rw-r--r--
module.info.bg	19 B	-rw-r--r--
module.info.bg.UTF-8	31 B	-rw-r--r--
module.info.ca	91 B	-rw-r--r--
module.info.ca.UTF-8	103 B	-rw-r--r--
module.info.cz	19 B	-rw-r--r--
module.info.cz.UTF-8	25 B	-rw-r--r--
module.info.de	93 B	-rw-r--r--
module.info.de.UTF-8	105 B	-rw-r--r--
module.info.es	21 B	-rw-r--r--
module.info.es.UTF-8	27 B	-rw-r--r--
module.info.eu	24 B	-rw-r--r--
module.info.eu.UTF-8	30 B	-rw-r--r--
module.info.fr	20 B	-rw-r--r--
module.info.fr.UTF-8	26 B	-rw-r--r--
module.info.hu	30 B	-rw-r--r--
module.info.hu.UTF-8	36 B	-rw-r--r--
module.info.it	19 B	-rw-r--r--
module.info.it.UTF-8	25 B	-rw-r--r--
module.info.ja_JP.UTF-8	31 B	-rw-r--r--
module.info.ja_JP.euc	26 B	-rw-r--r--
module.info.ko_KR.UTF-8	28 B	-rw-r--r--
module.info.ko_KR.euc	24 B	-rw-r--r--
module.info.ms_MY	100 B	-rw-r--r--
module.info.ms_MY.UTF-8	112 B	-rw-r--r--
module.info.nl	19 B	-rw-r--r--
module.info.nl.UTF-8	25 B	-rw-r--r--
module.info.no	19 B	-rw-r--r--
module.info.no.UTF-8	25 B	-rw-r--r--
module.info.pl	21 B	-rw-r--r--
module.info.pl.UTF-8	27 B	-rw-r--r--
module.info.ru.UTF-8	31 B	-rw-r--r--
module.info.ru_RU	22 B	-rw-r--r--
module.info.ru_RU.UTF-8	34 B	-rw-r--r--
module.info.ru_SU	22 B	-rw-r--r--
module.info.sk	19 B	-rw-r--r--
module.info.sk.UTF-8	25 B	-rw-r--r--
save_access.cgi	1.87 KB	-rwxr-xr-x
save_host.cgi	4.69 KB	-rwxr-xr-x
save_manual.cgi	542 B	-rwxr-xr-x
save_misc.cgi	2.5 KB	-rwxr-xr-x
save_net.cgi	2.9 KB	-rwxr-xr-x
save_sync.cgi	493 B	-rwxr-xr-x
save_users.cgi	3.78 KB	-rwxr-xr-x
sshd-lib.pl	8.5 KB	-rwxr-xr-x
start.cgi	209 B	-rwxr-xr-x
stop.cgi	193 B	-rwxr-xr-x
useradmin_update.pl	1.32 KB	-rwxr-xr-x

Code Editor : edit_host.cgi

#!/usr/bin/perl
# edit_host.cgi
# Display options for a new or existing host config

require (-r 'sshd-lib.pl' ? './sshd-lib.pl' : './ssh-lib.pl');
&ReadParse();
if ($in{'new'}) {
	&ui_print_header(undef, $text{'host_create'}, "", "chost");
	}
else {
	&ui_print_header(undef, $text{'host_edit'}, "", "ehost");
	$hconf = &get_client_config();
	$host = $hconf->[$in{'idx'}];
	$conf = $host->{'members'};
	}

# Get version and type
if (&get_product_name() eq 'usermin') {
	$version_type = &get_ssh_type();
	$version_number = &get_ssh_version();
	}
else {
	$version_type = $version{'type'};
	$version_number = $version{'number'};
	}

print &ui_form_start("save_host.cgi", "post");
print &ui_hidden("idx", $in{'idx'});
print &ui_hidden("new", $in{'new'});
print &ui_table_start($text{'host_header'}, "width=100%", 2);

# Name for this host
print &ui_table_row($text{'host_name'},
	&ui_opt_textbox("name", $host->{'values'}->[0] eq '*' ? '' :
				 $host->{'values'}->[0],
			50, $text{'hosts_all'}));

# Default user to login as
$user = &find_value("User", $conf);
print &ui_table_row($text{'host_user'},
	&ui_opt_textbox("user", $user, 20, $text{'host_user_def'}));

# Send keep-alive packets?
$keep = &find_value("KeepAlive", $conf);
print &ui_table_row($text{'host_keep'},
	&yes_no_default_radio("keep", $keep));

# Real hostname to connect to
$hostname = &find_value("HostName", $conf);
print &ui_table_row($text{'host_hostname'},
	&ui_opt_textbox("hostname", $hostname, 30, $text{'host_hostname_def'}));

# Port to use
$port = &find_value("Port", $conf);
print &ui_table_row($text{'host_port'},
	&ui_opt_textbox("port", $port, 6, $text{'default'}." (22)"));

# Ask for password if needed, or fail fast?
$batch = &find_value("BatchMode", $conf);
print &ui_table_row($text{'host_batch'},
	&yes_no_default_radio("batch", $batch));

# Compress SSH?
$comp = &find_value("Compression", $conf);
print &ui_table_row($text{'host_comp'},
	&yes_no_default_radio("comp", $comp));

# Escape character in session
$escape = &find_value("EscapeChar", $conf);
print &ui_table_row($text{'host_escape'},
	&ui_radio("escape_def", $escape eq "" ? 1 :
				$escape eq "none" ? 2 : 0,
		  [ [ 1, $text{'default'}." (~.)" ],
		    [ 2, $text{'host_escape_none'} ],
		    [ 0, &ui_textbox("escape",
				$escape eq "none" ? "" : $escape, 4) ] ]));

if ($version_type ne 'ssh' || $version_number < 3) {
	# SSH compression level
	$clevel = &find_value("CompressionLevel", $conf);
	print &ui_table_row($text{'host_clevel'},
		&ui_radio("clevel_def", $clevel ? 0 : 1,
		  [ [ 1, $text{'default'} ],
		    [ 0, &ui_select("clevel", $clevel,
			   [ map { [ $_, $text{"host_clevel_".$_} ] }
				 (1 .. 9) ]) ] ]));

# Number of times to attempt connection
	$attempts = &find_value("ConnectionAttempts", $conf);
	print &ui_table_row($text{'host_attempts'},
		&ui_opt_textbox("attempts", $attempts, 5, $text{'default'}));

# Use local privileged port?
	$priv = &find_value("UsePrivilegedPort", $conf);
	print &ui_table_row($text{'host_priv'},
		&yes_no_default_radio("priv", $priv));

# Try RSH if SSH fails?
	$rsh = &find_value("FallBackToRsh", $conf);
	print &ui_table_row($text{'host_rsh'},
		 &yes_no_default_radio("rsh", $rsh));

# Use RSH only?
	$usersh = &find_value("UseRsh", $conf);
	print &ui_table_row($text{'host_usersh'},
		&yes_no_default_radio("usersh", $usersh));
	}

# Forward SSH agent?
$agent = &find_value("ForwardAgent", $conf);
print &ui_table_row($text{'host_agent'},
	&yes_no_default_radio('agent', $agent));

# Forward X connection?
$x11 = &find_value("ForwardX11", $conf);
print &ui_table_row($text{'host_x11'},
	&yes_no_default_radio('x11', $x11));

# Strictly check host keys?
$strict = &find_value("StrictHostKeyChecking", $conf);
print &ui_table_row($text{'host_strict'},
	&ui_radio('strict', lc($strict) eq 'no' ? 0 :
			    lc($strict) eq 'yes' ? 1 :
			    lc($strict) eq 'ask' ? 3 : 2,
		  [ [ 0, $text{'yes'} ], [ 1, $text{'no'} ],
		    [ 3, $text{'host_ask'} ], [ 2, $text{'default'} ] ]));

if ($version_type eq 'openssh') {
	# Double-check remote host IP?
	$checkip = &find_value("CheckHostIP", $conf);
	print &ui_table_row($text{'host_checkip'},
		&yes_no_default_radio('checkip', $checkip));

# SSH protocols to try
	$prots = &find_value("Protocol", $conf);
	print &ui_table_row($text{'host_prots'},
		&ui_select("prots", $prots,
			   [ [ '', $text{'default'} ],
			     [ 1, $text{'host_prots1'} ],
			     [ 2, $text{'host_prots2'} ],
			     [ '1,2', $text{'host_prots12'} ],
			     [ '2,1', $text{'host_prots21'} ] ], 1, 0, 1));
	}

print &ui_table_hr();

# Local ports to forward
@lforward = &find("LocalForward", $conf);
@ltable = ( );
$i = 0;
foreach $l (@lforward, { }) {
	local ($lp, $rh, $rp) = ( $l->{'values'}->[0],
				  split(/:/, $l->{'values'}->[1]) );
	push(@ltable, [ &ui_textbox("llport_$i", $lp, 8),
			&ui_textbox("lrhost_$i", $rh, 8),
			&ui_textbox("lrport_$i", $rp, 8) ]);
	$i++;
	}
print &ui_table_row($text{'host_lforward'},
	&ui_columns_table([ $text{'host_llport'}, $text{'host_lrhost'},
			    $text{'host_lrport'} ],
			  50, \@ltable));

print &ui_table_hr();

# Remote ports to forward
@rforward = &find("RemoteForward", $conf);
@rtable = ( );
$i = 0;
foreach $r (@rforward, { }) {
	local ($rp, $lh, $lp) = ( $r->{'values'}->[0],
				  split(/:/, $r->{'values'}->[1]) );
	push(@rtable, [ &ui_textbox("rrport_$i", $rp, 8),
			&ui_textbox("rlhost_$i", $lh, 40),
			&ui_textbox("rlport_$i", $lp, 8) ]);
	$i++;
	}
print &ui_table_row($text{'host_rforward'},
        &ui_columns_table([ $text{'host_rrport'}, $text{'host_rlhost'},
                            $text{'host_rlport'} ],
                          50, \@rtable));

print &ui_table_end();
if ($in{'new'}) {
	print &ui_form_end([ [ undef, $text{'create'} ] ]);
	}
else {
	print &ui_form_end([ [ undef, $text{'save'} ],
			     [ 'delete', $text{'delete'} ] ]);
	}

&ui_print_footer("list_hosts.cgi", $text{'hosts_return'},
		 "", $text{'index_return'});

${this.title}

Code Editor : edit_host.cgi