local http = require("socket.http")
local string = require("string")
local ltn12 = require ("ltn12")

local function encode_table(table)
    local str = ""

    local function char2hexcode(c)
        return string.format("%%%02X", string.byte(c))
    end

    local function escape(str)
        str = string.gsub(str, "\n", "\r\n")
        str = string.gsub(str, "([^0-9a-zA-Z_. -])", char2hexcode)
        str = string.gsub(str, " ", "+")
        return str
    end

    for key, vals in pairs(table) do
        if type(vals) ~= "table" then
            vals = {vals}
        end
        for k, val in pairs(vals) do
            str = str .. "&" .. escape(key) .. "=" ..escape(val)
        end
    end
    return string.sub(str,2)
end

local function edbot(msg)
    local params = {
        ['server'] = '0.0.0.0:8085',
        ['charset_post'] = "utf-8",
        ['charset'] = 'utf-8',
        ['pure'] = 1,
        ['js'] = 0,
        ['tst'] = 1,
        ['msg'] = tostring(msg),
    }

    local data = encode_table(params)
    local response = {}

    r, c, h = http.request ({
        method = "POST",
        url = "http://www.ed.conpet.gov.br/mod_perl/bot_gateway.cgi",
        headers = {
            ["content-type"] = "application/x-www-form-urlencoded",
            ["content-length"] = string.len(data),
        },
        source = ltn12.source.string(data),
        sink = ltn12.sink.table(response)
    })

    if response[1] ~= nil then
        return tostring(response[1]):gsub('<[^<>]*>', ''):gsub('\n', '')
    end
end

function run(msg, matches)
    return edbot(matches[1])
end

return {
    description = "Edbot",
    usage = "toguro: word or phrase",
    patterns = { "^toguro: (.*)$" },
    run = run
}