factor/extra/webapps/mason/report/report.factor

! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions http.server.responses kernel
urls xml.syntax webapps.mason.backend webapps.mason.utils ;
IN: webapps.mason.report

: build-report ( -- response )
    [
        current-builder [
            last-report>> <html-content>
        ] [ <404> ] if*
    ] with-mason-db ;

: <build-report-action> ( -- action )
    <action>
        [ validate-os/cpu ] >>init
        [ build-report ] >>display ;

: report-link ( builder -- xml )
    [ URL" report" clone ] dip
    [ os>> "os" set-query-param ]
    [ cpu>> "cpu" set-query-param ] bi
    [XML <a href=<->>Latest build report</a> XML] ;