Zerotorescue@5: local MailOpener = LibStub("AceAddon-3.0"):GetAddon("MailOpener");
Zerotorescue@5: local FailSafe = MailOpener:NewModule("FailSafe", "AceEvent-3.0", "AceTimer-3.0");
Zerotorescue@5: 
Zerotorescue@5: --[[
Zerotorescue@5: Module name:	FailSafe
Zerotorescue@5: Description:	Prevents the mail opening from stopping when the execution of a single mail opening function fails (e.g. because of mail functions throttling).
Zerotorescue@5: Required:		No.
Zerotorescue@5: ]]
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:OnInitialize()
Zerotorescue@5: 	local defaults = {
Zerotorescue@5: 		profile = {
Zerotorescue@5: 			timeout = 20,
Zerotorescue@5: 		},
Zerotorescue@5: 	};
Zerotorescue@5: 	
Zerotorescue@5: 	-- Register our saved variables NameSpace
Zerotorescue@5: 	self.db = MailOpener.db:RegisterNamespace("FailSafe", defaults);
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:OnEnable()
Zerotorescue@5: 	self:Debug("OnEnable");
Zerotorescue@5: 	
Zerotorescue@5: 	self:RegisterEvent("MAIL_SHOW");
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: -- Even though Ace can unregister our events it's neater to do it manually too
Zerotorescue@5: function FailSafe:OnDisable()
Zerotorescue@5: 	self:Debug("OnDisable");
Zerotorescue@5: 	
Zerotorescue@5: 	self:UnregisterEvent("MAIL_SHOW");
Zerotorescue@5: 	
Zerotorescue@5: 	self:Stop();
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:MAIL_SHOW()
Zerotorescue@5: 	self:Debug("MAIL_SHOW");
Zerotorescue@5: 	
Zerotorescue@5: 	self:RegisterEvent("MAIL_CLOSED");
Zerotorescue@5: 	
Zerotorescue@5: 	self:RegisterMessage("MO_OPENING_MAIL");
Zerotorescue@5: 	self:RegisterMessage("MO_MAIL_EMPTIED");
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:MAIL_CLOSED()
Zerotorescue@5: 	self:Debug("MAIL_CLOSED");
Zerotorescue@5: 	
Zerotorescue@5: 	self:UnregisterEvent("MAIL_CLOSED");
Zerotorescue@5: 	
Zerotorescue@5: 	self:UnregisterMessage("MO_OPENING_MAIL");
Zerotorescue@5: 	self:UnregisterMessage("MO_OPENING_MAIL_FINISHED");
Zerotorescue@5: 	
Zerotorescue@6: 	self:CancelTimer(self.tmrTimeout, true);
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:MO_OPENING_MAIL()
Zerotorescue@5: 	-- Single mail being opened
Zerotorescue@5: 	
Zerotorescue@11: 	self:CancelTimer(self.tmrTimeout, true); -- insurance
Zerotorescue@5: 	self.tmrTimeout = self:ScheduleTimer("Continue", self.db.profile.timeout);
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:MO_MAIL_EMPTIED()
Zerotorescue@5: 	-- Single mail has been opened
Zerotorescue@5: 	
Zerotorescue@6: 	self:CancelTimer(self.tmrTimeout, true);
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:Continue()
Zerotorescue@5: 	MailOpener:GetModule("OpenAll"):Continue();
Zerotorescue@5: 	
Zerotorescue@5: 	print("|cff15ff00Mail Opener|r (FailSafe): Mail opening timeout, continueing with the next mail.");
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:GetOptionsGroup()
Zerotorescue@5: 	local configGroup = {
Zerotorescue@5: 		order = 450,
Zerotorescue@5: 		type = "group",
Zerotorescue@5: 		name = "FailSafe",
Zerotorescue@5: 		desc = "Change settings for the FailSafe module.",
Zerotorescue@5: 		args = {
Zerotorescue@5: 			General = {
Zerotorescue@5: 				order = 10,
Zerotorescue@5: 				type = "group",
Zerotorescue@5: 				inline = true,
Zerotorescue@5: 				name = "General",
Zerotorescue@5: 				args = {
Zerotorescue@5: 					description = {
Zerotorescue@5: 						order = 10,
Zerotorescue@5: 						type = "description",
Zerotorescue@5: 						name = function()
Zerotorescue@5: 							local default = "With this button you can completely toggle this module |cff00ff00on|r or |cffff0000off|r. This setting will be remembered and the module will be automatically toggled |cff00ff00on|r or |cffff0000off|r upon logon as it was last set.\n\n";
Zerotorescue@5: 							
Zerotorescue@5: 							if self:IsEnabled() then
Zerotorescue@5: 								return default .. "Status: |cff00ff00Enabled|r";
Zerotorescue@5: 							else
Zerotorescue@5: 								return default .. "Status: |cffff0000Disabled|r";
Zerotorescue@5: 							end
Zerotorescue@5: 						end,
Zerotorescue@5: 					},
Zerotorescue@5: 					disable = {
Zerotorescue@5: 						order = 20,
Zerotorescue@5: 						type = "execute",
Zerotorescue@5: 						name = function()
Zerotorescue@5: 							if self:IsEnabled() then
Zerotorescue@5: 								return "Disable Module";
Zerotorescue@5: 							else
Zerotorescue@5: 								return "Enable Module";
Zerotorescue@5: 							end
Zerotorescue@5: 						end,
Zerotorescue@5: 						desc = "Click here to completely toggle this module on or off.",
Zerotorescue@5: 						width = "double",
Zerotorescue@5: 						func = function()
Zerotorescue@5: 							if self:IsEnabled() then
Zerotorescue@5: 								self:Disable();
Zerotorescue@5: 								
Zerotorescue@5: 								MailOpener.db.profile.modules[self:GetName()] = false;
Zerotorescue@5: 							else
Zerotorescue@5: 								self:Enable();
Zerotorescue@5: 								
Zerotorescue@5: 								MailOpener.db.profile.modules[self:GetName()] = true;
Zerotorescue@5: 							end
Zerotorescue@5: 						end,
Zerotorescue@5: 					},
Zerotorescue@5: 				},
Zerotorescue@5: 			},
Zerotorescue@5: 			SingleMailTimeout = {
Zerotorescue@5: 				order = 20,
Zerotorescue@5: 				type = "group",
Zerotorescue@5: 				inline = true,
Zerotorescue@5: 				name = "Single Mail Opening Timeout",
Zerotorescue@5: 				args = {
Zerotorescue@5: 					description = {
Zerotorescue@5: 						order = 10,
Zerotorescue@5: 						type = "description",
Zerotorescue@5: 						name = "Change how long FailSafe should wait before skipping the last mail and continueing with the next. This will prevent mail opening getting stuck forever because a single mail is frozen for whatever reason.",
Zerotorescue@5: 					},
Zerotorescue@5: 					timeout = {
Zerotorescue@5: 						order = 20,
Zerotorescue@5: 						type = "range",
Zerotorescue@5: 						width = "double",
Zerotorescue@5: 						min = 1,
Zerotorescue@5: 						max = 60,
Zerotorescue@5: 						step = 0.5,
Zerotorescue@5: 						name = "Single Mail Timeout",
Zerotorescue@5: 						desc = "Change how long FailSafe should wait before skipping the last mail and continueing with the next. This should prevent mail opening getting stuck because a single mail is stuck for whatever reason.\n\nDefault value is 20 seconds.",
Zerotorescue@5: 						get = function() return self.db.profile.timeout; end,
Zerotorescue@5: 						set = function(i, v) self.db.profile.timeout = v; end,
Zerotorescue@5: 					},
Zerotorescue@5: 				},
Zerotorescue@5: 			},
Zerotorescue@5: 		},
Zerotorescue@5: 	};
Zerotorescue@5: 	
Zerotorescue@5: 	return configGroup;
Zerotorescue@5: end
Zerotorescue@5: 
Zerotorescue@5: function FailSafe:Debug(t)
Zerotorescue@5: 	return MailOpener:Debug("|cffff0000FailSafe|r:" .. t);
Zerotorescue@5: end