【数据存储】冷备抽查：备份样本的定期解包验证

-- 冷备抽查：解包与比对
local player = class(actor)
local function spotCheck(player, backupDate)
    local expect = {
        chars = tonumber(getsysvar("ColdReg_" .. backupDate .. "_Chars") or 0),
        gold = tonumber(getsysvar("ColdReg_" .. backupDate .. "_Gold") or 0),
    }
    local actualChars = countTable("ColdRestore_Chars")
    local actualGold = sumTable("ColdRestore_Gold")
    local pass = actualChars == expect.chars and actualGold == expect.gold
    sendmsg(player, 1, 0, backupDate .. " 冷备抽查" .. (pass and "通过" or "失败") ..
        "：角色 " .. actualChars .. "/" .. expect.chars .. "，货币 " .. actualGold .. "/" .. expect.gold)
    return pass
end

-- 抽查台账：趋势与轮换
local player = class(actor)
local function recordCheckResult(player, mediaId, pass, unpackSec)
    local fails = tonumber(getsysvar("MediaFail_" .. mediaId) or 0)
    if not pass then
        fails = fails + 1
        setsysvarex("MediaFail_" .. mediaId, fails, true)
    end
    if fails >= 2 then
        sendmail("#管理组", 7952, "介质退役通知",
            mediaId .. " 连续抽查失败，已列入退役清单，请更换备份介质。", "")
    end
    sendmsg(player, 1, 0, "台账已记录：解包耗时 " .. unpackSec .. " 秒。")
end