725261fcf7
Relicense to AGPLv3, with consent of contributors. bindings.lua completely rewritten. Shift to multipart-post. Updated readme. New plugins: bing.lua, channel.lua. Removed plugins: floodcontrol.lua, librefm.lua. luarun.lua: Will now serialize returned tables. Aliased "/return" to "/lua return".
52 lines
1.5 KiB
Lua
52 lines
1.5 KiB
Lua
local dilbert = {}
|
|
|
|
local HTTP = require('socket.http')
|
|
local URL = require('socket.url')
|
|
local bindings = require('bindings')
|
|
local utilities = require('utilities')
|
|
|
|
dilbert.command = 'dilbert [date]'
|
|
dilbert.doc = [[```
|
|
/dilbert [YYYY-MM-DD]
|
|
Returns the latest Dilbert strip or that of the provided date.
|
|
Dates before the first strip will return the first strip. Dates after the last trip will return the last strip.
|
|
Source: dilbert.com
|
|
```]]
|
|
|
|
function dilbert:init()
|
|
dilbert.triggers = utilities.triggers(self.info.username):t('dilbert', true).table
|
|
end
|
|
|
|
function dilbert:action(msg)
|
|
|
|
bindings.sendChatAction(self, { chat_id = msg.chat.id, action = 'upload_photo' } )
|
|
|
|
local input = utilities.input(msg.text)
|
|
if not input then input = os.date('%F') end
|
|
if not input:match('^%d%d%d%d%-%d%d%-%d%d$') then input = os.date('%F') end
|
|
|
|
local url = 'http://dilbert.com/strip/' .. URL.escape(input)
|
|
local str, res = HTTP.request(url)
|
|
if res ~= 200 then
|
|
utilities.send_reply(self, msg, self.config.errors.connection)
|
|
return
|
|
end
|
|
|
|
local strip_filename = '/tmp/' .. input .. '.gif'
|
|
local strip_file = io.open(strip_filename)
|
|
if strip_file then
|
|
strip_file:close()
|
|
strip_file = strip_filename
|
|
else
|
|
local strip_url = str:match('<meta property="og:image" content="(.-)"/>')
|
|
strip_file = utilities.download_file(strip_url, '/tmp/' .. input .. '.gif')
|
|
end
|
|
|
|
local strip_title = str:match('<meta property="article:publish_date" content="(.-)"/>')
|
|
|
|
bindings.sendPhoto(self, { chat_id = msg.chat.id, caption = strip_title }, { photo = strip_file } )
|
|
|
|
end
|
|
|
|
return dilbert
|