send-report ( site -- )

Vocabulary

site-watcher.private

Inputs

site

an object

Outputs

None

Definition

USING: accessors kernel sequences site-watcher.email ;

IN: site-watcher.private

: send-report ( site -- )
    [ ] [ dup up?>> [ site-up-email ] [ site-down-email ] if ]
    [ [ url>> ] [ up?>> "up" "down" ? ] bi " is " glue ] tri
    send-site-email ;