parse-basic-auth ( header -- username/f password/f )

Vocabulary

furnace.auth.basic

Inputs

header

an object

Outputs

username/f	an object
password/f	an object

Definition

USING: base64 kernel splitting strings ;

IN: furnace.auth.basic

: parse-basic-auth ( header -- username/f password/f )
    dup [
        " " split1 swap "Basic" =
        [ base64> >string ":" split1 ] [ drop f f ] if
    ] [ drop f f ] if ;