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

hydra-queue-runner: Cache the lookup of time spent per jobset

Browse source
This commit is contained in:
Eelco Dolstra 2013-09-21 19:54:46 +00:00
parent 4cdf1a270d
commit cf43c605cd
1 changed files with 22 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/script/hydra-queue-runner
View file

@ -108,6 +108,8 @@ sub checkBuilds {
print STDERR "starting at most $extraAllowed builds for system ${\$system->system}\n"; print STDERR "starting at most $extraAllowed builds for system ${\$system->system}\n";
my $timeSpentPerJobset;
j: while ($extraAllowed-- > 0) { j: while ($extraAllowed-- > 0) {
my @runnableJobsets = $db->resultset('Builds')->search( my @runnableJobsets = $db->resultset('Builds')->search(
@ -117,6 +119,7 @@ sub checkBuilds {
next if @runnableJobsets == 0; next if @runnableJobsets == 0;
my $windowSize = 24 * 3600; my $windowSize = 24 * 3600;
my $costPerBuild = 30;
my $totalWindowSize = $windowSize * $max; my $totalWindowSize = $windowSize * $max;
my @res; my @res;
@ -124,7 +127,10 @@ sub checkBuilds {
foreach my $b (@runnableJobsets) { foreach my $b (@runnableJobsets) {
my $jobset = $db->resultset('Jobsets')->find($b->get_column('project'), $b->get_column('jobset')) or die; my $jobset = $db->resultset('Jobsets')->find($b->get_column('project'), $b->get_column('jobset')) or die;
my $duration = $jobset->builds->search( my $timeSpent = $timeSpentPerJobset->{$b->get_column('project')}->{$b->get_column('jobset')};
if (!defined $timeSpent) {
$timeSpent = $jobset->builds->search(
{ }, { },
{ where => \ ("(finished = 0 or (me.stoptime >= " . (time() - $windowSize) . "))") { where => \ ("(finished = 0 or (me.stoptime >= " . (time() - $windowSize) . "))")
, join => 'buildsteps' , join => 'buildsteps'
@ -134,7 +140,10 @@ sub checkBuilds {
# Add a 30s penalty for each started build. This # Add a 30s penalty for each started build. This
# is to account for jobsets that have running # is to account for jobsets that have running
# builds but no build steps yet. # builds but no build steps yet.
$duration += $jobset->builds->search({ finished => 0, busy => 1 })->count * 30; $timeSpent += $jobset->builds->search({ finished => 0, busy => 1 })->count * $costPerBuild;
$timeSpentPerJobset->{$b->get_column('project')}->{$b->get_column('jobset')} = $timeSpent;
}
my $share = $jobset->schedulingshares; my $share = $jobset->schedulingshares;
my $delta = ($share / $totalShares) - ($duration / $totalWindowSize); my $delta = ($share / $totalShares) - ($duration / $totalWindowSize);
@ -176,6 +185,9 @@ sub checkBuilds {
, logfile => $logfile , logfile => $logfile
}); });
push @buildsStarted, $build; push @buildsStarted, $build;
$timeSpentPerJobset->{$jobset->get_column('project')}->{$jobset->name} += $costPerBuild;
next j; next j;
} }
} }