--Configuration
local modemSide = "left"
local modemChannel = 1

--Utility Functions

function error(i)
    term.setTextColor(colors.green)
    write("[")
    term.setTextColor(colors.red)
    write("ERR")
    term.setTextColor(colors.green)
    write("] ")
    term.setTextColor(colors.white)
    write(i.."\n")
end

function info(i)
    term.setTextColor(colors.green)
    write("[")
    term.setTextColor(colors.yellow)
    write("INFO")
    term.setTextColor(colors.green)
    write("] ")
    term.setTextColor(colors.white)
    write(i.."\n")
end

function ok(i)
    term.setTextColor(colors.green)
    write("[")
    term.setTextColor(colors.white)
    write("OK")
    term.setTextColor(colors.green)
    write("] ")
    term.setTextColor(colors.white)
    write(i.."\n")
end


function screenInit()
    term.clear()
    term.setCursorPos(1,1)
    term.setTextColor(colors.green)
    write("Forum server initialising at ")
    term.setTextColor(colors.red)
    write(textutils.formatTime(os.time(),false))
    term.setTextColor(colors.green)
    write(" on day ")
    term.setTextColor(colors.red)
    write(os.day().."\n")
    term.setTextColor(colors.white)
end

function reply(i,j)
    rednet.send(sid,i,j)
end

--Main Functions

function init()
    if fs.exists("/.forum") and fs.exists("/.forum/db") then
        ok("Identified /.forum and /.forum/db.")
        local database = textutils.unserialize(fs.open("/.forum/db","r").readAll())
    else
        info("Creating /.forum and /.forum/db...")
        fs.makeDir("/.forum")
        fs.open("/.forum/db","w").writeLine("{}")
    end
    main()
end

function main()
    rednet.open("top")
    while running do
        local sid, msg, ptc = rednet.receive()
        if ptc == "ATM" then
            local request, user, amount = unpack(textutils.serialize(msg))
            if request == "MAKEUSER" then
                info(request.." request...")
                if database[user] ~= nil then
                    database[user] = {username = user, password = amount, permissions = 0, systemId = sid, balance = 0}
                else
                    reply("ERR","Username already taken.")
                end
            elseif request == "" then
                info(request.." request...")
            elseif request == "" then
                info(request.." request...")
            elseif request == "" then
                info(request.." request...")
            end
        end
    end
end

--Initialisation

screenInit()
init()