Из perl-ового скрипта пытаюсь законнектиться по ssh к свичу 3526
use Net::SSH::Perl;
use strict;
....
$params{"protocol"}="1,2";
$params{"debug"}=1;
$params{"port"}=22;
$ssh=Net::SSH::Perl->new($ipswitch,%params);
$ssh ->login($assh,$pssh);
$cmd="help";
($out,$err,$exit) = $ssh->cmd($cmd);
На выходе имеем :
troll: Reading configuration data /root/.ssh/config
troll: Reading configuration data /etc/ssh_config
troll: Allocated local port 1023.
troll: Connecting to 192.168.91.200, port 22.
troll: Remote version string: SSH-2.0-DLink Corp. SSH server ver 1.00.000

troll: Remote protocol version 2.0, remote software version DLink Corp. SSH server ver 1.00.000
troll: Net::SSH::Perl Version 1.30, protocol version 2.0.
troll: No compat match: DLink Corp. SSH server ver 1.00.000.
troll: Connection established.
troll: Sent key-exchange init (KEXINIT), wait response.
troll: Algorithms, c->s: 3des-cbc hmac-sha1 none
troll: Algorithms, s->c: 3des-cbc hmac-sha1 none
troll: Entering Diffie-Hellman Group 1 key exchange.
troll: Sent DH public key, waiting for reply.
troll: Received host key, type 'ssh-dss'.
troll: Host '192.168.91.200' is known and matches the host key.
troll: Computing shared secret key.
troll: Verifying server signature.
troll: Waiting for NEWKEYS message.
troll: Enabling incoming encryption/MAC/compression.
troll: Send NEWKEYS, enable outgoing encryption/MAC/compression.
troll: Sending request for user-authentication service.
troll: Service accepted: ssh-userauth.
troll: Trying empty user-authentication request.
troll: Authentication methods that can continue: password.
troll: Next method to try is password.
troll: Trying password authentication.
troll: Login completed, opening dummy shell channel.
troll: channel 0: new [client-session]
troll: Requesting channel_open for channel 0.
troll: channel 0: open confirm rwindow 10000 rmax 8192
troll: Got channel open confirmation, requesting shell.
troll: Requesting service shell on channel 0.
troll: channel 1: new [client-session]
troll: Requesting channel_open for channel 1.
troll: Entering interactive session.
После чего свитч намертво виснет ( в смысле сквозь себя пакеты пропускает, а вот на пинги уже не овечает) и висит пока его не передернешь по питанию.
Посоветуйте чего-нибудь, а то через telnet им управлять уж больно стрёмно.

Версия прошивки?

Проверял на 4.01.В19 и В42 . Эффект один и тот-же
В приципе ИМХО можно достать из коробочки любой свитч завести юзера с паролем, включить ssh и исполнить вот такой скриптик. Повторяемость гарантирована.
#!/usr/bin/perl
use Net::SSH::Perl;
use strict;
my (%params,$ipswitch,$assh,$pssh,$ssh,$cmd,$out,$err,$exit,$cmd);
$params{"protocol"}="1,2";
$params{"debug"}=1;
$params{"port"}=22;
$ipswitch="10.90.90.90";
$assh="user"; #предварительно завести юзера с паролем
$pssh="password";
$ssh=Net::SSH::Perl->new($ipswitch,%params);
$ssh ->login($assh,$pssh);
$cmd="help";
($out,$err,$exit) = $ssh->cmd($cmd);

Я Вам прошивку выслал.

Спасибо не помогло. Тестовый скрипт как вешал управлялку так и вешает .

Мы занимаемся данной проблемой, как только будут какие-нибудь новости я здесь напишу.

_________________
С уважением,
Бигаров Руслан.

Данная проблема будет решена в R5.

_________________
С уважением,
Бигаров Руслан.

Надеюсь потестить одним из первых

пытаюсь выполнить с помощью Net::SSH:Perl что-либо из комманд,
не получается

(зайти через скрипт по $cmd->shell; отрабатывает, консолька работает )

debug скрипта-ssh:

genwork: Received host key, type 'ssh-dss'.
genwork: Host '10.250.1.1' is known and matches the host key.
genwork: Computing shared secret key.
genwork: Verifying server signature.
genwork: Waiting for NEWKEYS message.
genwork: Enabling incoming encryption/MAC/compression.
genwork: Send NEWKEYS, enable outgoing encryption/MAC/compression.
genwork: Sending request for user-authentication service.
genwork: Service accepted: ssh-userauth.
genwork: Trying empty user-authentication request.
genwork: Authentication methods that can continue: password.
genwork: Next method to try is password.
genwork: Trying password authentication.
genwork: Login completed, opening dummy shell channel.
genwork: channel 0: new [client-session]
genwork: Requesting channel_open for channel 0.
genwork: channel 0: open confirm rwindow 10000 rmax 8192
genwork: Got channel open confirmation, requesting shell.
genwork: Requesting service shell on channel 0.
genwork: channel 1: new [client-session]
genwork: Requesting channel_open for channel 1.
genwork: Entering interactive session.
genwork: Sending command: config ports 1 description zx10
genwork: Requesting service exec on channel 1.
genwork: channel 1: open confirm rwindow 10000 rmax 8192
genwork: Warning: ignore packet type 100
genwork: channel 1: rcvd close
genwork: channel 1: output open -> drain
genwork: channel 1: input open -> closed
genwork: channel 1: close_read
genwork: channel 1: obuf empty
genwork: channel 1: output drain -> closed
genwork: channel 1: close_write
genwork: channel 1: send close
genwork: channel 1: full closed

на свиче заведён юзер с правами админа
но ничего не происходит, свич по сислогу ничего не передаёт, что
был вход или попытка входа (по шел со скрипта в сислог отписывает о входе по ssh)

модуль perl собран руками на CentOS и "родной" на Gentoo, результат одинаков
может кто встречал проблемку?

Версия прошивки?