This repository has been archived on 2021-04-24. You can view files and clone it, but cannot push or open issues or pull requests.
Mikubot/plugins/twitter_user.lua

98 lines
3.3 KiB
Lua
Raw Permalink Normal View History

local OAuth = require "OAuth"
local consumer_key = cred_data.tw_consumer_key
local consumer_secret = cred_data.tw_consumer_secret
local access_token = cred_data.tw_access_token
local access_token_secret = cred_data.tw_access_token_secret
local client = OAuth.new(consumer_key, consumer_secret, {
RequestToken = "https://api.twitter.com/oauth/request_token",
AuthorizeUser = {"https://api.twitter.com/oauth/authorize", method = "GET"},
AccessToken = "https://api.twitter.com/oauth/access_token"
}, {
OAuthToken = access_token,
OAuthTokenSecret = access_token_secret
})
local function 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 run(msg, matches)
if consumer_key:isempty() then
return "Twitter Consumer Key ist leer, führe !creds add tw_consumer_key KEY aus"
end
if consumer_secret:isempty() then
return "Twitter Consumer Secret ist leer, führe !creds add tw_consumer_secret KEY aus"
end
if access_token:isempty() then
return "Twitter Access Token ist leer, führe !creds add tw_access_token KEY aus"
end
if access_token_secret:isempty() then
return "Twitter Access Token Secret ist leer, führe !creds add tw_access_token_secret KEY aus"
end
local receiver = get_receiver(msg)
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 = json:decode(response_body)
local full_name = response.name
local user_name = response.screen_name
if response.verified then
user_name = user_name..''
end
if response.protected then
user_name = user_name..' 🔒'
end
local header = full_name.. " (@" ..user_name.. ")\n"
local description = unescape(response.description)
if response.location then
location = response.location
else
location = ''
end
if response.url and response.location ~= '' then
url = ' | '..resolve_url(response.url)..'\n'
elseif response.url and response.location == '' then
url = resolve_url(response.url)..'\n'
else
url = '\n'
end
local body = description..'\n'..location..url
local favorites = comma_value(response.favourites_count)
local follower = comma_value(response.followers_count)
local following = comma_value(response.friends_count)
local statuses = comma_value(response.statuses_count)
local footer = statuses..' Tweets, '..follower..' Follower, '..following..' folge ich, '..favorites..' Tweets favorisiert'
local pic_url = string.gsub(response.profile_image_url_https, "normal", "400x400")
local file = download_to_file(pic_url)
local cb_extra = {file_path=file}
send_photo(receiver, file, ok_cb, false)
return header..body..footer
end
return {
description = "Sendet Informationen über Twitter-User",
usage = "URL zu Twitter-User",
patterns = {"twitter.com/@?([A-Za-z0-9-_-.-_-]+)$"},
run = run
}