myDC.ru

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

 
2 страниц V   1 2 >  
Ответить в данную темуНачать новую тему

> Блок по тегу, Скрипт блокировки по тегу

Теги
Нет тегов для показа
valdis73
сообщение 1.5.2010, 4:43
Сообщение #1


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Народ я вот спросить хотел, где то видел мануал по тегам. Найти не могу. Есть в природе скрипт блокирующий вход в хаб (птока nix) по тегу?
Дело в том, что один баран пару лет назад создал клиент, и сунул туда свой ник, в сам тег, да так сунул с пробелами, теперь народ наставил себе эти клиенты, закачка идёт кошмарно, кошмарно даже не для них, а для всех остальных. Скачивают они 1мб и хаб их рубит, потом заново, и забивают все слоты. Короче самые "одарённые" умудряются за минуту больше сотни слотов забить, приходиться потом клиент перезапускать. На других клиентах их вовсе дуплит сразу. Остаются они без закачки, и другие без слотов. За два года пересадил всех, но вот 5чел особо твёрдых до сих пор не могут понять как сменить клиент. С октября с ними бьюсь. Они входят с чужих айпи (хаб сетевой и у нас можно в настройке ип сменить), быстро хватают что им надо, и бегут. Другие потом сидят с болтом. В хексе есть в настройке такая тема. А вот в птоке не надыбал.
Есть народ такой скрипт?
Скажем при входе с этим юзверям пишет "пшёл и сменил клиент на другой, скачать тут (ссылка)"

Go to the top of the page
+Quote Post
Артём
сообщение 1.5.2010, 10:19
Сообщение #2


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

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




Попрбуй это Прикрепленный файл  FavClientOnly.lua ( 408 байт ) Кол-во скачиваний: 31


Спасибо сказали:
Go to the top of the page
+Quote Post
valdis73
сообщение 1.5.2010, 16:32
Сообщение #3


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Артём спасибо, идея именно та что я и хотел, только незадача в том, что он блочит все теги, а мне надо, что бы не пускал только один
<Tomilino.Net DC ++,M:A,H:1/0/0,S:10>
Go to the top of the page
+Quote Post
Alexey
сообщение 1.5.2010, 17:52
Сообщение #4


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

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




Прикрепленный файл  BadClient.lua ( 421 байт ) Кол-во скачиваний: 20


Спасибо сказали:
Go to the top of the page
+Quote Post
valdis73
сообщение 1.5.2010, 22:48
Сообщение #5


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Спасибо Alexey но Ваш скрипт пропускает всех. Абсолютно всех.
Go to the top of the page
+Quote Post
Nickolya
сообщение 1.5.2010, 22:56
Сообщение #6


Главный ра******й тут...
*********

Группа: Главные администраторы
Сообщений: 1 727
Регистрация: 18.5.2008
Из: RF, 2la
Пользователь №: 1
Спасибо сказали: 776 раз




Вот сделать конкретно нужное вам - 1 минута, попробуйте...
Код
function UserConnected(tUser)
    local sTag = Core.GetUserValue(tUser, 3) or false
    if sTag and sTag:find("<Tomilino.Net DC ++,", 1, 1) then
        Core.Disconnect(tUser)
    end
end
OpConnected = UserConnected
RegConnected = UserConnected
Go to the top of the page
+Quote Post
valdis73
сообщение 1.5.2010, 23:12
Сообщение #7


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Похоже я всех тут уже достал)))
<Tomilino.Net DC ++,M:A,H:1/0/0,S:10>
Nickolya ..... Пропускает)))
Go to the top of the page
+Quote Post
Alexey
сообщение 2.5.2010, 0:14
Сообщение #8


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

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




А клиент точно так пишется? Скриншот не помешал-бы.
Go to the top of the page
+Quote Post
valdis73
сообщение 2.5.2010, 18:27
Сообщение #9


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Вот собстно

User Info:
Nick: Бандит
Share: 0 Байт
Description: by Help.Tomilino.Net
Tag: <TomilDC:8.6.5,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 10.32.36.100
Supports:
Go to the top of the page
+Quote Post
Ksan
сообщение 3.5.2010, 1:00
Сообщение #10


Белый Волк
*********

Группа: Пользователи
Сообщений: 1 723
Регистрация: 11.9.2008
Из: г.Томск
Пользователь №: 516
Спасибо сказали: 657 раз




Что же ты путаешь всех? В одном месте один тэг пишешь про нехорошего юзера один, в другом - другой. Ты уж определись сначала.
Проверь вышепоказанный скрипт в таком варианте:
Код
function UserConnected(tUser)
    local sTag = Core.GetUserValue(tUser, 3) or false
    if sTag and sTag:find("<TomilDC:8.6.5,", 1, 1) then
        Core.Disconnect(tUser)
    end
end
OpConnected = UserConnected
RegConnected = UserConnected
Go to the top of the page
+Quote Post
valdis73
сообщение 3.5.2010, 3:01
Сообщение #11


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Ksan почему путаю? Там у них выбор тегов есть и они их сами меняют, я хз зачем это было сделано, 2 тега томилино, но факт остаётся фактом, нужно что бы блочило по Tomilino именно. Так как тег не один, перечислять же их нет смысла оба в скрипте?
Раскрывающийся текст

User Info:
Nick: Бандит
Share: 0 Байт
Description: by Help.Tomilino.Net
Tag: <TomilDC:8.6.5,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 10.32.36.100
Supports:




User Info:
Nick: КнязьТьмыД
Share: 11,47 ГБ
Description: by Help.Tomilino.Net
Tag: <TomilDC:8.6.5,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 10.32.37.245
Supports:


User Info:
Nick: Курим
Share: 10,25 ГБ
Description: by Help.Tomilino.Net
Tag: <Tomilino.Net DC ++,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 172.16.29.15
Supports: MiniSlots XmlBZList ADCGet TTHL TTHF BanMsg GetZBlock ZLIG


User Info:
Nick: Пересвет
Share: 268,01 ГБ
Description: by Help.Tomilino.Net
Tag: <TomilDC:8.6.5,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 10.52.53.213
Supports:


User Info:
Nick: bars_ots
Share: 33,53 ГБ
Description: by Help.Tomilino.Net
Tag: <Tomilino.Net DC ++,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail: bars_125clan@mail.ru
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 172.16.254.53
Supports:



User Info:
Nick: RPG+
Share: 240,60 ГБ
Description: by Help.Tomilino.Net
Tag: <Tomilino.Net DC ++,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 172.16.160.8
Supports:


User Info:
Nick: na5pavel
Share: 14,53 ГБ
Description: by Help.Tomilino.Net
Tag: <Tomilino.Net DC ++,M:P,H:1/0/0,S:10,L:10000>
Connection: 0.5
E-Mail: na5pavel@yandex.ru
Mode: P
Hubs: 1 (1/0/0)
Slots: 10
IP: 10.0.0.119
Supports:


User Info:
Nick: кккир..
Share: 20,95 ГБ
Description: by Help.Tomilino.Net
Tag: <Tomilino.Net DC ++,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 172.16.168.66
Supports:


User Info:
Nick: 2323asedfgweg
Share: 11,33 ГБ
Description: by Help.Tomilino.Net
Tag: <TomilDC:8.6.5,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 10.32.32.58
Supports:


User Info:
Nick: КнязьТьмыД
Share: 14,21 ГБ
Description: by Help.Tomilino.Net
Tag: <TomilDC:8.6.5,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 10.32.37.245
Supports:



User Info:
Nick: kolia
Share: 35,23 ГБ
Description: by Help.Tomilino.Net
Tag: <Tomilino.Net DC ++,M:A,H:1/0/0,S:10>
Connection: 100
E-Mail:
Mode: A
Hubs: 1 (1/0/0)
Slots: 10
IP: 172.16.168.134
Supports:



Как видим тут 2 тега, их можно оба внести в скрипт?Или если есть возможность по описанию by Help.Tomilino.Net
Go to the top of the page
+Quote Post
Ksan
сообщение 3.5.2010, 4:35
Сообщение #12


Белый Волк
*********

Группа: Пользователи
Сообщений: 1 723
Регистрация: 11.9.2008
Из: г.Томск
Пользователь №: 516
Спасибо сказали: 657 раз




Вот попробуй это тогда. В таблицу можешь добавить, если понадобится в будущем, другие тексты из тэга или описания (я добавил и проверку по описанию).
Раскрывающийся текст
Код
sBot = SetMan.GetString(21)
sWarn = "Просьба сменить клиент на любой другой, чтоб Вы могли попасть на этот хаб."  -- можете тут написать любой текст

tForbid = {
    "TomilDC:8.6.5",
    "Tomilino.Net DC",
    "Tomilino",
--    "Tomil",   -- хотя можно просто одной этой строкой обойтись, если у других нормальных юзеров нет такого тэга
}

function UserConnected(tUser)
    Core.GetUserData(tUser, 3)
    Core.GetUserData(tUser, 2)
    for i = 1, #tForbid do
        if tUser.sTag:find(tForbid[i],1,true) or tUser.sTag:find(tForbid[i],1,true) then
        Core.SendToUser(tUser, "<"..sBot.."> "..sWarn)  --  если не хотите никаких сообщений юзеру, то закомментите строку (спереди нарисуйте 2 знака минус --)
        Core.Disconnect(tUser)
        end
    end
end

Картинка для юзера будет выглядеть так:
Код
[05:09:33] <Говорун> Этот хаб работает под управлением PtokaX DC Hub 0.4.1.1 (Время работы: 0 дней, 0 часов, 19 минут / Юзеры: 1)
[05:09:34] *** This socket has been closed...

Можно сделать и вообще без сообщения от хаба, например, так:
Раскрывающийся текст
Код
sBot = SetMan.GetString(21)
sWarn = "Просьба сменить клиент на любой другой, чтоб Вы могли попасть на этот хаб."  -- можете тут написать люой текст

tForbid = {
    "TomilDC:8.6.5",
    "Tomilino.Net DC",
    "Tomilino",
--    "Tomil",   -- хотя можно просто одной этой строкой обойтись, если у других нормальных юзеров нет такого тэга
}

function MyINFOArrival(tUser, sData)
        for i = 1, #tForbid do
        if sData:find(tForbid[i],1,true) or sData:find(tForbid[i],1,true) then
--        Core.SendToUser(tUser, "<"..sBot.."> "..sWarn)  --  если  хотите отправить сообщение юзеру, то раскомментите строку (спереди удалите 2 знака минус --)
        Core.Disconnect(tUser)
        end
    end
end

В этом случае картинка будет иная:
Код
[05:36:11] *** Соединение с dchub://192.168.1.2:412...
[05:36:11] *** Соединён
[05:36:12] *** This socket has been closed...
Go to the top of the page
+Quote Post
valdis73
сообщение 3.5.2010, 5:17
Сообщение #13


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Спасибо Волк. Сейчас поставил его, как выползут из банов посмотрим.

Проходят свободно

Go to the top of the page
+Quote Post
Nickolya
сообщение 3.5.2010, 19:40
Сообщение #14


Главный ра******й тут...
*********

Группа: Главные администраторы
Сообщений: 1 727
Регистрация: 18.5.2008
Из: RF, 2la
Пользователь №: 1
Спасибо сказали: 776 раз




Вопрос номер 1: у вас птока 0.4.х.х версии?
№2: вы сохраняете в файл скрипт с расширением .lua и запускаете его?
№3: скрипт работает без ошибок?
№4: какой из скриптов вы запускаете из всех предложенных выше? Т.к. последний из предложенных должен работать на все 100%.
Go to the top of the page
+Quote Post
valdis73
сообщение 3.5.2010, 19:58
Сообщение #15


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Птока на никсах 0.4.0
Проверяю попутно и в инет хабе там один на виндовой 0.4.1.2, второй на 0.4.1.0
Никак не катит. Пробовал заменять на стронг и на грей теги. Пропускает
Пробовал первый из них

Этот

Код
sBot = SetMan.GetString(21)
sWarn = "Просьба сменить клиент на любой другой, чтоб Вы могли попасть на этот хаб."  -- можете тут написать любой текст

tForbid = {
    "TomilDC:8.6.5",
    "Tomilino.Net DC",
    "Tomilino",
--    "Tomil",   -- хотя можно просто одной этой строкой обойтись, если у других нормальных юзеров нет такого тэга
}

function UserConnected(tUser)
    Core.GetUserData(tUser, 3)
    Core.GetUserData(tUser, 2)
    for i = 1, #tForbid do
        if tUser.sTag:find(tForbid[i],1,true) or tUser.sTag:find(tForbid[i],1,true) then
        Core.SendToUser(tUser, "<"..sBot.."> "..sWarn)  --  если не хотите никаких сообщений юзеру, то закомментите строку (спереди нарисуйте 2 знака минус --)
        Core.Disconnect(tUser)
        end
    end
end


Ошибок не выдаёт. Вот самый первый был норм. В самом верху темы. Но тот собака вообще всех блокировал
Go to the top of the page
+Quote Post
Nickolya
сообщение 3.5.2010, 20:32
Сообщение #16


Главный ра******й тут...
*********

Группа: Главные администраторы
Сообщений: 1 727
Регистрация: 18.5.2008
Из: RF, 2la
Пользователь №: 1
Спасибо сказали: 776 раз




Попробуй второй из предложенных в 12 посту темы, может он будет работать, написан он по аналогии с тем что предлагали тебе первым.


Спасибо сказали:
Go to the top of the page
+Quote Post
valdis73
сообщение 3.5.2010, 20:33
Сообщение #17


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




Спасибо. Попробую и отпишусь
Go to the top of the page
+Quote Post
Ksan
сообщение 3.5.2010, 21:12
Сообщение #18


Белый Волк
*********

Группа: Пользователи
Сообщений: 1 723
Регистрация: 11.9.2008
Из: г.Томск
Пользователь №: 516
Спасибо сказали: 657 раз




Оба скрипта рабочие. Я непроверенный скрипт не стал бы предлагать.
Если Птока 0.4.0.0, то давно пора заменить на 0.4.1* , иначе некоторые скрипты будут глючить.
Go to the top of the page
+Quote Post
valdis73
сообщение 3.5.2010, 21:16
Сообщение #19


Активный участник
***

Группа: Пользователи
Сообщений: 93
Регистрация: 4.1.2009
Пользователь №: 1 670
Спасибо сказали: 6 раз




После ребута хаба (очень неудобно всё это было делать, т.к. никсовый стоит в офисе и приходиться для смены конфигов останавливать хаб извне).
Короче пришлось ребутнуть по причине того, что стояла галка "Нет проверки тега", для регов. Вот конфиги сменил и сработал скрипт Волка.

Вот этот скриптец

Код
sBot = SetMan.GetString(21)
sWarn = "Просьба сменить клиент на любой другой, чтоб Вы могли попасть на этот хаб."  -- можете тут написать люой текст

tForbid = {
    "TomilDC:8.6.5",
    "Tomilino.Net DC",
    "Tomilino",
--    "Tomil",   -- хотя можно просто одной этой строкой обойтись, если у других нормальных юзеров нет такого тэга
}

function MyINFOArrival(tUser, sData)
        for i = 1, #tForbid do
        if sData:find(tForbid[i],1,true) or sData:find(tForbid[i],1,true) then
--        Core.SendToUser(tUser, "<"..sBot.."> "..sWarn)  --  если  хотите отправить сообщение юзеру, то раскомментите строку (спереди удалите 2 знака минус --)
        Core.Disconnect(tUser)
        end
    end
end


За что всем участникам разбора этой проблемы очень благодарен.
Ksan отдельное спасибо и Nickolya за пояснение.

Цитата
Если Птока 0.4.0.0, то давно пора заменить на 0.4.1* , иначе некоторые скрипты будут глючить.

Да я бы заменил, но для этого нужно ехать в офис и теребить сервак линёвый. Те два виндовых хаба, что у меня дома, работают на новой птоке. А вот один в качестве запасного на хексе. Бывают гады срут по портам, птока начинает лагать. А хекс свободно это всё отшибает.
Go to the top of the page
+Quote Post
Ksan
сообщение 4.5.2010, 0:34
Сообщение #20


Белый Волк
*********

Группа: Пользователи
Сообщений: 1 723
Регистрация: 11.9.2008
Из: г.Томск
Пользователь №: 516
Спасибо сказали: 657 раз




Так, на будущее...тут принято тыкать на кнопку "Спасибо", если благодарен кому-то за помощь. big_smile.gif


Спасибо сказали:
Go to the top of the page
+Quote Post

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No new Topic has attachmentsСкрипт блок привата и общего чата (ответ цифрами) для Verlihub
19 Алекс 21 460 28.11.2012, 0:30 Посл. сообщение: Алекс
No new Topic has attachmentsАвто-блок (auto-block Русская Версия)
API2 | Скрипт блокировки закачек и поиска незареганым
21 dimetrius 29 163 15.1.2009, 1:05 Посл. сообщение: eXrnd
No New Posts От: Авто-блок (auto-block Русская Версия)
От темы с ID: 178
0 Wariner 4 644 19.12.2008, 22:00 Посл. сообщение: Wariner

 



RSS Сейчас: 29.3.2024, 13:06