site-up-email ( site -- body )

Vocabulary

site-watcher.private

Inputs

site

an object

Outputs

body

an object

Definition

USING: accessors calendar kernel math math.parser sequences ;

IN: site-watcher.private

: site-up-email ( site -- body )
    last-up>> ago duration>minutes 60 /mod
    [ >integer number>string ] bi@
    [ " hours, " append ] [ " minutes" append ] bi* append
    "Site was down for (at least): " prepend ;