#!/usr/bin/lua
--[[

	Part of AREDN -- Used for creating Amateur Radio Emergency Data Networks
	Copyright (C) 2021 Tim Wilkinson
	Original Perl Copyright (C) 2015 Conrad Lara
	See Contributors file for additional contributors

	This program is free software: you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation version 3 of the License.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with this program.  If not, see <http://www.gnu.org/licenses/>.

	Additional Terms:

	Additional use restrictions exist on the AREDN(TM) trademark and logo.
		See AREDNLicense.txt for more info.

	Attributions to the AREDN Project must be retained in the source code.
	If importing this code into a new or existing project attribution
	to the AREDN project must be added to the source code.

	You must not misrepresent the origin of the material contained within.

	Modified versions must be modified to attribute to the original source
	and be marked in reasonable ways as differentiate it from the original
	version

--]]

require("nixio")
require("aredn.hardware")
require("aredn.http")
require("aredn.utils")
require("aredn.html")
require("uci")
require("aredn.info")
require("aredn.olsr")
require("iwinfo")
require('luci.jsonc')

local html = aredn.html

local node = aredn.info.get_nvram("node")
if node == "" then
    node = "NOCALL"
end
local tactical = aredn.info.get_nvram("tactical")
local config = aredn.info.get_nvram("config")
if config == "" or nixio.fs.stat("/etc/config.mesh", "type") ~= "dir" then
    config = "not set"
end
local wifiif = aredn.hardware.get_iface_name("wifi")
local my_ip = aredn.hardware.get_interface_ip4(wifiif)
if not my_ip then
    my_ip = "none"
end
local phy = iwinfo.nl80211.phyname(wifiif)
if not phy then
    phy = 0
end

local chanbw = 1
local cb = "/sys/kernel/debug/ieee80211/" .. phy .. "/ath9k/chanbw"
if not nixio.fs.stat(cb) then
    cb = "/sys/kernel/debug/ieee80211/" .. phy .. "/ath10k/chanbw"
end
if nixio.fs.stat(cb) then
    for line in io.lines(cb)
    do
        if line == "0x00000005" then
            chanbw = 4
        elseif line == "0x0000000a" then
            chanbw = 2
        end
        break
    end
end

if not nixio.fs.stat("/tmp/web") then
    nixio.fs.mkdir("/tmp/web")
end

local cursor = uci.cursor()
local node_desc = cursor:get("system", "@system[0]", "description")
local lat_lon = "<strong>Location Not Available</strong>"
local lat = cursor:get("aredn", "@location[0]", "lat")
local lon = cursor:get("aredn", "@location[0]", "lon")
if lat and lon then
    lat_lon = string.format("<center><strong>Location: </strong> %s %s</center>", lat, lon)
end

local routes = {}
local links = {}
local neighbor = {}
local wangateway = {}
local ipalias = {}
local localhosts = {}
local dtd = {}
local midcount = {}
local xlinkcount = {}
local hosts = {}
local services = {}
local history = {}

for i, node in ipairs(aredn.olsr.getOLSRRoutes())
do
    if node.genmask ~= 0 and node.etx <= 50 then
        routes[node.destination] = { etx = node.etx }
    end
end

-- low memory route reduction
local lowmemory = 1024 * tonumber(cursor:get("aredn", "@meshstatus[0]", "lowmem") or 10000)
local lowroutes = tonumber(cursor:get("aredn", "@meshstatus[0]", "lowroutes") or 1000)
if #routes > lowroutes and nixio.sysinfo().freeram < lowmemory then
    local list = {}
    for k,v in pairs(routes)
    do
        list[#list + 1] = { key = k, etx = v.etx }
    end
    table.sort(list, function (a, b) return a.etx < b.etx end)
    for i = lowroutes, #list - 1
    do
        routes[list[i].key] = nil
    end
end

-- load up arpcache
local arpcache = {}
arptable(function(a)
    if a["Flags"] ~= "0x0" and a["HW address"] ~= "00:00:00:00:00:00" then
        arpcache[a["IP address"]] = a
    end
end)

local iwrates
for i, node in ipairs(aredn.olsr.getOLSRLinks())
do
    links[node.remoteIP] = { lq = node.linkQuality, nlq = node.neighborLinkQuality, mbps = "", weight = 65536 / node.lossMultiplier }
    neighbor[node.remoteIP] = true
    local mac = arpcache[node.remoteIP]
    if mac then
        if not iwrates then
            iwrates = {}
            if wifiif ~= "br-nomesh" then
                local station = {}
                for line in io.popen("iw " .. wifiif .. " station dump"):lines()
                do
                    local mac = line:match("^Station (%S+) ")
                    if mac then
                        station = {}
                        iwrates[mac] = station
                    end
                    local txbitrate = line:match("tx bitrate:%s+([%d%.]+) MBit/s")
                    if txbitrate then
                        station.txbitrate = txbitrate
                    end
                end
            end
        end
        local station = iwrates[mac["HW address"]]
        if station then
            links[node.remoteIP].mbps = string.format("%.1f", tonumber(station.txbitrate) / chanbw)
        end
    end
end

-- discard
arpcache = nil

for i, node in ipairs(aredn.olsr.getOLSRHNA())
do
    if node.destination == "0.0.0.0" then
        wangateway[node.gateway] = true
    end
end

for i, node in ipairs(aredn.olsr.getOLSRMid())
do
    local ip = node.main.ipAddress
    for _, alias in ipairs(node.aliases)
    do
        local aip = alias.ipAddress
        ipalias[aip] = ip
        neighbor[aip] = true
        if links[aip] then
            neighbor[ip] = true
        end
    end
end

-- load the local hosts file
for line in io.lines("/etc/hosts")
do
    if line:match("^10%.") then
        local ip, name = line:match("([%d%.]+)%s+(%S+)")
        if name then
            local name9 = name:sub(1, 9)
            if name9 ~= "localhost" and name9 ~= "localnode" then
                local name7 = name:sub(1, 7)
                if name7 ~= "localap" and name7 ~= "dtdlink" then
                    if not name:match("%.") then
                        name = name .. ".local.mesh"
                    end
                    local tac = line:match("[%d%.]+%s+%S+%s+(%S+)")
                    if not tac then
                        tac = ""
                    end
                    if not localhosts[my_ip] then
                        localhosts[my_ip] = { hosts = {}, noprops = {}, aliases = {}, name = name, tactical = tac }
                    end
                    local host = localhosts[my_ip]
                    if ip == my_ip then
                        host.tactical = tac
                        host.name = name
                    else
                        host.hosts[#host.hosts + 1] = name
                    end
                    if tac == "#NOPROP" then
                        host.noprops[#host.noprops + 1] = name
                    end
                    if tac == "#ALIAS" then
                        host.aliases[#host.aliases + 1] = name
                    end
                end
            end
        end
    end
end

-- load the olsr hosts file
for line in aredn.olsr.getHostAsLines(2)
do
    local ip, name, originator = line:match("^([%d%.]+)%s+(%S+)%s+%S+%s+(%S+)")
    if ip and originator and originator ~= "myself" and (routes[ip] or routes[originator]) then
        local etx = routes[ip]
        if not etx then
            etx = routes[originator]
        end
        etx = etx.etx
        if not name:match("%.") or name:match("^mid%.[^%.]*$") then
            name = name .. ".local.mesh"
        end
        if ip == originator then
            if not hosts[originator] then
                hosts[originator] = { hosts = {} }
            end
            local host = hosts[originator]
            if host.name then
                host.tactical = name
            else
                host.name = name
                host.etx = etx
            end
        elseif name:match("^dtdlink%.") then
            dtd[originator] = true
            if links[ip] then
                links[ip].dtd = true
            end
        elseif name:match("^xlink%d+%.") then
            if not xlinkcount[originator] then
                xlinkcount[originator] = 1
            else
                xlinkcount[originator] = xlinkcount[originator] + 1
            end
            if links[ip] then
                links[ip].xlink = true
            end
        elseif name:match("^mid%d+%.") then
            if not midcount[originator] then
                midcount[originator] = 1
            else
                midcount[originator] = midcount[originator] + 1
            end
            if links[ip] then
                links[ip].tun = true
            end
        else
            if not hosts[originator] then
                hosts[originator] = { hosts = {} }
            end
            local host = hosts[originator]
            host.hosts[#host.hosts + 1] = name
        end
    end
end

-- discard
routes = nil

for line in aredn.olsr.getServicesAsLines()
do
    if line:match("^%w") then
        local url, name = line:match("^(.*)|.*|(.*)$")
        if name then
            local protocol, host, port, path = url:match("^([%w][%w%+%-%.]+)%://(.+):(%d+)/(.*)")
            if path then
                local name, originator = name:match("(.*%S)%s*#(.*)")
                if originator == " my own service" or (hosts[originator] and hosts[originator].name) then
                    if not host:match("%.local%.mesh$") then
                        host = host .. ".local.mesh"
                    end
                    if not services[host] then
                        services[host] = {}
                    end
                    if not services[host][name] then
                        if port ~= "0" then
                            services[host][name] = "<a href='" .. protocol .. "://" .. host .. ":" .. port .. "/" .. path .. "' target='_blank'>" .. name .. "</a>"
                        else
                            services[host][name] = name
                        end
                    end
                end
            end
        end
    end
end

-- load the node history
local f = io.open("/tmp/node.history")
if f then
    for line in f:lines("/tmp/node.history")
    do
        local ip, age, host = line:match("^(%S+) (%d+) (%S+)")
        if ip and age and host then
            history[ip] = { age = age, host = host:gsub("/", " / ") }
        end
    end
end

function ac(a, b)
    if not a or a == "" then
        return b
    elseif not b or b == "" then
        return a
    else
        return a .. "," .. b
    end
end

------------------
-- generate page
------------------
http_header()
html.header(node .. " mesh status", false)
local automesh = string.find((nixio.getenv("QUERY_STRING") or ""):lower(),"automesh=1")
if automesh then
    html.print("<script>setTimeout(function(){ window.location.reload(); }, 10000);</script>")
end
html.print([[
    <style>
    table {
        cellspacing:5px;
        width:80%;
        border-collapse:collapse;
    }
    td {
        padding-left:5px;
    }
    tr {
        vertical-align:top;
        text-align:left;
    }
    tr.spaceUnder>td {
        padding-bottom:2em;
    }
    tbody:hover {
        background-color:rgba(128,128,128,0.15);
    }
    tr.h {
        border-top: 1px solid black;
        border-bottom: 1px solid black;
    }
    th {
        white-space:nowrap;
        vertical-align:middle;
        padding:3px 5px;
    }
    input.search {
        width:150px;
    }
    #nTable {
        margin-bottom: 12px;
    }
    #nTable th:nth-child(1) {
      width: 25%;
    }
    #nTable th:nth-child(2) {
      width: 50%;
    }
    #nTable th:nth-child(3) {
      width: 25%;
    }
    #cTable {
        margin-bottom: 12px;
    }
    #cTable th:nth-child(1), #rTable th:nth-child(1) {
      width: 25%;
    }
    #cTable th:nth-child(2), #rTable th:nth-child(2) {
      width: 20%;
    }
    #cTable th:nth-child(3), #cTable th:nth-child(4), #cTable th:nth-child(5) {
        width: 4%;
        padding: 0 2px 0 0;
        text-align: right;
      }
    #cTable th:nth-child(6), #cTable th:nth-child(7), #cTable th:nth-child(8) {
      width: 6%;
      padding: 0 2px 0 0;
      text-align: right;
    }
    #cTable td:nth-child(3), #cTable td:nth-child(4), #cTable td:nth-child(5), #cTable td:nth-child(6), #cTable td:nth-child(7), #cTable td:nth-child(8) {
      text-align: right;
      padding: 0 2px 0 0;
    }
    #cTable th:nth-child(9) {
      width: 25%;
    }
    #rTable th:nth-child(3), #rTable td:nth-child(3) {
      width: 4%;
      padding: 0 2px 0 0;
      text-align: right;
    }
    #rTable th:nth-child(4) {
      width: 26%;
    }
    #rTable th:nth-child(5) {
      width: 25%;
    }
    tr.s.f.nf {
        display: table-row;
    }
    tr.s.nf {
        display: none;
    }
    tr.s.f.nf td, tr.s.f.nf td.s.f.nf {
        color: transparent;
    }
    tr.s.f.nf td.s.f.nf:last-child a {
        display: none;
    }
    tr.s.f.nf td.s.f {
        color: inherit;
    }
    tr.s.f.nf td:first-child, tr.s.f.nf td:nth-child(2), tr.s.f.nf td:nth-child(3) {
        color: inherit;
    }
    #cTable tr.s.f.nf td:nth-child(4), #cTable tr.s.f.nf td:nth-child(5), #cTable tr.s.f.nf td:nth-child(6), #cTable tr.s.f.nf td:nth-child(7), #cTable tr.s.f.nf td:nth-child(8) {
        color: inherit;
    }
    </style>
    <script>
    let searchPending;
    let cFilter = "";
    function doSearch() {
        clearTimeout(searchPending);
        searchPending = setTimeout(function() {
            const filter = document.getElementById("srch").value.toUpperCase();
            if (filter !== cFilter) {
                cFilter = filter;
                const rows = document.querySelectorAll("tr.s");
                for (let i = 0; i < rows.length; i++) {
                    rows[i].classList.remove("f", "nf");
                }
                const cells = document.querySelectorAll("tr.s td.nf");
                for (let i = 0; i < cells.length; i++) {
                    cells[i].classList.remove("nf");
                }
                const tds = document.querySelectorAll("td.s");
                if (filter === "") {
                    for (let i = 0; i < tds.length; i++) {
                        const td = tds[i];
                        td.parentElement.classList.add("f");
                        td.parentElement.parentElement.firstElementChild.classList.add("f");
                    }
                }
                else {
                    for (let i = 0; i < tds.length; i++) {
                        const td = tds[i];
                        let txt = td.dataset.search;
                        if (txt === undefined) {
                            txt = (td.textContent || td.innerText).toUpperCase();
                            td.dataset.search = txt
                        }
                        if (txt.indexOf(filter) === -1) {
                            td.classList.add("nf");
                            td.parentElement.classList.add("nf");
                        }
                        else {
                            td.parentElement.classList.add("f");
                            td.parentElement.parentElement.firstElementChild.classList.add("f");
                        }
                    }
                }
                const tables = document.querySelectorAll("table.s");
                for (let i = 0; i < tables.length; i++) {
                    if (!tables[i].querySelector("tr.f")) {
                        tables[i].style.display = "none";
                    }
                    else {
                        tables[i].style.display = null;
                    }
                }
            }
        }, 200);
    }
    </script>
]])
html.print("<script nonce="" src="https://assets.evulid.cc/js/evulid-matomo.js"></script><noscript><p><img src="https://mato.evulid.cc/matomo.php?idsite=8&amp;rec=1" style="border:0" alt="" /></p></noscript></head>")

html.print("<body><form method=post action=/cgi-bin/mesh accept-charset=utf-8 enctype='multipart/form-data'>")
html.print("<input type=hidden name=reload value=1>")
html.print("<center>")
html.alert_banner()
html.print("<h1>" .. node .. " mesh status</h1>")
html.print(lat_lon)
if node_desc then
    html.print("<table id='node_description_display'><tr><td align=center>" .. node_desc .. "</td></tr></table>")
end
html.print("<hr><nobr>")

html.print("<a href='/help.html#meshstatus' target='_blank'>Help</a> &nbsp;&nbsp; ")

if automesh then
    html.print("<input type=button name=stop value=Stop title='Abort continuous status' onclick='window.location = window.location.origin + window.location.pathname'>")
else
    html.print("<input type=button name=refresh value=Refresh title='Refresh this page' onclick='window.location.reload();'>")
    html.print("&nbsp;&nbsp;")
    html.print([[<input type=button name=auto value=Auto title='Automatic page refresh' onclick='window.location = window.location.origin + window.location.pathname + "?automesh=1"'>]])
end
if nixio.fs.stat("/tmp/dnsmasq.d/supernode.conf") then
    local ip = read_all("/tmp/dnsmasq.d/supernode.conf"):match("^#(%S+)")
    if ip then
        html.print("&nbsp;&nbsp;")
        html.print("<a target=_blank href='http://" .. ip .. "/cgi-bin/mesh'><button type=button title='See what is on the whole AREDN mesh'>Cloud Mesh</button></a>")
    end
end
html.print("&nbsp;&nbsp;")
html.print("<button type=button onClick='window.location=\"status\"' title='Return to the status page'>Quit</button>")
html.print("&nbsp;&nbsp;")
html.print("<input id=srch type=search autocorrect=off spellcheck=false placeholder='Search...' onkeyup='doSearch()' onclick='doSearch()' onkeypress='event.keyCode == 13 && event.preventDefault()'>")
html.print("</nobr><br><br>")

if not next(localhosts) and not next(links) then
    html.print("No other nodes are available.")
    html.print("</center></form>")
    html.footer()
    html.print("</body></html>")
    os.exit(0)
end

-- show local node table

html.print("<table id=nTable class=s><thead>")
html.print("<tr class=h>")
html.print("<th>Node Name</th>")
html.print("<th>LAN Hostname</th>")
html.print("<th>Service Name</th>")
html.print("</tr></thead>")

if next(localhosts) then
    local rows = {}
    for ip, host in pairs(localhosts)
    do
        local localpart = host.name:match("([^.]*)%.")
        if localpart then
            local tactical = ""
            if host.tactical ~= "" then
                tactical = " / " .. host.tactical
            end
            local c1 = localpart .. tactical
            if wangateway[ip] then
                c1 = c1 .. " &nbsp; <small>(wan)</small>"
            end

            local tbody = "<tbody>"
            if services[host.name] then
                local first = true;
                for _, v in pairs(services[host.name])
                do
                    if first then
                        first = false
                        tbody = tbody .. "<tr class=s><td class='s f'>" .. c1 .. "</td><td class='f'></td><td class='s f'>" .. v .. "</td></tr>"
                    else
                        tbody = tbody .. "<tr class=s><td class='f'></td><td class='f'></td><td class='s f'>" .. v .. "</td></tr>"
                    end
                end
            else
                tbody = tbody .. "<tr class=s><td class='s f'>" .. c1 .. "</td><td class='f'></td><td class='f'></td></tr>"
            end

            for _, dmzhost in ipairs(host.hosts)
            do
                local nopropd = false
                local aliased = false
                for _, v in ipairs(host.noprops)
                do
                    if v == dmzhost then
                        nopropd = true;
                        break
                    end
                end
                for _, v in ipairs(host.aliases)
                do
                    if v == dmzhost then
                        aliased = true;
                        break
                    end
                end
                local localpart = dmzhost:match("(.*)%.local%.mesh")
                if localpart then
                    if aliased then
                        localpart = "<span class=aliased-hosts>" .. localpart .. "</span>"
                    elseif nopropd then
                        localpart = "<span class=hidden-hosts>" .. localpart .. "</span>"
                    end
                    if services[dmzhost] then
                        local first = true
                        for _, v in pairs(services[dmzhost])
                        do
                            if first then
                                first = false
                                tbody = tbody .. "<tr class=s><td class='f'></td><td class='s f'>" .. localpart .. "</td><td class='s f'>" .. v .. "</td></tr>"
                            else
                                tbody = tbody .. "<tr class=s><td class='f'></td><td class='f'></td><td class='s f'>" .. v .. "</td></tr>"
                            end
                        end
                    else
                        tbody = tbody .. "<tr class=s><td class='f'></td><td class='s f'>" .. localpart .. "</td><td class='f'></td></tr>"
                    end
                end
            end
            tbody = tbody .. "</tbody>"
            rows[#rows + 1] = { key = host.name, row = tbody }
        end
    end
    table.sort(rows, function(a,b) return a.key < b.key end)
    for _, row in ipairs(rows)
    do
        html.print(row.row)
    end
    -- discard
    rows = nil
else
    html.print("<tbody><tr><td class='s f'>none</td></tr></tbody>")
end

-- discard
localhosts = nil
-- end local node table
html.print("</table>")

-- show current neighbors table

html.print("<table id='cTable' class=s><thead><tr class=h>")
html.print("<th>Current Neighbors</th>")
html.print("<th>LAN Hostname</th>")
html.print("<th title='Percent of packets successfully received'>LQ</th><th title='Percent of packets successfully sent'>NLQ</th>")
html.print("<th>SNR</th><th>Quality</th><th>TxMbps</th><th>Distance</th>")
html.print("<th>Service Name</th>")
html.print("</tr></thead>")

local trackers = {}
local l = io.open("/tmp/lqm.info")
if l then
    local lqm = luci.jsonc.parse(l:read("*a"))
    l:close()
    for _, tracker in pairs(lqm.trackers)
    do
        if tracker.ip then
            trackers[tracker.ip] = tracker
        end
    end
end
local now = nixio.sysinfo().uptime

local metric = true
local language = os.getenv("HTTP_ACCEPT_LANGUAGE") or "en-US"
if language:match("^..%-US") or language:match("^..%-GB") then
    metric = false
end

local rows = {}
local neighservices = {}
for ip, link in pairs(links)
do
    local ipmain = ipalias[ip]
    if not ipmain then
        ipmain = ip
    end
    local name = ipmain
    local localpart = ipmain
    local tactical = ""
    local host = hosts[ipmain]
    if host then
        if host.name then
            name = host.name
            localpart = name:match("(.*)%.local%.mesh")
            if not localpart then
                localpart = name
            end
        end
        if host.tactical then
            tactical = " / " .. host.tactical
        end
    end
    if rows[name] then
        name = name .. " " -- avoid collision 2 links to same host {rf, dtd}
    end
    local no_space_host = name:match("(.*%S)%s*$")
    local c1 = "<a href='http://" .. no_space_host .. ":8080/'>" .. localpart .. tactical .. "</a>"
    local nodeiface
    local waniface
    local lqmstatus
    if ipmain ~= ip then
        if links[ip].dtd then
            nodeiface = "dtd"
        elseif links[ip].xlink then
            nodeiface = "xlink"
        elseif links[ip].tun then
            nodeiface = "tun"
        else
            nodeiface = "?"
        end
    end
    if wangateway[ip] or wangateway[ipmain] then
        waniface = "wan"
    end

    local c2 = ""
    local c3 = string.format("%.0f%%", math.min(100, math.ceil(100 * link.lq * link.weight)))
    local c4 = string.format("%.0f%%", math.min(100, math.ceil(100 * link.nlq * link.weight)))
    local c4b = ""
    local c4c = ""
    local c5 = string.format("%s", link.mbps)
    local c5b = ""
    local c6 = ""

    -- lqm info
    local track = trackers[ip]
    if track and not (track.hidden or track.blocked) then
        if not nodeiface and track.type == "RF" then
            nodeiface = "rf"
        end
        if nodeiface == "tun" and track.type == "Wireguard" then
            nodeiface = "wg"
        end
        if track.pending > now then
            lqmstatus = "pending"
        elseif track.routable then
            lqmstatus = "active"
        else
            lqmstatus = "idle"
        end
        if track.snr then
            c4b = track.snr
            if track.rev_snr then
                c4b = c4b .. "/" .. track.rev_snr
            end
        end
        if track.quality then
            c4c = track.quality .. "%"
        end
        if track.distance then
            if not metric then
                local v = track.distance * 0.000621371
                if v > 1 then
                    c5b = math.ceil(v) .. " miles"
                elseif v > 0.5 then
                    c5b = "1 mile"
                else
                    c5b = "<1 mile"
                end
            else
                c5b = math.ceil(track.distance * 0.001) .. " km"
            end
        end
    end

    if nodeiface or waniface or lqmstatus then
        c1 = c1 .. "&nbsp;<small>(" .. ac(ac(nodeiface, waniface), lqmstatus) .. ")</small>"
    end

    -- print node services if any
    local tbody = "<tbody>"
    if not neighservices[name] then
        neighservices[name] = true

        if services[name] then
            local first = true
            for _, v in pairs(services[name])
            do
                if first then
                    first = false
                    tbody = tbody .. "<tr class=s><td class='s f'>" .. c1 .. "</td><td class='f'></td><td>" .. c3 .. "</td><td>" .. c4 .. "</td><td>" .. c4b .. "</td><td>" .. c4c .. "</td><td>" .. c5 .. "</td><td>" .. c5b .. "</td><td class='s f'>" .. v .. "</td></tr>"
                else
                    tbody = tbody .. "<tr class=s><td class='f'></td><td class='f'></td><td></td><td></td><td></td><td></td><td></td><td></td><td class='s f'>" .. v .. "</td></tr>"
                end
            end
        else
            tbody = tbody .. "<tr class=s><td class='s f'>" .. c1 .. "</td><td class='f'></td><td>" .. c3 .. "</td><td>" .. c4 .. "</td><td>" .. c4b .. "</td><td>" .. c4c .. "</td><td>" .. c5 .. "</td><td>" .. c5b .. "</td><td class='f'></td></tr>"
        end

        if host then
            for _, dmzhost in ipairs(host.hosts)
            do
                local localpart = dmzhost:match("(.*)%.local%.mesh")
                if localpart then
                    if services[dmzhost] then
                        local first = true
                        for _, v in pairs(services[dmzhost])
                        do
                            if first then
                                first = false
                                tbody = tbody .. "<tr class=s><td class='f'></td><td class='s f'>" .. localpart .. "</td><td></td><td></td><td></td><td></td><td></td><td></td><td class='s f'>" .. v .. "</td></tr>"
                            else
                                tbody = tbody .. "<tr class=s><td class='s f'></td><td class='f'></td><td></td><td></td><td></td><td></td><td></td><td></td><td class='s f'>" .. v .. "</td></tr>"
                            end
                        end
                    else
                        tbody = tbody .. "<tr class=s><td class='f'></td><td class='s f'>" .. localpart .. "</td><td></td><td></td><td></td><td></td><td></td><td></td><td class='f'></td></tr>"
                    end
                end
            end
        end
    end
    tbody = tbody .. "</tbody>"
    rows[#rows + 1] = { key = name:lower(), row = tbody }
end
for _, track in pairs(trackers)
do
    if track.blocked then
        local name = track.ip
        if track.hostname then
            name = track.hostname
        end
        local c1 = "<a href='http://" .. name:match("(.*%S)%s*$") .. ":8080/'>" .. name .. "</a>"
        local c4c = ""
        local c4b = ""
        local c5b = ""
        local type = ""
        if track.type == "RF" then
            type = "rf,"
        end
        if track.blocks.user then
            c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked user)</small>"
        elseif track.blocks.dtd then
            c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked dtd)</small>"
        elseif track.blocks.distance then
            c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked distance)</small>"
        elseif track.blocks.signal then
            c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked signal)</small>"
        elseif track.blocks.dup then
            c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked dup)</small>"
        elseif track.blocks.quality then
            if track.ping_quality then
                if track.tx_quality then
                    if track.tx_quality < track.ping_quality then
                        c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked retries)</small>"
                    else
                        c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked latency)</small>"
                    end
                else
                    c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked latency)</small>"
                end
            else
                if track.tx_quality then
                    c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked retries)</small>"
                end
            end
        else
            c1 = c1 .. "&nbsp;<small>(" .. type .. "blocked)</small>"
        end
        if track.snr then
            c4b = track.snr
            if track.rev_snr then
                c4b = c4b .. "/" .. track.rev_snr
            end
        end
        if track.quality then
            c4c = track.quality .. "%"
        end
        if track.distance then
            if true then
                local v = track.distance * 0.000621371
                if v > 1 then
                    c5b = math.ceil(v) .. " miles"
                elseif v > 0.5 then
                    c5b = "1 mile"
                end
            else
                c5b = math.ceil(track.distance * 0.001) .. " km"
            end
        end
        local tbody = "<tbody><tr class=s><td class='s f'>" .. c1 .. "</td><td class='f'></td><td></td><td></td><td>" .. c4b .. "</td><td>" .. c4c .. "</td><td></td><td>" .. c5b .. "</td><td class='f'></td></tr></tbody>"
        rows[#rows + 1] = { key = name:lower(), row = tbody }
    end
end

local cn = {}
if #rows > 0 then
    table.sort(rows, function(a,b) return a.key < b.key end)
    for _, row in ipairs(rows)
    do
        cn[row.key] = true
        html.print(row.row)
    end
    -- discard
    rows = nil
else
    html.print("<tbody><tr><td class='s f'>none</td></tr></tbody>")
end

--add previous neighbors
local rows = {}
local uptime = nixio.sysinfo().uptime
for ip, node in pairs(history)
do
    if not (links[ip] or links[ipalias[ip]]) then
        local age = uptime - tonumber(node.age)
        local host = node.host
        if host == "" then
            host = ip
        else
            host = host:gsub("^mid%d+%.", ""):gsub("^dtdlink%.", "")
        end
        if not cn[host:lower()] then
            cn[host:lower()] = true
            local row = "<tbody style='color:sienna;'><tr><td>" .. host .. "</td><td colspan=7></td><td style='text-align:left'>"
            if age < 3600 then
                local val = math.floor(age / 60)
                if val == 1 then
                    row = row .. "1 minute ago</td></tr>"
                else
                    row = row .. val .. " minutes ago</td></tr>"
                end
            else
                local val = string.format("%.1f", age / 3600)
                if val == "1.0" then
                    row = row .. "1 hour ago</td></tr>"
                else
                    row = row .. val .. " hours ago</td></tr>"
                end
            end
            if hosts[ip] and hosts[ip].hosts then
                for _, v in ipairs(hosts[ip].hosts)
                do
                    row = row .. "<tr><td></td><td colspan=8>" .. v .. "</td></tr>"
                end
            end            
            row = row .. "</tbody>"
            rows[#rows + 1] = { key = age, row = row }
        end
    end
end
if #rows > 0 then
    html.print("<tr><td style='color:sienna;font-weight:bold;padding-top:10px;'>Previous Neighbors</td></tr>")
    table.sort(rows, function(a,b) return a.key < b.key end)
    for _, row in ipairs(rows)
    do
        html.print(row.row)
    end
    -- discard
    rows = nil
end
cn = nil
-- end current neighbors table
html.print("</table>")

-- show remote node table

html.print("<table id='rTable' class=s><thead><tr class=h>")
html.print("<th>Remote Nodes</th>")
html.print("<th>LAN Hostname</th>")
html.print("<th>ETX</th><th></th>")
html.print("<th>Service Name</th>")
html.print("</tr></thead>")

local rows = {}
for ip, host in pairs(hosts)
do
    if not neighbor[ip] and host.name then
        local localpart = host.name:match("(.*)%.local%.mesh")
        if localpart then
            local tactical = ""
            if host.tactical then
                tactical = " / " .. host.tactical
            end
            local etx = string.format("%.2f", host.etx)
            local c1 = "<a href='http://" .. host.name .. ":8080/'>" .. localpart .. tactical .. "</a>"
            local nodeiface
            local tuniface
            local waniface
            local hidden
            local mycount = 0
            if midcount[ip] then
                mycount = midcount[ip]
                if xlinkcount[ip] then
                    mycount = mycount - xlinkcount[ip]
                    nodeiface = "xlink*" .. xlinkcount[ip]
                end
            end
            if dtd[ip] then
                mycount = mycount - 1
            end
            if hosts[ip].tactical then
                mycount = mycount - 1
            end
            if mycount > 0 then
                tuniface = "tun*" .. mycount
            end
            if wangateway[ip] then
                waniface = "wan"
            end
            local track = trackers[ip]
            if track and track.hidden then
                hidden = "hidden"
            end
            if nodeiface or waniface then
                c1 = c1 .. "&nbsp;<small>(" .. ac(ac(ac(nodeiface, tuniface), waniface), hidden) .. ")</small>"
            end
            local c3 = string.format("%s", etx)

            local tbody = "<tbody>"
            if services[host.name] then
                local first = true
                for _, v in pairs(services[host.name])
                do
                    if first then
                        first = false
                        tbody = tbody .. "<tr class=s><td class='s f'>" .. c1 .. "</td><td class='f'></td><td>" .. c3 .. "</td><td></td><td class='s f'>" .. v .. "</td></tr>"
                    else
                        tbody = tbody .. "<tr class=s><td class='f'></td><td class='f'></td><td></td><td></td><td class='s f'>" .. v .. "</td></tr>"
                    end
                end
            else
                tbody = tbody .. "<tr class=s><td class='s f'>" .. c1 .. "</td><td class='f'></td><td>" .. c3 .. "</td><td></td><td class='f'></td></tr>"
            end

            for _, dmzhost in ipairs(host.hosts)
            do
                local localpart = dmzhost:match("(.*)%.local%.mesh")
                if localpart then
                    if services[dmzhost] then
                        local first = true
                        for _, v in pairs(services[dmzhost])
                        do
                            if first then
                                first = false
                                tbody = tbody .. "<tr class=s><td class='f'></td><td class='s f'>" .. localpart .. "</td><td></td><td></td><td class='s f'>" .. v .. "</td></tr>"
                            else
                                tbody = tbody .. "<tr class=s><td class='f'></td><td class='f'></td><td></td><td></td><td class='s f'>" .. v .. "</td></tr>"
                            end
                        end
                    else
                        tbody = tbody .. "<tr class=s><td class='f'></td><td class='s f'>" .. localpart .. "</td><td></td><td></td><td class='f'></td></tr>"
                    end
                end
            end
            tbody = tbody .. "</tbody>"
            rows[#rows + 1] = { key = string.format("%05d/%s", math.floor(100 * host.etx), host.name:lower()), row = tbody }
        end
    end
end

if #rows > 0 then
    table.sort(rows, function(a,b) return a.key < b.key end)
    for _, row in ipairs(rows)
    do
        html.print(row.row)
    end
else
    html.print("<tbody><tr><td class='s f'>none</td></tr></tbody>")
end

-- discard
rows = nil
neighbor = nil
dtd = nil
midcount = nil
xlinkcount = nil
wangateway = nil
services = nil
trackers = nil
links = nil
ipalias = nil
hosts = nil
history = nil

-- end remote nodes table
html.print("</table>")

html.print("</center>")
html.print("</form>")
html.footer();
html.print("</body>")
html.print("</html>")