send-auth ( auth -- )

Vocabulary

smtp.private

Inputs

auth

an object

Outputs

None

Definition

IN: smtp.private

GENERIC: send-auth ( auth -- )

Methods

USING: accessors kernel smtp smtp.private ;

M: login-auth send-auth
    "AUTH LOGIN" command get-ok
    [ username>> >smtp-base64 command get-ok ]
    [ password>> >smtp-base64 command get-ok ] bi ;


USING: kernel smtp smtp.private ;

M: no-auth send-auth drop ;


USING: accessors kernel sequences smtp smtp.private ;

M: plain-auth send-auth
    [ username>> ] [ password>> ] bi plain-auth-string
    "AUTH PLAIN " prepend command get-ok ;