2016-03-11 23:01:36 +03:00
|
|
|
:: Test url +https://api.twitter.com/1.1/account/verify_credentials.json
|
2016-04-08 23:27:53 +03:00
|
|
|
::
|
2016-03-11 07:32:27 +03:00
|
|
|
:::: /hoon/twitter/com/sec
|
2016-03-10 03:01:15 +03:00
|
|
|
::
|
|
|
|
|
/+ oauth1
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2016-03-10 03:01:15 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2016-04-07 20:37:28 +03:00
|
|
|
|_ {bal/(bale keys:oauth1) tok/token:oauth1}
|
2016-04-08 23:27:53 +03:00
|
|
|
:: ++aut is a "standard oauth1" core, which implements the
|
|
|
|
|
:: most common handling of oauth1 semantics. see lib/oauth1 for more details,
|
|
|
|
|
:: and examples at the bottom of the file.
|
2016-04-07 20:37:28 +03:00
|
|
|
++ aut (~(standard oauth1 bal tok) . |=(tok/token:oauth1 +>(tok tok)))
|
2016-04-13 01:12:51 +03:00
|
|
|
++ filter-request
|
2016-04-08 01:49:22 +03:00
|
|
|
%+ out-add-header:aut
|
2016-04-07 20:37:28 +03:00
|
|
|
token-request='https://api.twitter.com/oauth/request_token'
|
|
|
|
|
oauth-dialog='https://api.twitter.com/oauth/authorize'
|
|
|
|
|
::
|
2016-04-13 01:12:51 +03:00
|
|
|
++ filter-response res-handle-request-token:aut
|
2016-04-07 20:37:28 +03:00
|
|
|
::
|
2016-04-13 01:12:51 +03:00
|
|
|
++ receive-auth-query-string
|
2016-04-08 05:50:48 +03:00
|
|
|
%- in-exchange-token:aut
|
2016-04-07 20:37:28 +03:00
|
|
|
exchange-url='https://api.twitter.com/oauth/access_token'
|
|
|
|
|
::
|
2016-04-13 01:12:51 +03:00
|
|
|
++ receive-auth-response bak-save-token:aut
|
|
|
|
|
:: ++ discard-state ~
|
2016-03-11 23:34:47 +03:00
|
|
|
--
|
