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

---------------------------------------------------------------
-- Скрипт редиректа всех кроме IP внисенных ниже --
---------------------------------------------------------------
-- Адрес хаба на который редиректим
sAddress = "dchub://123"
-- Сообщение которое получают пользователи при редиректе
local sMsg = "Вы перенаправленны на..."
--Диапозон IP который не редиректим
local tRanks = {
{"10.0.0.0","10.255.255.255"},
{"172.16.0.0","172.16.255.255"},
{"192.168.0.0","192.168.255.255"},
{"172.20.0.0","172.20.255.255"},
}
-- Минимальная для входа шара, в байтах:
iMinShare = 5*1024^3 -- 5 Gb
---------------------------------------------------------------
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
end

function UserConnected(tUser)
if (Core.GetUserValue(tUser, 16) or 0) < iMinShare then
local iIP = iIp(tUser.sIP)
for _, v in ipairs(tRanks) do
if iIP < v[1] or iIP > v[2] then
Core.SendToUser(tUser, "Внимание!!! сейчас вы будете перенаправленны")
Core.Redirect(tUser, sAddress, sMsg)
Core.SendToOpChat(tUser.sIP)
return
else Core.Disconnect(tUser)
Core.SendToOpChat(tUser.sNick)
return
end
end
end
end