[Ssh-sftp-perl-users] FW: Net::SSH::Perl

[<edw...@we...>]

> I am trying to run this module with "perl, v5.8.6 built for
> PA-RISC2.0" on a HPUX box.  After building all the dependencies, I
> wrote my script
>=20
> #!/path/to/perl -w
>=20
> use Net::SSH::Perl;
>=20
> my $JRhost=3D'fqdn';
> my $JRuser=3D'myusername';
> my $JRpasswd=3D'mypass';
> my $JRHOME=3D"$ENV{HOME}";
> my $JRKnownHostsFile=3D"$JRHOME/.ssh/known_hosts";
> my $JRIdentityFile=3D"$JRHOME/.ssh/id_rsa";
>=20
> my $JRcmd=3D'/bin/ps -ef';
>=20
> my $ssh =3D Net::SSH::Perl->new($JRhost,debug=3D>1,
>                               options=3D>["BatchMode yes","interactive
> yes",
>                                         "UserKnownHostsFile
> $JRKnownHostsFile",
>                                         "IdentityFile
> $JRIdentityFile"],
>                               protocol=3D>'2,1');
> $ssh->login($JRuser, $JRpasswd);
>=20
> my ($stdout, $stderr, $exit) =3D $ssh->cmd("$JRcmd");
> print "$stdout\n";
> print "$stderr\n";
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D
>=20
> But my output is:
>=20
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D
>=20
> hostname % ./ssh_test.pl
> hostname: Reading configuration data /path/to/myusername/.ssh/config
> hostname: Reading configuration data /etc/ssh_config
> hostname: Connecting to fqdn, port 22.
> hostname: Remote protocol version 2.0, remote software version
> OpenSSH_3.8p1
> hostname: Net::SSH::Perl Version 1.28, protocol version 2.0.
> hostname: No compat match: OpenSSH_3.8p1.
> hostname: Connection established.
> hostname: Sent key-exchange init (KEXINIT), wait response.
> hostname: Algorithms, c->s: 3des-cbc hmac-sha1 none
> hostname: Algorithms, s->c: 3des-cbc hmac-sha1 none
>=20
> ---------------------------long pause right
> here-------------------------------------------
>=20
> hostname: Entering Diffie-Hellman Group 1 key exchange.
> hostname: Sent DH public key, waiting for reply.
> Connection closed by remote host. at
> /path/to/lib/perl5/site_perl/5.8.6/Net/SSH/Perl/Kex/DH1.pm line 41
>=20
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>=20
> Any Ideas why this is the case??
>=20
>=20
> I've been at this for some time now
>=20
> ::JR Edwards::
> Security Architecture & Application Development
> Wells Fargo Corporate Information Security
>=20