basic-auth ( username password -- str ) (original) (raw)

basic-auth ( username password -- str )

Vocabulary
http

Inputs

username an object
password an object

Outputs

str an object

Definition

USING: base64 sequences ;

IN: http

: basic-auth ( username password -- str )
":" glue >base64 "Basic " "" prepend-as ;