HZS_prijem_service

verze = "21.0612.R1"
logs = false
term.clear()
term.setCursorPos(1,1)
local idPC = os.getComputerID()

if not fs.exists ("/zasahy/lastECUD.txt") then local data = fs.open("/zasahy/lastECUD.txt", "w") data.writeLine("0") data.close() end

local data = fs.open("/zasahy/lastECUD.txt", "r")
local ECUD = tonumber(data.readLine())+1
data.close()

modem = peripheral.wrap("top")

if not (modem == nil) then
modem.open(idPC)
print("HZS server, ID serveru: "..idPC)
else
term.setTextColor(colors.red)
print("Error, you must configure the modem first")
modem.open("Error")
end

function logy(Zlog)
    cas = (textutils.formatTime(os.time(), true))
    local l = fs.open("/C/system/server/rules/AD/log","a")
    l.writeLine(cas..": "..Zlog)
    l.close()
end

function bar(styl, text)
    if (styl == "OK") then                  -- Uspech
        term.setTextColor(colors.green)
    elseif (styl == "FAIL") then            -- Neuspesne
        term.setTextColor(colors.red)
    elseif (styl == "INFO") then            -- Informativni
        term.setTextColor(colors.lightBlue)
    elseif (styl == "def") then             -- defaultni
        term.setTextColor(colors.white)
    elseif (styl == "PRO") then             -- Progress
        term.setTextColor(colors.yellow)
    else
        styl = "def"
        term.setTextColor(colors.white)
    end

    if not (styl == "def") then
        zprava = ("["..textutils.formatTime(os.time(), true).."] ["..styl.."] "..text)
        else
        zprava = text
    end

    if logs then
    logy(zprava)
    end
    print (zprava)
end

local function defaultV()
 idComp = nil
 adresa = ""
 udalost = ""
 upresneni = ""
end

function zapsat ()
    data = fs.open("/zasahy/lastECUD.txt", "r")
    ECUD = tonumber(data.readLine())+1
    data.close()
    data = fs.open("/zasahy/otevrene/"..ECUD..".txt", "w")
    data.writeLine(ECUD)
    data.writeLine("Adresa zarizeni: "..idComp)
    data.writeLine("Adresa Udalosti: "..adresa)
    data.writeLine("Co se stalo?: "..udalost)
    data.writeLine("Upresneni: "..upresneni)
    data.writeLine("")
    data.writeLine("--------------------------------------------")
    data.writeLine("Statusy")
    data.writeLine("Cas ohlaseni: "..os.date())
    data.close()
    bar("OK", "Udalost byla uspesne zalozena!")
    bar("OK", "Datum: ".. os.date())
    data = fs.open("/poplach", "w")
    data.writeLine(ECUD)
    data.writeLine(adresa)
    data.writeLine(udalost)
    data.writeLine(upresneni)
    data.writeLine(idComp)
    data.close()
    data = fs.open("/zasahy/lastECUD.txt", "w")
    data.writeLine(ECUD)
    data.close()
    sleep(2)
end

function prijmout ()
    local _, side, freq, rfreq, message = os.pullEvent('modem_message')

    if (rfreq == 990) then
        bar("INFO", "Zadost o zpracovani udaju.")
        idComp = message
        bar("PRO", "Adresa zarizeni: "..idComp)
    end

    if (rfreq == 57600) then
        adresa = message
        bar("PRO", "Adresa Udalosti: "..adresa)
    end

     if (rfreq == 57601) then
        udalost = message
        bar("PRO", "Co se stalo?: "..udalost)
    end

    if (rfreq == 57602) then
        upresneni = message
        bar("PRO", "Upresneni: "..upresneni)
        zapsat()
    end

    if (rfreq == 57610) then
        bar("OK", "Funkcni pojeni s EPS ID: "..idComp)
        modem.transmit(idComp,57610,true)
    end


    prijmout()
end

defaultV()
prijmout()