tinderbox log parser b=375714 r=preed

This commit is contained in:
rhelmer%mozilla.com 2007-04-05 01:31:29 +00:00
Родитель 9abab2b106
Коммит f65fdc7ea6
1 изменённых файлов: 63 добавлений и 0 удалений

Просмотреть файл

@ -0,0 +1,63 @@
##
# TinderLogParse - A tinderbox log parser
##
package MozBuild::TinderLogParse;
sub new {
my $class = shift;
my %args = @_;
my $logFile = $args{'logFile'};
if (! defined($logFile)) {
die("ASSERT: TinderLogParse::new logFile is a required argument");
}
my $this = { logFile => $logFile };
bless($this, $class);
return $this;
}
##
# GetBuildID - attempts to find build ID in a tinderbox log file
#
# Searches for a string of the form:
# Got Build ID: 2007030311
# Only the buildID, '2007030311', is to be returned.
#
##
sub GetBuildID {
my $this = shift;
my %args = @_;
my $log = $this->GetLogFileName();
my $buildID = undef;
my $searchString = "Got build ID ";
open (FILE, "< $log") or die("Cannot open file $log: $!");
while (<FILE>) {
if ($_ =~ /$searchString/) {
$buildID = $_;
# remove search string
$buildID =~ s/$searchString//;
# remove trailing slash
$buildID =~ s/^\.//;
last;
}
}
close FILE or die("Cannot close file $log: $!");
return $buildID;
}
sub GetLogFileName {
my $this = shift;
my %args = @_;
return $this->{'fileName'};
}