Net::OpenSSH and Extreme Switch

rdl has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

I am attempting to use Net::OpenSSH to connect to an Extreme Ethernet switch.

As a test, I am using the following code:

#!/usr/local/bin/perl
use strict;
use warnings;
use Net::OpenSSH;

my $ssh = Net::OpenSSH->new( "auto_config\@management", passwd => "myp
+asswd", ssh_cmd => '/usr/local/bin/ssh' );
$ssh->error and die "Unable to open ssh connection: " . $ssh->error;

print "Sending a command\n";
my $test = $ssh->capture( "show vlan" );

$ssh->error and warn "Operation did not work: " . $ssh->error;
print "Output is: \n";
print $test;
[download]

When this is run, I get the following output:

Keyboard-interactive authentication
Sending a command
channel_by_id: 0: bad id: channel free
channel_input_status_confirm: 0: unknown
Operation did not work: child exited with code 255 at ./ex_ssh.pl line
+ 12.
Output is:
[download]

I am able to use OpenSSH from the command line to get to the same box using the same username/passwd from the same server/user. The same script used to run a command on a Sun box works fine.

Thanks, and sorry in advance if I did not post this correctly. I am new here

Comment on Net::OpenSSH and Extreme Switch Select or Download Code

Replies are listed 'Best First'.
Re: Net::OpenSSH and Extreme Switch by salva (Canon) on Nov 23, 2009 at 21:55 UTC
Usually these boxes do not allow running single commands via SSH but just a custom/restricted shell. What happens when you try to invoke the remote command with SSH as in...? `$ /usr/local/bin/ssh auto_config@management show vlan` [download] If it doesn't work, your best option will probably be to use Expect (alone, combined with Net::OpenSSH or via Net::SSH::Expect). For simple cases, usually this also works: `my $out = $ssh->capture({stdin_data => "show vlan\n"}); print "output: $out"` [download]	[reply] [d/l] [select]
Re^2: Net::OpenSSH and Extreme Switch by rdl (Initiate) on Nov 23, 2009 at 22:09 UTC
Salva, thanks for the reply. When I try your suggestion from the command line, I get no reply (or error) at all. For the second, I modified the script as you suggested `my $test = $ssh->capture( {stdin_data => "show vlan\n"} );` [download] and I now get the following: `Keyboard-interactive authentication Sending a command Pseudo-terminal will not be allocated because stdin is not a terminal. Operation did not work: child exited with code 255 at ./ssh1.pl line 1 +3. Output is: show vlan` [download] I guess I don't understand why if it works from the command line using OpenSSH, it won't work from the script. Thanks	[reply] [d/l] [select]
Re^3: Net::OpenSSH and Extreme Switch by salva (Canon) on Nov 23, 2009 at 22:24 UTC
I guess I don't understand why if it works from the command line using OpenSSH, it won't work from the script. See Re: Unable to run command on Cisco switch.	[reply]
Re^4: Net::OpenSSH and Extreme Switch by rdl (Initiate) on Nov 24, 2009 at 21:18 UTC
Re^5: Net::OpenSSH and Extreme Switch by rdl (Initiate) on Dec 02, 2009 at 20:35 UTC
Re^4: Net::OpenSSH and Extreme Switch by rdl (Initiate) on Nov 24, 2009 at 14:13 UTC


Welcome to the Monastery
	PerlMonks