Vocabulary
furnace.auth.providers

Inputs
emailan object
usernamean object
provideran object


Outputs
user/fan object


Definition


:: 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 ;