check-login ( password username -- user/f )

Vocabulary

furnace.auth

Inputs

password	a string
username	a string

Outputs

user/f

an user or f

Word description

Checks a username/password pair with the current authentication realm. Outputs a user if authentication succeeded, otherwise outputs f.

Definition

USING: furnace.auth.providers kernel ;

IN: furnace.auth

: check-login ( password username -- user/f )
    users get-user dup
    [ [ valid-login? ] keep and ] [ 2drop f ] if ;