myDC.ru

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

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

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

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


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

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




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

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


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

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




расчет необходим для установления принадлежности к диапазону .. выкладываю код, при входе почему то не меняется описание хотя вроде все правильно, черт его знает мозг в 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
Спасибо сказали: 105 раз




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

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



Спасибо сказали:
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 килобайт ) Кол-во скачиваний: 26

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

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts Всех любителей сети DC++ с новым годом
Все форумчане и гости в поисках скриптов для своего хаба
0 мамин_парень 163 1.1.2018, 15:15 Посл. сообщение: мамин_парень
No New Posts А бывают такой скрипт бота?
Скрипт который создает виртуалных юзеров, но с реальными шарами
5 MarkDark 309 26.12.2017, 10:47 Посл. сообщение: мамин_парень
No New Posts Скрипт: Бот который отвечает в лс
4 мамин_парень 377 11.11.2017, 5:57 Посл. сообщение: мамин_парень
No New Posts как сделать вот этот скрипт
12 мамин_парень 704 13.9.2017, 10:51 Посл. сообщение: dimetro
No New Posts Topic has attachmentsИщу скрипт переадресации (redirect)
Переадресация интернет-юзеров
3 AS_Com 658 27.8.2017, 8:05 Посл. сообщение: Ksan
No New Posts Topic has attachmentsСкрипт Thunder.lua
7 Евген76 6 395 9.8.2017, 11:48 Посл. сообщение: Ksan
No New Posts Требуется скрипт
Нужен скрипт запрета на подключение
5 Nikolaevich 2 007 20.8.2016, 19:52 Посл. сообщение: Ksan
No new Topic has attachmentsMagneto - Бесплатный Скрипт Портала Обмена Dc-ссылками Для Локальной Сети
25 UserSide 18 362 17.3.2016, 5:21 Посл. сообщение: dimazikpk
No New Posts KCAHDEP DDoS & Flood на "Озерки"
ВЫГНАТЬ В ШЕЮ!
0 Болото 1 808 2.12.2015, 4:09 Посл. сообщение: Болото
No new ВАЖНО: Topic has attachmentsСкрипт банов для RusHub
тестим и комменьтруем
79 Wariner 49 033 28.9.2015, 13:34 Посл. сообщение: NeirRon
No New Posts Скрипт загрузки файла
1 FreeNas 1 815 21.7.2015, 10:58 Посл. сообщение: HackFresse
No new Как вызвать bash скрипт из Lua
14 Iskandark 4 513 3.3.2015, 12:42 Посл. сообщение: Iskandark
No new Topic has attachmentsНовогодний Скрипт
API2
22 Tsd 17 961 12.12.2014, 16:28 Посл. сообщение: Tsd
No New Posts Скрипт запрета видеть чат
запрет видеть чат
2 dimetro 2 305 5.12.2014, 17:37 Посл. сообщение: dimetro
No New Posts Topic has attachmentsпеределать скрипт kinozal.tv
6 BOKOREZ 5 203 30.10.2014, 18:29 Посл. сообщение: Dani_Filth

 



RSS Сейчас: 23.1.2018, 2:56