File Coverage

blib/lib/BBPerl.pm

Criterion	Covered	Total	%
statement	45	104	43.2
branch	13	38	34.2
condition			n/a
subroutine	11	20	55.0
pod	12	14	85.7
total	81	176	46.0

package BBPerl;
use warnings;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter);
$VERSION = sprintf "%d.%03d", q$Revision: 1.55 $ =~ /: (\d+)\.(\d+)/;

use Net::Domain;

sub new {
	my $class = shift;
	my $tname = shift;
	my $self =
	{
		_debug => 0,
		_testName => "My_Test",
		_status => "green",
		_bbmsgs => "",
		_bbhome => $ENV{BBHOME},
		_bbtmp => $ENV{BBTMP},
		_bbcmd => $ENV{BB},
		_bbdisp => $ENV{BBDISP},
		_msgsnum=> 0,
		_hostname => Net::Domain->hostname(),
		_usefqdn=>0
	};

	if ($tname) {
		$tname =~ s/ /_/g;
		$self->{_testName} = $tname;
	}
	die "BBHOME is not set.... Exiting\n" if ! $ENV{BBHOME};
	die "BBTMP is not set... Make sure to run \". \$BBHOME/etc/bbdef.sh\"\n" if ! $ENV{BBTMP};
	bless $self,$class;
	return $self;
}

sub useFQDN {
	my $self = shift;
	if (@_) {
		$self->{_usefqdn} = shift;
		if ($self->{_usefqdn}) {
			$self->{_hostname} = Net::Domain->hostfqdn();
		} else {
			$self->{_hostname} = Net::Domain->hostname();
		}
	}
	return $self->{_usefqdn};
}


sub debugLevel {
	my $self=shift;
	if (@_)
	{
		$self->{_debug} = shift;
	}
	return $self->{_debug};
}

sub testName {
	my ($self,$tname) = @_;
	if ($tname)
	{
		$tname =~ s/ /_/g;
		$self->{_testName} = $tname;
	}
	return $self->{_testName};
}

sub status {
	my $self = shift;
	if (@_)
	{
		my $stat=shift;
		$stat =~ tr/A-Z/a-z/;
		$self->{_status} = $stat if $stat =~ /red|yellow|green|purple|blue/;
	}
	return $self->{_status};
}

sub addMsg {
	my ($self,$msg) = @_;
	return $self->{_bbmsgs} if $self->{_msgsnum} >= 75;
	$self->{_bbmsgs} .= "\n".$msg if defined($msg);
	$self->{_msgsnum}++;
	return $self->{_bbmsgs};
}

sub getMsgCount {
	my $self = shift;
	return $self->{_msgsnum};
}

sub bbdisp {
	my $self = shift;
	if (@_) {
		$self->{_bbdisp} = shift;
	}
	return $self->{_bbdisp};
}

# Deprecated beyond 1.3
sub localhost {
	my $self = shift;
	if (@_) {
		$self->hostname(shift);
	}
	return $self->hostname();
}

sub hostname {
	my $self = shift;
	if (@_) {
		$self->{_hostname} = shift;
		$self->{_usefqdn} = 0;
	}
	return $self->{_hostname};
}

sub bbhome {
	my $self = shift;
	if (@_) {
		$self->{_bbhome} = shift;
	}
	return $self->{_bbhome};
}

sub bbcmd {
	my $self = shift;
	if (@_) {
		$self->{_bbcmd} = shift;
	}
	return $self->{_bbcmd};
}

sub bbtmp {
	my $self = shift;
	if (@_) {
		$self->{_bbtmp} = shift;
	}
	return $self->{_bbtmp};
}




sub send {
	sub _date() {
		use POSIX qw(strftime);
		my @monstr = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
		my @daystr = qw(Sun Mon Tue Wed Thr Fri Sat);

		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
		my $year_long = 1900 + $year;
		my $tz = strftime('%Z', localtime);

		return sprintf '%3s %3s %2s %02s:%02s:%02s %3s %4s', $daystr[$wday], $monstr[$mon], $mday, $hour, $min, $sec, $tz, $year_long;
	}
	my $self = shift;
	my $debug = $self->{_debug};
	my $cmdline = $self->{_bbcmd}." ".$self->{_bbdisp};
	my $localhostname = $self->{_hostname};
	$localhostname =~ s/\./,/g;
	my $statusline = "status ".$localhostname.".".$self->{_testName}." ".$self->{_status}." "._date();
	chomp ($statusline);
	if ($debug > 0) {
		print "The following will be sent using command:\n";
		print $cmdline;
		print "\n---------------------------------------------------------\n";
		print $statusline;
		print $self->{_bbmsgs};
		print "---------------------------------------------------------\n";
	}
	if ($debug < 2) {
		my $bbmsgs=$self->{_bbmsgs};
		$bbmsgs =~ s/"/\\"/g;
# Like this would ever work.
#		open (BBPIPE,"| ${cmdline} -") or die "Cannot open STDOUT to report\n";
#		print BBPIPE "$statusline $bbmsgs";
#		print BBPIPE $self->{_bbmsgs};
#		close (BBPIPE);
#		system("$self->{_bbhome}/bin/bb-combo.sh","add","\"$statusline\n$bbmsgs\n\"");
		my $bsvar=`${cmdline} "${statusline}
${bbmsgs}
"`;
	} else {
		print "Debug level $debug prevents me from sending to the Big Brother Server.\n";
	}
}

1;

__END__