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

- Twitter-Plugin unterstützt längere Tweets und entkürzt URLs bei zitierten Tweets

Browse Source 
- Entferne Channels endgültig
This commit is contained in:
Andreas Bielawski 2016-09-25 20:42:45 +02:00
parent aa4429a434
commit 3122bed667
2 changed files with 25 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
otouto/plugins/channels.lua
View File

@ -1,67 +0,0 @@
local channels = {}
channels.command = 'channel <nur für Superuser>'
function channels:init(config)
channels.triggers = {
"^/channel? (enable)",
"^/channel? (disable)"
}
channels.doc = [[*
]]..config.cmd_pat..[[channel* _<enable>_/_<disable>_: Aktiviert/deaktiviert den Bot im Chat]]
end
function channels:enable_channel(msg)
local hash = 'chat:'..msg.chat.id..':disabled'
local disabled = redis:get(hash)
if disabled then
print('Setting redis variable '..hash..' to false')
redis:set(hash, false)
return 'Channel aktiviert'
else
return 'Channel ist nicht deaktiviert!'
end
end
function channels:disable_channel(msg)
local hash = 'chat:'..msg.chat.id..':disabled'
local disabled = redis:get(hash)
if disabled ~= "true" then
print('Setting redis variable '..hash..' to true')
redis:set(hash, true)
return 'Channel deaktiviert'
else
return 'Channel ist bereits deaktiviert!'
end
end
function channels:pre_process(msg, config)
-- If is sudo can reeanble the channel
if is_sudo(msg, config) then
if msg.text == "/channel enable" then
channels:enable_channel(msg)
end
end
return msg
end
function channels:action(msg, config, matches)
if not is_sudo(msg, config) then
utilities.send_reply(msg, config.errors.sudo)
return
end
-- Enable a channel
if matches[1] == 'enable' then
utilities.send_reply(msg, channels:enable_channel(msg))
return
end
-- Disable a channel
if matches[1] == 'disable' then
utilities.send_reply(msg, channels:disable_channel(msg))
return
end
end
return channels

28
otouto/plugins/twitter.lua
View File

@ -49,7 +49,8 @@ function twitter:action(msg, config, matches)
end
local twitter_url = "https://api.twitter.com/1.1/statuses/show/" .. id.. ".json"
local response_code, response_headers, response_status_line, response_body = client:PerformRequest("GET", twitter_url)
local get_params = {tweet_mode = 'extended'}
local response_code, response_headers, response_status_line, response_body = client:PerformRequest("GET", twitter_url, get_params)
local response = json.decode(response_body)
local full_name = response.user.name
@ -60,7 +61,7 @@ function twitter:action(msg, config, matches)
verified = ''
end
local header = '<b>Tweet von '..full_name..'</b> (<a href="https://twitter.com/'..user_name..'">@' ..user_name..'</a>'..verified..'):'
local text = response.text
local text = response.full_text
-- favorites & retweets
if response.retweet_count == 0 then
@ -116,7 +117,7 @@ function twitter:action(msg, config, matches)
-- quoted tweet
if response.quoted_status then
local quoted_text = response.quoted_status.text
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
@ -124,6 +125,27 @@ function twitter:action(msg, config, matches)
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