RE: [Ssh-sftp-perl-users] does LocalForward work?

[David R. <dr...@at...>]

Unfortunately LocalForward isn't one of the supported directives, so =
it's  ignored.  You can see a list of supported directives in =
Net::SSH::Perl::Config (find the file or use perldoc -m) in the =
%DIRECTIVES hash.

Patches are welcome, or you can add a ticket to the rt.cpan.org for =
Net::SSH::Perl.  It's a fairly large and involved change, since it would =
require listening on the requested port and patching traffic over the =
SSH connection.  My opinion now is that I wouldn't want to add that sort =
of complexity to the module myself (but if you do add a ticket I may get =
to it), but I'd accept a minimally-interfering patch with sufficient =
tests.

(Description of LocalForward from the man page if anyone's interested:)

LocalForward
	     Specifies that a TCP/IP port on the local machine be forwarded
	     over the secure channel to the specified host and port from the
	     remote machine.  The first argument must be a port number, and
	     the second must be host:port.  IPv6 addresses can be specified
	     with an alternative syntax: host/port.  Multiple forwardings may
	     be specified, and additional forwardings can be given on the com-
	     mand line.	 Only the superuser can forward privileged ports.


-----Original Message-----
From:	ssh...@li... on behalf of =
at...@ia...
Sent:	Thu 2/3/2005 3:06 PM
To:	ssh...@li...
Cc:=09
Subject:	[Ssh-sftp-perl-users] does LocalForward work?

I am trying to use LocalForward.  Here is a basic script with my =
attempt.
The local port does not seem to get opened.  Can you please let me know
how to do this?  I didn't see anything in the documents or archives.

Thanks,
Drew

$ cat LocalForward.pl
#!/usr/bin/perl -w

use Net::SSH::Perl;
use Net::Telnet;

$connection_time=3D60; # seconds
$tunnelhost=3D"someHost";
$localhost=3D"someLocalHost";
$tunnelhost_login=3D"THLogin";
$tunnelhost_pwd=3D"THPass";
$localhost_login=3D"LHLogin";
$localhost_pwd=3D"LHPass";
$localhost_prompt=3D"/[\\#\\\$] \$/";
$local_port=3D9999;

my $ssh =3D Net::SSH::Perl->new($tunnelhost,
            debug =3D> "yes",
            options =3D> [
               "LocalForward $local_port $localhost:23" ]);
$ssh->login($tunnelhost_login,$tunnelhost_pwd);

$pid=3Dfork;

if (!$pid) {
  my($stdout, $stderr, $exit) =3D $ssh->cmd("sleep $connection_time");
#  my($stdout, $stderr, $exit) =3D $ssh->cmd("who");
#  print $stdout;
} else {
  sleep(1);
  my $tel =3D new Net::Telnet (Port =3D> $local_port,
                             Timeout =3D> 30,
                             Prompt =3D> $localhost_prompt);
  $tel->open("localhost");
  $tel->login($localhost_login,$localhost_pwd);
  @lines=3D$tel->cmd("who");
  print @lines;
}

exit(0);

$ ./LocalForward.pl
currentHost: Reading configuration data /home/user/.ssh/config
currentHost: Reading configuration data /etc/ssh_config
currentHost: Connecting to someHost, port 22.
currentHost: Remote protocol version 2.0, remote software version
OpenSSH_3.1p1
currentHost: Net::SSH::Perl Version 1.26, protocol version 2.0.
currentHost: No compat match: OpenSSH_3.1p1.
currentHost: Connection established.
currentHost: Sent key-exchange init (KEXINIT), wait response.
currentHost: Algorithms, c->s: 3des-cbc hmac-sha1 none
currentHost: Algorithms, s->c: 3des-cbc hmac-sha1 none
currentHost: Entering Diffie-Hellman Group 1 key exchange.
currentHost: Sent DH public key, waiting for reply.
currentHost: Received host key, type 'ssh-dss'.
currentHost: Host 'someHost' is known and matches the host key.
currentHost: Computing shared secret key.
currentHost: Verifying server signature.
currentHost: Waiting for NEWKEYS message.
currentHost: Enabling incoming encryption/MAC/compression.
currentHost: Send NEWKEYS, enable outgoing
encryption/MAC/compression.
currentHost: Sending request for user-authentication service.
currentHost: Service accepted: ssh-userauth.
currentHost: Trying empty user-authentication request.
currentHost: Authentication methods that can continue:
publickey,password,keyboard-interactive.
currentHost: Next method to try is publickey.
currentHost: Next method to try is password.
currentHost: Trying password authentication.
currentHost: Login completed, opening dummy shell channel.
currentHost: channel 0: new [client-session]
currentHost: Requesting channel_open for channel 0.
currentHost: channel 0: open confirm rwindow 0 rmax 32768
currentHost: Got channel open confirmation, requesting shell.
currentHost: Requesting service shell on channel 0.
currentHost: channel 1: new [client-session]
currentHost: Requesting channel_open for channel 1.
currentHost: Entering interactive session.
currentHost: Sending command: sleep 60
currentHost: Requesting service exec on channel 1.
currentHost: channel 1: open confirm rwindow 0 rmax 32768
problem connecting to "localhost", port 9999: Connection refused at
./LocalForward.pl line 33