issue-ticket ( email username provider -- user/f )

Vocabulary

furnace.auth.providers

Inputs

email	an object
username	an object
provider	an object

Outputs

user/f

an object

Definition

USING: accessors kernel math math.parser random sequences ;

IN: furnace.auth.providers

:: issue-ticket ( email username provider -- user/f )
    username provider get-user :> user user [
        user email>> length 0 > [
            user email>> email = [
                user 256 random-bits >hex >>ticket
                dup provider update-user
            ] [ f ] if
        ] [ f ] if
    ] [ f ] if ;