diff --git a/extra/mason/server/server.factor b/extra/mason/server/server.factor index 71de2cf7b6..1b00c16576 100644 --- a/extra/mason/server/server.factor +++ b/extra/mason/server/server.factor @@ -71,6 +71,13 @@ counter "COUNTER" { { [ not ] [ 1 weeks ago before? ] } 1|| ] filter ; +: funny-builders ( -- crashed broken limbo ) + builder new select-tuples + [ [ current-timestamp>> 5 hours ago before? ] filter ] + [ [ clean-timestamp>> 1 weeks ago before? ] filter ] + [ [ [ clean-git-id>> ] [ release-git-id>> ] bi = not ] filter ] + tri ; + : mason-db ( -- db ) "resource:mason.db" ; : with-mason-db ( quot -- ) diff --git a/extra/webapps/mason/dashboard.xml b/extra/webapps/mason/dashboard.xml index d6d4651ece..547e3441d1 100644 --- a/extra/webapps/mason/dashboard.xml +++ b/extra/webapps/mason/dashboard.xml @@ -4,15 +4,17 @@ Mason dashboard

Crashed build machines

-

Crashed machines have not sent a heartbeat for several hours:

- +

Machines which have not sent a heartbeat for several hours:

Broken build machines

-

Broken machines have not had a successful build for over a week:

- +

Machines which have not had a successful build for over a week:

+

Build machines in limbo

+

Machines with a clean build that have not uploaded binary for that build:

+ +

Force build now

Requires build engineer status.

diff --git a/extra/webapps/mason/dashboard/dashboard.factor b/extra/webapps/mason/dashboard/dashboard.factor index cae5932b35..2bd92879cb 100644 --- a/extra/webapps/mason/dashboard/dashboard.factor +++ b/extra/webapps/mason/dashboard/dashboard.factor @@ -17,7 +17,10 @@ IN: webapps.mason.downloads [ [ - crashed-builders builder-list "crashed" set-value - broken-builders builder-list "broken" set-value + funny-builders + [ builder-list ] tri@ + [ "crashed" set-value ] + [ "broken" set-value ] + [ "limbo" set-value ] tri* ] with-mason-db ] >>init ;