#!/usr/local/bin/perl -w

# $Id: ReportToBB.pm,v 1.1 2019/07/30 14:21:48 lolo Exp $

package XymonExt::ReportToBB;

use strict;

use XymonExt::Untaint;

sub XymonExt::ReportToBB::ReportToBB($$$$)
{
	my ($host,$test,$colour,$status)=@_;

	$host =~ s/\./,/g;  # uncomment if FDQN is used in bigbrother
	XymonExt::Untaint::untaint(\$host);
	$colour=lc($colour);
	XymonExt::Untaint::untaint(\$colour);
	XymonExt::Untaint::untaintm(\$status);
	my $MyCmd="$ENV{'XYMON'} $ENV{'XYMSRV'} \"status $host.$test $colour ".localtime(time)."\n".$status.'"';
#	print "$MyCmd\n";
#	print `env`;
	system ($MyCmd);
}


1;