Mikubot-2/otouto/plugins/apod.lua

 -- Credit to Heitor (tg:Wololo666; gh:heitorPB) for this plugin.

local apod = {}

local HTTPS = require('ssl.https')
local JSON = require('dkjson')
local URL = require('socket.url')
local utilities = require('otouto.utilities')

apod.command = 'apod [date]'

function apod:init(config)
    apod.triggers = utilities.triggers(self.info.username, config.cmd_pat):t('apod', true).table
    apod.doc = [[
/apod [YYYY-MM-DD]
Returns the Astronomy Picture of the Day.
Source: nasa.gov
    ]]
    apod.doc = apod.doc:gsub('/', config.cmd_pat)
    apod.base_url = 'https://api.nasa.gov/planetary/apod?api_key=' .. (config.nasa_api_key or 'DEMO_KEY')
end

function apod:action(msg, config)
    local input = utilities.input(msg.text)
    local url = apod.base_url
    local date = os.date('%F')
    if input then
        if input:match('^(%d+)%-(%d+)%-(%d+)$') then
            url = url .. '&date=' .. URL.escape(input)
            date = input
        end
    end

    local jstr, code = HTTPS.request(url)
    if code ~= 200 then
        utilities.send_reply(self, msg, config.errors.connection)
        return
    end

    local data = JSON.decode(jstr)
    if data.error then
        utilities.send_reply(self, msg, config.errors.results)
        return
    end

    local output = string.format(
        '<b>%s (</b><a href="%s">%s</a><b>)</b>\n%s',
        utilities.html_escape(data.title),
        utilities.html_escape(data.hdurl or data.url),
        date,
        utilities.html_escape(data.explanation)
    )
    utilities.send_message(self, msg.chat.id, output, false, nil, 'html')
end

return apod