diff -r f773a81fcff5 -r 3ce1738b5b5c submit-via-nsca.pl --- a/submit-via-nsca.pl Wed Nov 02 18:03:01 2011 +0100 +++ b/submit-via-nsca.pl Wed Nov 02 18:08:04 2011 +0100 @@ -2,7 +2,6 @@ # © 2011 Heiko Schlittermann # source: https://ssl.schlittermann.de/hg/check-by-nsca - use strict; use warnings; use Sys::Hostname; @@ -42,18 +41,21 @@ "d|debug" => \$o{debug}, ) or pod2usage(); - my $cmdline = - "send_nsca -H '$o{nsca_host}'" - . (defined $o{nsca_port} ? " -p $o{nsca_port}" : ""); + my $cmdline = "send_nsca -H '$o{nsca_host}'" + . (defined $o{nsca_port} ? " -p $o{nsca_port}" : ""); $_ = `@ARGV`; - my $rc = $?; + my $rc = $? >> 8; if ($o{svcname} eq "-") { /^(?\S+)\s/ or die "$ME: Can't guess servicename!\n"; $o{svcname} = $+{service}; } - $_ = join "\t" => $o{hostname}, length($o{svcname}) ? $o{svcname} : (), $_; + $_ = + join "\t" => $o{hostname}, + length($o{svcname}) + ? $o{svcname} + : (), $rc, $_; if ($o{debug}) { print $cmdline, "\n$_\n"; @@ -63,8 +65,9 @@ open(SEND, "|$cmdline") or die "$ME: Can't open `$cmdline': $!\n"; print SEND $_; close(SEND) - or die $! ? "$ME: Error closing `$cmdline': $!\n" - : "$ME: Error status from `$cmdline': $?\n"; + or die $! + ? "$ME: Error closing `$cmdline': $!\n" + : "$ME: Error status from `$cmdline': $?\n"; }