snaakey/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

* Doh.

Browse source
This commit is contained in:
Eelco Dolstra 2009-03-16 17:46:46 +00:00
parent 8c91e69779
commit bf1480cc25
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/script/hydra_build.pl
View file

@ -92,11 +92,12 @@ sub doBuild {
}
if (/^@\s+build-started\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)$/) {
my $drvPathStep = $1;
$db->txn_do(sub {
$build->buildsteps->create(
{ stepnr => ($buildSteps{$drvPath} = $buildStepNr++)
{ stepnr => ($buildSteps{$drvPathStep} = $buildStepNr++)
, type => 0 # = build
, drvpath => $1
, drvpath => $drvPathStep
, outpath => $2
, logfile => $4
, busy => 1
@ -106,9 +107,9 @@ sub doBuild {
}
elsif (/^@\s+build-succeeded\s+(\S+)\s+(\S+)$/) {
my $drvPath = $1;
my $drvPathStep = $1;
$db->txn_do(sub {
my $step = $build->buildsteps->find({stepnr => $buildSteps{$drvPath}}) or die;
my $step = $build->buildsteps->find({stepnr => $buildSteps{$drvPathStep}}) or die;
$step->update({busy => 0, status => 0, stoptime => time});
});
}