Move Kodi remote and Uptimerobot scripts out of the main repo

community/uptimerobot-widget.lua

@@ -0,0 +1,93 @@
+-- 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