--
-- (C) 2013-24 - ntop.org
--
local dirs = ntop.getDirs()
package.path = dirs.installdir .. "/scripts/lua/modules/?.lua;" .. package.path
if ((dirs.scriptdir ~= nil) and (dirs.scriptdir ~= "")) then
    package.path = dirs.scriptdir .. "/lua/modules/?.lua;" .. package.path
end

require "lua_utils"
require "ntop_utils"
require "check_redis_prefs"
local page_utils = require("page_utils")

if not isAllowedSystemInterface() then return end

sendHTTPContentTypeHeader('text/html')

page_utils.print_header_and_set_active_menu_entry(
    page_utils.menu_entries.redis_status)

dofile(dirs.installdir .. "/scripts/lua/inc/menu.lua")

local page = _GET["page"] or "overview"
local url = ntop.getHttpPrefix() .. "/lua/monitor/redis_monitor.lua?"
local timeseries_available = areSystemTimeseriesEnabled()

page_utils.print_navbar(i18n("system_stats.redis.redis_monitor"), url, {
    {
        active = page == "overview" or not page,
        page_name = "overview",
        label = "<i class=\"fas fa-lg fa-home\"></i>"
    }, {
        active = page == "stats",
        page_name = "stats",
        label = "<i class=\"fas fa-lg fa-wrench\"></i>"
    }, {
        hidden = not timeseries_available,
        active = page == "historical",
        page_name = "historical",
        label = "<i class='fas fa-lg fa-chart-area'></i>"
    }
})

-- #######################################################

if (page == "overview") then
    local fa_external = "<i class='fas fa-external-link-alt'></i>"
    local tags = {ifid = getSystemInterfaceId()}
    print("<table class=\"table table-bordered table-striped\">\n")

    if not ntop.isWindows() then
        -- NOTE: on Windows, some stats are missing from script.getRedisStatus()
        print("<tr><td nowrap width='30%'><b>" .. i18n("system_stats.health") ..
                  "</b><br><small>" ..
                  i18n("system_stats.redis.short_desc_redis_health") ..
                  "</small></td><td></td><td><span id='throbber' class='spinner-border redis-info-load spinner-border-sm text-primary' role='status'><span class='sr-only'>Loading...</span></span> <span id=\"redis-health\"></span></td></tr>\n")
    end

    print("<tr><td nowrap width='30%'><b>" .. i18n("about.ram_memory") ..
              "</b><br><small>" ..
              i18n("system_stats.redis.short_desc_redis_ram_memory") ..
              "</small></td>")
    print("<td class='text-center' width=5%>")
    print(ternary(timeseries_available, "<A HREF='" .. url ..
                      "&page=historical&ts_schema=redis:memory'><i class='fas fa-lg fa-chart-area'></i></A>",
                  ""))
    print(
        "</td><td><span id='throbber' class='spinner-border redis-info-load spinner-border-sm text-primary' role='status'><span class='sr-only'>Loading...</span></span> <span id=\"redis-info-memory\"></span></td></tr>\n")

    if not ntop.isWindows() then
        print("<tr><td nowrap width='30%'><b>" ..
                  i18n("system_stats.redis.redis_keys") .. "</b><br><small>" ..
                  i18n("system_stats.redis.short_desc_redis_keys") ..
                  "</small></td>")
        print("<td class='text-center' width=5%>")
        print(ternary(timeseries_available, "<A HREF='" .. url ..
                          "&page=historical&ts_schema=redis:keys'><i class='fas fa-chart-area fa-lg'></i></A>",
                      ""))
        print(
            "</td><td><span id='throbber' class='spinner-border redis-info-load spinner-border-sm text-primary' role='status'><span class='sr-only'>Loading...</span></span> <span id=\"redis-info-keys\"></span></td></tr>\n")
    end

    print [[<script>

 var last_keys, last_memory
 var health_descr = {
]]
    print('"green" : {"status" : "<span class=\'badge bg-success\'>' ..
              i18n("system_stats.redis.redis_health_green") ..
              '</span>", "descr" : "<small>' ..
              i18n("system_stats.redis.redis_health_green_descr") ..
              '</small>"},')
    print('"red" : {"status" : "<span class=\'badge bg-danger\'>' ..
              i18n("system_stats.redis.redis_health_red") ..
              '</span>", "descr" : "<small>' ..
              i18n("system_stats.redis.redis_health_red_descr",
                   {product = ntop.getInfo()["product"]}) .. '</small>"},')
    print [[
 };

 function refreshRedisStats() {
  $.get("]]
    print(ntop.getHttpPrefix())
    print [[/lua/rest/v2/get/system/health/redis.lua", function(info) {
     $(".redis-info-load").hide();

     info = info.rsp;
     
     if(typeof info.health !== "undefined" && health_descr[info.health]) {
       $("#redis-health").html(health_descr[info.health]["status"] + "<br>" + health_descr[info.health]["descr"]);
     }
     if(typeof info.dbsize !== "undefined") {
       $("#redis-info-keys").html(NtopUtils.formatValue(info.dbsize) + " ");
       if(typeof last_keys !== "undefined")
	 $("#redis-info-keys").append(NtopUtils.drawTrend(info.dbsize, last_keys));
       last_keys = info.dbsize;
     }
     if(typeof info.memory !== "undefined") {
       $("#redis-info-memory").html(NtopUtils.bytesToVolume(info.memory) + " ");
       if(typeof last_memory !== "undefined")
	 $("#redis-info-memory").append(NtopUtils.drawTrend(info.memory, last_memory));
       last_memory = info.memory;
     }
  }).fail(function() {
     $(".redis-info-load").hide();
  });
 }

setInterval(refreshRedisStats, 5000);
refreshRedisStats();
 </script>
 ]]
    print("</table>\n")
elseif (page == "stats") then
    local json = require "dkjson"
    local template_utils = require("template_utils")

    local context = {
        ifid = interface.getId(),
        csrf = ntop.getRandomCSRFValue(),
        timeseries_available = timeseries_available
    }

    template_utils.render("pages/vue_page.template", {
        vue_page_name = "PageRedisStats",
        page_context = json.encode(context)
    })

elseif (page == "historical" and timeseries_available) then
    local graph_utils = require("graph_utils")
    graph_utils.drawNewGraphs({ifid = -1, command = _GET["redis_command"]})
end

-- #######################################################

dofile(dirs.installdir .. "/scripts/lua/inc/footer.lua")