glasses

glass = peripheral.wrap("right")
datetime = "http://cc.ordewittetafel.nl/datetime.php"
reactor1 = "http://cc.ordewittetafel.nl/reactor1.php"
count = 0
comp = 0
name = ""
temp = ""
output = ""
status = ""
status_color = 0
comp_status = ""
comp_color = 0

while true do
    os.queueEvent("ok")
    os.pullEvent("ok")

    glass.clear()

    glass.addBox(440, 10, 160, 65, 0x000000, 0.3)

    get = http.get(datetime)
    text = get.readAll()

    glass.addText(10, 10, text, 0xFF0000)

    if count < 4 then
        count = count + 1
    else
        count = 0
        get = http.get(reactor1)
        text = get.readAll()

        data = {}
        for word in string.gmatch(text, "[^,]+") do
            table.insert(data, word)
        end

        prev_comp = comp

        name = data[1]
        active = data[2]
        temp = data[3]
        comp = data[4]
        output = data[5]

        if comp ~= prev_comp then
            comp_status = "Online"
            comp_color = 0x00FF00
        else
            comp_status = "Offline"
            comp_color = 0xFF0000
        end

        if active == "true" then
            status = "ON"
            status_color = 0x00FF00
        else
            status = "OFF"
            status_color = 0xFF0000
        end
    end

    glass.addText(460, 20, "Computer:", 0x000000)
    glass.addText(550, 20, comp_status, comp_color)

    glass.addText(460, 29, "Reactor:", 0)
    glass.addText(550, 29, name, 0)

    glass.addText(460, 38, "Status:", 0)
    glass.addText(550, 38, status, status_color)

    glass.addText(460, 47, "Temperature:", 0)
    glass.addText(550, 47, temp, 0)

    glass.addText(460, 56, "Power output:", 0)
    glass.addText(550, 56, output .. " EU/t", 0)

    glass.sync()
    os.sleep(0.5)
end