-- name = "Uptimerobot"
-- description = "Shows uptime information from uptimerobot.com. Needs API key."
-- data_source = "uptimerobot.com"
-- type = "widget"
-- author = "Evgeny Zobnin (zobnin@gmail.com)"
-- version = "1.1"
-- arguments_help = "Enter your API key"

local json = require "json"
local md_colors = require "md_colors"

-- constants
local api_url = "https://api.uptimerobot.com/v2/"
local click_url = "https://uptimerobot.com/dashboard#mainDashboard"
local media_type = "application/x-www-form-urlencoded"

function on_preview()
    if (next(settings:get()) == nil) then
        ui:show_text("Shows uptime information from uptimerobot.com")
        return
    else
        on_alarm()
    end
end

function on_alarm()
    if (next(settings:get()) == nil) then
        ui:show_text("Tap to enter API key")
        return
    end

    local key = settings:get()[1]
    local body = "api_key="..key.."&format=json"

    http:post(api_url.."getMonitors", body, media_type)
end

function on_click()
    if (next(settings:get()) == nil) then
        settings:show_dialog()
    else
        system:open_browser(click_url)
    end
end

function on_network_result(result, code)
    if (code >= 400) then
        ui:show_text("Error: "..code)
        return
    end

    local parsed = json.decode(result)

    if (parsed.stat ~= "ok") then
        ui:show_text("Error: "..parsed.error.message)
        return
    end

    local strings_tab = {}

    for k,v in ipairs(parsed.monitors) do
        strings_tab[k] = v.friendly_name..": "..format_status(v.status)
    end

    ui:show_table(table_to_tables(strings_tab, 2))
end

-- utils

function format_status(status)
    local statuses = { "not checked", "up", "error", "error", "error", "error", "error", "seems down", "down" }
    local status_colors = { "yellow_500", "green_500", "red_500", "red_500", "red_500", "red_500", "red_500", "orange_500", "red_500" }

    local status_str = statuses[status] or "unknown"
    local status_color = md_colors[status_colors[status]] or md_colors["grey_500"]

    return "<font color=\""..status_color.."\">"..status_str.."</font>"
end

function table_to_tables(tab, num)
    local out_tab = {}
    local row = {}

    for k,v in ipairs(tab) do
        table.insert(row, v)
        if k % num == 0 then
            table.insert(out_tab, row)
            row = {}
        end
    end

    return out_tab
end