! Copyright (C) 2010 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: kernel math math.parser sequences xml.syntax xml.writer mason.email webapps.mason.backend ; 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" ; : s ( n before after -- string ) pick 1 > [ "s" append ] when [ number>string ] 2dip surround ; : crashed-builder-subject ( crashed-builders -- string ) length "Take note: " " crashed build machine" s ; : 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 ;