myDC.ru

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

 
 
Тема закрытаНачать новую тему

> Скрипт "Описание сети", немного переделать

Теги
Нет тегов для показа
skonda
сообщение 3.8.2009, 23:56
Сообщение #1


Продвинутый участник
****

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




Помогите упростить этот скрипт. Нужно чтобы он абсолютно всем пользователям какие на хабе добовлял в описание "Локальные сети".

В этом случае функции расчета IP и другие ненужные в данном случае ф-ции необходимо убрать, чтобы они не создавали лишнюю нагрузку на хаб. Мне надо подчеркнуть этим скриптом что хаб у меня полностью внутрисетевой, вот что ...
Прикрепленные файлы
Прикрепленный файл  описание_сети.lua ( 1.57 килобайт ) Кол-во скачиваний: 39
 
Go to the top of the page
+Quote Post
Jaska
сообщение 4.8.2009, 2:16
Сообщение #2


Освоившийся участник
*****

Группа: Администраторы
Сообщений: 344
Регистрация: 2.6.2008
Из: RB,Ufa
Пользователь №: 8
Спасибо сказали: 106 раз




расчет необходим для установления принадлежности к диапазону .. выкладываю код, при входе почему то не меняется описание хотя вроде все правильно, черт его знает мозг в 5 утра варит плохо, попробуй пока это
CODE
local _G = _G
local tScript = {}

tScript.iTimer = 60 -- время в секундах

tScript.tProfileTag = {
[1] = "[Оператор]",
[2] = "[VIP]",
[3] = "",
[0] = "[Мастер]",
[-1] = "",
}

tScript.RangeDesc = { "192.168.0.0-192.168.255.255-[Локальные Сети]" }

function OnStartup()
TmrMan.AddTimer(tScript.iTimer * 1000, "OnTimer")
end

function OnTimer()
for id,tUser in pairs(Core.GetOnlineUsers(true)) do
if tUser.sMyInfoString ~= nil then
local userip = tScript.calcip(tUser.sIP)
if userip ~= 0 then
for index,descIP in pairs(tScript.RangeDesc) do
local _,_,startRange,endRange,RangeDescript = string.find(descIP, "(.*)-(.*)-(.*)")
local startRange = tScript.calcip(startRange)
local endRange = tScript.calcip(endRange)
if userip >= startRange and userip <= endRange then
descript = RangeDescript
end
end
if descript == nil then
descript = "[Внешние сети]"
end
end
local s,e,name,desc,speed,email,share = string.find(tUser.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
Core.SendToAll("$MyINFO $ALL "..name.." "..tScript.tProfileTag[tUser.iProfile].." "..descript.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end

function UserConnected(tUser, sData)
Core.GetUserAllData(tUser)
if tUser.sMyInfoString ~= nil then
local userip = tScript.calcip(tUser.sIP)
if userip ~= 0 then
for index,descIP in pairs(tScript.RangeDesc) do
local _,_,startRange,endRange,RangeDescript = string.find(descIP, "(.*)-(.*)-(.*)")
local startRange = tScript.calcip(startRange)
local endRange = tScript.calcip(endRange)
if userip >= startRange and userip <= endRange then
descript = RangeDescript
end
end
if descript == nil then
descript = "[Внешние сети]"
end
end
Core.SendToAll(descript)
local s,e,name,desc,speed,email,share = string.find(tUser.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
Core.SendToAll("$MyINFO $ALL "..name.." "..tScript.tProfileTag[tUser.iProfile].." "..descript.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$|")
end
end
OpConnected = UserConnected
RegConnected = UserConnected

function tScript.calcip(ipcalc)
local _,_,a,b,c,d = string.find(ipcalc, "(%d+).(%d+).(%d+).(%d+)")
local calc = 0
if (tonumber(a) and tonumber(b) and tonumber© and tonumber(d)) then
calc = a*16777216 + b*65536 + c*256 + d
return calc
else
return 0
end
end



Спасибо сказали:
Go to the top of the page
+Quote Post
skonda
сообщение 4.8.2009, 12:26
Сообщение #3


Продвинутый участник
****

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




да нет все меняеться, просто надо немного подождать. А функции рассчета IP и тд в моем случае лишние т к у меня на хабе только 1 сеть других никаких нет. Надеюсь этот вариант скрипта упрощен в этом плане и будет меньше грузить хаб.

Заметил щас такой косяк. Почему то описание сети хреначит в чат

[13:23:38] [Локальные сети]
[13:23:44] [Локальные сети]
[13:23:45] [Локальные сети]

Go to the top of the page
+Quote Post
Jaska
сообщение 4.8.2009, 13:05
Сообщение #4


Освоившийся участник
*****

Группа: Администраторы
Сообщений: 344
Регистрация: 2.6.2008
Из: RB,Ufa
Пользователь №: 8
Спасибо сказали: 106 раз




Прошу прощения, для дебага выводил это сообщение, убрать забыл. Если вариант "немного подождать" устраивает то вот.

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



Спасибо сказали:
Go to the top of the page
+Quote Post
skonda
сообщение 4.8.2009, 13:25
Сообщение #5


Продвинутый участник
****

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




Цитата(Jaska @ 4.8.2009, 14:05) *
Прошу прощения, для дебага выводил это сообщение, убрать забыл. Если вариант "немного подождать" устраивает то вот.

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

спасибо, пока норм работает.
Go to the top of the page
+Quote Post

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No new Topic has attachmentsНерабочий скрипт ВИПа по шаре
16 Damaks 18 462 23.2.2023, 7:16 Посл. сообщение: mod
No New Posts Описание протокола DC
Для созадния PHP клиента-"клиента"
7 Ацкий Слон 14 803 25.6.2020, 21:37 Посл. сообщение: Alexey
No new Topic has attachmentsMagneto - Бесплатный Скрипт Портала Обмена Dc-ссылками Для Локальной Сети
26 UserSide 39 269 27.8.2019, 11:01 Посл. сообщение: CyberGhost404
No New Posts От: Новогодний Скрипт
От темы с ID: 871
0 Евгений 2 782 15.10.2018, 21:44 Посл. сообщение: Евгений
No New Posts Всех любителей сети DC++ с новым годом
Все форумчане и гости в поисках скриптов для своего хаба
0 мамин_парень 3 866 1.1.2018, 15:15 Посл. сообщение: мамин_парень
No New Posts А бывают такой скрипт бота?
Скрипт который создает виртуалных юзеров, но с реальными шарами
5 MarkDark 7 308 26.12.2017, 10:47 Посл. сообщение: мамин_парень
No New Posts Скрипт: Бот который отвечает в лс
4 мамин_парень 6 958 11.11.2017, 5:57 Посл. сообщение: мамин_парень
No New Posts как сделать вот этот скрипт
12 мамин_парень 11 098 13.9.2017, 10:51 Посл. сообщение: dimetro
No New Posts Topic has attachmentsИщу скрипт переадресации (redirect)
Переадресация интернет-юзеров
3 AS_Com 6 590 27.8.2017, 8:05 Посл. сообщение: Ksan
No New Posts Topic has attachmentsСкрипт Thunder.lua
7 Евген76 14 492 9.8.2017, 11:48 Посл. сообщение: Ksan
No New Posts Требуется скрипт
Нужен скрипт запрета на подключение
5 Nikolaevich 8 776 20.8.2016, 19:52 Посл. сообщение: Ksan
No New Posts KCAHDEP DDoS & Flood на "Озерки"
ВЫГНАТЬ В ШЕЮ!
0 Болото 6 128 2.12.2015, 4:09 Посл. сообщение: Болото
No new ВАЖНО: Topic has attachmentsСкрипт банов для RusHub
тестим и комменьтруем
79 Wariner 99 143 28.9.2015, 13:34 Посл. сообщение: NeirRon
No New Posts Скрипт загрузки файла
1 FreeNas 5 976 21.7.2015, 10:58 Посл. сообщение: HackFresse
No new Как вызвать bash скрипт из Lua
14 Iskandark 15 929 3.3.2015, 12:42 Посл. сообщение: Iskandark

 



RSS Сейчас: 29.3.2024, 2:55