c50b1ca3fa
Usernames seen by the bot are now cached in the $usernames table. To get the ID associated with a username, use the resolve_username() function from utilities.lua. The table_size() function in utilities.lua will tell you the number of items in a key/pair table. about.lua no longer displays a link preview in the about message. currency.lua now accepts decimal arguments for the amount. luarun.lua now correctly displays "false" return values. moderation.lua will no longer send "I do not administrate this group".
80 lines
1.8 KiB
Lua
Executable File
80 lines
1.8 KiB
Lua
Executable File
local command = 'reddit [r/subreddit | query]'
|
|
local doc = [[```
|
|
/reddit [r/subreddit | query]
|
|
Returns the four (if group) or eight (if private message) top posts for the given subreddit or query, or from the frontpage.
|
|
Aliases: /r, /r/[subreddit]
|
|
```]]
|
|
|
|
local triggers = {
|
|
'^/reddit[@'..bot.username..']*',
|
|
'^/r[@'..bot.username..']*$',
|
|
'^/r[@'..bot.username..']* ',
|
|
'^/r/'
|
|
}
|
|
|
|
local action = function(msg)
|
|
|
|
msg.text_lower = msg.text_lower:gsub('/r/', '/r r/')
|
|
local input = msg.text_lower:input()
|
|
local url
|
|
|
|
local limit = 4
|
|
if msg.chat.id == msg.from.id then
|
|
limit = 8
|
|
end
|
|
|
|
local source
|
|
if input then
|
|
if input:match('^r/.') then
|
|
url = 'http://www.reddit.com/' .. input .. '/.json?limit=' .. limit
|
|
source = '*/r/' .. input:match('^r/(.+)') .. '*\n'
|
|
else
|
|
url = 'http://www.reddit.com/search.json?q=' .. input .. '&limit=' .. limit
|
|
source = '*reddit results for* _' .. input .. '_ *:*\n'
|
|
end
|
|
else
|
|
url = 'http://www.reddit.com/.json?limit=' .. limit
|
|
source = '*/r/all*\n'
|
|
end
|
|
|
|
local jstr, res = HTTP.request(url)
|
|
if res ~= 200 then
|
|
sendReply(msg, config.errors.connection)
|
|
return
|
|
end
|
|
|
|
local jdat = JSON.decode(jstr)
|
|
if #jdat.data.children == 0 then
|
|
sendReply(msg, config.errors.results)
|
|
return
|
|
end
|
|
|
|
local output = ''
|
|
for i,v in ipairs(jdat.data.children) do
|
|
local title = v.data.title:gsub('%[.+%]', ''):gsub('&', '&')
|
|
if title:len() > 48 then
|
|
title = title:sub(1,45) .. '...'
|
|
end
|
|
if v.data.over_18 then
|
|
v.data.is_self = true
|
|
end
|
|
local short_url = 'redd.it/' .. v.data.id
|
|
output = output .. '• [' .. title .. '](' .. short_url .. ')\n'
|
|
if not v.data.is_self then
|
|
output = output .. v.data.url:gsub('_', '\\_') .. '\n'
|
|
end
|
|
end
|
|
|
|
output = source .. output
|
|
|
|
sendMessage(msg.chat.id, output, true, nil, true)
|
|
|
|
end
|
|
|
|
return {
|
|
action = action,
|
|
triggers = triggers,
|
|
doc = doc,
|
|
command = command
|
|
}
|