I am getting something similar, same code though:
sub sshConnect {
my $ssh = Net::SSH::Perl->new($fwip, debug=>1);
$ssh->login($user, $pass);
$ssh->cmd("set console page0");
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print "$stdout, $stderr, $exit\n";
$ssh->cmd('set console page 20');
m4st0r-ws: Remote protocol version 2.0, remote software version NetScreen
m4st0r-ws: Net::SSH::Perl Version 1.30, protocol version 2.0.
.4st0r-ws: No compat match: NetScreen
m4st0r-ws: Connection established.
m4st0r-ws: Sent key-exchange init (KEXINIT), wait response.
m4st0r-ws: Algorithms, c->s: 3des-cbc hmac-sha1 none
m4st0r-ws: Algorithms, s->c: 3des-cbc hmac-sha1 none
m4st0r-ws: Entering Diffie-Hellman Group 1 key exchange.
m4st0r-ws: Sent DH public key, waiting for reply.
m4st0r-ws: Received host key, type 'ssh-dss'.
m4st0r-ws: Host '$ip' is known and matches the host key.
m4st0r-ws: Computing shared secret key.
m4st0r-ws: Verifying server signature.
m4st0r-ws: Waiting for NEWKEYS message.
m4st0r-ws: Enabling incoming encryption/MAC/compression.
m4st0r-ws: Send NEWKEYS, enable outgoing encryption/MAC/compression.
m4st0r-ws: Sending request for user-authentication service.
Connection closed by remote host. at
/usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/AuthMgr.pm line 43
Any ideas?
On Thu May 04 17:40:43 2006, guest wrote:
Show quoted text> On Thu May 04 17:38:37 2006, guest wrote:
> > On Fri Feb 04 15:53:04 2005, DBROBINS wrote:
> >
> > I have the same problem..
> >
> > illuminati: Reading configuration data /root/.ssh/config
> > illuminati: Reading configuration data /etc/ssh_config
> > illuminati: Allocated local port 1022.
> > illuminati: Connecting to 172.16.128.1, port 22.
> > illuminati: Remote protocol version 1.5, remote software version SSH
> > Protocol Compatible Server SCS 2.0
> > illuminati: Net::SSH::Perl Version 1.29, protocol version 1.5.
> > illuminati: No compat match: SSH Protocol Compatible Server SCS 2.0.
> > illuminati: Connection established.
> > illuminati: Waiting for server public key.
> > illuminati: Received server public key (768 bits) and host key (1024
> bits).
> > illuminati: Host '172.16.128.1' is known and matches the host key.
> > illuminati: Encryption type: DES3
> > illuminati: Sent encrypted session key.
> > illuminati: Received encryption confirmation.
> > illuminati: RSA authentication failed: Can't load public key.
> > illuminati: Trying password authentication.
> > illuminati: Sending command: set console page 0
> > illuminati: Entering interactive session.
> > illuminati: Warning: ignoring packet of type 15
> >
> > script...
> >
> > use Net::SSH::Perl;
> > my $ssh = Net::SSH::Perl->new($ip, debug=>1);
> > $ssh->login($username, $ukey);
> > $ssh->cmd('set console page 0');
> > my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
> > print "$stdout, $stderr, $exit\n";
> > $ssh->cmd('set console page 20');
> >
> >
> > hangs never prints anything.
>
> Could it be a prompt problem all netscreens have wierd prompts.
>
> fnsbe1vinin(M)->
>
> is the sample prompt from above.
