Sqlite, win32 | База данных (устаревшая полурабочая версия)

--[[

    SQLite3 Example script by Mutor v2

]]

-- Admins nick for status / error messages
local OpNick = "Mutor"
-- Status in PM? true/false [false = main chat]
local PmOnly = true
-- Subdir of scripts folder ["" = scripts folder]
local path = "sql/"
-- Database file name ["" = hubname.db"]
local file = ""
-- Database timeout, in seconds
local to = 3
-- Delete file on script exit? true/false
local DelFile = true

require "sqlite3"

OnStartup = function()
    local root = Core.GetPtokaXPath().."scripts/"
    if #path > 0 then path = root..path else path = root end
    if #file == 0 then file = path..SetMan.GetString(0):gsub(" ","_")..".db" else file = path..file end
    db = sqlite3.open(file)
    assert(db,"Failed to open "..file..", check files.")
    assert(db:set_busy_timeout(to))
    assert(db:exec("CREATE TABLE HubUsers (Nick TEXT, IP TEXT, Profile NUMERIC, Connected TEXT, Time NUMERIC)"))
    local r = "Ї"
    if DoOnline() then
        OnError("\t\t\t"..file.." has been updated.")
        OnError(" ")
        OnError(r:rep(100))
    else
        OnError("\t\t\t"..file.." failed to update.")
        OnError(" ")
        OnError(r:rep(100))
    end
end

OnError = function(msg)
    if msg and #msg > 0 then
        local user,bot = Core.GetUser(OpNick),SetMan.GetString(21)
        if user and bot then
            if PmOnly then
                Core.SendPmToUser(user,bot,msg.."|")
            else
                Core.SendToUser(user,"<"..bot.."> "..msg.."|")
            end
        end
    end
end

OnExit = function()
    db:close()
    if DelFile then
        assert(os.remove(file))
    end
end

UserConnected = function(user,data)
    if not ChkNick(user.sNick:lower()) then
        assert(db:exec("INSERT INTO HubUsers ( Nick, IP, Profile, Connected, Time) VALUES ('"..
        user.sNick.."', '"..user.iProfile.."', '"..user.sIP.."', 'Online', '"..os.time().."');"))
        db:exec('commit')
        ReadDb()
    end
end
OpConnected,RegConnected = UserConnected,UserConnected

UserDisconnected = function(user)
    if ChkNick(user.sNick:lower()) then
        --assert(db:exec("DELETE FROM HubUsers WHERE Nick = '"..user.sNick.."' and IP = '"..user.sIP.."'"))
        assert(db:exec("UPDATE HubUsers SET Time = '"..os.time().."', Connected = "..
        "'Offline' WHERE Nick = '"..user.sNick.."' and IP = '"..user.sIP.."'"))
    end
    db:exec('commit')
    ReadDb()
end
RegDisconnected,OpDisconnected = UserDisconnected,UserDisconnected

ChkNick = function(nick)
    local t = {"Nick","IP","Profile"}
    for row in db:irows("SELECT "..t[1].." FROM HubUsers") do
        if row[1]:lower() == nick then return true end
    end

end

DoOnline = function()
    for x,user in ipairs(Core.GetOnlineUsers()) do
        if ChkNick(user.sNick:lower()) then
            assert(db:exec("UPDATE HubUsers SET Nick = '"..user.sNick.."', IP = '"..user.sIP..
            "', Profile = '"..user.iProfile.."', Connected = 'Offline', Time = '"..
            os.time().."' WHERE Nick = '"..user.sNick.."'"))
        else
            assert(db:exec("INSERT INTO HubUsers ( Nick, IP, Profile, Connected, Time ) VALUES ('"..
            user.sNick.."', '"..user.iProfile.."', '"..user.sIP.."', 'Online', '"..os.time().."');"))
        end
    end
    db:exec('commit')
    ReadDb()
    return true
end

ReadDb = function()
    GetProf = function(n)
        local Prof = "Unregistered"
        if n ~= -1 then Prof = ProfMan.GetProfile(n).sProfileName end
        return Prof
    end
    if db:exec("SELECT * FROM HubUsers LIMIT 1") then
        local r = "Ї"
        OnError("NickName\t\t\tProfile\t\tIP Address\t\tConnected\tDate/Time")
        OnError(r:rep(100))
        for _,nick,profile,ip,status,time in db:cols("SELECT 1, * FROM HubUsers") do
            OnError(string.format("%-40.30s",nick)..
            "\t"..string.format("%-20.13s",GetProf(tonumber(profile)))..
            "\t"..string.format("%-24.15s",ip)..
            "\t"..string.format("%-15.10s",status)..
            "\t"..os.date(nil,tonumber(time))
            )
        end
        OnError(" ")
        OnError(r:rep(100))
    end
end

require "sqlite3"

require "sqlite3"

    ["xx.xx.xx.xx"] = {
        ["Punish"] = {
            [1] = "15.02.2009 в 18:33    Юзер    забанен    Наказал: -=Wariner=-    Причина: Реклама хаба+ФЛУД",
        },
        ["OffData"] = "15.02.2009 в 18:33",
        ["Shara"] = 193955841117,
        ["Msg"] = 187,
        ["Ban"] = {
            ["Punished"] = "-=Wariner=-",
            ["Time"] = 1235575980,
            ["Reason"] = "Реклама хаба+ФЛУД",
        },
        ["Time"] = 148020,
        ["IP"] = "xx.xx.xx.xx",
        ["Nick"] = "yyyyyy",
        ["BanTop"] = 2,
    },