-- This is a part of program for monitoring of player visiting
-- Required HoverHelm platform 
-- https://computercraft.ru/topic/3771-hoverhelm-operatsionnaya-sistema-dlya-dronov-mikrokontrollerov-i-drugih-ustroystv-bez-sobstvennogo-zhestkogo-diska/

--configuration
local sleepTime = 1 --seconds scanning interval
local playersWhitelist = {["^^Cheburek^^"]=true}

local detectors = map(component.list("os_entdetector"), component.proxy)
local radars = map(component.list("radar"), component.proxy)
local filesystem = component.filesystem
local internet = component.internet

local maxPacketSize = component.modem.maxPacketSize() - 4


local scanFunctions = {}
do
    local function detectorScan(detector)
        return function(relativeRadius) 
            return map(detector.scanPlayers(relativeRadius*64), function(_, v) return v.name, v.range end)
        end
    end

    local function radarScan(radar)
        return function(relativeRadius)
            return map(radar.getPlayers(relativeRadius*8), function(_, v) return v.name, v.distance end)
        end
    end
    
    local function insertScan(_, scan) table.insert(scanFunctions,scan) end
    foreach(mapSeq(detectors, detectorScan), insertScan)
    foreach(mapSeq(radars, radarScan), insertScan)
end

local function sleep(interval)
    local start = computer.uptime()
    while computer.uptime() - start < interval do
        computer.pullSignal(interval - (computer.uptime() - start))
    end
end


local gistSendingCache = {}

local function gistFlush()
    local content = table.concat(gistSendingCache,"\\n")
    if #content > maxPacketSize then
        for i=1, #content, maxPacketSize do
            bios.card.send("hh_gist_log", content:sub(i, i+maxPacketSize-1))
        end
    else
        bios.card.send("hh_gist_log", content)
    end
    
    gistSendingCache = {}
end

local function table2string(t)
    local r="{"
    
    for k,v in pairs(t) do
        r=r..tostring(k).."->"..tostring(v)..", "
    end
    r=r.."}"
    
    return r
end


while true do
    local scanned = {}
    local foundAny=false
    for _, scan in pairs(scanFunctions) do
        --log.print("test1",table2string(scan(1)))
        for name, range in pairs(scan(1)) do
            scanned[name]=range
            foundAny=true
        end
    end
        --log.print("test2",foundAny)
    
    
    if foundAny then
    
        log.warn("Radar "..bios.name.." found next players:")
        table.insert(gistSendingCache, "["..timeMark().."] Radar "..bios.name.." found next players:")
        
        local foundOutsider = false
        local dangerousOutsider = false
        
        for name, range in pairs(scanned) do
            local msg = "    "..name.." [ "..range.." ]"
            if playersWhitelist[name] then
                log.print(msg)
            else
                foundOutsider=true
                dangerousOutsider = dangerousOutsider or range<=20
                log.error(msg)
            end
            table.insert(gistSendingCache, msg)
        end
        
        if foundOutsider then
            gistFlush()
        end
        
        if dangerousOutsider then
            bios.card.send("hh_destroy_github_token")
        end
        
    end
    
    
    sleep(sleepTime)
end