--Live Timer by kepp
--Idea yepyepyep4711
--modded me.

HubName = frmHub:GetHubName()

topic = "type !topic <topic>"

function Main()
      SetTimer(1*1000)
      StartTimer()
end

function OnTimer()
      SendToAll("$HubName "..HubName.." - "..topic.." - Local Time : "..date("%H:%M:%S"))
end

function DataArrival(curUser,data)
	if curUser.bOperator and strsub(data,1,1) == "<" then
		local _,_,cmd,curtopic = strfind( data, "%b<>%s(%S+)%s+(.*)%|$" )
		if cmd and cmd == "!topic" then
			topic = curtopic
			curUser:SendData("Topic has been set to "..topic..".")
			SendToAll("$HubName "..HubName.." - "..topic.." - Local Time : "..date("%H:%M:%S"))
			return 1
		end
	end
end