Ticket #66: logtest.pl

File logtest.pl, 277 bytes (added by joachim, 3 years ago)

An example perl script to demonstrate the usage and features

Line 
1#!/usr/bin/perl
2
3use strict;
4use PB::Log;
5
6if(!open(FILE, "<combined.log")){
7        print "Could not open file\n";
8        die();
9}
10my @lines = <FILE>;
11close(FILE);
12
13my $log = new PB::Log;
14$log->setCompleteLog(join("\n", @lines));
15print $log->summary;
16$log->mailSummary("test\@test.test");