[SOLVED] perl Net::SFTP::Foreign. How to set return code 3 on timeout?

catkin · 04-07-2014, 12:09 PM

How can this perl scrippet ...

Code:

my $sftp = Net::SFTP::Foreign->new($host,user=>$user);
$sftp->die_on_error("Unable to establish SFTP connection");

... be made to set return code 3 when it errors?

The reason for wanting to know is we have unreliable network connections and a home-grown nagios plug-in (for amanda) which times out resulting in spurious critical alerts. The developer who wrote it is long gone and we have no perl programmers.

Return code 3 from a plug-in tells nagios that the state is unknown.

It would also be helpful to know how long it takes to time out (but we could find out by testing).

The Net::SFTP::Foreign page is http://search.cpan.org/~salva/Net-SF...FTP/Foreign.pm

smallpond · 04-07-2014, 03:19 PM

As it describes on the line above:

Code:

$sftp->error and return 3;

catkin · 04-10-2014, 11:40 PM

Thanks samllpond

It may take a while to test so wanted to say thanks now.

catkin · 04-14-2014, 11:24 AM

That worked as expected (timed out, set return code 3) but the nagios emails were unchanged. According to http://nagios.sourceforge.net/docs/3_0/epnplugins.html, a nagios plug-in should always generate some output so I tried to modify the script further but was unable to master the syntax. Here's the relevant scrippet:

Code:

my $timeout = '60';
my $weekly = 0;

# 11 Apr 2014 Charles for NAG-16:
#   * Add timeout, value chosen (above) to be less than service_check_timeout in
#     /etc/nagios3/nagios.cf
#   * Return nagios service state UNKNOWN on error
# 14 Apr 2014 Charles for NAG-16:
#   * Also generate some output
my $sftp = Net::SFTP::Foreign->new($host,timeout=>$timeout,user=>$user);
#$sftp->die_on_error("Unable to establish SFTP connection");
if $sftp->error && {
    print "Unable to establish SFTP connection";
    exit $ERRORS{'UNKNOWN'};
}
$sftp->setcwd($path) or die "unable to change cwd: " . $sftp->error;

And here's the output:

Code:

root@nagios.bluelight:/usr/lib/nagios/plugins# ./check_amanda.pl redearth /var/lib/amanda/earth-daily backup
Scalar found where operator expected at ./check_amanda.pl line 35, near "$sftp"
	(Missing semicolon on previous line?)
syntax error at ./check_amanda.pl line 31, near "if $sftp"
syntax error at ./check_amanda.pl line 34, near "}"
Execution of ./check_amanda.pl aborted due to compilation errors.

I had previously tried

Code:

$sftp->error and {

but the reult was similar.

catkin · 04-19-2014, 01:59 AM

The solution to the syntax error was to change ...

Code:

if $sftp->error && {

... to ...

Code:

if ($sftp->error) {

Marking the thread as solved because the original question is answered.