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

path = debug.getinfo(1).source:match("^@?(.+[/\\]).-$"):gsub("\\","/")
Ranges = path.."rassilka.txt"
sMsg = "Текст для юзеров"
hFileName = "rasslka.dbs"

function string.InRange(ip,rnum)
    local iIP = ip:iptonumber()
    for i,v in ipairs(tRanges[rnum]) do
        if v[1] <= iIP and iIP <= v[2] then
            return true
        end
    end
end

function string.iptonumber(ip)
    local i1, i2, i3, i4 = ip:match("^(%d+)%.(%d+)%.(%d+)%.(%d+)$")
    if i1 then
        local r = i1*16777216+i2*65536+i3*256+i4
        if r < 0 then error(ip) end
        return r
    end
end

function LoadRanges()
    local f = io.open(Ranges,"r")
    if f then
        tRanges,tRangeNames = {},{}
        local rnum = 0
        for line in f:lines() do
            local ip1,ip2 = line:match("^(%d+%.%d+%.%d+%.%d+)%-(%d+%.%d+%.%d+%.%d+)")
            if ip1 and ip2 then
                if rnum > 0 then
                    table.insert(tRanges[rnum],{ip1:iptonumber(),ip2:iptonumber()})
                end
            else    
                local rname = line:match("^%[(.+)%]")
                if rname then
                    rnum = rnum+1
                    tRanges[rnum] = {}
                    tRangeNames[rnum] = rname
                end
            end
        end
        f:close()
    end
end

function OnStartup()
    hFileName = Core.GetPtokaXPath().."scripts/"..hFileName
    bot = SetMan.GetString(21)
    assert(LoadRanges(),"Не удалось загрузить список диапазонов")
    if loadfile(hFileName) then
        dofile(hFileName)
    end
    if not tIpBase then tIpBase = {} end
end

function UserConnected(tUser)
    if tUser.sIP:InRange(rnum) then
        if not tIpBase[tUser.sIP] then
            Core.SendPmToUser(tUser, sBot, sMsg)
            tIpBase[tUser.sIP] = 1
            SaveToFile(tIpBase, "tIpBase", hFileName)
        end
    end
end

function SaveToFile(tTable, sTableName, sFile)
  local f = io.open(sFile, "r+")
  if f then
    Serialize(tTable, sTableName, f)
    f:flush()
    f:close()
  end
end

function Serialize(tTable, sTableName, hFile, sTab)
  sTab=sTab or ""
  hFile:write(sTab..sTableName.." = {\n")
  for i,v in pairs(tTable) do
    local sKey=(type(i)=="string") and string.format("[%q]",i) or string.format("[%d]",i)
    if(type(v)=="table") then Serialize(v,sKey,hFile,sTab.."\t")
    else
      local sValue=(type(value)=="string") and string.format("%q",v) or tostring(v)
      hFile:write(sTab.."\t"..sKey.." = "..sValue)
    end
    hFile:write(",\n")
  end
  hFile:write(sTab.."}")
end
RegConnected = UserConnected

[Подсеть 1]
10.0.0.0-10.255.255.255
[Подсеть 2]
192.168.0.0-192.168.255.255
[Подсеть 3]
11.0.0.0-171.15.255.255
[Подсеть 4]
192.169.0.0-255.255.255.255

tIpBase = {
    ["89.251.107.9"] = 1,
    ["2.95.137.83"] = 1,
    ["178.74.121.145"] = 1,
    ["92.126.86.184"] = 1,
    ["77.120.154.155"] = 1,
    ["78.40.81.15"] = 1,
    ["46.72.23.247"] = 1,
    ["188.26.247.204"] = 1,
    ["10.181.80.173"] = 1,
    ["178.162.66.227"] = 1,
    ["2.25.80.57"] = 1,
    ["10.196.96.145"] = 1,
    ["79.99.217.19"] = 1,
    ["109.195.190.222"] = 1,
    ["92.100.2.30"] = 1,
    ["46.72.28.239"] = 1,
    ["195.49.206.242"] = 1,
    ["10.188.248.185"] = 1,
    ["213.111.181.72"] = 1,
    ["178.210.57.175"] = 1,
    ["213.222.227.76"] = 1,
    ["46.159.86.47"] = 1,
}

local sMsg = "Рассылаемый текст"
local hFileName = "rassilka.dbs"
local tRanks = {
    {"10.10.10.0","10.10.10.255"},
}

function iIp(sIP)
        local a, b, c, d = sIP:match"^(%d+)%.(%d+)%.(%d+)%.(%d+)$"
        return a * 16777216 + b * 65536 + c * 256 + d
end

function OnStartup()
    for k, v in ipairs(tRanks) do
        tRanks[k][1], tRanks[k][2] = iIp(v[1]), iIp(v[2])
    end
    sBot = SetMan.GetString(21)
    hFileName = Core.GetPtokaXPath().."scripts/"..hFileName
    if loadfile(hFileName) then
        dofile(hFileName)
    end
    if not tIpBase then tIpBase = {} end
end

function UserConnected(tUser)
    local iIP = iIp(tUser.sIP)
    for _, v in ipairs(tRanks) do
        if iIP > v[1] and iIP < v[2] then
            if not tIpBase[tUser.sIP] then
                Core.SendPmToUser(tUser, sBot, sMsg)
                tIpBase[tUser.sIP] = 1
                SaveToFile(tIpBase, "tIpBase", hFileName)
            end
        end
    end
end

function SaveToFile(tTable, sTableName, sFile)
  local f = io.open(sFile, "r+")
  if f then
    Serialize(tTable, sTableName, f)
    f:flush()
    f:close()
  end
end

function Serialize(tTable, sTableName, hFile, sTab)
  sTab=sTab or ""
  hFile:write(sTab..sTableName.." = {\n")
  for i,v in pairs(tTable) do
    local sKey=(type(i)=="string") and string.format("[%q]",i) or string.format("[%d]",i)
    if(type(v)=="table") then Serialize(v,sKey,hFile,sTab.."\t")
    else
      local sValue=(type(value)=="string") and string.format("%q",v) or tostring(v)
      hFile:write(sTab.."\t"..sKey.." = "..sValue)
    end
    hFile:write(",\n")
  end
  hFile:write(sTab.."}")
end

RegConnected = UserConnected
VipConnected = UserConnected