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

http://github.com/abeaumont/factor · Factor · 21 lines · 17 code · 2 blank · 2 comment · 0 complexity · 5d436d419331cb076fc22067caebc992 MD5 · raw file 

    

  1. ! Copyright (C) 2010 Slava Pestov.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: accessors furnace.actions http.server.responses kernel
    4. 

  4. urls xml.syntax webapps.mason.backend webapps.mason.utils ;
    5. 

  5. IN: webapps.mason.report
    6. 

  6. 

  7. : <build-report-action> ( -- action )
    8. 

  8.     <action>
    9. 

  9.         [ validate-os/cpu ] >>init
    10. 

  10.         [
    11. 

  11.             [
    12. 

  12.                 current-builder last-report>>
    13. 

  13.                 "text/html" <content>
    14. 

  14.             ] with-mason-db
    15. 

  15.         ] >>display ;
    16. 

  16. 

  17. : report-link ( builder -- xml )
    18. 

  18.     [ URL" report" ] dip
    19. 

  19.     [ os>> "os" set-query-param ]
    20. 

  20.     [ cpu>> "cpu" set-query-param ] bi
    21. 

  21.     [XML <a href=<->>Latest build report</a> XML] ;
    22.