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