webapps.mason: show build machines that didn't upload binaries despite building clean

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" <sqlite-db> ;
 
 : with-mason-db ( quot -- )

extra/webapps/mason/dashboard.xml

@@ -4,15 +4,17 @@
 	<t:title>Mason dashboard</t:title>
 
 	<h1>Crashed build machines</h1>
-	<p>Crashed machines have not sent a heartbeat for several hours:</p>
-
+	<p>Machines which have not sent a heartbeat for several hours:</p>
 	<t:xml t:name="crashed" />
 
 	<h1>Broken build machines</h1>
-	<p>Broken machines have not had a successful build for over a week:</p>
-
+	<p>Machines which have not had a successful build for over a week:</p>
 	<t:xml t:name="broken" />
 
+	<h1>Build machines in limbo</h1>
+	<p>Machines with a clean build that have not uploaded binary for that build:</p>
+	<t:xml t:name="limbo" />
+
 	<h1>Force build now</h1>
 	<p>Requires build engineer status.</p>
 

extra/webapps/mason/dashboard/dashboard.factor

@@ -17,7 +17,10 @@ IN: webapps.mason.downloads
     <page-action>
     [
         [
-            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 ;