snaakey/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-27 19:06:11 +00:00
parent ac89e7d4ed
commit 1810a13546
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Hydra/programs/Runner.pl
View file

@ -27,12 +27,6 @@ $db->txn_do(sub {
}); });
sub logfileForBuild {
my ($id) = @_;
return getcwd . "/logs/" . $id;
}
sub checkJobs { sub checkJobs {
print "looking for runnable jobs...\n"; print "looking for runnable jobs...\n";
@ -72,7 +66,8 @@ sub checkJobs {
"starting ", scalar(@jobs), " builds\n"; "starting ", scalar(@jobs), " builds\n";
foreach my $job (@jobs) { foreach my $job (@jobs) {
unlink(logfileForBuild $job->id); my $logfile = getcwd . "/logs/" . $job->id;
unlink($logfile);
$job->schedulingInfo->busy(1); $job->schedulingInfo->busy(1);
$job->schedulingInfo->locker($$); $job->schedulingInfo->locker($$);
$job->schedulingInfo->logfile($logfile); $job->schedulingInfo->logfile($logfile);
@ -90,10 +85,10 @@ sub checkJobs {
my $id = $job->id; my $id = $job->id;
print "starting job $id (", $job->project->name, ":", $job->attrname, ") on ", $job->system, "\n"; print "starting job $id (", $job->project->name, ":", $job->attrname, ") on ", $job->system, "\n";
eval { eval {
my $logfile = $job->schedulingInfo->logfile;
my $child = fork(); my $child = fork();
die unless defined $child; die unless defined $child;
if ($child == 0) { if ($child == 0) {
my $logfile = logfileForBuild $job->id;
open LOG, ">$logfile" or die; open LOG, ">$logfile" or die;
POSIX::dup2(fileno(LOG), 1) or die; POSIX::dup2(fileno(LOG), 1) or die;
POSIX::dup2(fileno(LOG), 2) or die; POSIX::dup2(fileno(LOG), 2) or die;