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: ascii base64 continuations kernel splitting strings ;

IN: furnace.auth.basic

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