Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	793 B	-rw-r--r--	2026-07-19 16:26
delete_knowns.cgi	355 B	-rwxr-xr-x	2026-07-19 16:28
download_key.cgi	312 B	-rwxr-xr-x	2026-07-19 16:28
edit_auth.cgi	2.63 KB	-rwxr-xr-x	2026-07-19 16:28
edit_host.cgi	6.05 KB	-rwxr-xr-x	2026-07-19 16:28
edit_key.cgi	1.24 KB	-rwxr-xr-x	2026-07-19 16:28
edit_known.cgi	2.18 KB	-rwxr-xr-x	2026-07-19 16:28
index.cgi	1.25 KB	-rwxr-xr-x	2026-07-19 16:28
list_auths.cgi	899 B	-rwxr-xr-x	2026-07-19 16:28
list_hosts.cgi	718 B	-rwxr-xr-x	2026-07-19 16:28
list_keys.cgi	1.29 KB	-rwxr-xr-x	2026-07-19 16:28
list_knowns.cgi	1.22 KB	-rwxr-xr-x	2026-07-19 16:28
module.info	179 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	191 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	258 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	29 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	122 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	24 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	121 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	144 B	-rw-r--r--	2026-07-19 16:26
module.info.de	145 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	318 B	-rw-r--r--	2026-07-19 16:26
module.info.es	0 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	153 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	152 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	202 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	160 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	159 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	147 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	27 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	142 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	143 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	145 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	25 B	-rw-r--r--	2026-07-19 16:26
module.info.nl.auto	117 B	-rw-r--r--	2026-07-19 16:26
module.info.no	26 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	118 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	138 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	148 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	154 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	252 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	152 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	146 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	180 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	239 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	109 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	115 B	-rw-r--r--	2026-07-19 16:26
save_auth.cgi	1.82 KB	-rwxr-xr-x	2026-07-19 16:28
save_host.cgi	5.38 KB	-rwxr-xr-x	2026-07-19 16:28
save_key.cgi	909 B	-rwxr-xr-x	2026-07-19 16:28
save_known.cgi	1.09 KB	-rwxr-xr-x	2026-07-19 16:28
setup.cgi	695 B	-rwxr-xr-x	2026-07-19 16:28
ssh-lib.pl	9.5 KB	-rwxr-xr-x	2026-07-19 16:26

Rename

#!/usr/bin/perl
# save_host.cgi
# Create, update or delete a client host

require (-r 'sshd-lib.pl' ? './sshd-lib.pl' : './ssh-lib.pl');
&ReadParse();
&lock_file($config{'client_config'});
$hconf = &get_client_config();
&error_setup($text{'host_err'});

# 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'};
	}

if ($in{'delete'}) {
	# Just delete the host
	$host = $hconf->[$in{'idx'}];
	&delete_host($host);
	}
else {
	# Saving or creating a host
	$host = $hconf->[$in{'idx'}] if (!$in{'new'});
	if ($in{'name_def'}) {
		$host->{'values'} = [ '*' ];
		}
	else {
		$in{'name'} =~ /^\S+$/ || &error($text{'host_ename'});
		$host->{'values'} = [ $in{'name'} ];
		}
	if ($in{'new'}) {
		# Create empty host structure
		&create_host($host);
		}
	else {
		&modify_host($host);
		}
	$conf = $host->{'members'};

# Validate and store host options
	if ($in{'user_def'}) {
		&save_directive("User", $conf);
		}
	else {
		$in{'user'} =~ /^\S+$/ || &error($text{'host_euser'});
		&save_directive("User", $conf, $in{'user'});
		}
	my $keep_now = $in{'keep'} == 2 ? undef : $in{'keep'};
	if ($version_number >= 3.8) {
		if (!defined($keep_now)) {
			# Default
			&save_directive("ServerAliveInterval", $conf, undef);
			&save_directive("ServerAliveCountMax", $conf, undef);
			}
		elsif ($keep_now == 1) {
			# Enabled
			&save_directive("ServerAliveInterval", $conf, 60);
			&save_directive("ServerAliveCountMax", $conf, 3);
			}
		else {
			# Disabled
			&save_directive("ServerAliveInterval", $conf, 0);
			&save_directive("ServerAliveCountMax", $conf, undef);
			}
		}
	else {
		&save_directive("KeepAlive", $conf,
			$in{'keep'} == 2 ? undef : $in{'keep'} ? 'yes' : 'no');
		}

if ($in{'hostname_def'}) {
		&save_directive("HostName", $conf);
		}
	else {
		&to_ipaddress($in{'hostname'}) ||
		    &to_ip6address($in{'hostname'}) ||
			&error($text{'host_ehostname'});
		&save_directive("HostName", $conf, $in{'hostname'});
		}

&save_directive("BatchMode", $conf,
		$in{'batch'} == 2 ? undef : $in{'batch'} ? 'yes' : 'no');

if ($in{'port_def'}) {
		&save_directive("Port", $conf);
		}
	else {
		$in{'port'} =~ /^\d+$/ || &error($text{'host_eport'});
		&save_directive("Port", $conf, $in{'port'});
		}

if ($version_type ne 'ssh' || $version_number < 3) {
		&save_directive("Compression", $conf,
			$in{'comp'} == 2 ? undef : $in{'comp'} ? 'yes' : 'no');
		}

if ($in{'escape_def'} == 1) {
		&save_directive("EscapeChar", $conf);
		}
	elsif ($in{'escape_def'} == 2) {
		&save_directive("EscapeChar", $conf, "none");
		}
	else {
		$in{'escape'} =~ /^\S$/ || $in{'escape'} =~ /^\^\S$/ ||
			 &error($text{'host_eescape'});
		&save_directive("EscapeChar", $conf, $in{'escape'});
		}

if ($version_type ne 'ssh' || $version_number < 3) {
		if ($version_number < 6) {
			if ($in{'clevel_def'}) {
				&save_directive("CompressionLevel", $conf);
				}
			else {
				&save_directive("CompressionLevel", $conf,
						$in{'clevel'});
				}
			}

if ($in{'attempts_def'}) {
			&save_directive("ConnectionAttempts", $conf);
			}
		else {
			$in{'attempts'} =~ /^\d+$/ ||
				&error($text{'host_eattempts'});
			&save_directive("ConnectionAttempts", $conf,
					$in{'attempts'});
			}
		if ($version_number < 7.4) {
			&save_directive("UsePrivilegedPort", $conf,
				$in{'priv'} == 2 ? undef :
					$in{'priv'} ? 'yes' : 'no');
			}
		if ($version_number < 6) {
			&save_directive("FallBackToRsh", $conf,
				$in{'rsh'} == 2 ? undef :
					$in{'rsh'} ? 'yes' : 'no');
			&save_directive("UseRsh", $conf,
				$in{'usersh'} == 2 ? undef :
					$in{'usersh'} ? 'yes' : 'no');
			}

}

&save_directive("ForwardAgent", $conf,
		$in{'agent'} == 2 ? undef : $in{'agent'} ? 'yes' : 'no');

&save_directive("ForwardX11", $conf,
		$in{'x11'} == 2 ? undef : $in{'x11'} ? 'yes' : 'no');

&save_directive("StrictHostKeyChecking", $conf,
		$in{'strict'} == 2 ? undef : $in{'strict'} == 1 ? 'yes' :
		$in{'strict'} == 0 ? 'no' : 'ask');

if ($version_type eq 'openssh') {
		&save_directive("CheckHostIP", $conf,
		  $in{'checkip'} == 2 ? undef : $in{'checkip'} ? 'yes' : 'no');

&save_directive("Protocol", $conf, $in{'prots'} || undef)
			if ($version_number < 7.4);
		}

for($i=0; defined($in{"llport_$i"}); $i++) {
		next if (!$in{"llport_$i"} && !$in{"lrhost_$i"} &&
			 !$in{"lrport_$i"});
		$in{"llport_$i"} =~ /^\d+$/ || &error($text{'host_elport'});
		$in{"lrhost_$i"} =~ /^\S+$/ || &error($text{'host_erhost'});
		$in{"lrport_$i"} =~ /^\d+$/ || &error($text{'host_erport'});
		push(@lforward, sprintf("%d %s:%d", $in{"llport_$i"},
				 	$in{"lrhost_$i"}, $in{"lrport_$i"}));
		}
	&save_directive("LocalForward", $conf, @lforward);

for($i=0; defined($in{"rrport_$i"}); $i++) {
		next if (!$in{"rrport_$i"} && !$in{"rlhost_$i"} &&
			 !$in{"rlport_$i"});
		$in{"rrport_$i"} =~ /^\d+$/ || &error($text{'host_erport'});
		$in{"rlhost_$i"} =~ /^\S+$/ || &error($text{'host_elhost'});
		$in{"rlport_$i"} =~ /^\d+$/ || &error($text{'host_elport'});
		push(@rforward, sprintf("%d %s:%d", $in{"rrport_$i"},
				 	$in{"rlhost_$i"}, $in{"rlport_$i"}));
		}
	&save_directive("RemoteForward", $conf, @rforward);
	}

&flush_file_lines();
&unlock_file($config{'client_config'});
if (&get_product_name() ne 'usermin') {
	&webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "update",
		    "host", $host->{'values'}->[0]);
	}
&redirect("list_hosts.cgi");