! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: formatting kernel mason.email math sequences
webapps.mason.backend xml.syntax xml.writer ;
IN: webapps.mason.backend.watchdog
: crashed-builder-body ( crashed-builders -- string content-type )
[ os/cpu [XML <-> XML] ] map
Machines which are not sending heartbeats:
Dashboard
XML> xml>string
"text/html" ;
: crashed-builder-subject ( crashed-builders -- string )
length dup 1 > "" "s" ?
"Take note: %d crashed build machine%s" sprintf ;
: send-crashed-builder-email ( crashed-builders -- )
[ crashed-builder-body ]
[ crashed-builder-subject ] bi
mason-email ;
: check-builders ( -- )
[
funny-builders drop
[ send-crashed-builder-email ] unless-empty
] with-mason-db ;