twitter: use https to get request and access tokens now that http.client is up to spec
parent
a7dec01453
commit
23f2a82d47
|
@ -27,7 +27,7 @@ PRIVATE>
|
||||||
|
|
||||||
: obtain-twitter-request-token ( -- request-token )
|
: obtain-twitter-request-token ( -- request-token )
|
||||||
[
|
[
|
||||||
"http://twitter.com/oauth/request_token"
|
"https://twitter.com/oauth/request_token"
|
||||||
<request-token-params>
|
<request-token-params>
|
||||||
obtain-request-token
|
obtain-request-token
|
||||||
] with-twitter-oauth ;
|
] with-twitter-oauth ;
|
||||||
|
@ -38,7 +38,7 @@ PRIVATE>
|
||||||
|
|
||||||
: obtain-twitter-access-token ( request-token verifier -- access-token )
|
: obtain-twitter-access-token ( request-token verifier -- access-token )
|
||||||
[
|
[
|
||||||
[ "http://twitter.com/oauth/access_token" ] 2dip
|
[ "https://twitter.com/oauth/access_token" ] 2dip
|
||||||
<access-token-params>
|
<access-token-params>
|
||||||
swap >>verifier
|
swap >>verifier
|
||||||
swap >>request-token
|
swap >>request-token
|
||||||
|
|
Loading…
Reference in New Issue