Lua Requires Chilkat v11.0.0+
Lua
Twitter OAuth1 Authorization (3-legged)
See more OAuth1 Examples
Demonstrates 3-legged OAuth1 authorization for Twitter.This example is deprecated and no longer valid.
Chilkat Lua Downloads
-- In the following call to loadlib, change the path (./chilkat.dll) to the relative or absolute directory where the chilkat.dll, chilkat.so, or chilkat.dylib is located.
chilkat = assert(package.loadlib("./chilkat.dll", "luaopen_chilkat"))()
print(chilkat._VERSION)
local success = false
local consumerKey = "TWITTER_CONSUMER_KEY"
local consumerSecret = "TWITTER_CONSUMER_SECRET"
local requestTokenUrl = "https://api.twitter.com/oauth/request_token"
local authorizeUrl = "https://api.twitter.com/oauth/authorize"
local accessTokenUrl = "https://api.twitter.com/oauth/access_token"
-- The port number is picked at random. It's some unused port that won't likely conflict with anything else..
local callbackUrl = "http://localhost:3017/"
local callbackLocalPort = 3017
-- The 1st step in 3-legged OAuth1.0a is to send a POST to the request token URL to obtain an OAuth Request Token
local http = chilkat.newHttp{}
http:setOAuth1(true)
http:setOAuthConsumerKey(consumerKey)
http:setOAuthConsumerSecret(consumerSecret)
local req = chilkat.newHttpRequest{}
req:AddParam("oauth_callback",callbackUrl)
req:setHttpVerb("POST")
req:setContentType("application/x-www-form-urlencoded")
local resp = chilkat.newHttpResponse{}
success = http:HttpReq(requestTokenUrl,req,resp)
if success == false then
print(http:LastErrorText())
end
-- If successful, the resp.BodyStr contains something like this:
-- oauth_token=-Wa_KwAAAAAAxfEPAAABV8Qar4Q&oauth_token_secret=OfHY4tZBX2HK4f7yIw76WYdvnl99MVGB&oauth_callback_confirmed=true
print(resp:BodyStr())
if resp:StatusCode() ~= 200 then
print("Failed response status code: ", resp:StatusCode())
end
local hashTab = chilkat.newHashtable{}
hashTab:AddQueryParams(resp:BodyStr())
local requestToken = hashTab:LookupStr("oauth_token")
local requestTokenSecret = hashTab:LookupStr("oauth_token_secret")
http:setOAuthTokenSecret(requestTokenSecret)
print("oauth_token = ", requestToken)
print("oauth_token_secret = ", requestTokenSecret)
-- ---------------------------------------------------------------------------
-- The next step is to form a URL to send to the authorizeUrl
-- This is an HTTP GET that we load into a popup browser.
local sbUrlForBrowser = chilkat.newStringBuilder{}
sbUrlForBrowser:Append(authorizeUrl)
sbUrlForBrowser:Append("?oauth_token=")
sbUrlForBrowser:Append(requestToken)
local url = sbUrlForBrowser:GetAsString()
-- Launch the system's default browser navigated to the URL.
local oauth2 = chilkat.newOAuth2{}
success = oauth2:LaunchBrowser(url)
if success == false then
print(oauth2:LastErrorText())
end
-- When the url is loaded into a browser, the response from Twitter will redirect back to localhost:3017
-- We'll need to start a socket that is listening on port 3017 for the callback from the browser.
local listenSock = chilkat.newSocket{}
local backLog = 5
success = listenSock:BindAndListen(callbackLocalPort,backLog)
if success == false then
print(listenSock:LastErrorText())
end
-- Wait for the browser's connection in a background thread.
-- (We'll send load the URL into the browser following this..)
-- Wait a max of 60 seconds before giving up.
local sock = chilkat.newSocket{}
local maxWaitMs = 60000
local task = listenSock:AcceptNextAsync(maxWaitMs,sock)
task:Run()
-- Wait for the listenSock's task to complete.
success = task:Wait(maxWaitMs)
if !success || (task:StatusInt() ~= 7) || (task:TaskSuccess() ~= true) then
if !success then
-- The task.LastErrorText applies to the Wait method call.
print(task:LastErrorText())
else
-- The ResultErrorText applies to the underlying task method call (i.e. the AcceptNextConnection)
print(task:Status())
print(task:ResultErrorText())
end
end
-- If we get to this point, the connection from the browser arrived and was accepted.
-- We no longer need the listen socket...
-- Stop listening on port 3017.
listenSock:Close(10)
-- Read the start line of the request..
local startLine = sock:ReceiveUntilMatch("\r\n")
if sock:LastMethodSuccess() == false then
print(sock:LastErrorText())
end
-- Read the request header.
local requestHeader = sock:ReceiveUntilMatch("\r\n\r\n")
if sock:LastMethodSuccess() == false then
print(sock:LastErrorText())
end
-- The browser SHOULD be sending us a GET request, and therefore there is no body to the request.
-- Once the request header is received, we have all of it.
-- We can now send our HTTP response.
local sbResponseHtml = chilkat.newStringBuilder{}
sbResponseHtml:Append("<html><body><p>Chilkat thanks you!</b></body</html>")
local sbResponse = chilkat.newStringBuilder{}
sbResponse:Append("HTTP/1.1 200 OK\r\n")
sbResponse:Append("Content-Length: ")
sbResponse:AppendInt(sbResponseHtml:Length())
sbResponse:Append("\r\n")
sbResponse:Append("Content-Type: text/html\r\n")
sbResponse:Append("\r\n")
sbResponse:AppendSb(sbResponseHtml)
sock:SendString(sbResponse:GetAsString())
sock:Close(50)
-- The information we need is in the startLine.
-- For example, the startLine will look like this:
-- GET /?oauth_token=abcdRQAAZZAAxfBBAAABVabcd_k&oauth_verifier=9rdOq5abcdCe6cn8M3jabcdj3Eabcd HTTP/1.1
local sbStartLine = chilkat.newStringBuilder{}
sbStartLine:Append(startLine)
local numReplacements = sbStartLine:Replace("GET /?","")
numReplacements = sbStartLine:Replace(" HTTP/1.1","")
sbStartLine:Trim()
-- oauth_token=abcdRQAAZZAAxfBBAAABVabcd_k&oauth_verifier=9rdOq5abcdCe6cn8M3jabcdj3Eabcd
print("startline: ", sbStartLine:GetAsString())
hashTab:Clear()
hashTab:AddQueryParams(sbStartLine:GetAsString())
requestToken = hashTab:LookupStr("oauth_token")
local authVerifier = hashTab:LookupStr("oauth_verifier")
-- ------------------------------------------------------------------------------
-- Finally , we must exchange the OAuth Request Token for an OAuth Access Token.
http:setOAuthToken(requestToken)
http:setOAuthVerifier(authVerifier)
-- We don't need the "Authorization: OAuth ..." header for this POST.
http:setOAuth1(false)
req:RemoveParam("oauth_callback")
req:AddParam("oauth_verifier",authVerifier)
req:AddParam("oauth_token",requestToken)
req:setHttpVerb("POST")
req:setContentType("application/x-www-form-urlencoded")
success = http:HttpReq(accessTokenUrl,req,resp)
if success == false then
print(http:LastErrorText())
end
-- Make sure a successful response was received.
if resp:StatusCode() ~= 200 then
print(resp:StatusLine())
print(resp:Header())
print(resp:BodyStr())
end
-- If successful, the resp.BodyStr contains something like this:
-- oauth_token=85123455-fF41296Bi3daM8eCo9Y5vZabcdxXpRv864plYPOjr&oauth_token_secret=afiYJOgabcdSfGae7BDvJVVTwys8fUGpra5guZxbmFBZo&user_id=85612355&screen_name=chilkatsoft&x_auth_expires=0
print(resp:BodyStr())
hashTab:Clear()
hashTab:AddQueryParams(resp:BodyStr())
local accessToken = hashTab:LookupStr("oauth_token")
local accessTokenSecret = hashTab:LookupStr("oauth_token_secret")
local userId = hashTab:LookupStr("user_id")
local screenName = hashTab:LookupStr("screen_name")
-- The access token + secret is what should be saved and used for
-- subsequent REST API calls.
print("Access Token = ", accessToken)
print("Access Token Secret = ", accessTokenSecret)
print("user_id = ", userId)
print("screen_name = ", screenName)
-- Save this access token for future calls.
-- Just in case we need user_id and screen_name, save those also..
local json = chilkat.newJsonObject{}
json:AppendString("oauth_token",accessToken)
json:AppendString("oauth_token_secret",accessTokenSecret)
json:AppendString("user_id",userId)
json:AppendString("screen_name",screenName)
local fac = chilkat.newFileAccess{}
fac:WriteEntireTextFile("qa_data/tokens/twitter.json",json:Emit(),"utf-8",false)
print("Success.")