with-smtp-connection ( quot -- )

Vocabulary

smtp

Inputs

quot	a quotation

Outputs

None

Word description

Connects to an SMTP server using credentials and settings stored in smtp-config and calls the quotation.

Notes

This word is used to implement send-email and there is probably no reason to call it directly.

Definition

USING: accessors io.encodings.ascii io.sockets io.timeouts
kernel namespaces ;

IN: smtp

: with-smtp-connection ( quot -- )
    smtp-config get server>> dup log-smtp-connection ascii [
        smtp-config get
        [ [ host-name or ] change-domain drop ]
        [ read-timeout>> timeouts ] bi call
    ] with-client ; inline