steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

webapps.mason: link crashed and broken to latest build reports. Fixes #274.

db4
John Benediktsson 2011-10-18 11:57:03 -07:00
parent 8d15fb1021
commit 8b724d9657
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/webapps/mason/dashboard/dashboard.factor
View File

@ -6,7 +6,7 @@ IN: webapps.mason.downloads
: builder-list ( seq -- xml ) : builder-list ( seq -- xml )
[ [
[ package-url ] [ os/cpu ] bi [ report-url ] [ os/cpu ] bi
[XML <li><a href=<->><-></a></li> XML] [XML <li><a href=<->><-></a></li> XML]
] map ] map
[ [XML <p>No machines.</p> XML] ] [ [XML <p>No machines.</p> XML] ]

15
extra/webapps/mason/utils/utils.factor
View File

@ -40,17 +40,22 @@ IN: webapps.mason.utils
: download-url ( string -- string' ) : download-url ( string -- string' )
"http://downloads.factorcode.org/" prepend ; "http://downloads.factorcode.org/" prepend ;
: package-url ( builder -- url ) : platform-url ( url builder -- url )
[ URL" http://builds.factorcode.org/package" ] dip
[ os>> "os" set-query-param ] [ os>> "os" set-query-param ]
[ cpu>> "cpu" set-query-param ] bi [ cpu>> "cpu" set-query-param ] bi
adjust-url ; adjust-url ;
: package-url ( builder -- url )
[ URL" http://builds.factorcode.org/package" ] dip
platform-url ;
: report-url ( builder -- url )
[ URL" http://builds.factorcode.org/report" ] dip
platform-url ;
: release-url ( builder -- url ) : release-url ( builder -- url )
[ URL" http://builds.factorcode.org/release" ] dip [ URL" http://builds.factorcode.org/release" ] dip
[ os>> "os" set-query-param ] platform-url ;
[ cpu>> "cpu" set-query-param ] bi
adjust-url ;
: validate-secret ( -- ) : validate-secret ( -- )
{ { "secret" [ v-one-line ] } } validate-params { { "secret" [ v-one-line ] } } validate-params