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

--------------------------------------------------------------------------------------------------------------------------------------------
-- Скрипт редиректа всех чья шара ниже iMinShare , кроме IP-диапазонов внисенных ниже в таблицу tRanks , их просто отключаем с сообщением --
-- Автор: Nickolya ( Портал для админов http://MyDc.ru )                                                                                  --
--------------------------------------------------------------------------------------------------------------------------------------------
-- Адрес хаба на который редиректим
local 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 = 500*1024^3 -- 50 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)
        local bIsLocal = false
        for _, v in ipairs(tRanks) do
            if iIP > v[1] and iIP < v[2] then
                bIsLocal = true
                break
            end
        end
        if bIsLocal then
            Core.SendToUser(tUser, " *** Внимание!!! У вас мало шары.")
            Core.Disconnect(tUser)
            Core.SendToOpChat("Локальный Юзер "..tUser.sNick.." IP "..tUser.sIP.." пытался войти на хаб.")
        else
            Core.SendToUser(tUser, " *** Внимание!!! сейчас вы будете перенаправленны на "..sAddress.." из-за маленькой шары")
            Core.Redirect(tUser, sAddress, sMsg)
            Core.SendToOpChat("Интернет Юзер "..tUser.sNick.." IP "..tUser.sIP.." пытался войти на хаб, но был перенаправлен на "..sAddress.." из-за маленькой шары.")
        end
    end
end

--------------------------------------------------------------------------------------------------------------------------------------------
-- Скрипт редиректа всех чья шара ниже iMinShare , кроме IP-диапазонов внисенных ниже в таблицу tRanks , их просто отключаем с сообщением --
-- Автор: Nickolya ( Портал для админов http://MyDc.ru )                                                                                  --
--------------------------------------------------------------------------------------------------------------------------------------------
-- Адрес хаба на который редиректим
local sAddress = "dchub://123"
-- Сообщение которое получают пользователи при редиректе
--local sMsg = "Вы перенаправленны из-за недопустимо маленькой шары. "
local sBot = "Раскривушка;)"
--Диапозон 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 = 500*1024^3 -- 50 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) then--< iMinShare then
        local iIP = iIp(tUser.sIP)
        local bIsLocal = false
        for _, v in ipairs(tRanks) do
            if iIP > v[1] and iIP < v[2] then
                bIsLocal = true
                break
            end
        end
        if bIsLocal then
            Core.SendToUser(tUser, "<"..sBot.."> *** Сиди спокойно старый друХ;).")
        --    Core.Disconnect(tUser)
        --    Core.SendToOpChat("Локальный Юзер "..tUser.sNick.." IP "..tUser.sIP.." пытался войти на хаб.")
        else
            Core.SendPmToUser(tUser, "Извозчик", " *** Внимание!!! Наш хаб перезжает на новый адрес: "..sAddress.." Зайдите в 'Избранные хабы' "..
            "найдите наш хаб и смените старый адрес на новый.")
        --    Core.Redirect(tUser, sAddress, sMsg)
        --    Core.SendToOpChat("Интернет Юзер "..tUser.sNick.." IP "..tUser.sIP.." пытался войти на хаб, но был перенаправлен на "..sAddress.." из-за маленькой шары.")
        end
    end
end