From 0ed57d370d5fa183f573c54167d57b4cd909eea1 Mon Sep 17 00:00:00 2001 From: Dan Fandrich Date: Mon, 17 Sep 2007 21:39:34 +0000 Subject: Allow setting the IP address on which to listen for connections. --- tests/sshserver.pl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'tests/sshserver.pl') diff --git a/tests/sshserver.pl b/tests/sshserver.pl index d6802ea38..bdff5a9bb 100644 --- a/tests/sshserver.pl +++ b/tests/sshserver.pl @@ -15,6 +15,7 @@ use File::Spec; my $verbose=0; # set to 1 for debugging my $port = 8999; # just our default, weird enough +my $listenaddr = "127.0.0.1"; # address on which to listen my $path = `pwd`; chomp $path; @@ -51,6 +52,10 @@ do { $username=$ARGV[1]; shift @ARGV; } + elsif($ARGV[0] eq "-l") { + $listenaddr=$ARGV[1]; + shift @ARGV; + } elsif($ARGV[0] =~ /^(\d+)$/) { $port = $1; } @@ -160,7 +165,7 @@ AuthorizedKeysFile $path/curl_client_key.pub HostKey $path/curl_host_dsa_key PidFile $path/.ssh.pid Port $port -ListenAddress localhost +ListenAddress $listenaddr Protocol 2 AllowTcpForwarding yes GatewayPorts no @@ -210,7 +215,7 @@ my @dsahostkey = do { local $/ = ' '; }; close DSAKEYFILE || die "Could not close DSAKEYFILE"; open(KNOWNHOSTS, ">$knownhostsfile") || die "Could not write $knownhostsfile"; -print KNOWNHOSTS "[127.0.0.1]:$port ssh-dss $dsahostkey[1]\n" || die 'Could not write to KNOWNHOSTS'; +print KNOWNHOSTS "[$listenaddr]:$port ssh-dss $dsahostkey[1]\n" || die 'Could not write to KNOWNHOSTS'; close KNOWNHOSTS || die "Could not close KNOWNHOSTS"; open(SSHFILE, ">$conffile_ssh") || die "Could not write $conffile_ssh"; -- cgit v1.2.1