Re: Perl Net::SSH2 unable to connect

The line:

if ($ssh2->auth_keyboard($user,$pass)) {
[download]

doesn't work for me either. I get the same error with correct credentials.

Try using your commented out auth_password() instead of auth_keyboard() and it worked for me:

VinsWorldcom@C:\Users\VinsWorldcom\tmp> grep auth_ test.pl
    #if ($ssh2->auth_password($user,$pass)) {
    if ($ssh2->auth_keyboard($user,$pass)) {

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl test.pl
ssh auth failed.
Net::SSH2::DESTROY object 0x2398d78

VinsWorldcom@C:\Users\VinsWorldcom\tmp> grep auth_ test.pl
    if ($ssh2->auth_password($user,$pass)) {
    #if ($ssh2->auth_keyboard($user,$pass)) {

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl

 Executing command...
 ==> Running ls
Undefined subroutine &main::is_sshalive called at C:\Users\vincen_m\tm
+p\test.pl
line 18.
Net::SSH2::DESTROY object 0x2398d78
[download]

Note: The error in the second output has to do with is_sshalive() not being a valid sub - not sure where you've defined that.

Comment on Re: Perl Net::SSH2 unable to connect Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl Net::SSH2 unable to connect by kabachaa (Novice) on Feb 26, 2013 at 21:44 UTC
Oh looks like that worked thanks both McA and VinsWorldcom Another question I had was there is a method `$ssh2->error` I guess it returns an error code what do these code mean. I get an error code like (0, 13, 7 etc) Last question I have is that if I am connected to $ssh2 until I say `$ssh2->disconnect` i would remain connected and I can do continue running my script. Thanks !	[reply] [d/l] [select]
Re^2: Perl Net::SSH2 unable to connect by VinsWorldcom (Prior) on Feb 27, 2013 at 13:59 UTC
From the perldoc: `VinsWorldcom@C:\Users\VinsWorldcom> perldoc Net::SSH2 [...] error Returns the last error code; returns false if no error. In list cont +ext, returns (code, error name, error string). [...]` [download] I would try calling the error() accessor like such (untested): `use Net::SSH2; [...] my $ssh2 = Net::SSH2->new(); [...] my ($code, $name, $string) = $ssh2->error; print "Error ($code): $name - $string\n";` [download]	[reply] [d/l] [select]