CheckPreFix, API2 | контролирует приставку перед ником |
Здравствуйте, гость ( Вход | Регистрация )
CheckPreFix, API2 | контролирует приставку перед ником |
17.5.2009, 16:21
Сообщение
#1
|
|
Самый главный активист :-D Группа: Модераторы Сообщений: 2 790 Регистрация: 29.6.2008 Из: г. Тула Пользователь №: 97 Спасибо сказали: 440 раз |
Название: CheckPreFix
Автор: inside Версия: 2.1 Последнее изменение: 04.03.07 Описание: проверка юзера на необходимый для его сети префикс, если юзер не входит не в один диапозон ипов, ставится инетовский тег.
Прикрепленные файлы
|
|
|
24.5.2009, 8:27
Сообщение
#2
|
|
Участник Группа: Пользователи Сообщений: 33 Регистрация: 12.5.2009 Из: Волгоград Пользователь №: 3 312 Спасибо сказали: 0 раз |
Как сделать что-бы если заходит пользователь с интернета ставился тег [internet] или [int] ? А если с локальной сети заходят что-бы ни чё не ставилось...
|
|
|
24.5.2009, 9:59
Сообщение
#3
|
|
Самый главный активист :-D Группа: Модераторы Сообщений: 2 790 Регистрация: 29.6.2008 Из: г. Тула Пользователь №: 97 Спасибо сказали: 440 раз |
добавил в скрипт настрой, которая позволяет не проверять юзеров локальной сети на тег.
|
|
|
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)
|
|
|
24.5.2009, 11:13
Сообщение
#5
|
|
Самый главный активист :-D Группа: Модераторы Сообщений: 2 790 Регистрация: 29.6.2008 Из: г. Тула Пользователь №: 97 Спасибо сказали: 440 раз |
а вот эту таблицу PreFixEs = {} не удалил случаем?
|
|
|
24.5.2009, 11:20
Сообщение
#6
|
|
Участник Группа: Пользователи Сообщений: 33 Регистрация: 12.5.2009 Из: Волгоград Пользователь №: 3 312 Спасибо сказали: 0 раз |
не удалял...
|
|
|
25.5.2009, 12:49
Сообщение
#7
|
|
Участник Группа: Пользователи Сообщений: 33 Регистрация: 12.5.2009 Из: Волгоград Пользователь №: 3 312 Спасибо сказали: 0 раз |
Ну чё будет ли решена проблема?
|
|
|
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] Если можно исправь!
Причина редактирования: Не надо цитировать текст из первого поста, итак ясно о чём речь
|
|
|
7.7.2009, 18:26
Сообщение
#9
|
|
Самый главный активист :-D Группа: Модераторы Сообщений: 2 790 Регистрация: 29.6.2008 Из: г. Тула Пользователь №: 97 Спасибо сказали: 440 раз |
надо убрать фразы
Код string.lower PS: в следующий раз за сообщения в личку буду вешать преды! |
|
|
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 что я не так сделал? |
|
|
30.7.2009, 16:32
Сообщение
#11
|
|
7 квадратиков Группа: Модераторы Сообщений: 793 Регистрация: 21.1.2009 Пользователь №: 1 895 Спасибо сказали: 301 раз |
А ты с каким IP на хаб входишь?
|
|
|
30.7.2009, 16:52
Сообщение
#12
|
|
Абсолютный новичок Группа: Пользователи Сообщений: 7 Регистрация: 2.12.2008 Пользователь №: 1 284 Спасибо сказали: 0 раз |
|
|
|
30.7.2009, 17:57
Сообщение
#13
|
|
Наруто на аваторке Группа: Пользователи Сообщений: 2 606 Регистрация: 11.10.2008 Из: Харькова Пользователь №: 771 Спасибо сказали: 774 раза |
А как сделать чтоб все юзеры слева в списке юзеров были одним цветом. .... это кака и где? захожу на хаб он мне пишет введите перфик и вместо alt просит чтоб я ввел ext ты вот это случайно не заметил? Код local outOfRange = "ext" а тебе нада ... Код local outOfRange = "alt"
|
|
|
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
Причина редактирования: кодбокс в помощь. И кроме того - скрипт тут не нужен еще раз. просто скажи что надо! Пока устное предупреждение.
|
|
|
30.7.2009, 18:21
Сообщение
#15
|
|
Наруто на аваторке Группа: Пользователи Сообщений: 2 606 Регистрация: 11.10.2008 Из: Харькова Пользователь №: 771 Спасибо сказали: 774 раза |
GREMLIN Хватит постить скрипт!!!!!!!!!!!!!!!!!!!!!!
Код ["alt"] = { ["For"] = "10.250.0.1", ["To"] = "10.250.255.255", }, ["cor"] = { ["For"] = "10.216.0.1", ["To"] = "10.223.255.255", }, |
|
|
30.7.2009, 18:27
Сообщение
#16
|
|
Абсолютный новичок Группа: Пользователи Сообщений: 7 Регистрация: 2.12.2008 Пользователь №: 1 284 Спасибо сказали: 0 раз |
ну млин просто очень надо=( а как написать правельно я не знаю. Вот и пишу вам весь код. сорри |
|
|
30.7.2009, 18:30
Сообщение
#17
|
|
Наруто на аваторке Группа: Пользователи Сообщений: 2 606 Регистрация: 11.10.2008 Из: Харькова Пользователь №: 771 Спасибо сказали: 774 раза |
|
|
|
30.7.2009, 18:40
Сообщение
#18
|
|
Абсолютный новичок Группа: Пользователи Сообщений: 7 Регистрация: 2.12.2008 Пользователь №: 1 284 Спасибо сказали: 0 раз |
Всё норм. Спасибо А на счёт одноцветных ников ни кто ни чего не знает? |
|
|
30.7.2009, 18:44
Сообщение
#19
|
|
Наруто на аваторке Группа: Пользователи Сообщений: 2 606 Регистрация: 11.10.2008 Из: Харькова Пользователь №: 771 Спасибо сказали: 774 раза |
|
|
|
30.7.2009, 18:45
Сообщение
#20
|
|
Самый главный активист :-D Группа: Модераторы Сообщений: 2 790 Регистрация: 29.6.2008 Из: г. Тула Пользователь №: 97 Спасибо сказали: 440 раз |
если хочешь пометь только у себя зайди в настройки клиента и поставь на всех одинаковый цвет...
|
|
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последнее сообщение | |
---|---|---|---|---|---|
От: CheckPreFix От темы с ID: 1947 |
3 | DriverZX-10 | 6 080 | 29.8.2009, 22:48 Посл. сообщение: DriverZX-10 |
|
Сейчас: 23.11.2024, 12:18 |