Skip to content

Instantly share code, notes, and snippets.

@keith-miller

keith-miller/oauth_example.erl

Created May 30, 2012 18:00
Download ZIP

Revisions

  1. @invalid-email-address Anonymous created this gist May 30, 2012.
    13 changes: 13 additions & 0 deletions oauth_example.erl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,13 @@
    oauth_post(header, URL, Params, Consumer, Token, TokenSecret, Realm, Domain) ->
    Signed = oauth:sign("POST", URL, Params, Consumer, Token, TokenSecret),
    {AuthorizationParams, QueryParams} = lists:partition(fun({K, _}) -> lists:prefix("oauth_", K) end, Signed),
    Request = {oauth:uri(URL, QueryParams), header(AuthorizationParams, Domain, Realm),
    "application/x-www-form-urlencoded", ""},
    httpc:request(post, Request, [{autoredirect, false}], [{headers_as_is, true}]).

    header(Params, Domain, Realm) ->
    RealmHeader = string:concat(string:concat("OAuth realm=\"", Realm), "\", "),
    [{"Host", Domain},
    {"Connection", "keep-alive"},
    {"Content-Type", "application/x-www-form-urlencoded"},
    {"Authorization", string:concat(RealmHeader, oauth:header_params_encode(Params))}].