#!perl
use strict;
use lib "lib";
use POE qw< Component::Client::BigBrother >;
my $bbhost = "localhost";
POE::Session->create(
inline_states => {
_start => sub {
POE::Component::Client::BigBrother->send(
host => $bbhost,
event => "_result",
command_type => "event",
command_fields => {
host => "front01.domain.net",
service => "logs",
id => "default",
persistence => "eph",
activation => time() - 10,
expiration => time() + 15 * 60,
color => "green",
message => "all logs OK",
},
);
},
_result => sub {
my $result = $_[ARG0];
print "* result:\n",
map { " $_: $result->{$_}\n" } sort keys %$result;
},
},
);
POE::Kernel->run;