--[[:::::::::::: (c) 2010 by Saymon ::::::::::::::::::::::::
Название: Access IPRanges v0.1 beta for PtokaX
Версия API: API2
Автор: Saymon
Описание: Скрипт проверяет айпи адрес юзера и если тот не соответствует диапазонам которые указаны в таблице, отключает с хаба.
Скрипт написан специально администратором Saymon для EW DCMagnet's HuB (PtokaX 0.4.1.2).
Помог с написанием под PtokaX - Nickolya.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::]]

--[::::::::::: Настройки скрипта. :::::::::::::::::::::::::::]
Provider = "SakhalinTTK"                         -- Название нашего интернет провайдера.
ProviderSite = "http://sakhttk.ru"           -- Вэб сайт нашего интернет провайдера.
AdminMail = "**@mail.ru"                -- E-Mail администратора хаба.              

tLocal = { --Таблица с диапазонами нашего провайдера
    {"188.168.64.0","188.168.67.255",},      
    {"188.168.204.0","188.168.207.255",},
    {"188.168.168.0","188.168.175.255",},      
}
--[::::::::::::: Конец настроек. Далее основной код скрипта. Если нет знаний Lua, то лучше ничего не трогать!! ::]
Version = "0.1 beta"
function OnStartup()
    for i in ipairs(tLocal) do
        tLocal[i][1] = tLocal[i][1]:iptonumber()
        tLocal[i][2] = tLocal[i][2]:iptonumber()
    end
end

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

function GetNickListArrival(tUser,sData)
    if not CheckInDiap(tUser) then
          Core.SendToOpChat("Access IPRanges "..Version.." - Была пресечена попытка входа на хаб для юзера ["..tUser.sNick.." - "..tUser.sIP.."]")
          Core.SendToUser(tUser,"<"..SetMan.GetString(21)..">\t\t"..SetMan.GetString(0).."\r\n\n"..
              "\tIP Адрес: ["..tUser.sIP.." / "..tostring(IP2Country.GetCountryName(tUser)).."] непрошёл проверку с таблицей диапазонов\r\n"..
              "\tДля IP адресов интернет провайдера "..Provider.." "..ProviderSite.." .\r\n\t"..string.rep("•", 70).."\n"..
               "\tЕсли всё же ваш провайдер "..Provider..", то свяжитесь пожалуйста с администратором хаба.\n\tСделать это можно написав на E-Mail: "..AdminMail.."\n\tИли на форуме проекта - "..ProjectForum.." .\n\t"..string.rep("•", 70).."\n\tPowered by Access IPRanges v "..Version..". © 2009-2010 by Saymon.")
          Core.Disconnect(tUser)
    end
    Core.SendToUser(tUser,"<"..SetMan.GetString(21).."> Проверка IP адреса ["..tUser.sIP.."] на пренадлежность к интернет провайдеру "..Provider.." пройдена успешно. Доступ разрешён.")
end
RegConnected = UserConnected
OpConnected = UserConnected

function CheckInDiap(tUser)
    local ip = tUser.sIP:iptonumber()
    for _,range in ipairs(tLocal) do
        if range[1] <= ip and ip <= range[2] then
            return true
        end
    end
    return false
end