Версия для печати темы

function ChatArrival(tUser,sData)
  if not sData:match"^%b<> [!+/].+" then
    local sMsg = sData:match"%b<>(.*)|$"
    Core.SendToAll("["..tUser.sIP.."]  <"..tUser.sNick.."> "..sMsg)
    return true
  end
end

function OnStartup()
    TmrMan.AddTimer(1000, "SendData")
    tToSend = {}
end

function UserConnected(tUser)
    if tUser.iProfile == -1 then
        local tUsers = {"$UserIP "}
        for _, tOnlineUser in ipairs(Core.GetOnlineUsers()) do
            table.insert(tUsers, tOnlineUser.sNick)
            table.insert(tUsers, " ")
            table.insert(tUsers, tOnlineUser.sIP)
            table.insert(tUsers, "$$")
        end
        if tUsers[2] then
            Core.SendToUser(tUser, table.concat(tUsers))
        end
    end
    tToSend[tUser.sNick] = true
end
OpConnected,RegConnected = UserConnected,UserConnected

function SendData()
    for sNick in pairs(tToSend) do
        local tUser = Core.GetUser(sNick, true) or false
        if not tUser then
            tToSend[sNick] = nil
        elseif tUser.bConnected then
            Core.SendToAll("$UserIP "..tUser.sNick.." "..tUser.sIP.."$$")
            tToSend[sNick] = nil
        end
    end
    collectgarbage("collect")
end