email-on-paste ( url -- )

Vocabulary

webapps.pastebin

Inputs

url

an object

Outputs

None

Definition

USING: accessors furnace.utilities kernel namespaces present
sequences smtp ;

IN: webapps.pastebin

: email-on-paste ( url -- )
    pastebin-email-to get-global
    [ drop ] [
        <email> swap >>to swap adjust-url present >>body
        pastebin-email-from get-global >>from
        "New paste!" >>subject send-email
    ] if-empty ;