Re: Re: Net::SSH::Perl Login

Thanks for the replies so far. To answer the questions thrown up so far.

sunadmn - The identity files are exactly what you say. The files used in RSA/DSA authentication

naChoZ - I am using the module documentation as my help, its about all I can find on this :-)

idsfa - Normally when I use these keys to log into the machines (manually) I am not asked for a pass phrase.

I have been having another look today and this is what I have so far.

$identity = "id_dsa";
$host = "target";
$usr = "user";

my %args;
$args{identity_files} = $identity;

$ssh = Net::SSH::Perl->new($host, %args);
$ssh->login($usr);
[download]

When I run this I get the following errors which I dont really understand.

Can't use string ("id_dsa") as an ARRAY ref while "strict refs" in use
+ at /usr/lib/perl5/site_perl/5.6.1/Net/SSH/Perl/Auth/RSA.pm line 36.
[download]

Some more help would be appreciated as I dont seem to be able to get round this :-/

Comment on Re: Re: Net::SSH::Perl Login Select or Download Code

Replies are listed 'Best First'.

Re: Re: Re: Net::SSH::Perl Login
by zengargoyle (Deacon) on Oct 08, 2003 at 08:15 UTC

try...

$args{identity_files} = [ $identity ];   # takes ARRAY
$args{protocol} = '2,1';                 # try v2 first
[download]

works for me...

use Net::SSH::Perl;
$ssh =
  Net::SSH::Perl->new( "rtrfoo",
    { identity_files => ["$ENV{HOME}/.ssh/id_dsa"], protocol => "2" } 
+);
$ssh->login("myself");
print "@{[$ssh->cmd(q(show version))]}"
__END__
Hostname: rtrfoo
Model: m20
JUNOS Base OS boot [5.6R2.4]
JUNOS Base OS Software Suite [5.6R2.4]
...
[download]

[reply]
[d/l]
[select]


Do you know where your variables are?
	PerlMonks