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

Browse source
This commit is contained in:
Eelco Dolstra 2008-11-05 01:58:29 +00:00
parent 6e73c85c3b
commit 8378d57ba2
1 changed files with 31 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
src/scheduler.pl
View file

@ -49,42 +49,43 @@ sub buildJob {
, starttime => $startTime , starttime => $startTime
, stoptime => $stopTime , stoptime => $stopTime
}); });
}); print " build ID = ", $build->id, "\n";
return 0; my $logPath = "/nix/var/log/nix/drvs/" . basename $drvPath;
if (-e $logPath) {
print " LOG $logPath\n";
$db->resultset('Buildlogs')->create(
{ buildid => $build->id
, logphase => "full"
, path => $logPath
, type => "raw"
});
}
my $dbh, my $description, my $jobName; if ($buildStatus == 0) {
$dbh->begin_work; $db->resultset('Buildproducts')->create(
{ buildid => $build->id
, type => "nix-build"
, subtype => ""
, path => $outPath
});
$dbh->prepare("insert into builds(timestamp, jobName, description, drvPath, outPath, isCachedBuild, buildStatus, errorMsg, startTime, stopTime) values(?, ?, ?, ?, ?, ?, ?, ?, ?, ?)") if (-e "$outPath/log") {
->execute(time(), $jobName, $description, $drvPath, $outPath, $isCachedBuild, $buildStatus, "", $startTime, $stopTime); foreach my $logPath (glob "$outPath/log/*") {
print " LOG $logPath\n";
my $buildId = $dbh->last_insert_id(undef, undef, undef, undef); $db->resultset('Buildlogs')->create(
print " db id = $buildId\n"; { buildid => $build->id
, logphase => basename($logPath)
my $logPath = "/nix/var/log/nix/drvs/" . basename $drvPath; , path => $logPath
if (-e $logPath) { , type => "raw"
print " LOG $logPath\n"; });
$dbh->prepare("insert into buildLogs(buildId, logPhase, path, type) values(?, ?, ?, ?)") }
->execute($buildId, "full", $logPath, "raw");
}
if ($buildStatus == 0) {
$dbh->prepare("insert into buildProducts(buildId, type, subtype, path) values(?, ?, ?, ?)")
->execute($buildId, "nix-build", "", $outPath);
if (-e "$outPath/log") {
foreach my $logPath (glob "$outPath/log/*") {
print " LOG $logPath\n";
$dbh->prepare("insert into buildLogs(buildId, logPhase, path, type) values(?, ?, ?, ?)")
->execute($buildId, basename($logPath), $logPath, "raw");
} }
} }
}
$dbh->commit; });
} }