Linkmate: Quests

1x Interface\FrameXML\ChatFrame.lua:2776: bad argument #1 to 'strlen' (string expected, got nil):
Interface\FrameXML\ChatFrame.lua:2776: in function <Interface\FrameXML\ChatFrame.lua:2755>:
(tail call): ?:
(tail call): ?:
LinkmateQuests-0.3\core.lua:28: in function `func'
LinkmateQuests-0.3\TjQuestLog.lua:126: in function <LinkmateQuests\TjQuestLog.lua:113>

Locals:
self = ChatFrame1 {
 downButton = <unnamed> {}
 isInitialized = 1
 ScrollUp = <function> @ Ace3\AceHook-3.0\AceHook-3.0.lua:87:
 tellTimer = 129019.787
 resizeBottomLeft = ChatFrame1ResizeBottomLeft {}
 background = ChatFrame1Background {}
 oldAlpha = 1.000000059139
 channelList = <table> {}
 ScrollToBottom = <function> @ Ace3\AceHook-3.0\AceHook-3.0.lua:87:
 name = "General"
 ScrollToTop = <function> @ Ace3\AceHook-3.0\AceHook-3.0.lua:87:
 AddMessage = <function> @ Ace3\AceHook-3.0\AceHook-3.0.lua:100:
 messageTypeList = <table> {}
 checkedGMOTD = true
 flashTimer = 0
 PageUp = <function> @ Ace3\AceHook-3.0\AceHook-3.0.lua:87:
 copyButton = <unnamed> {}
 defaultLanguage = "Orcish"
 PageDown = <function> @ Ace3\AceHook-3.0\AceHook-3.0.lua:87:
 buttonFrame = ChatFrame1ButtonFrame {}
 ScrollDown = <function> @ Ace3\AceHook-3.0\AceHook-3.0.lua:87:
 0 = <userdata>
 resizeTopRight = ChatFrame1ResizeTopRight {}
 resizeTopLeft = ChatFrame1ResizeTopLeft {}
 resizeBottom = ChatFrame1ResizeBottom {}
 clickAnywhereButton = ChatFrame1ClickAnywhereButton {}
 isStaticDocked = true
 resizeTop = ChatFrame1ResizeTop {}
 editBox = ChatFrame1EditBox {}
 resizeLeft = ChatFrame1ResizeLeft {}
 isLocked = 1
 resizeBottomRight = ChatFrame1ResizeBottomRight {}
 buttonSide = "left"
 resizeButton = ChatFrame1ResizeButton {}
 zoneChannelList = <table> {}
 isDocked = 1
 resizeRight = ChatFrame1ResizeRight {}
}
event = "CHAT_MSG_SYSTEM"
arg1 = <table> {
}
arg2 = nil
arg3 = nil
arg4 = nil
arg5 = nil
arg6 = nil
arg7 = nil
arg8 = nil
arg9 = nil
arg10 = nil
arg11 = nil
arg12 = nil
arg13 = nil
arg14 = nil
arg15 = nil
type = "SYSTEM"
info = <table> {
 colorNameByClass = false
 flashTab = false
 b = 0
 r = 1.000000059139
 id = 1
 sticky = 0
 flashTabOnGeneral = false
 g = 1.000000059139
}
filter = false
coloredName = nil
chatFilters = <table> {
 CHAT_MSG_PARTY_LEADER = <table> {}
 CHAT_MSG_DND = <table> {}
 CHAT_MSG_LOOT = <table> {}
 CHAT_MSG_WHISPER_INFORM = <table> {}
 CHAT_MSG_SAY = <table> {}
 CHAT_MSG_CHANNEL = <table> {}
 CHAT_MSG_WHISPER = <table> {}
 CHAT_MSG_BN_WHISPER = <table> {}
 CHAT_MSG_PARTY = <table> {}
 CHAT_MSG_SYSTEM = <table> {}
 CHAT_MSG_RAID = <table> {}
 CHAT_MSG_OFFICER = <table> {}
 CHAT_MSG_BN_CONVERSATION = <table> {}
 CHAT_MSG_AFK = <table> {}
 CHAT_MSG_YELL = <table> {}
 CHAT_MSG_BATTLEGROUND_LEADER = <table> {}
 CHAT_MSG_RAID_WARNING = <table> {}
 CHAT_MSG_RAID_LEADER = <table> {}
 CHAT_MSG_GUILD = <table> {}
 CHAT_MSG_EMOTE = <table> {}
 CHAT_MSG_BN_WHISPER_INFORM = <table> {}
 CHAT_MSG_BN_INLINE_TOAST_ALERT = <table> {}
 CHAT_MSG_BATTLEGROUND = <table> {}
}

  ---

--
--  Linkmate: Quests
--    by Tuhljin
--

local TjQuestLog = TjQuestLog


local ADDON_QUESTGURU = IsAddOnLoaded("QuestGuru")


-- REPLACE "QUEST ACCEPTED" CHAT
----------------------------------

local acceptedQuests

-- Takes a table of frames and prints
-- the data to each frame.
local function PrintQuest(frames, ...)
	for frame in pairs(frames) do
		frame:AddMessage(...)
	end
end

local function OnQuestLogChange()
	if (not acceptedQuests) then  return;  end
	local info = ChatTypeInfo["SYSTEM"]
	local log = TjQuestLog.GetDataTable(true)
	local frames
	for id,tab in pairs(log) do
		frames = acceptedQuests[tab.questTitle]
		if (frames) then
			local msg = GetQuestLink(tab.index)
			msg = ERR_QUEST_ACCEPTED_S:format(msg)
			PrintQuest(frames, msg, info.r, info.g, info.b, info.id)
			acceptedQuests[tab.questTitle] = nil
		end
	end
	TjQuestLog.ResetHeaderStates()
	for name, frames in pairs(acceptedQuests) do
	-- If a quest somehow wasn't found, print a bare "accepted" message:
		local msg = ERR_QUEST_ACCEPTED_S:format(name)
		PrintQuest(frames, msg, info.r, info.g, info.b, info.id)
	end
	acceptedQuests = nil
end
TjQuestLog.Register_OnChange(OnQuestLogChange)

local SearchQuestAccepted = gsub(ERR_QUEST_ACCEPTED_S, "%%s", "(.+)")  -- Get quest name from "Quest accepted: %s"

local function filter(self, event, arg1, ...)
	local _, _, name = strfind(arg1, SearchQuestAccepted);
	if (name) then
	-- The quest log is not updated at the time we receive this message so the message is filtered out for now:
		acceptedQuests = acceptedQuests or {}
		-- Push all frames this event occurs for onto a table.
		acceptedQuests[name] = acceptedQuests[name] or { }

		-- Previously the frame was pushed onto a table but
		-- it appears WIM calls the filter function twice which
		-- results in the same frame being pushed multiple time.
		-- Change code to store the frame as an index so WIM
		-- can screw around all it wants without causing duplicate
		-- messages.  The value of true is unused and can be anything.
		acceptedQuests[name][self] = true
		return true;
	end
end
ChatFrame_AddMessageEventFilter("CHAT_MSG_SYSTEM", filter)


-- HYPERLINK HOOK
-------------------

local orig_SetItemRef = SetItemRef
SetItemRef = function(link, text, button, ...)
	if (strsub(link, 1, 6) == "quest:") then
		if (IsControlKeyDown()) then
			local _, id = strsplit(":", link)
			id = tonumber(id)
			local q = TjQuestLog.GetDataTable(true)[id]
			if (q) then
				QuestLog_OpenToQuest(q.index)
				TjQuestLog.ResetHeaderStates()
				local i, isCollapsed = TjQuestLog.GetHeaderInfo(q.header)
				if (i and isCollapsed) then  ExpandQuestHeader(i);  end
				if (ADDON_QUESTGURU) then  QuestLogFrame:Show(); end
			else
				TjQuestLog.ResetHeaderStates()
			end
			return;
		end
	end
	return orig_SetItemRef(link, text, button, ...)
end