зеркало из https://github.com/mozilla/pjs.git
tinderbox log parser b=375714 r=preed
This commit is contained in:
Родитель
9abab2b106
Коммит
f65fdc7ea6
|
@ -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'};
|
||||
}
|
Загрузка…
Ссылка в новой задаче