【进阶实战】行会改名风波：舆情响应的监控与分级封装

local LEVELS = { { name = "紧急", hits = 10, mins = 30 },
    { name = "关注", hits = 5, mins = 120 },
    { name = "普通", hits = 1, mins = 1440 } }
local buzz = {}
local function onKeywordHit(keyword, source)
    local key = keyword .. "|" .. os.date("%Y%m%d%H")
    buzz[key] = (buzz[key] or 0) + 1
    for _, lv in ipairs(LEVELS) do
        if buzz[key] >= lv.hits then
            escalate(keyword, lv.name, lv.mins)
            return
        end
    end
end
local function escalate(keyword, level, mins)
    local doneKey = "Resp_" .. keyword .. "|" .. level
    if getsysvar(doneKey) ~= "" and getsysvar(doneKey) ~= nil then
        return
    end
    setsysvarex(doneKey, os.date("%Y%m%d%H"), 1)
    sendmsg(nil, 1, "[舆情" .. level .. "] " .. keyword ..
        " 相关讨论升温，需 " .. mins .. " 分钟内响应。")
end

local function checkResponseDeadlines()
    local now = os.time()
    for k, v in pairs(alerts or {}) do
        if now - v.ts > v.mins * 60 and not v.responded then
            print("舆情响应超时：" .. k)
        end
    end
end