#!/usr/bin/perl

use strict;
use POSIX;
use Getopt::Long;
use English qw(-no_match_vars);

my $sender_command = "/usr/bin/zabbix_sender -c /etc/zabbix/zabbix_agent2.conf -i -";
my $key = "icinga.run.lld";

##################
# Sending to zabbix

print "Sending output file to $sender_command\n";
my $OUT = `echo '- $key "LLD OK"' | $sender_command 2>&1`;
die( "Cannot send to zabbix key $key: $OS_ERROR\n$OUT" ) if ($!);
print "LLD OK";
