diff --git a/src/lib/Hydra/Controller/Root.pm b/src/lib/Hydra/Controller/Root.pm index 5109b3b8..728f10ba 100644 --- a/src/lib/Hydra/Controller/Root.pm +++ b/src/lib/Hydra/Controller/Root.pm @@ -109,6 +109,10 @@ sub queue_summary :Local :Path('queue-summary') :Args(0) { "select project, jobset, count(*) as queued, min(timestamp) as oldest, max(timestamp) as newest from Builds " . "where finished = 0 group by project, jobset order by queued desc", { Slice => {} }); + + $c->stash->{systems} = dbh($c)->selectall_arrayref( + "select system, count(*) as c from Builds where finished = 0 group by system order by c desc", + { Slice => {} }); } diff --git a/src/root/queue-summary.tt b/src/root/queue-summary.tt index 277da444..b6cd4339 100644 --- a/src/root/queue-summary.tt +++ b/src/root/queue-summary.tt @@ -28,6 +28,23 @@ + + + + + + + + + [% FOREACH s IN systems %] + + + + + [% END %] + +
System type# Queued
[% HTML.escape(s.system) %][% s.c %]
+ [% END %] [% END %]