Mikubot-2/plugins/dilbert.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, msg.chat.id, '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
		bindings.sendReply(self, msg, self.config.errors.connection)
		return
	end

	local strip_file = io.open('/tmp/' .. input .. '.gif')
	if not strip_file then
		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, msg.chat.id, strip_file, strip_title)

	strip_file:close()

end

return dilbert