From 6d131719be0e507d7e04b0995249e053f0d6a209 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Tue, 5 Mar 2013 18:01:44 +0100
Subject: [PATCH] Respect SystemTypes if defined

---
 src/script/hydra-queue-runner | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/script/hydra-queue-runner b/src/script/hydra-queue-runner
index f0d8b663..54bce09c 100755
--- a/src/script/hydra-queue-runner
+++ b/src/script/hydra-queue-runner
@@ -75,7 +75,7 @@ sub checkBuilds {
 
     my $machines = getMachines;
 
-    my %maxConcurrent = ();
+    my %maxConcurrent;
 
     foreach my $machineName (keys %{$machines}) {
         foreach my $system (${$machines}{$machineName}{'systemTypes'}) {
@@ -99,7 +99,10 @@ sub checkBuilds {
             my $nrActive = $db->resultset('Builds')->search(
                 {finished => 0, busy => 1, system => $system->system})->count;
 
-            my $extraAllowed = $maxConcurrent{$system} - $nrActive;
+            (my $systemTypeInfo) = $db->resultset('SystemTypes')->search({system => $system->system});
+            my $max = defined $systemTypeInfo ? $systemTypeInfo->maxconcurrent : $maxConcurrent{$system} // 2;
+
+            my $extraAllowed = $max - $nrActive;
             $extraAllowed = 0 if $extraAllowed < 0;
 
             # Select the highest-priority builds to start.
@@ -109,7 +112,7 @@ sub checkBuilds {
                   rows => $extraAllowed });
 
             print "system type `", $system->system,
-                "': $nrActive active, $maxConcurrent{$system} allowed, ",
+                "': $nrActive active, $max allowed, ",
                 "starting ", scalar(@builds), " builds\n";
 
             foreach my $build (@builds) {