mirror of
https://github.com/urbit/shrub.git
synced 2024-12-04 14:58:10 +03:00
27 lines
808 B
Plaintext
27 lines
808 B
Plaintext
:: Test url +https://graph.facebook.com/v2.5/me
|
|
::
|
|
:::: /hoon/facebook/com/sec
|
|
::
|
|
/+ oauth2
|
|
::
|
|
::::
|
|
::
|
|
=+ ^= aut
|
|
%+ oauth2
|
|
dialog='https://www.facebook.com/dialog/oauth?response_type=code'
|
|
exchange='https://graph.facebook.com/v2.3/oauth/access_token'
|
|
|_ {bal/(bale keys.aut) access-token/token.aut}
|
|
++ auth ~(. aut bal /'user_about_me'/'user_posts')
|
|
++ out (out-quay:auth key='access_token' value=access-token)
|
|
++ in in-code:auth
|
|
++ bak
|
|
%- (bak-parse:auth . access-token.aut expires-in.aut ~)
|
|
|= {access-token/@t expires-in/@u}
|
|
?: (lth expires-in ^~((div ~d7 ~s1))) :: short-lived token
|
|
%^ toke-req:auth grant-type='fb_exchange_token'
|
|
[key='fb_exchange_token' value=access-token]
|
|
~
|
|
[[%redo ~] ..bak(access-token access-token)]
|
|
::++ wyp ~
|
|
--
|