send-site-email ( watching-site body subject -- )

Vocabulary

site-watcher.email

Inputs

watching-site	an object
body	an object
subject	an object

Outputs

None

Definition

USING: accessors arrays kernel namespaces smtp ;

IN: site-watcher.email

: send-site-email ( watching-site body subject -- )
    [ account>> email>> ] 2dip pick [
        [ <email> site-watcher-from get >>from ] 3dip
        [ 1array >>to ] [ >>body ] [ >>subject ] tri* send-email
    ] [ 3drop ] if ;