Net::SSH2 Connect - Does not return error

msk_0984 has asked for the wisdom of the Perl Monks concerning the following question:

Respected Monks,

It made my task easier and fekt happy when I came to know about the new Net::SSH2 perl module.

I have implemented this modules into my CGI application which connects to remote system and performs some execution of commands or else editing and saving of files.

I have initially tested the module with a sample perl script and could capture all the errors which could be generated during the process.

Here is the part of the code where we are trying to connect. Where ip -> is the remote systems IP


my $ssh2 = Net::SSH2->new;
die "can't connect" unless $ssh2->connect("ip");
[download]

For eq: When SSH service is down on the remote system the error occured is

Net::SSH2::connect: failed to connect to <ip>:22: Connection refused a
+t test.pl at line 10
[download]

I felt the error can be captured and have used the same in my CGI application and when ever the SSH service is down for a remote system. I am not able to capture the error, but it is being obtained in the

/var/apache/logs/error_log file


Net::SSH2::connect: failed to connect to ip:22: Connection refused at 
+./scripts/ssh_subrtns.pl line 2644
[download]

Here is the part of the code where I am trying to connect in my CGI application.

        my $ssh2 = Net::SSH2->new();

        #return "Can not connect $rip " unless ($ssh2->connect($rip));
+ ## or die "Can not Connect $rip ";

        if ( ! ($ssh2->connect($rip)) ) or die "Can not Connect $rip "
+;
        {
                print qq{<font color="red"><b> Can't Connect to $rip  
+</b></font></body></html>} ;
                exit;
        }
[download]

I have used "return" but did not find any luck and tried out die also but unable to print this error on the CGI interface. I need to display this error message for more readability to the user.

Please help me out if I am doing any thing wrong over here. Need your suggestions if any

Thanks in advance.

Sushil Kumar

Comment on Net::SSH2 Connect - Does not return error Select or Download Code

Replies are listed 'Best First'.

Re: Net::SSH2 Connect - Does not return error
by atemon (Chaplain) on Oct 08, 2007 at 11:32 UTC

Net::SSH2 has a function "error" which returns the last error. In scalar context, it returns the error code and in list context, it returns long error messages also.


my $ssh2 = Net::SSH2->new();

$ssh2->connect($rip)

( $code, $error_name, $error_string ) = $ssh2->error();

if ( $code ); # $code will be false (undef) if there is NO error.
{

print "$code: $error_name: $error_string \n"; #format as you wish :)

exit();
}
...
<rest of your code>
[download]

Cheers !

--VC

[reply]
[d/l]
[select]


go ahead... be a heretic
	PerlMonks