Hub statistic.

[NemeziS]

Hello, guys!

I'm doing my own hubstat script now. So I have a little problem with counting online/offline/registered users.
The problem root is: I have a lot of different profiles.
I need only info about:

1) Operators onine
2) Vips online
3) Regs online
4) Unreg users online
5) Total users online
6) Operators offline
7) Vips offline
8) Regs offline
9) How many Ops registered
10) How many Vips registered
11) How many users registered

Can someone help me?  :))

Best regards,
NemeziS

[NemeziS]

Thanx, Mutor!

Great function!

But I also need counting unregged (who not belong to any profile and not simply regged) users on my hub.

And the word "REG" is sometimes not correct, because users that belong to different profile are regged too!

I thought it can count all "regged" users.
Have you any idea about this?  

Best regards,
NemeziS

[[_XStaTiC_]]

Ok I don't know if this is right, but it works good for me. It counts the unregged users

--AdTimer 1.1
--
--by Mutor
--Optimized by Optimus, thx
--
--Yet another Hub Advert script
--Sends hub Advert on timer or by command
--
--
--User Settings-------------------------------------------------------------------------------------
bot = "HubAd"						-- Name for bot
mins = 180 						-- Interval [in minutes] between Ads
Hubaddy = "yourhub.no-ip.com" 				-- Duh?
HubOwner = "Mutor"					-- Duh?
Prefix = "+"						-- Set Command Prefix
AdComm = "ad"						-- Command to send Ad immediately
TZone = " -5 GMT [EST]"					-- Time Zone hub resides in
HubMsg1 = ""						-- Additional notices/info to be sent with ad
HubMsg2 = ""						-- Additional notices/info to be sent with ad
HubMsg3 = ""						-- Additional notices/info to be sent with ad
unregs = frmHub:GetUsersCount()                         -- count unregged users
--End User Settings----------------------------------------------------------------------------------

function Main() 
	SetTimer(mins*60000) 
	StartTimer() 
end 

function DataArrival(user, data)
	s,e,cmd = strfind(data, "%b<>%s+(%S+)(%S+)")
	if (cmd==Prefix..AdComm) and user.bOperator then
		OnTimer()  
	end
end

function OnTimer()
	local tmp
	tmp = "\r\n\r\n\t---<>-------------------------------------------------------------------------------------<>---\r\n"  
	tmp = tmp.."\t[ "..frmHub:GetHubName().." ]\r\n" 
	tmp = tmp.."\t---<>-------------------------------------------------------------------------------------<>---\r\n" 
	tmp = tmp.."\tHub Name: \t"..frmHub:GetHubName().."\r\n"
	tmp = tmp.."\tHub Owner: \t"..HubOwner.."\r\n" 
	tmp = tmp.."\tHub Addy: \t"..Hubaddy.."\r\n" 
	tmp = tmp.."\tHub Time: \t( "..date("%B %d %Y %X ").." ) - "..TZone .."\r\n"
	tmp = tmp.."\tHub Desc: \t"..frmHub:GetHubDescr().."\r\n" 
	tmp = tmp.."\tRedirect To: \t"..frmHub:GetRedirectAddress().."\r\n"
	tmp = tmp.."\tReg Server: \t"..frmHub:GetRegServer().."\r\n"  
	tmp = tmp.."\tRedirect All: \t"..RedirAll().."\r\n" 
	tmp = tmp.."\tRedirect Full: \t"..RedirFull().."\r\n" 
	tmp = tmp.."\tMax Users: \t"..frmHub:GetMaxUsers().."\r\n" 
	tmp = tmp.."\tMin Share: \t"..format("%.2f GB",frmHub:GetMinShare()/1024).."\r\n"
	tmp = tmp.."\tHub Share: \t"..format("%.2f GB",frmHub:GetCurrentShareAmount()/(1024 * 1024 * 1024)).."\r\n"
	tmp = tmp.."\tMasters Online: \t"..cProfile("Master").."\r\n" 
	tmp = tmp.."\tOps Online: \t"..cProfile("Operator").."\r\n" 
	tmp = tmp.."\tVips Online: \t"..cProfile("VIP").."\r\n"
	tmp = tmp.."\tRegs Online: \t"..cProfile("REG").."\r\n"
	tmp = tmp.."\tUnregs Online: \t"..unregs.."\r\n"
	tmp = tmp.."\t---<>-------------------------------------------------------------------------------------<>---\r\n" 
	tmp = tmp.."\tTotal Online:\t\t"..frmHub:GetUsersCount().."\r\n" 
	tmp = tmp.."\t---<>-------------------------------------------------------------------------------------<>---\r\n" 
	tmp = tmp.."\tNotice(s):\r\n"
	tmp = tmp.."\t-- "..HubMsg1.."\r\n"
	tmp = tmp.."\t-- "..HubMsg2.."\r\n"
	tmp = tmp.."\t-- "..HubMsg3.."\r\n"
	tmp = tmp.."\t---<>-------------------------------------------------------------------------------------<>---\r\n" 
	SendToAll(bot,tmp)
end

function RedirAll() 
	local rdstatusall = frmHub:GetRedirectAll()
	local rastatus = ""
	if rdstatusall == 1 then
		rastatus = "on"
	else
		rastatus = "off"
	end
	return rastatus
end 

function RedirFull()
	local rdstatusfull = frmHub:GetRedirectFull()
	local rfstatus = 0
	if rdstatusfull == 1 then
		rfstatus = "on"
	else
		rfstatus = "off"
	end
	return rfstatus
end 

--// Profile Counter
function cProfile(what)
	local disp = ""
	local table,online,offline = GetUsersByProfile(what),0,0
	for i, User in table do 
		if GetItemByName(User) then
			online = online + 1
                        unregs = unregs - 1
		else
			offline = offline + 1
		end
	end
	disp = disp.."Online: "..online.."\t\tOffline: "..offline
	return disp
end