local addonName, addon = ...
local childName = addon['childName']
local child = addon[childName]
local events = child['events']
local db
local fmt = "|c0000ff00%i|r/|c0000ffff%i|r|c00ff0000%s|r"
local roster,friendroster,bnetroster = {}, {}, {}
local GuildRoster = GuildRoster
if(C_GuildInfo) then
	if(C_GuildInfo.GuildRoster) then
		GuildRoster = C_GuildInfo.GuildRoster
	end
end
local updateDelay = 15
local function prepareDB()
	db = addon['db']['profile'][childName]
	child['db'] = db
	addon['callbacks']:Fire(format("Init%s", childName))
end
local function count(v)
	local c = 0
	for _ in pairs(v) do
		c = c + 1
	end
	return c
end
local function getBNFI(friendIndex)
	if(C_BattleNet and C_BattleNet.GetFriendAccountInfo) then
		return C_BattleNet.GetFriendAccountInfo(friendIndex)
	else
		local _, _, _, _, characterName, _, client, isOnline = BNGetFriendInfo(friendIndex)
		if(characterName and isOnline and client == BNET_CLIENT_WOW) then
			return {
				['gameAccountInfo'] = {
					['clientProgram'] = client,
					['characterName'] = characterName,
					['isOnline'] = isOnline
				}
			}
		end
	end
end
local function checkRoster(self, dummy, event, ...)
	local newroster = {}
	local rostername, online, _
	local dontShow = false

	if(event == "GUILD_ROSTER_UPDATE") then
		for i = 1, GetNumGuildMembers() do
			rostername, _, _, _, _, _, _, _, online = GetGuildRosterInfo(i)
			if(online and rostername) then
				newroster[rostername]=true
			end
		end
		roster = newroster
	elseif(event == "FRIENDLIST_UPDATE") then
		for i = 1, C_FriendList.GetNumFriends() do
			local res = C_FriendList.GetFriendInfoByIndex(i)
			if(res) then
				if(res['connected'] and res['name']) then
					newroster[res['name']] = true
				end
				res = nil
			end
		end
		friendroster = newroster
	elseif(event == "BN_FRIEND_INFO_CHANGED") then
		local _, numOnline = BNGetNumFriends()
		local presenceID, isFriend,client,accid
		for i = 1, numOnline do
			local res = getBNFI(i)
			if(res) then
				local aci = res['gameAccountInfo']
				dontShow = false
				if(aci) then
					if(aci['clientProgram'] == BNET_CLIENT_WOW) then
						if(friendroster[aci['characterName']]) then
							dontShow = true
						end
					end
					if(aci['isOnline'] and aci['characterName'] and not dontShow) then
						newroster[aci['characterName']] = true
					end
					aci = nil
				end
				res = nil
			end
		end
		bnetroster = newroster
	end
	local afkmsg = ""
	if(UnitIsAFK("player")) then
		afkmsg = " AFK"
	elseif(UnitIsDND("player")) then
		afkmsg = " DND"
	end
	child:OnText(childName, format(fmt, count(roster),count(friendroster)+count(bnetroster),afkmsg))
end

local function OnUpdate()
	GuildRoster()
	checkRoster(nil, nil, "FRIENDLIST_UPDATE")
	checkRoster(nil, nil, "BN_FRIEND_INFO_CHANGED")
end
child['specs']  = {
	['name'] = childName,
	['sv'] = true,
	['cfg'] = true,
	['cfgReset'] = prepareDB,
	['ldb'] = child['ldb'],
	['defaults'] = {
		['profile'] = {
			[childName] = {}
		}
	}
}
function events:PLAYER_ENTERING_WORLD(event)
	child:UnregisterEvent('PLAYER_ENTERING_WORLD')
	child:RegisterEvent({"GUILD_ROSTER_UPDATE","FRIENDLIST_UPDATE","CHAT_MSG_CHANNEL_JOIN","CHAT_MSG_CHANNEL_LEAVE","PLAYER_FLAGS_CHANGED","UNIT_FLAGS","BN_FRIEND_INFO_CHANGED"}, checkRoster)
	C_Timer.NewTimer (updateDelay, OnUpdate)
end
child:NewAddOn(...)