local enabled = true

function JumpToChat(event, plr, message, channel, language)
    if enabled then
        if plr:IsInWorld() then
            --if channel == 1 or channel == 2 or channel == 3 or
                --channel == 4 or channel == 87 or channel == 88 then -- addon talk
            if language ~= -1 and language ~= 4294967295 then
                if channel ~= -1 then
                    local msg = message:gsub("\\", "\\\\'")
                    msg = msg:gsub("\'", "\\\'")
                    msg = msg:gsub("\"", "\\\"")
                    CharDBQuery("INSERT INTO chat (name, message) VALUES ('[Game] ["..plr:GetName().."]', '"..msg.."')")
                end
            end
        end
    end
end

RegisterServerHook(16, "JumpToChat")

function Check_ToSendMessage()
    if enabled then
        local result = CharDBQuery("SELECT username, message FROM chat_send")
        if result ~= nil then
            for i=1,result:GetRowCount() do
                local message = result:GetColumn(1):GetString()
                if message == "on" or message == "off" then
                    SendWorldMessage("|CFF086142[WebChat]|R |CFF18BE00"..result:GetColumn(0):GetString().." "..message, 2)
                else
                    SendWorldMessage("|CFF086142[WebChat]|R|CFF18BE00 ["..result:GetColumn(0):GetString().."]: |R|cff40FF40"..message, 2)
                end
                result:NextRow()
            end
        end
        CharDBQuery("TRUNCATE TABLE chat_send")
    end
end

RegisterTimedEvent("Check_ToSendMessage", 1000, 0)

function LoginLogoutLogging(event, plr)
    if enabled then
        if plr:IsInWorld() then
            if event == 13 then -- logged out
                CharDBQuery("INSERT INTO chat (name, message) VALUES ('[Game] [System]', '"..plr:GetName().." has logged off.')")
            elseif event == 19 then -- logged in
                RegisterTimedEvent("Login_Send_LoginStuff", 2000, 1, plr)
            end
        end
    end
end

function Login_Send_LoginStuff(plr)
    if (enabled) then
        if plr then
            if plr:IsInWorld() then
                CharDBQuery("INSERT INTO chat (name, message) VALUES ('[Game] [System]', '"..plr:GetName().." has logged in.')")
            end
        end
    end
end

RegisterServerHook(13, "LoginLogoutLogging")
RegisterServerHook(19, "LoginLogoutLogging")