#!/usr/bin/perl

use strict;
use PB::Log;

if(!open(FILE, "<combined.log")){
	print "Could not open file\n";
	die();
}
my @lines = <FILE>;
close(FILE);

my $log = new PB::Log;
$log->setCompleteLog(join("\n", @lines));
print $log->summary;
$log->mailSummary("test\@test.test");
