Akamaru/Mikubot-2
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Twitter-User: Ersetze URLs auf "richtige" Art

Browse Source
This commit is contained in:
Andreas Bielawski 2016-09-25 20:54:57 +02:00
parent 3122bed667
commit d72b58ee3f
1 changed files with 13 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
otouto/plugins/twitter_user.lua
View File

@ -38,29 +38,11 @@ local client = OAuth.new(consumer_key, consumer_secret, {
OAuthTokenSecret = access_token_secret OAuthTokenSecret = access_token_secret
}) })
function twitter_user:resolve_url(url)
local response_body = {}
local request_constructor = {
url = url,
method = "HEAD",
sink = ltn12.sink.table(response_body),
headers = {},
redirect = false
}
local ok, response_code, response_headers, response_status_line = http.request(request_constructor)
if ok and response_headers.location then
return response_headers.location
else
return url
end
end
function twitter_user:action(msg, config, matches) function twitter_user:action(msg, config, matches)
local twitter_url = "https://api.twitter.com/1.1/users/show/"..matches[1]..".json" local twitter_url = "https://api.twitter.com/1.1/users/show/"..matches[1]..".json"
local response_code, response_headers, response_status_line, response_body = client:PerformRequest("GET", twitter_url) local response_code, response_headers, response_status_line, response_body = client:PerformRequest("GET", twitter_url)
local response = json.decode(response_body)
if response_code ~= 200 then return end if response_code ~= 200 then return end
local response = json.decode(response_body)
local full_name = response.name local full_name = response.name
local user_name = response.screen_name local user_name = response.screen_name
@ -79,13 +61,23 @@ function twitter_user:action(msg, config, matches)
location = '' location = ''
end end
if response.url and response.location ~= '' then if response.url and response.location ~= '' then
url = ' | '..twitter_user:resolve_url(response.url)..'\n' url = ' | '..response.url..'\n'
elseif response.url and response.location == '' then elseif response.url and response.location == '' then
url = twitter_user:resolve_url(response.url)..'\n' url = response.url..'\n'
else else
url = '\n' url = '\n'
end end
-- replace short url
if response.entities.url then
for k, v in pairs(response.entities.url.urls) do
local short = v.url
local long = v.expanded_url
local long = long:gsub('%%', '%%%%')
url = url:gsub(short, long)
end
end
local body = description..'\n'..location..url local body = description..'\n'..location..url
local favorites = comma_value(response.favourites_count) local favorites = comma_value(response.favourites_count)