Re: perl-expect interact command

in reply to perl-expect interact command

use Net::OpenSSH;
my $ssh_proxy = Net::OpenSSH->new("$username\@domain-name");
my $proxy_command = $ssh_proxy->make_remote_command({tunnel => 1}, $de
+vice, 22);
my $ssh = Net::OpenSSH->new("admin\@$device", password => $password, p
+roxy_command => $proxy_command);
$ssh->system;
[download]

untested, requires a relatively recent version of OpenSSH installed locally and tunnels enabled on the gateway host.

Comment on Re: perl-expect interact command Download Code

Replies are listed 'Best First'.
Re^2: perl-expect interact command by Frits (Novice) on Oct 09, 2012 at 08:11 UTC
Hi All, I have tried all options in different senarios and I the script is not taking it. The part of Net::OpenSSH is nice, but the problem part for me here is that I do not own the server and OpenSSH is not an option for me. (just user) I was wondering if there is an option within $exp->interact(); Like when within the interact process if the hostname of the device is detected it will send and additional exit.	[reply]

Replies are listed 'Best First'.

Re^2: perl-expect interact command
by Frits (Novice) on Oct 09, 2012 at 08:11 UTC

Hi All, I have tried all options in different senarios and I the script is not taking it. The part of Net::OpenSSH is nice, but the problem part for me here is that I do not own the server and OpenSSH is not an option for me. (just user) I was wondering if there is an option within $exp->interact(); Like when within the interact process if the hostname of the device is detected it will send and additional exit.

[reply]

In Section Seekers of Perl Wisdom