SecuritySensor

--Zone editable du programme--

local blacklist = {PseudoExemple=true}
local whitelist = {}

--Ne pas toucher au programme apres cette ligne--


local continuer = true
local prevList = {}
local default = "Darking"

function side()
    local sensorSide

    for n,m in pairs(rs.getSides())  do
        if peripheral.getType(m) == "openperipheral_sensor" then
            sensorSide = m
        end
    end
    if sensorSide ~= nil then
        print("Found monitor as "..sensorSide)
        return(sensorSide)
    else
        print("Cannot found Sensor")
        continuer = false
        return(nil)
    end
end

function mylog(text)
    mydate = http.get("http://philipperydin.com/time2.php").readAll()
    mytime = http.get("http://philipperydin.com/time.php").readAll()

    if not fs.isDir("log") then
        fs.makeDir("log")
    end

    file = fs.open("log/"..mydate,"a")
    file.writeLine("["..mytime.."] "..text)
    file.close()
end

function compare(list1,list2)
    for m,n in pairs(list1) do
        local ok = false
        for o,p in pairs(list2) do
            if n.name == p.name then
                ok = true
            end
        end
        if not ok then
            if not whitelist[n.name] then
                print(n.name.." est entrer")
                mylog(n.name.." entre dans la zone de "..os.getComputerLabel())
                if blacklist[n.name] then
                    rs.setOutput("bottom",true)
                end
            end
        end
    end

    for m,n in pairs(list2) do
        local ok = false
        for o,p in pairs(list1) do
            if n.name == p.name then
                ok = true
            end
        end
        if not ok then
            if not whitelist[n.name] then
                print(n.name.." est sorti")
                mylog(n.name.." sort de la zone de "..os.getComputerLabel())
                if blacklist[n.name] then
                    rs.setOutput("bottom",false)
                end
            end
        end
    end


end


side = side()
if side ~= nil then
    s = peripheral.wrap(side)
    first = s.getPlayers()
    default = first[1].name
end

if os.getComputerLabel() == nil then
    print("Error: No Computer's Label")
    print("Pour Labeliser un computer la commande est :")
    print("label set <nom>")
    print("Par exemple \"label set "..default.."Base\"")
    continuer = false
end

while continuer do
    --print("scanning...")
    list = s.getPlayers()
    compare(list,prevList)
    prevList = list
    sleep(2)
    --read()
end