myDC.ru

Здравствуйте, гость ( Вход | Регистрация )

 

> CheckPreFix, API2 | контролирует приставку перед ником

Теги
Нет тегов для показа
Wariner
сообщение 17.5.2009, 16:21
Сообщение #1


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




Название: CheckPreFix
Автор: inside
Версия: 2.1
Последнее изменение: 04.03.07
Описание: проверка юзера на необходимый для его сети префикс, если юзер не входит не в один диапозон ипов, ставится инетовский тег.
Прикрепленные файлы
Прикрепленный файл  CheckPreFix.lua ( 2.59 килобайт ) Кол-во скачиваний: 386
 


Спасибо сказали:
Go to the top of the page
+Quote Post
4 страниц V   1 2 3 > »   
Начать новую тему
Ответов
Hammer
сообщение 24.5.2009, 8:27
Сообщение #2


Участник
**

Группа: Пользователи
Сообщений: 33
Регистрация: 12.5.2009
Из: Волгоград
Пользователь №: 3 312
Спасибо сказали: 0 раз




Как сделать что-бы если заходит пользователь с интернета ставился тег [internet] или [int] ? А если с локальной сети заходят что-бы ни чё не ставилось...
Go to the top of the page
+Quote Post
Wariner
сообщение 24.5.2009, 9:59
Сообщение #3


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




добавил в скрипт настрой, которая позволяет не проверять юзеров локальной сети на тег.
Go to the top of the page
+Quote Post
Hammer
сообщение 24.5.2009, 10:38
Сообщение #4


Участник
**

Группа: Пользователи
Сообщений: 33
Регистрация: 12.5.2009
Из: Волгоград
Пользователь №: 3 312
Спасибо сказали: 0 раз




[11:38] Синтаксис D:\PtokaX\scripts\CheckPreFix.lua:97: bad argument #1 to 'lower' (string expected, got nil)
Go to the top of the page
+Quote Post
Wariner
сообщение 24.5.2009, 11:13
Сообщение #5


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




а вот эту таблицу PreFixEs = {} не удалил случаем?
Go to the top of the page
+Quote Post
Hammer
сообщение 24.5.2009, 11:20
Сообщение #6


Участник
**

Группа: Пользователи
Сообщений: 33
Регистрация: 12.5.2009
Из: Волгоград
Пользователь №: 3 312
Спасибо сказали: 0 раз




не удалял...
Go to the top of the page
+Quote Post
Hammer
сообщение 25.5.2009, 12:49
Сообщение #7


Участник
**

Группа: Пользователи
Сообщений: 33
Регистрация: 12.5.2009
Из: Волгоград
Пользователь №: 3 312
Спасибо сказали: 0 раз




Ну чё будет ли решена проблема?
Go to the top of the page
+Quote Post
Drakula
сообщение 6.7.2009, 23:31
Сообщение #8


PtokaX DC Hub 0.4.1.2
*****

Группа: Пользователи
Сообщений: 203
Регистрация: 20.1.2009
Из: Republic of Belarus, Minsk, Uruchie, Avalon.
Пользователь №: 1 890
Спасибо сказали: 4 раза




У мя тут проблема.... Пишу описание сети с большой буквы, например: [Set]
А когда заходишь пишет так: [set]
Если можно исправь!
Причина редактирования: Не надо цитировать текст из первого поста, итак ясно о чём речь
Go to the top of the page
+Quote Post
Wariner
сообщение 7.7.2009, 18:26
Сообщение #9


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




надо убрать фразы
Код
string.lower


PS: в следующий раз за сообщения в личку буду вешать преды!


Спасибо сказали:
Go to the top of the page
+Quote Post
GREMLIN
сообщение 30.7.2009, 15:33
Сообщение #10


Абсолютный новичок


Группа: Пользователи
Сообщений: 7
Регистрация: 2.12.2008
Пользователь №: 1 284
Спасибо сказали: 0 раз




Вот у меня 2 провайдара альтаир и корбина

я хочу чтоб показывалось кто с альтаира кто с корбины alt , cor

Меняю в таблицах glu pro и т.д на альт

захожу на хаб он мне пишет введите перфик и вместо alt просит чтоб я ввел ext

----вот таблица----


-- таблица соответствия префиксов диапазонам адресов
-- IP юзеров которые не войдут ни в один из следющих диапазонов будут восприняты как "внешние"
-- такие юзеры должны ставить префикс [ext]
--[[

C h e c k [P r e F i x]

ПРОВЕРКА НИКА ЮЗЕРА
НА НЕОБХОДИМЫЙ ДЛЯ
ЕГО СЕТИ ПРЕФИКС

Название: CheckPreFix
Автор: inside
Версия: 2.1
Последнее изменение: 04.03.07

]]--

-- таблица соответствия префиксов диапазонам адресов
-- IP юзеров которые не войдут ни в один из следющих диапазонов будут восприняты как "внешние"
-- такие юзеры должны ставить префикс [ext]
PreFixEs = {
["alt"] =
{
["For"] = "10.1.0.0",
["To"] = "10.8.255.255",
},

["cor"] =
{
["For"] = "10.9.0.0",
["To"] = "10.100.255.255",
},
["local"] =
{
["For"] = "127.0.0.0",
["To"] = "127.255.255.255",
},
["ttk2"] =
{
["For"] = "212.12.0.0",
["To"] = "212.12.255.255",
},

["ttk"] =
{
["For"] = "10.250.0.0",
["To"] = "10.250.255.255",
},
["x"] =
{
["For"] = "10.216.0.0",
["To"] = "10.216.255.255",
},
}
local bLocal = true -- проверять ли локальных пользователей на тег (true - да nil - нет)
local outOfRange = "ext"

function OnStartup()
BN = SetMan.GetString(21)
end

function UserConnected(user, data)
local _,_,user_sRealPrefix = string.find(user.sNick,"^%[(%S*)%]")
local UserNetPrefix = string.lower(CheckUserNet(user.sIP))
if (user_sRealPrefix == nil and bLocal) or (UserNetPrefix ~= string.lower(user_sRealPrefix)) then
Core.SendToUser(user, "<"..BN.."> Ваш ник не соответствует правилам хаба! Поставьте префикс ["..UserNetPrefix.."] перед ником. Т.е. ваш ник должен будет выглядеть так: ["..UserNetPrefix.."]"..user.sNick.."")
Core.Disconnect(user)
end
end
RegConnected = UserConnected -- приравнивает регов к юзерам
OpConnected = UserConnected -- приравнивает опов к юзерам

function CheckUserNet(user_ip)
local user_Net = outOfRange
local ResultIP = CalculateIP(user_ip)
for Net,Net_ISP in pairs(PreFixEs) do
if ResultIP >= CalculateIP(Net_ISP["For"]) and ResultIP <= CalculateIP(Net_ISP["To"]) then
return Net
end
end
return outOfRange
end

function CalculateIP(anyIP)
local _,_,anyIP1,anyIP2,anyIP3,anyIP4 = string.find(anyIP, "(%d*)%.(%d*)%.(%d*)%.(%d*)")
return 256*(256*(256*(anyIP1*256+anyIP2)+anyIP3)+anyIP4)
end


что я не так сделал?
Go to the top of the page
+Quote Post
Alexey
сообщение 30.7.2009, 16:32
Сообщение #11


7 квадратиков
*******

Группа: Модераторы
Сообщений: 793
Регистрация: 21.1.2009
Пользователь №: 1 895
Спасибо сказали: 301 раз




А ты с каким IP на хаб входишь?
Go to the top of the page
+Quote Post
GREMLIN
сообщение 30.7.2009, 16:52
Сообщение #12


Абсолютный новичок


Группа: Пользователи
Сообщений: 7
Регистрация: 2.12.2008
Пользователь №: 1 284
Спасибо сказали: 0 раз




Цитата(Alexey @ 30.7.2009, 17:32) *
А ты с каким IP на хаб входишь?


c 10.2.73.90 альтаир. alt

Извените за офф топ не по теме. А как сделать чтоб все юзеры слева в списке юзеров были одним цветом.
Go to the top of the page
+Quote Post
Артём
сообщение 30.7.2009, 17:57
Сообщение #13


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 772 раза




Цитата(GREMLIN @ 30.7.2009, 16:52) *
А как сделать чтоб все юзеры слева в списке юзеров были одним цветом.

shocked.gif .... unhappy.gif это кака и где?

Цитата(GREMLIN @ 30.7.2009, 15:33) *
захожу на хаб он мне пишет введите перфик и вместо alt просит чтоб я ввел ext

ты вот это случайно не заметил? big_smile.gif
Код
local outOfRange = "ext"

а тебе нада ...
Код
local outOfRange = "alt"
Go to the top of the page
+Quote Post
GREMLIN
сообщение 30.7.2009, 18:10
Сообщение #14


Абсолютный новичок


Группа: Пользователи
Сообщений: 7
Регистрация: 2.12.2008
Пользователь №: 1 284
Спасибо сказали: 0 раз




Офф топ сново сорри. Ну млин когда на хаб входишь слева ники юзеров написанны и кто то из ник красным цветом кто то синим кто фиолетывам каким то. А мне нужно чтоб они все одним цветом были.


так

CODE

--[[

C h e c k [P r e F i x]

ПРОВЕРКА НИКА ЮЗЕРА
НА НЕОБХОДИМЫЙ ДЛЯ
ЕГО СЕТИ ПРЕФИКС

Название: CheckPreFix
Автор: inside
Версия: 2.1
Последнее изменение: 04.03.07

]]--

-- таблица соответствия префиксов диапазонам адресов
-- IP юзеров которые не войдут ни в один из следющих диапазонов будут восприняты как "внешние"
-- такие юзеры должны ставить префикс [ext]
PreFixEs = {
["alt"] =
{
["For"] = "10.1.0.0",
["To"] = "10.8.255.255",
},

["alt"] =
{
["For"] = "10.9.0.0",
["To"] = "10.100.255.255",
},
["local"] =
{
["For"] = "127.0.0.0",
["To"] = "127.255.255.255",
},
["ttk2"] =
{
["For"] = "212.12.0.0",
["To"] = "212.12.255.255",
},

["ttk"] =
{
["For"] = "10.250.0.0",
["To"] = "10.250.255.255",
},
["cor"] =
{
["For"] = "10.216.0.0",
["To"] = "10.223.255.255",
},
}
local bLocal = true -- проверять ли локальных пользователей на тег (true - да nil - нет)
local outOfRange = "alt"

function OnStartup()
BN = SetMan.GetString(21)
end

function UserConnected(user, data)
local _,_,user_sRealPrefix = string.find(user.sNick,"^%[(%S*)%]")
local UserNetPrefix = string.lower(CheckUserNet(user.sIP))
if (user_sRealPrefix == nil and bLocal) or (UserNetPrefix ~= string.lower(user_sRealPrefix)) then
Core.SendToUser(user, "<"..BN.."> Ваш ник не соответствует правилам хаба! Поставьте префикс ["..
UserNetPrefix.."] перед ником. Т.е. ваш ник должен будет выглядеть так: ["..UserNetPrefix.."]"..user.sNick.."")
Core.Disconnect(user)
end
end
RegConnected = UserConnected -- приравнивает регов к юзерам
OpConnected = UserConnected -- приравнивает опов к юзерам

function CheckUserNet(user_ip)
local user_Net = outOfRange
local ResultIP = CalculateIP(user_ip)
for Net,Net_ISP in pairs(PreFixEs) do
if ResultIP >= CalculateIP(Net_ISP["For"]) and ResultIP <= CalculateIP(Net_ISP["To"]) then
return Net
end
end
return outOfRange
end

function CalculateIP(anyIP)
local _,_,anyIP1,anyIP2,anyIP3,anyIP4 = string.find(anyIP, "(%d*)%.(%d*)%.(%d*)%.(%d*)")
return 256*(256*(256*(anyIP1*256+anyIP2)+anyIP3)+anyIP4)
end



Теперь когда с внутренней сети корбины зоходу введите перфикс alt а нужно чтоб было cor
Причина редактирования: кодбокс в помощь. И кроме того - скрипт тут не нужен еще раз. просто скажи что надо! Пока устное предупреждение.
Go to the top of the page
+Quote Post
Артём
сообщение 30.7.2009, 18:21
Сообщение #15


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 772 раза




GREMLIN scorn.gif Хватит постить скрипт!!!!!!!!!!!!!!!!!!!!!!

Код
["alt"] =
{
["For"] = "10.250.0.1",
["To"] = "10.250.255.255",
},
["cor"] =
{
["For"] = "10.216.0.1",
["To"] = "10.223.255.255",
},

Go to the top of the page
+Quote Post
GREMLIN
сообщение 30.7.2009, 18:27
Сообщение #16


Абсолютный новичок


Группа: Пользователи
Сообщений: 7
Регистрация: 2.12.2008
Пользователь №: 1 284
Спасибо сказали: 0 раз






ну млин просто очень надо=( а как написать правельно я не знаю. Вот и пишу вам весь код. сорри
Go to the top of the page
+Quote Post
Артём
сообщение 30.7.2009, 18:30
Сообщение #17


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 772 раза




GREMLIN
Прикрепленный файл  CheckPreFix.lua ( 1.95 килобайт ) Кол-во скачиваний: 39
Go to the top of the page
+Quote Post
GREMLIN
сообщение 30.7.2009, 18:40
Сообщение #18


Абсолютный новичок


Группа: Пользователи
Сообщений: 7
Регистрация: 2.12.2008
Пользователь №: 1 284
Спасибо сказали: 0 раз




Цитата(Артём @ 30.7.2009, 19:30) *
GREMLIN
Прикрепленный файл  CheckPreFix.lua ( 1.95 килобайт ) Кол-во скачиваний: 39


Всё норм. Спасибо


А на счёт одноцветных ников ни кто ни чего не знает?
Go to the top of the page
+Quote Post
Артём
сообщение 30.7.2009, 18:44
Сообщение #19


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 772 раза




Цитата(GREMLIN @ 30.7.2009, 18:40) *
А на счёт одноцветных ников ни кто ни чего не знает?

unhappy.gif это где?
Go to the top of the page
+Quote Post
Wariner
сообщение 30.7.2009, 18:45
Сообщение #20


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




если хочешь пометь только у себя зайди в настройки клиента и поставь на всех одинаковый цвет...
Go to the top of the page
+Quote Post

4 страниц V   1 2 3 > » 
Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts Topic has attachmentsОт: CheckPreFix
От темы с ID: 1947
3 DriverZX-10 4 948 29.8.2009, 22:48 Посл. сообщение: DriverZX-10

 



RSS Сейчас: 27.5.2022, 14:28