Net::SSH::Perl log in

[Pat Rice]

Hi all
I'm trying to do the following as a test to get perl to log in to an ssh
server.
Before anyone asks the password has been changed, but was correct for log
in.

Code below
Thanks in advance.
Pat


      1 #!/usr/bin/perl
      2 use Net::SSH::Perl;
      3
      4 $scon = Net::SSH::Perl->new ("10.11.11.11", 'debug' => '1');
      5 $scon->login("user", "pass");
      6
      7 print "looking around ...\n";
      8 ($output,$errors,$exit) = $scon->cmd("ls -l");
      9 print $output;





[EMAIL PROTECTED] cgi-bin]# ./testSSHlogIn.pl
localhost.localdomain: Reading configuration data /root/.ssh/config
localhost.localdomain: Reading configuration data /etc/ssh_config
localhost.localdomain: Allocated local port 1023.
localhost.localdomain: Connecting to 10.21.64.1, port 22.
localhost.localdomain: Remote version string: SSH-2.0-OpenSSH_3.6.1p2

localhost.localdomain: Remote protocol version 2.0, remote software version
OpenSSH_3.6.1p2
localhost.localdomain: Net::SSH::Perl Version 1.30, protocol version 2.0.
localhost.localdomain: No compat match: OpenSSH_3.6.1p2.
localhost.localdomain: Connection established.
localhost.localdomain: Sent key-exchange init (KEXINIT), wait response.
No matching cipher found: client 3des-cbc,blowfish-cbc,arcfour server
aes256-cbc,aes128-cbc at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm
line 89