Webstats, API2 | Веб-статистика для хаба

-- WebStats v 0.3.0.2 (Версия для VerliHub)

local iTime=20 --время в минутах для обновления

local sHostDB="127.0.0.1"
local sNameDB="verlihub"
local sUserDB=""
local sPassDB=""
local sPrefixTable="ws_"

_G.string.dbformat = function(self, ...)
  local t = {...}
  for k, v in _G.ipairs(t) do
    t[k] = _G.tostring(v):gsub("(['\\\"])", "\\%1")--'"
  end
  return self:format(_G.unpack(t))
end

function Main()
    assert(VH:SQLQuery("SET sql_mode='';"))
    assert(VH:SQLQuery(
("CREATE TABLE IF NOT EXISTS %susers ("..
"ip VARCHAR(16) NOT NULL, "..
"nick VARCHAR(32) NOT NULL, "..
"description VARCHAR(128) NOT NULL, "..
"profile TINYINT NOT NULL, "..
"email VARCHAR(30) NOT NULL, "..
"login_time BIGINT UNSIGNED NOT NULL,"..
"disconnect_time BIGINT UNSIGNED NOT NULL, "..
"online_time BIGINT UNSIGNED NOT NULL, "..
"share_size BIGINT UNSIGNED NOT NULL, "..
"hubs TINYINT UNSIGNED NOT NULL, "..
"slots TINYINT UNSIGNED NOT NULL, "..
"client VARCHAR(15) NOT NULL, "..
"client_version VARCHAR(15) NOT NULL, "..
"tag VARCHAR(32) NOT NULL, "..
"UNIQUE (nick))"):format(sPrefixTable)))
    assert(VH:SQLQuery(
("CREATE TABLE IF NOT EXISTS `%shubs` ("..
  "`id` int(16) unsigned NOT NULL AUTO_INCREMENT,"..
  "`addr` text NOT NULL,"..
  "`port` int(6) unsigned NOT NULL DEFAULT '411',"..
  "`users` int(16) unsigned NOT NULL,"..
  "`share` bigint(20) unsigned NOT NULL,"..
  "`last_online` int(10) unsigned NOT NULL,"..
  "`name` text NOT NULL,"..
  "`online` int(1) unsigned NOT NULL,"..
  "`type` text NOT NULL,"..
  "PRIMARY KEY (`id`))"
):format(sPrefixTable)))

    assert(VH:SQLQuery(
("CREATE TABLE IF NOT EXISTS %sprofiles ("..
"profile_number TINYINT NOT NULL,"..
"profile_name VARCHAR(32) NOT NULL, "..
"UNIQUE (profile_number))"
):format(sPrefixTable)))
    local tProfiles = {"Reg","VIP","OP","Cheef","Master","Master","Master","Master","Master","Admin"}
    local sQSP = ("INSERT INTO %sprofiles (profile_number, profile_name) VALUES "):format(sPrefixTable)
    for i = 0,10 do
        sQSP = sQSP.."("..i..", '"..(tProfiles[i] or "UnReg").."'), "
    end
    sQSP = sQSP.."(-1, 'UnReg') ON DUPLICATE KEY UPDATE profile_name = VALUES(profile_name)"
    assert(VH:SQLQuery(sQSP))

    assert(VH:SQLQuery(
("CREATE TABLE IF NOT EXISTS %shub ("..
"version VARCHAR(16) NOT NULL,"..
"topic VARCHAR(128) NOT NULL,"..
"uptime BIGINT UNSIGNED NOT NULL,"..
"max_user INT UNSIGNED NOT NULL,"..
"user INT UNSIGNED NOT NULL,"..
"ops INT UNSIGNED NOT NULL,"..
"max_share BIGINT UNSIGNED NOT NULL,"..
"share BIGINT UNSIGNED NOT NULL)"
):format(sPrefixTable)))

    local res,cur = VH:SQLQuery(("SELECT * FROM %shub"):format(sPrefixTable))
    local row = VH:SQLFetch(0)
    if not row then
    assert(VH:SQLQuery(
            ("INSERT %shub SET "..
            "uptime = 0,"..
            "max_user = 0,"..
            "user = 0,"..
            "ops = 0,"..
            "max_share = 0,"..
            "share = 0"
            ):format(sPrefixTable)))
    end
end
OnStartup=Main

function isOp(user)
    if GetUsrClass(user) >= 3 then return true end
    return false
end -- проверка на Op -- OP check
function GetCurTopic()
    local _,curtop=VH:GetConfig("config", "hub_desc")
    return curtop or ""
end --получить текущий топик --getting current topic
function GetOPs()
    local UsrTab={}
    local _, OnlineUsers = VH:GetNickList()
    for name in OnlineUsers:gmatch("(%S-)%$%$") do
        if isOp(name)==true then table.insert(UsrTab,name) end
    end
    return UsrTab
end

TimerCount = iTime*60 -- количество секунд для триггера таймера -- Quantity of seconds for the timer trigger
CurrentTickCount = 0 -- счетчик тиков -- The counter of tics
TickIncrement = 1 -- приращение за тик -- Increment for a tic
starttime=os.time()
function VH_OnTimer()
    CurrentTickCount = CurrentTickCount + TickIncrement
    if CurrentTickCount < TimerCount then return end
    CurrentTickCount = 0
    TickIncrement = 0

    local sVersion = '0.9.8e-r2'
    local sTopic = GetCurTopic()
    local iMaxUser
    local iMaxShare
    local _,iUser = VH:GetUsersCount()
    local _,iShare = VH:GetTotalShareSize()
    local iUptime = os.time()-starttime
    local iOps=#GetOPs()
    local res,cur = VH:SQLQuery(("SELECT max_user,max_share FROM %shub"):format(sPrefixTable))
    local _,max_user,max_share = VH:SQLFetch(0)

    iMaxUser = tonumber(max_user)
    iMaxShare = tonumber(max_share)
    
    iShare = iShare / (1024 * 1024)
    
    if iMaxUser < iUser then
        iMaxUser = iUser
    end

    if iMaxShare < iShare then
        iMaxShare = iShare
    end
    
    if not sTopic then
        sTopic = "NO-TOPIC"
    end
        
    assert(VH:SQLQuery(("UPDATE %shub SET "..
"version =  '%s',"..
"topic =  '%s',"..
"uptime =  %d,"..
"max_user =  %d,"..
"user =  %d,"..
"ops =  %d,"..
"max_share = %d, "..
"share =  %d"
):dbformat(sPrefixTable,sVersion,sTopic,iUptime,iMaxUser,iUser,iOps,iMaxShare,iShare)))
    -- cur:close()

    collectgarbage("collect")
    TickIncrement = 1
end --таймер Verlihub --timer

function GetUsrClass(user)
    local ucr, usercl = VH:GetUserClass(user)
    usercl=tonumber(usercl) or 0
    if usercl==-1 then usercl=0 end
    return usercl
end -- получение класса пользователя -- getting user class
function GetIP(user)
    local _,tmpIP = VH:GetUserIP(user)
    return tmpIP or ""
end --получить IP пользователя (строка) --getting user IP
function GetMyInfo(user)
    local _,sMyinfo = VH:GetMyINFO(user)
    return sMyinfo or ""
end --получить полный MyINFO --getting user MyINFO
function GetHubs(user)
    local a1,a2,a3=(GetMyInfo(user) or ""):match("<.-H:(%d+)/(%d+)/(%d+).->")
    return (a1 or 0)+(a2 or 0)+(a3 or 0)
end
function VH_OnUserLogin(user)
    local sEmail = (GetMyInfo(user) or "NONE"):match("%$MyINFO $ALL %S+.-%$.-%$.-%$(.-)%$") or "NONE"
    local sDescription = (GetMyInfo(user) or ""):match("%$MyINFO $ALL %S+ (.-)[<%$]") or ""
    local sClientVersion = (GetMyInfo(user) or ""):match("%$MyINFO $ALL %S+.-<.-V:(%S+)[,%$]") or ""
    local sTag = (GetMyInfo(user) or ""):match("%$MyINFO $ALL %S+.-(<.->)") or ""
    local iShareSize = tonumber((GetMyInfo(user) or ""):match("(%d+)%$$") or 0)

    assert(VH:SQLQuery(
("INSERT INTO %susers ("..
"ip, `nick`, `description`, `profile`, `email`, login_time, share_size, hubs, slots, `client`, `client_version`, `tag`"..
") VALUES ('%s', '%s', '%s', %d, '%s', %d, %d, %d, %d, '%s', '%s', '%s')"..
" ON DUPLICATE KEY UPDATE "..
"`ip` = VALUES(`ip`), `profile` = VALUES(`profile`), `email` = VALUES(`email`), `login_time` = VALUES(`login_time`), "..
"`share_size` = VALUES(`share_size`), `hubs` = VALUES(`hubs`), `slots` = VALUES(`slots`), `client` = VALUES(`client`), `tag` = VALUES(`tag`)"
):dbformat(sPrefixTable, GetIP(user), user, sDescription, GetUsrClass(user), sEmail, os.time(), iShareSize, GetHubs(user), tonumber((GetMyInfo(user) or ""):match("<.-S:(%d+).->") or 0), (GetMyInfo(user) or ""):match("%$MyINFO $ALL %S+.-<(.-)V:%S+") or "???", sClientVersion, sTag)))

    VH:SQLQuery("UPDATE "..sPrefixTable.."users SET "..
"`share_size` = "..iShareSize.." WHERE `nick` LIKE '"..user:gsub("[\\'\"]","\\%1").."'"
) --заплатка


end

function VH_OnUserLogout(user)
    assert(VH:SQLQuery(
("UPDATE %susers SET disconnect_time = %d, online_time = online_time + (disconnect_time - login_time) WHERE nick = '%s'"    
):dbformat(sPrefixTable, os.time() ,user)))
end