sBot = "Network-online-check- "
Hub_Adress = {
"puggles.no-ip.org",
"412",
"puggles.no-ip.org",
"411",
}
HubPort = "411"
curenthub = 1
curentport = 2
mins = 1
function Main()
hubcount = getn(Hub_Adress)
SetTimer(1000 * 60 * mins)
end
function DataArrival(user, data)
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
if cmd=="+neton" then
SendToOps(sBot," netstats enabled ")
StartTimer()
elseif cmd=="+netoff" then
SendToOps(sBot," netstats disabled ")
StopTimer()
end
end
function OnTimer()
if curentport == hubcount + 2 then
curenthub = 1
curentport = 2
end
displayhub(curenthub,curentport)
curenthub = curenthub + 2
curentport = curenthub + 1
end
function displayhub(curenthub,curentport)
a = connect(Hub_Adress[curenthub],Hub_Adress[curentport])
if a == nil then
SendToOps(sBot,Hub_Adress[curenthub]..":"..Hub_Adress[curentport].." Hub is Offline")
else
SendToOps(sBot,Hub_Adress[curenthub]..":"..Hub_Adress[curentport].." hub is Online ")
a:close()
end
end