#!/usr/bin/perl

use strict;
use warnings;

use HTML::TokeParser::Simple;


my $server='NA1';
my $status='red';
my $machine='salesforcetestmachine';
my $testname='Salesforce';


my $parser = HTML::TokeParser::Simple->new(url => 'http://trust.salesforce.com/status-data/status.jsp');

my $status;

while ( my $tr = $parser->get_tag('tr') ) {
    my $id = $tr->get_attr('id');
    next unless defined($id) and $id eq $server.'-head';

    my $img = $parser->get_tag('img');
    my $src = $img->get_attr('src');
    next unless defined($src)
        and $src =~ m!img/dot(.+?)\.gif!;
    $status=$1;
}


my $message="Sales Force Status is:".$status."\n";

my $report_date = `/bin/date`;
chomp($report_date);

system("$ENV{BB} $ENV{BBDISP} 'status $machine.$testname $status $report_date - \n\n$message'\n");