0

我尝试使用您的 CPAN 模块 POE::Compoenten::Server::NRPE。我尝试了来自 CPAN 站点的示例，并针对 nagios-tool check_nrpe 进行了测试。

文本很好，但我无法获得正确的返回值。您在模块描述中描述了这个 return_result，但我不知道如何使用它。

非常好，如果你能给我一个非常简短的例子，如何返回值 <> 0。

多谢！

干杯，克里斯托夫

use POE;
use POE::Component::Server::NRPE;

# test with: check_nrpe -H localhost -c test; echo $?

my $nrped = POE::Component::Server::NRPE->spawn (port => 5666);
$nrped->add_command (command => "test", program =>
sub { print STDOUT "test CRITICAL\n";
return 2;    # always 0???
});

$poe_kernel->run ();
return 0;
4

2 回答 2

1

感谢您发布这个问题。我不知道这个模块，但它对我有很大帮助。

  1. 尝试在您的代码中使用严格和警告，这对您有好处
  2. 使用 POE::Component::Server::NRPE::Constants 提供的返回常量，而不是使用 0 表示 OK，1 表示 WARNING 等等
  3. 我相信唯一的问题是您在测试子中使用return 2而不是exit 2或更好exit NRPE_STATE_CRITICAL

以下代码应产生所需的结果

use strict;
use warnings;
use POE;
use POE::Component::Server::NRPE;

# it's recommended to use the NRPE return states provided by the module
use POE::Component::Server::NRPE::Constants qw(NRPE_STATE_OK NRPE_STATE_CRITICAL);

my $nrped = POE::Component::Server::NRPE->spawn (
        port => 5666
);

$nrped->add_command (command => "test", program =>
        sub {
                print STDOUT "testing CRITICAL\n";
        # better to use NRPE_STATE_CRITICAL...
                exit NRPE_STATE_CRITICAL;
        # ... instead of the corresponding digital value
        # but it should work
        # exit 2;
        }
);

$poe_kernel->run ();
exit 0;

谢谢

于 2012-11-12T08:26:58.500 回答
0

看起来像模块中的错误。作者在cpan上推送了一个新版本（0.16 -> 0.18）。

于 2012-11-09T10:03:26.640 回答