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-2/miku/plugins/twitter.lua
2017-09-12 19:12:31 +02:00

176 lines
5.5 KiB
Lua

local twitter = {}
function twitter:init(config)
if not cred_data.tw_consumer_key then
print('Fehlender Key: tw_consumer_key.')
print('twitter.lua wird nicht aktiviert.')
return
elseif not cred_data.tw_consumer_secret then
print('Fehlender Key: tw_consumer_secret.')
print('twitter.lua wird nicht aktiviert.')
return
elseif not cred_data.tw_access_token then
print('Fehlender Key: tw_access_token.')
print('twitter.lua wird nicht aktiviert.')
return
elseif not cred_data.tw_access_token_secret then
print('Fehlender Key: tw_access_token_secret.')
print('twitter.lua wird nicht aktiviert.')
return
end
twitter.triggers = {
'twitter.com/[^/]+/statuse?s?/([0-9]+)',
'twitter.com/statuse?s?/([0-9]+)'
}
twitter.doc = [[*Twitter-Link*: Postet Tweet]]
end
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
})
function get_tweet(response)
local full_name = response.user.name
local user_name = response.user.screen_name
if response.user.verified then
verified = ''
else
verified = ''
end
local header = '<b>Tweet von '..full_name..'</b> (<a href="https://twitter.com/'..user_name..'">@' ..user_name..'</a>'..verified..'):'
local text = response.full_text
local tweet_link = '\n<a href= "https://twitter.com/'..user_name..'/status/'..response.id_str..'">Tweet aufrufen</a>'
-- favorites & retweets
if response.retweet_count == 0 then
retweets = ""
else
retweets = response.retweet_count..'x retweeted'
end
if response.favorite_count == 0 then
favorites = ""
else
favorites = response.favorite_count..'x favorisiert'
end
if retweets == "" and favorites ~= "" then
footer = '\n<i>'..favorites..'</i>'
elseif retweets ~= "" and favorites == "" then
footer = '\n<i>'..retweets..'</i>'
elseif retweets ~= "" and favorites ~= "" then
footer = '\n<i>'..retweets..' - '..favorites..'</i>'
else
footer = ""
end
-- replace short URLs
if response.entities.urls then
for k, v in pairs(response.entities.urls) do
local short = v.url
local long = v.expanded_url
local long = long:gsub('%%', '%%%%')
text = text:gsub(short, long)
end
end
-- remove images
local images = {}
local videos = {}
if response.entities.media and response.extended_entities.media then
for k, v in pairs(response.extended_entities.media) do
local url = v.url
if v.video_info then
for i in pairs(v.video_info.variants) do
if v.video_info.variants[i].content_type == 'video/mp4' then -- first mp4 is usually the highest res
local vid = v.video_info.variants[i].url
videos[#videos+1] = vid
break;
end
end
else
images[#images+1] = v.media_url_https
end
text = text:gsub(url, '')
end
end
-- quoted tweet
if response.quoted_status then
local quoted_text = response.quoted_status.full_text
local quoted_name = response.quoted_status.user.name
local quoted_screen_name = response.quoted_status.user.screen_name
if response.quoted_status.user.verified then
quoted_verified = ''
else
quoted_verified = ''
end
-- replace short URLs for quoted tweets
if response.quoted_status.entities.urls then
for k, v in pairs(response.quoted_status.entities.urls) do
local short = v.url
local long = v.expanded_url
local long = long:gsub('%%', '%%%%')
quoted_text = quoted_text:gsub(short, long)
end
end
-- same for media
if response.quoted_status.entities.media then
for k, v in pairs(response.quoted_status.entities.media) do
local short = v.url
local long = v.media_url_https
local long = long:gsub('%%', '%%%%')
quoted_text = quoted_text:gsub(short, long)
end
end
quote = '<b>Als Antwort auf '..quoted_name..'</b> (<a href="https://twitter.com/'..quoted_screen_name..'">@' ..quoted_screen_name..'</a>'..quoted_verified..'):\n'..quoted_text
text = text..'\n\n'..quote..'\n'
end
return header.."\n"..utilities.trim(text)..footer..tweet_link, images, videos
end
function twitter:action(msg, config, matches)
utilities.send_typing(msg.chat.id, 'typing')
if not matches[2] then
id = matches[1]
else
id = matches[2]
end
local twitter_url = "https://api.twitter.com/1.1/statuses/show/" .. id.. ".json"
local get_params = {tweet_mode = 'extended'}
local response_code, response_headers, response_status_line, response_body = client:PerformRequest("GET", twitter_url, get_params)
if response_code ~= 200 then
utilities.send_reply(msg, 'Twitter nicht erreichbar, Tweet existiert nicht oder User ist privat.')
return
end
local response = json.decode(response_body)
local text, images, videos = get_tweet(response)
-- send the parts
utilities.send_reply(msg, text, 'HTML')
for k, v in pairs(images) do
utilities.send_photo(msg.chat.id, v, nil, msg.message_id)
end
for k, v in pairs(videos) do
local file = download_to_file(v)
utilities.send_video(msg.chat.id, file, nil, msg.message_id)
end
end
return twitter