Mercurial > wow > mailopener

annotate Core.lua @ 139:debff5ad3de4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Possible issue with the overriding of the CheckInbox function where the first call to it after a login might not work might have been fixed. (I can?t reproduce it, but can see the potential for problems)
author Zerotorescue
date Sat, 29 Jan 2011 22:24:19 +0100
parents 9998d4ff8152
children 2af0f77dbae0
rev   line source
Zerotorescue@3 1 -- You can access this addon's object through: LibStub("AceAddon-3.0"):GetAddon("MailOpener")
Zerotorescue@3 2 local MailOpener = LibStub("AceAddon-3.0"):NewAddon("MailOpener", "AceEvent-3.0", "AceTimer-3.0");
Zerotorescue@68 3 local L = LibStub("AceLocale-3.0"):GetLocale("MailOpener");
Zerotorescue@0 4
Zerotorescue@8 5 -- You can check if MailOpener is busy with the global MailAddonBusy (if not MailAddonBusy then ...do something... end)
Zerotorescue@8 6 -- MailAddonBusy will be nil when nothing is happening or filled with the addon name when MO is working
Zerotorescue@8 7 -- Another addon can use this variable to indicate they're working too, MailOpener will then wait for that to finish
Zerotorescue@3 8
Zerotorescue@115 9 local AutoOpenMail, MailOpenerConfig, lastAmount, lastQuickAuctionsStatus, freshList, mailboxEmptySoundPlayed, mailboxEmptySoundPlayedThisVisit, hasOpenedMailAlready, originalCheckInbox;
Zerotorescue@0 10
Zerotorescue@0 11 function MailOpener:OnInitialize()
Zerotorescue@31 12 self:Debug("OnInitialize");
Zerotorescue@31 13
Zerotorescue@31 14
Zerotorescue@31 15
Zerotorescue@31 16
Zerotorescue@31 17 -- SAVED VARIABLES
Zerotorescue@31 18
Zerotorescue@0 19 local defaults = {
Zerotorescue@60 20 global = {
Zerotorescue@60 21 currentTip = -1, -- even though LUA table indexes start at one, Config's OnEnable will increase this value by one the first time you run it and another 1 to adjust for the % modifier, so we still actually start at the table index 1
Zerotorescue@60 22 },
Zerotorescue@0 23 profile = {
Zerotorescue@8 24 uses = 0,
Zerotorescue@0 25 general = {
Zerotorescue@8 26 defaultStatus = "disabled", -- addon enabled, but mail opening not auto on
Zerotorescue@0 27 defaultQAStatus = "__remember",
Zerotorescue@0 28 continueOpeningStackableItems = false,
Zerotorescue@51 29 showHelpTooltips = true,
Zerotorescue@0 30 autoDisableQAAutoMail = true,
Zerotorescue@0 31 autoReenableQAAutoMail = false,
Zerotorescue@0 32 autoSetBackQAAutoMail = true,
Zerotorescue@0 33 continueOpening = false,
Zerotorescue@0 34 waitTime = 5,
Zerotorescue@0 35 initialDelay = 0.5,
Zerotorescue@111 36 overrideCheckInbox = true,
Zerotorescue@0 37 },
Zerotorescue@0 38 modules = {
Zerotorescue@31 39 BeanCounterSupport = true,
Zerotorescue@31 40 Config = false,
Zerotorescue@0 41 Collected = true,
Zerotorescue@5 42 FailSafe = true,
Zerotorescue@0 43 },
Zerotorescue@0 44 notifications = {
Zerotorescue@3 45 welcome = false,
Zerotorescue@3 46 bye = false,
Zerotorescue@0 47 finishedCurrentBatch = true,
Zerotorescue@0 48 mailboxIsEmpty = true,
Zerotorescue@0 49
Zerotorescue@0 50 skipped = {
Zerotorescue@0 51 all = true,
Zerotorescue@0 52 inventoryFull = true,
Zerotorescue@0 53 keepFreeSpaceLimit = true,
Zerotorescue@0 54 GMMail = true,
Zerotorescue@0 55 COD = true,
Zerotorescue@0 56 normalGoldMail = true,
Zerotorescue@0 57 normalItemsMail = true,
Zerotorescue@0 58 AHexpired = true,
Zerotorescue@0 59 AHsuccess = true,
Zerotorescue@0 60 AHwon = true,
Zerotorescue@0 61 AHcanceled = true,
Zerotorescue@0 62 AHoutbid = true,
Zerotorescue@0 63 other = true,
Zerotorescue@0 64 },
Zerotorescue@0 65 processed = {
Zerotorescue@0 66 all = true,
Zerotorescue@0 67 normalGoldMail = true,
Zerotorescue@0 68 normalItemsMail = true,
Zerotorescue@0 69 AHexpired = true,
Zerotorescue@0 70 AHsuccess = true,
Zerotorescue@0 71 AHwon = true,
Zerotorescue@0 72 AHcanceled = true,
Zerotorescue@0 73 AHoutbid = true,
Zerotorescue@0 74 other = true,
Zerotorescue@0 75 },
Zerotorescue@0 76
Zerotorescue@0 77 bagsFullSound = false,
Zerotorescue@0 78 bagsFullSoundFile = "Sound\\Spells\\SimonGame_Visual_BadPress.wav",
Zerotorescue@0 79 bagsFullSoundFileName = "Simon Error",
Zerotorescue@0 80 bagsFullSoundOnlyOnce = true,
Zerotorescue@42 81 bagsFullSoundOnlyOncePerMailboxVisit = false,
Zerotorescue@0 82 mailboxEmptySound = false,
Zerotorescue@0 83 mailboxEmptySoundFile = "Sound\\Spells\\SimonGame_Visual_GameStart.wav",
Zerotorescue@0 84 mailboxEmptySoundFileName = "Simon Start",
Zerotorescue@0 85 mailboxEmptySoundOnlyOnce = true,
Zerotorescue@42 86 mailboxEmptySoundOnlyOncePerMailboxVisit = false,
Zerotorescue@0 87 },
Zerotorescue@0 88 },
Zerotorescue@0 89 };
Zerotorescue@0 90
Zerotorescue@0 91 -- Register our saved variables database
Zerotorescue@0 92 self.db = LibStub("AceDB-3.0"):New("MailOpenerDB", defaults, true);
Zerotorescue@0 93
Zerotorescue@0 94
Zerotorescue@31 95
Zerotorescue@31 96
Zerotorescue@31 97
Zerotorescue@31 98 -- MODULE TOGGLING
Zerotorescue@0 99
Zerotorescue@0 100 -- Don't enable the config module until we need it
Zerotorescue@0 101 for name, module in self:IterateModules() do
Zerotorescue@31 102 if self.db.profile.modules[name] ~= nil then
Zerotorescue@0 103 if self.db.profile.modules[name] then
Zerotorescue@68 104 self:Debug(("|cff00ff00Enabling|r module: "):format(name));
Zerotorescue@0 105 else
Zerotorescue@68 106 self:Debug(("|cffff0000Disabling|r module: "):format(name));
Zerotorescue@0 107 end
Zerotorescue@0 108
Zerotorescue@0 109 module:SetEnabledState(self.db.profile.modules[name]);
Zerotorescue@0 110 end
Zerotorescue@0 111 end
Zerotorescue@0 112
Zerotorescue@31 113
Zerotorescue@31 114
Zerotorescue@31 115
Zerotorescue@31 116
Zerotorescue@31 117 -- SLASH COMMANDS
Zerotorescue@31 118
Zerotorescue@31 119 -- Disable the AddonLoader slash commands
Zerotorescue@31 120 SLASH_MO1 = nil;
Zerotorescue@31 121 SLASH_MAILOPEN1 = nil;
Zerotorescue@31 122 SLASH_MAILOPENER1 = nil;
Zerotorescue@31 123
Zerotorescue@31 124 -- Register our own slash commands
Zerotorescue@31 125 SLASH_MAILOPENER1 = "/mo";
Zerotorescue@31 126 SLASH_MAILOPENER2 = "/mailopen";
Zerotorescue@31 127 SLASH_MAILOPENER3 = "/mailopener";
Zerotorescue@31 128 SlashCmdList["MAILOPENER"] = function(msg)
Zerotorescue@31 129 MailOpener:EnableConfigModule();
Zerotorescue@31 130
Zerotorescue@31 131 MailOpenerConfig:CommandHandler(msg);
Zerotorescue@31 132 end
Zerotorescue@31 133
Zerotorescue@31 134
Zerotorescue@31 135
Zerotorescue@31 136
Zerotorescue@31 137
Zerotorescue@31 138 -- INTERFACE OPTIONS
Zerotorescue@31 139
Zerotorescue@31 140 -- Attempt to remove the interface options added by AddonLoader (if enabled)
Zerotorescue@31 141 if AddonLoader and AddonLoader.RemoveInterfaceOptions then
Zerotorescue@31 142 AddonLoader:RemoveInterfaceOptions("Mail Opener");
Zerotorescue@31 143 end
Zerotorescue@31 144
Zerotorescue@31 145 -- Now create our own options frame
Zerotorescue@31 146 local frame = CreateFrame("Frame", nil, UIParent);
Zerotorescue@31 147 frame:Hide();
Zerotorescue@31 148 frame.name = "Mail Opener";
Zerotorescue@135 149 frame.fresh = true;
Zerotorescue@31 150 frame:HookScript("OnShow", function(self)
Zerotorescue@135 151 if self.fresh then
Zerotorescue@135 152 self.fresh = nil;
Zerotorescue@135 153
Zerotorescue@135 154 -- Enable the config module
Zerotorescue@135 155 MailOpener:EnableConfigModule();
Zerotorescue@135 156
Zerotorescue@135 157 -- Load the options and add it to the blizzard interface list
Zerotorescue@135 158 MailOpenerConfig:Load();
Zerotorescue@135 159
Zerotorescue@135 160 -- Refresh the frame to instantly show the right options
Zerotorescue@135 161 InterfaceOptionsFrame_OpenToCategory(self.name);
Zerotorescue@135 162 end
Zerotorescue@31 163 end);
Zerotorescue@31 164 -- And add it to the interface options
Zerotorescue@31 165 InterfaceOptions_AddCategory(frame);
Zerotorescue@31 166
Zerotorescue@31 167
Zerotorescue@31 168
Zerotorescue@31 169
Zerotorescue@31 170
Zerotorescue@31 171 -- ADDON / MAIL OPENING STATUS TOGGLER
Zerotorescue@31 172
Zerotorescue@0 173 -- Make the open all checkbox
Zerotorescue@50 174 local check = CreateFrame("CheckButton", "cbMailOpenerEnable", MailFrame, "OptionsCheckButtonTemplate");
Zerotorescue@0 175 check:SetHeight(26);
Zerotorescue@0 176 check:SetWidth(26);
Zerotorescue@50 177 check:SetPoint("TOPLEFT", MailFrame, "TOPLEFT", 68, -13);
Zerotorescue@3 178 check:SetChecked(true);
Zerotorescue@0 179 check:SetHitRectInsets(0, -80, 0, 0);
Zerotorescue@91 180 check:SetScript("OnClick", function(cbSelf)
Zerotorescue@3 181 if IsShiftKeyDown() then
Zerotorescue@3 182 -- Shift key = toggle addon on or off, since addon is already on there's only one option
Zerotorescue@3 183
Zerotorescue@91 184 if not self:IsEnabled() then
Zerotorescue@91 185 self:Print(L["Shift key was held down, so |cff00ff00enabling|r the entire addon as well as automatic opening of mail."]);
Zerotorescue@3 186
Zerotorescue@91 187 self:Enable();
Zerotorescue@3 188
Zerotorescue@3 189 -- The above calls MAIL_SHOW which changes AutoOpenMail, so we can't remember the old setting
Zerotorescue@3 190 AutoOpenMail = true;
Zerotorescue@3 191
Zerotorescue@91 192 cbSelf:SetChecked(true);
Zerotorescue@3 193 else
Zerotorescue@91 194 self:Print(L["Shift key was held down, so |cffff0000disabling|r the entire addon."]);
Zerotorescue@3 195
Zerotorescue@91 196 self:Disable();
Zerotorescue@3 197
Zerotorescue@91 198 cbSelf:SetChecked(false);
Zerotorescue@3 199 end
Zerotorescue@0 200 else
Zerotorescue@3 201 -- Normal click
Zerotorescue@3 202
Zerotorescue@91 203 if cbSelf:GetChecked() then
Zerotorescue@91 204 self:Print(L["|cff00ff00Enabling|r automatic opening of mail."]);
Zerotorescue@3 205
Zerotorescue@3 206 AutoOpenMail = true;
Zerotorescue@91 207 self:ScheduleOpen(false);
Zerotorescue@3 208 else
Zerotorescue@91 209 self:Print(L["|cffff0000Disabling|r automatic opening of mail."]);
Zerotorescue@3 210
Zerotorescue@3 211 AutoOpenMail = false;
Zerotorescue@3 212 end
Zerotorescue@0 213 end
Zerotorescue@0 214 end);
Zerotorescue@68 215 check.tooltipTitle = L["Mail Opener status"];
Zerotorescue@68 216 check.tooltip = L["Toggle automatic mail opening |cff00ff00on|r or |cffff0000off|r (you can also enforce this by holding shift when opening the mailbox).\n\nYou can toggle this addon |cff00ff00on|r or |cffff0000off|r by |cfffed000shift-clicking|r this checkbox."];
Zerotorescue@91 217 check:SetScript("OnEnter", function(cbSelf)
Zerotorescue@91 218 if self.db.profile.general.showHelpTooltips then
Zerotorescue@91 219 GameTooltip:SetOwner(cbSelf, "ANCHOR_BOTTOM")
Zerotorescue@91 220 GameTooltip:SetPoint("BOTTOM", cbSelf, "BOTTOM")
Zerotorescue@91 221 GameTooltip:SetText(cbSelf.tooltipTitle, 1, .82, 0, 1)
Zerotorescue@51 222
Zerotorescue@91 223 if type(cbSelf.tooltip) == "string" then
Zerotorescue@91 224 GameTooltip:AddLine(cbSelf.tooltip, 1, 1, 1, 1);
Zerotorescue@51 225 end
Zerotorescue@51 226
Zerotorescue@51 227 GameTooltip:Show();
Zerotorescue@50 228 end
Zerotorescue@50 229 end);
Zerotorescue@91 230 check:SetScript("OnLeave", function(cbSelf)
Zerotorescue@50 231 GameTooltip:Hide();
Zerotorescue@50 232 end);
Zerotorescue@0 233
Zerotorescue@0 234 -- Get reference to the text field
Zerotorescue@0 235 local checkboxText = _G[check:GetName() .. "Text"];
Zerotorescue@68 236 checkboxText:SetText(L["Mail Opener"]);
Zerotorescue@0 237
Zerotorescue@0 238 self.cbOpenAll = check;
Zerotorescue@0 239
Zerotorescue@31 240
Zerotorescue@31 241
Zerotorescue@31 242
Zerotorescue@31 243 -- CONFIG BUTTON
Zerotorescue@31 244
Zerotorescue@0 245 -- Make the config button
Zerotorescue@0 246 local button = CreateFrame("Button", "btnMailOpenerConfig", MailFrame, "UIPanelButtonTemplate")
Zerotorescue@68 247 button:SetText(L["Config"])
Zerotorescue@0 248 button:SetHeight(23)
Zerotorescue@0 249 button:SetWidth(55)
Zerotorescue@31 250 button:SetPoint("TOPRIGHT", MailFrame, "TOPRIGHT", -55, -13);
Zerotorescue@0 251 button:SetScript("OnClick", function()
Zerotorescue@0 252 MailOpener:EnableConfigModule();
Zerotorescue@0 253
Zerotorescue@0 254 MailOpenerConfig:Show();
Zerotorescue@0 255
Zerotorescue@8 256 --BETA:if MailOpener.db.profile.uses >= 15 then
Zerotorescue@7 257 --BETA: MailOpener:ShowBetaPopup();
Zerotorescue@7 258 --BETA:end
Zerotorescue@0 259 end);
Zerotorescue@68 260 button.tooltipTitle = L["Mail Opener Config"];
Zerotorescue@68 261 button.tooltip = L["Click to open the configuration window for Mail Opener."];
Zerotorescue@91 262 button:SetScript("OnEnter", function(btnSelf)
Zerotorescue@91 263 if self.db.profile.general.showHelpTooltips then
Zerotorescue@91 264 GameTooltip:SetOwner(btnSelf, "ANCHOR_BOTTOM")
Zerotorescue@91 265 GameTooltip:SetPoint("BOTTOM", btnSelf, "TOP")
Zerotorescue@91 266 GameTooltip:SetText(btnSelf.tooltipTitle, 1, .82, 0, 1)
Zerotorescue@51 267
Zerotorescue@91 268 if type(btnSelf.tooltip) == "string" then
Zerotorescue@91 269 GameTooltip:AddLine(btnSelf.tooltip, 1, 1, 1, 1);
Zerotorescue@51 270 end
Zerotorescue@51 271
Zerotorescue@51 272 GameTooltip:Show();
Zerotorescue@50 273 end
Zerotorescue@50 274 end);
Zerotorescue@91 275 button:SetScript("OnLeave", function(btnSelf)
Zerotorescue@50 276 GameTooltip:Hide();
Zerotorescue@50 277 end);
Zerotorescue@0 278
Zerotorescue@0 279 self.btnConfig = button;
Zerotorescue@0 280
Zerotorescue@31 281
Zerotorescue@31 282
Zerotorescue@31 283
Zerotorescue@31 284
Zerotorescue@31 285 -- ADDON LOADING
Zerotorescue@31 286 -- THE BELOW WILL TAKE SOME TIME; WE WILL BE LOADING OTHER ADDONS
Zerotorescue@31 287
Zerotorescue@31 288 if select(6, GetAddOnInfo("Postal")) == nil then
Zerotorescue@31 289 self.PostalEnabled = true; -- Set this as an object variable so we can use it in our modules
Zerotorescue@0 290
Zerotorescue@31 291 -- Ensure this addon is loaded if AddonLoader is installed
Zerotorescue@126 292 if AddonLoader and AddonLoader.LoadAddOn and not IsAddOnLoaded("Postal") and not Postal then
Zerotorescue@31 293 AddonLoader:LoadAddOn("Postal");
Zerotorescue@31 294 end
Zerotorescue@0 295 end
Zerotorescue@0 296
Zerotorescue@118 297 if select(6, GetAddOnInfo("ZeroAuctions")) == nil then
Zerotorescue@118 298 self.ZeroAuctionsEnabled = true; -- Set this as an object variable so we can use it in our modules
Zerotorescue@116 299
Zerotorescue@116 300 -- Ensure this addon is loaded if AddonLoader is installed
Zerotorescue@126 301 if AddonLoader and AddonLoader.LoadAddOn and not IsAddOnLoaded("ZeroAuctions") then
Zerotorescue@116 302 AddonLoader:LoadAddOn("ZeroAuctions");
Zerotorescue@116 303 end
Zerotorescue@31 304 end
Zerotorescue@31 305
Zerotorescue@132 306 if select(6, GetAddOnInfo("AuctionProfitMaster")) == nil then
Zerotorescue@132 307 self.ZeroAuctionsEnabled = true; -- Set this as an object variable so we can use it in our modules
Zerotorescue@132 308
Zerotorescue@132 309 -- Ensure this addon is loaded if AddonLoader is installed
Zerotorescue@132 310 if AddonLoader and AddonLoader.LoadAddOn and not IsAddOnLoaded("AuctionProfitMaster") then
Zerotorescue@132 311 AddonLoader:LoadAddOn("AuctionProfitMaster");
Zerotorescue@132 312 end
Zerotorescue@132 313 end
Zerotorescue@132 314
Zerotorescue@31 315
Zerotorescue@31 316
Zerotorescue@31 317
Zerotorescue@31 318
Zerotorescue@31 319 -- ADJUST POSITIONS
Zerotorescue@31 320
Zerotorescue@123 321 if self.ZeroAuctionsEnabled then
Zerotorescue@31 322 -- QA is enabled so move the checkbox further to the right
Zerotorescue@0 323
Zerotorescue@31 324 self.cbOpenAll:SetPoint("TOPLEFT", MailFrame, "TOPLEFT", 155, -13);
Zerotorescue@31 325 end
Zerotorescue@31 326
Zerotorescue@31 327 if self.PostalEnabled then
Zerotorescue@31 328 self.btnConfig:SetPoint("TOPRIGHT", MailFrame, "TOPRIGHT", -75, -13);
Zerotorescue@31 329 end
Zerotorescue@0 330 end
Zerotorescue@0 331
Zerotorescue@0 332 function MailOpener:OnEnable()
Zerotorescue@0 333 self:RegisterEvent("MAIL_SHOW");
Zerotorescue@0 334 self:RegisterEvent("PLAYER_ENTERING_WORLD");
Zerotorescue@0 335
Zerotorescue@0 336 self.btnConfig:Show();
Zerotorescue@0 337
Zerotorescue@139 338 -- Reset variables
Zerotorescue@139 339 lastAmount = 0;
Zerotorescue@139 340 self.debugChannel = nil;
Zerotorescue@139 341
Zerotorescue@115 342 if not originalCheckInbox then
Zerotorescue@115 343 -- Override the CheckInbox function
Zerotorescue@115 344 -- Remember the original
Zerotorescue@115 345 originalCheckInbox = CheckInbox;
Zerotorescue@115 346 -- Then override that
Zerotorescue@115 347 CheckInbox = NewCheckInbox;
Zerotorescue@115 348 end
Zerotorescue@115 349
Zerotorescue@0 350 -- If we were toggling this addon on while the mailbox is opened we must register all events again
Zerotorescue@0 351 if MailFrame:IsVisible() then
Zerotorescue@0 352 self:MAIL_SHOW();
Zerotorescue@0 353 end
Zerotorescue@0 354 end
Zerotorescue@0 355
Zerotorescue@0 356 function MailOpener:OnDisable()
Zerotorescue@0 357 self:UnregisterEvent("MAIL_SHOW");
Zerotorescue@0 358
Zerotorescue@0 359 self.btnConfig:Hide();
Zerotorescue@0 360
Zerotorescue@115 361 if originalCheckInbox then
Zerotorescue@115 362 -- Change checkinbox back to the original value
Zerotorescue@115 363 CheckInbox = originalCheckInbox;
Zerotorescue@115 364 -- Forget the other reference
Zerotorescue@115 365 originalCheckInbox = nil;
Zerotorescue@115 366 end
Zerotorescue@115 367
Zerotorescue@0 368 MailOpener:Stop();
Zerotorescue@0 369 end
Zerotorescue@0 370
Zerotorescue@0 371 -- We must disable Quick Auction's auto mail (if set up that way in the settings) before opening the mailbox or it will instantly start sending stuff
Zerotorescue@0 372 function MailOpener:PLAYER_ENTERING_WORLD()
Zerotorescue@0 373 self:UnregisterEvent("PLAYER_ENTERING_WORLD");
Zerotorescue@0 374
Zerotorescue@0 375 self:ToggleQAStatus();
Zerotorescue@0 376 end
Zerotorescue@0 377
Zerotorescue@0 378 -- Fired when the mailbox is opened
Zerotorescue@0 379 function MailOpener:MAIL_SHOW()
Zerotorescue@0 380 -- To stop the timer when the mailbox is closed
Zerotorescue@0 381 self:RegisterEvent("MAIL_CLOSED", "Stop");
Zerotorescue@0 382 self:RegisterEvent("PLAYER_LEAVING_WORLD", "Stop");
Zerotorescue@0 383
Zerotorescue@0 384 -- To set the timer for when to refresh again
Zerotorescue@0 385 self:RegisterEvent("MAIL_INBOX_UPDATE");
Zerotorescue@0 386
Zerotorescue@0 387 -- We need to know when opening has completed
Zerotorescue@0 388 self:RegisterMessage("MO_OPEN_COMPLETE");
Zerotorescue@0 389
Zerotorescue@19 390 if self.db.profile.uses == 0 and MailOpener.db.profile.general.defaultStatus ~= "_enabled" then
Zerotorescue@19 391 StaticPopupDialogs["MailOpenerFirstUseConfirmBox"] = {
Zerotorescue@68 392 text = L["You are using |cff15ff00Mail Opener|r for the first time. Do you wish to always |cf00ff000enable|r |cfffed000automatic mail opening when you open the mailbox|r?\n\nYou can always change the standard behavior in the General options."],
Zerotorescue@68 393 button1 = L["Yes"],
Zerotorescue@68 394 button2 = L["No"],
Zerotorescue@19 395 OnAccept = function()
Zerotorescue@19 396 MailOpener.db.profile.general.defaultStatus = "_enabled";
Zerotorescue@85 397 MailOpener:Print(L["You can always change the default status in the General config (|cff00ffff/mo c|r)."]);
Zerotorescue@19 398
Zerotorescue@85 399 MailOpener:Print(L["|cff00ff00Enabling|r automatic opening of mail."]);
Zerotorescue@19 400 MailOpener.cbOpenAll:SetChecked(true);
Zerotorescue@19 401
Zerotorescue@19 402 AutoOpenMail = true;
Zerotorescue@19 403 MailOpener:ScheduleOpen(false);
Zerotorescue@19 404 end,
Zerotorescue@91 405 OnCancel = function ()
Zerotorescue@85 406 MailOpener:Print(L["You can always change the default status in the General config (|cff00ffff/mo c|r)."]);
Zerotorescue@19 407 end,
Zerotorescue@19 408 timeout = 0,
Zerotorescue@19 409 whileDead = 1,
Zerotorescue@19 410 hideOnEscape = 1,
Zerotorescue@19 411 };
Zerotorescue@19 412 StaticPopup_Show("MailOpenerFirstUseConfirmBox");
Zerotorescue@8 413 end
Zerotorescue@8 414
Zerotorescue@8 415 self.db.profile.uses = ( self.db.profile.uses + 1 );
Zerotorescue@8 416
Zerotorescue@0 417 self:Debug("defaultStatus:" .. self.db.profile.general.defaultStatus);
Zerotorescue@0 418 -- Change the mail opening status according to our settings
Zerotorescue@0 419 if self.db.profile.general.defaultStatus == "_enabled" then
Zerotorescue@3 420 AutoOpenMail = true;
Zerotorescue@3 421 self.cbOpenAll:SetChecked(true);
Zerotorescue@3 422 elseif self.db.profile.general.defaultStatus == "disabled" then
Zerotorescue@3 423 -- Disable auto opening but leave mail opener enabled
Zerotorescue@3 424
Zerotorescue@3 425 AutoOpenMail = false;
Zerotorescue@3 426 self.cbOpenAll:SetChecked(false);
Zerotorescue@3 427 elseif self.db.profile.general.defaultStatus == "xdisabled" then
Zerotorescue@3 428 -- Disable entire addon
Zerotorescue@3 429
Zerotorescue@3 430 MailOpener:Disable();
Zerotorescue@3 431 self.cbOpenAll:SetChecked(false);
Zerotorescue@0 432 end
Zerotorescue@0 433
Zerotorescue@46 434 if IsShiftKeyDown() then
Zerotorescue@68 435 self:Print(L["|cffff0000Disabling|r automatic opening of mail, shift key was down when opening the mailbox."]);
Zerotorescue@46 436
Zerotorescue@46 437 AutoOpenMail = false;
Zerotorescue@46 438 self.cbOpenAll:SetChecked(false);
Zerotorescue@46 439 end
Zerotorescue@46 440
Zerotorescue@0 441 self:ToggleQAStatus();
Zerotorescue@0 442
Zerotorescue@0 443 -- Hide the InboxTooMuchMail warning to allow room for our mail remaining info line
Zerotorescue@0 444 InboxTooMuchMail:Hide()
Zerotorescue@0 445 InboxTooMuchMail.Show = function() end
Zerotorescue@0 446
Zerotorescue@118 447 if self.ZeroAuctionsEnabled then
Zerotorescue@132 448 local AHAddon = LibStub("AceAddon-3.0"):GetAddon("ZeroAuctions", true) or LibStub("AceAddon-3.0"):GetAddon("AuctionProfitMaster", true);
Zerotorescue@132 449 if AHAddon then
Zerotorescue@132 450 local QAMail = AHAddon:GetModule("Mail", true);
Zerotorescue@132 451
Zerotorescue@132 452 if QAMail then
Zerotorescue@132 453 -- Hide the open all button
Zerotorescue@132 454 QAMail.massOpening:Hide();
Zerotorescue@132 455 -- Hide the x mail remaining text
Zerotorescue@132 456 QAMail.totalMail:Hide();
Zerotorescue@132 457 end
Zerotorescue@8 458 end
Zerotorescue@0 459 end
Zerotorescue@0 460
Zerotorescue@108 461 hasOpenedMailAlready = nil;
Zerotorescue@0 462 mailboxEmptySoundPlayed = nil;
Zerotorescue@42 463 mailboxEmptySoundPlayedThisVisit = nil;
Zerotorescue@0 464
Zerotorescue@0 465 self:Recheck();
Zerotorescue@0 466
Zerotorescue@0 467 if self.db.profile.general.continueOpening then
Zerotorescue@6 468 -- Continue opening mail, but use the "initial mail opening interval" as time
Zerotorescue@6 469 self:ScheduleOpen(false);
Zerotorescue@0 470 end
Zerotorescue@0 471 end
Zerotorescue@0 472
Zerotorescue@0 473 -- Fired after a successful server sync
Zerotorescue@0 474 -- Fired when mail is deleted (which happens after taking all attachments from a mail sent by the game)
Zerotorescue@0 475 function MailOpener:MAIL_INBOX_UPDATE()
Zerotorescue@0 476 local current, total = GetInboxNumItems();
Zerotorescue@0 477
Zerotorescue@3 478 -- Calculate the amount of mail waiting that actually have attachments
Zerotorescue@3 479 -- If we just compare numbers we won't be including mail that isn't automatically deleted when opened, such as mail with attachments sent by other players
Zerotorescue@3 480 local currentMailWithAttachments = 0;
Zerotorescue@3 481 for i = 1, current do
Zerotorescue@3 482 local _, _, _, _, money, _, _, items = GetInboxHeaderInfo(i);
Zerotorescue@3 483
Zerotorescue@3 484 if (items and items > 0) or (money and money > 0) then
Zerotorescue@3 485 currentMailWithAttachments = currentMailWithAttachments + 1;
Zerotorescue@3 486 end
Zerotorescue@0 487 end
Zerotorescue@0 488
Zerotorescue@3 489 local tempLastAmount = lastAmount;
Zerotorescue@3 490 lastAmount = currentMailWithAttachments;
Zerotorescue@3 491
Zerotorescue@11 492 --if currentMailWithAttachments ~= tempLastAmount then
Zerotorescue@11 493 -- self:Debug("MAIL_INBOX_UPDATE - lastAmount:" .. tempLastAmount .. " - current:" .. currentMailWithAttachments);
Zerotorescue@11 494 --end
Zerotorescue@3 495
Zerotorescue@3 496 if currentMailWithAttachments > tempLastAmount then
Zerotorescue@0 497 -- New messages arrived in our mailbox, so this was a refresh, so set a timer
Zerotorescue@0 498
Zerotorescue@3 499 self:Debug("MO_SERVER_SYNCED");
Zerotorescue@3 500
Zerotorescue@0 501 -- Yell that we successfully synced with the server
Zerotorescue@0 502 self:SendMessage("MO_SERVER_SYNCED");
Zerotorescue@0 503
Zerotorescue@29 504 if MailAddonBusy == MailOpener:GetName() then
Zerotorescue@29 505 MailAddonBusy = nil;
Zerotorescue@29 506 end
Zerotorescue@29 507
Zerotorescue@0 508 -- This list is fresh
Zerotorescue@0 509 freshList = true;
Zerotorescue@0 510 mailboxEmptySoundPlayed = nil;
Zerotorescue@0 511
Zerotorescue@0 512 -- Stop previous timer
Zerotorescue@0 513 self:CancelTimer(self.tmrRecheck, true);
Zerotorescue@0 514 -- More will arrive in 60 seconds
Zerotorescue@0 515 self.tmrRecheck = self:ScheduleTimer(function()
Zerotorescue@0 516 self:Debug("tmrRecheck 61 finished");
Zerotorescue@0 517
Zerotorescue@0 518 -- We can get a fresh list now, so query the server
Zerotorescue@0 519 freshList = false;
Zerotorescue@0 520
Zerotorescue@0 521 -- Look for mail
Zerotorescue@0 522 self:Recheck();
Zerotorescue@0 523 end, 61);
Zerotorescue@0 524 self:Debug("tmrRecheck 61");
Zerotorescue@0 525
Zerotorescue@46 526 -- Open the current mail
Zerotorescue@46 527 self:ScheduleOpen(false);
Zerotorescue@3 528 elseif currentMailWithAttachments < tempLastAmount then
Zerotorescue@2 529 -- We lost a mail
Zerotorescue@2 530
Zerotorescue@19 531 --TODO: NYI: May need to delay this until the mail is actually deleted to keep the mail count more realtime
Zerotorescue@3 532
Zerotorescue@3 533 self:Debug("MO_MAIL_EMPTIED");
Zerotorescue@3 534
Zerotorescue@2 535 -- Yell that we successfully opened/removed a mail
Zerotorescue@3 536 self:SendMessage("MO_MAIL_EMPTIED");
Zerotorescue@3 537 elseif (currentMailWithAttachments == 50 and tempLastAmount == 50) then
Zerotorescue@46 538 -- Open the current mail
Zerotorescue@46 539 self:ScheduleOpen(false);
Zerotorescue@0 540 end
Zerotorescue@0 541 end
Zerotorescue@0 542
Zerotorescue@0 543 function MailOpener:ScheduleOpen(continued)
Zerotorescue@0 544 if lastAmount > 0 then
Zerotorescue@0 545 local waitTime;
Zerotorescue@0 546 if continued then
Zerotorescue@0 547 waitTime = self.db.profile.general.waitTime;
Zerotorescue@0 548 else
Zerotorescue@0 549 -- Even though this is not a continuation and should be instant, we set a .5 second timer to prevent multiple calls of the OpenNow function
Zerotorescue@0 550 waitTime = self.db.profile.general.initialDelay;
Zerotorescue@0 551 end
Zerotorescue@0 552
Zerotorescue@0 553 -- Stop previous timer
Zerotorescue@0 554 self:CancelTimer(self.tmrOpenNow, true);
Zerotorescue@0 555 -- Schedule the next open
Zerotorescue@0 556 self.tmrOpenNow = self:ScheduleTimer("OpenNow", waitTime);
Zerotorescue@0 557 end
Zerotorescue@0 558 end
Zerotorescue@0 559
Zerotorescue@0 560 function MailOpener:OpenNow()
Zerotorescue@8 561 self:Debug("OpenNow (" .. ((MailAddonBusy and "1") or "0") .. ")");
Zerotorescue@8 562 if MailFrame:IsVisible() and AutoOpenMail then
Zerotorescue@0 563 self:Debug("OpenNow");
Zerotorescue@0 564
Zerotorescue@0 565 -- BeanCounter is the only addon hiding the mail close button while busy, so we can look for that
Zerotorescue@31 566 --local BeanCounterActive = not InboxCloseButton:IsVisible();
Zerotorescue@0 567
Zerotorescue@31 568 --if not BeanCounterActive and not MailAddonBusy then
Zerotorescue@31 569 if not MailAddonBusy then
Zerotorescue@8 570 -- No other addon is currently active
Zerotorescue@0 571
Zerotorescue@0 572 self:CancelTimer(self.tmrTryAgain, true); -- Insurance
Zerotorescue@0 573
Zerotorescue@118 574 if self.ZeroAuctionsEnabled and ZeroAuctionsAutoMail then
Zerotorescue@118 575 -- Remember the last known quick auctions status
Zerotorescue@118 576 lastQuickAuctionsStatus = ZeroAuctionsAutoMail:GetChecked();
Zerotorescue@118 577 end
Zerotorescue@118 578 if self.db.profile.general.autoDisableQAAutoMail and self.ZeroAuctionsEnabled and ZeroAuctionsAutoMail and ZeroAuctionsAutoMail:GetChecked() then
Zerotorescue@118 579 -- If auto disable "QA Auto mail" is enabled and QA's auto mail is currently toggled on, turn it off
Zerotorescue@118 580 -- We need to do this with a :click to trigger the right events
Zerotorescue@118 581
Zerotorescue@118 582 self:Debug("Turning automail |cffff0000off|r.");
Zerotorescue@118 583
Zerotorescue@118 584 ZeroAuctionsAutoMail:Click();
Zerotorescue@118 585 end
Zerotorescue@118 586
Zerotorescue@0 587
Zerotorescue@8 588 MailAddonBusy = self:GetName();
Zerotorescue@0 589
Zerotorescue@0 590 self:Debug("MO_OPEN_MAIL");
Zerotorescue@0 591
Zerotorescue@0 592 -- Summon the mail opening gods
Zerotorescue@0 593 self:SendMessage("MO_OPEN_MAIL");
Zerotorescue@129 594 elseif MailAddonBusy ~= self:GetName() then
Zerotorescue@8 595 -- Another addon is ACTIVE
Zerotorescue@31 596 self:Debug("Another addon active, waiting .5 seconds... (" .. MailAddonBusy .. ")");
Zerotorescue@0 597
Zerotorescue@0 598 self:CancelTimer(self.tmrTryAgain, true); -- Insurance
Zerotorescue@8 599 -- Try again every 0.5 seconds
Zerotorescue@0 600 self.tmrTryAgain = self:ScheduleTimer("OpenNow", 0.5);
Zerotorescue@0 601 end
Zerotorescue@0 602 end
Zerotorescue@0 603 end
Zerotorescue@0 604
Zerotorescue@0 605 function MailOpener:MO_OPEN_COMPLETE()
Zerotorescue@8 606 if MailAddonBusy == self:GetName() then
Zerotorescue@8 607 MailAddonBusy = nil;
Zerotorescue@8 608 end
Zerotorescue@1 609
Zerotorescue@108 610 hasOpenedMailAlready = true;
Zerotorescue@108 611
Zerotorescue@1 612 -- Try a recheck
Zerotorescue@1 613 self:Recheck();
Zerotorescue@1 614
Zerotorescue@0 615 local current, total = GetInboxNumItems();
Zerotorescue@0 616
Zerotorescue@0 617 if (total - current) == 0 then
Zerotorescue@3 618 -- There is probably no unopenable mail remaining, so play the sound (if enabled)
Zerotorescue@3 619
Zerotorescue@42 620 if self.db.profile.notifications.mailboxEmptySound and (not MailOpener.db.profile.notifications.mailboxEmptySoundOnlyOnce or not mailboxEmptySoundPlayed) and (not MailOpener.db.profile.notifications.mailboxEmptySoundOnlyOncePerMailboxVisit or not mailboxEmptySoundPlayedThisVisit) then
Zerotorescue@0 621 PlaySoundFile(self.db.profile.notifications.mailboxEmptySoundFile);
Zerotorescue@0 622 mailboxEmptySoundPlayed = true;
Zerotorescue@42 623 mailboxEmptySoundPlayedThisVisit = true;
Zerotorescue@0 624 end
Zerotorescue@0 625 end
Zerotorescue@0 626
Zerotorescue@118 627 if self.ZeroAuctionsEnabled then
Zerotorescue@118 628 -- Zero Auctions enabled?
Zerotorescue@118 629 -- Toggle automailing as per settings
Zerotorescue@118 630
Zerotorescue@118 631 if self.db.profile.general.autoReenableQAAutoMail and ZeroAuctionsAutoMail and not ZeroAuctionsAutoMail:GetChecked() then
Zerotorescue@118 632 -- If auto re-enable "QA Auto mail" is enabled and QA's auto mail is currently toggled OFF, turn it on
Zerotorescue@118 633 -- We need to do this with a :click to trigger the right events
Zerotorescue@118 634
Zerotorescue@118 635 self:Debug("Turning automail |cff00ff00on|r.");
Zerotorescue@118 636
Zerotorescue@118 637 ZeroAuctionsAutoMail:Click();
Zerotorescue@118 638 elseif self.db.profile.general.autoSetBackQAAutoMail and ZeroAuctionsAutoMail and lastQuickAuctionsStatus ~= ZeroAuctionsAutoMail:GetChecked() then
Zerotorescue@118 639 -- If auto set back "QA Auto mail" is enabled and QA's auto mail is currently not the same as it was before starting, toggle it
Zerotorescue@118 640 -- We need to do this with a :click to trigger the right events
Zerotorescue@118 641
Zerotorescue@118 642 if lastQuickAuctionsStatus then
Zerotorescue@118 643 self:Debug("Turning automail |cff00ff00on|r.");
Zerotorescue@118 644 else
Zerotorescue@118 645 self:Debug("Turning automail |cffff0000off|r.");
Zerotorescue@118 646 end
Zerotorescue@118 647
Zerotorescue@118 648 ZeroAuctionsAutoMail:Click();
Zerotorescue@118 649 end
Zerotorescue@118 650 end
Zerotorescue@118 651
Zerotorescue@0 652 if self.db.profile.general.continueOpening then
Zerotorescue@0 653 self:ScheduleOpen(true);
Zerotorescue@0 654 end
Zerotorescue@0 655 end
Zerotorescue@0 656
Zerotorescue@0 657 -- Run another CheckInbox
Zerotorescue@0 658 function MailOpener:Recheck()
Zerotorescue@0 659 self:Debug("|cffffff00Recheck|r");
Zerotorescue@0 660
Zerotorescue@0 661 -- Freshlist prevents this from being run too often
Zerotorescue@0 662 -- It is set to true after a server sync
Zerotorescue@0 663 -- and set to false 61 seconds afterwards with a recheck called instantly after it
Zerotorescue@3 664
Zerotorescue@3 665 -- We're not refreshing while we're opening because it is automatically done when current batch was completely opened
Zerotorescue@8 666 if not freshList and MailFrame:IsVisible() then
Zerotorescue@0 667 self:Debug("|cff00ff00Recheck|r");
Zerotorescue@0 668
Zerotorescue@0 669 -- If this isn't a fresh list (so messages weren't received within the last 60 seconds) and the mailbox wasn't closed
Zerotorescue@0 670
Zerotorescue@0 671 -- BeanCounter is the only addon hiding the mail close button while busy, so we can look for that
Zerotorescue@31 672 --local BeanCounterActive = not InboxCloseButton:IsVisible();
Zerotorescue@0 673
Zerotorescue@31 674 --if not BeanCounterActive and AutoOpenMail and not MailAddonBusy then
Zerotorescue@31 675 if AutoOpenMail and not MailAddonBusy then
Zerotorescue@0 676 -- Query the server
Zerotorescue@0 677 CheckInbox();
Zerotorescue@0 678 end
Zerotorescue@0 679
Zerotorescue@0 680 -- Stop previous timer
Zerotorescue@0 681 self:CancelTimer(self.tmrRecheck, true);
Zerotorescue@0 682 -- Keep trying until it works
Zerotorescue@0 683 self.tmrRecheck = self:ScheduleTimer("Recheck", 2);
Zerotorescue@0 684
Zerotorescue@0 685 self:Debug("tmrRecheck 2");
Zerotorescue@0 686 end
Zerotorescue@0 687 end
Zerotorescue@0 688
Zerotorescue@0 689 -- Stop checking for new mail and unregister the events we needed
Zerotorescue@0 690 function MailOpener:Stop()
Zerotorescue@8 691 if MailAddonBusy == self:GetName() then
Zerotorescue@8 692 MailAddonBusy = nil;
Zerotorescue@8 693 end
Zerotorescue@0 694
Zerotorescue@108 695 hasOpenedMailAlready = nil;
Zerotorescue@108 696
Zerotorescue@0 697 -- We won't need this anymore
Zerotorescue@0 698 self:UnregisterEvent("MAIL_CLOSED");
Zerotorescue@0 699 self:UnregisterEvent("PLAYER_LEAVING_WORLD");
Zerotorescue@0 700 self:UnregisterEvent("MAIL_INBOX_UPDATE");
Zerotorescue@0 701
Zerotorescue@0 702 -- Messages
Zerotorescue@0 703 self:UnregisterMessage("MO_OPEN_COMPLETE");
Zerotorescue@0 704
Zerotorescue@0 705 -- Timers
Zerotorescue@0 706 self:CancelTimer(self.tmrTryAgain, true);
Zerotorescue@0 707 self:CancelTimer(self.tmrOpenNow, true);
Zerotorescue@0 708
Zerotorescue@0 709 -- If we wait with disabling QA automail until MAIL_SHOW, QA will beat us to it and already start sending stuff
Zerotorescue@0 710 self:ToggleQAStatus();
Zerotorescue@0 711 end
Zerotorescue@0 712
Zerotorescue@0 713 function MailOpener:Debug(t)
Zerotorescue@0 714 if not self.debugChannel and self.debugChannel ~= false then
Zerotorescue@0 715 -- We want to check just once, so if you add a debug channel later just do a /reload (registering an event for this is wasted resources)
Zerotorescue@0 716 self.debugChannel = false;
Zerotorescue@0 717
Zerotorescue@0 718 for i = 1, NUM_CHAT_WINDOWS do
Zerotorescue@0 719 local name = GetChatWindowInfo(i);
Zerotorescue@0 720
Zerotorescue@0 721 if name:upper() == "DEBUG" then
Zerotorescue@0 722 self.debugChannel = _G["ChatFrame" .. i];
Zerotorescue@0 723 end
Zerotorescue@0 724 end
Zerotorescue@0 725 end
Zerotorescue@0 726
Zerotorescue@0 727 if self.debugChannel then
Zerotorescue@0 728 self.debugChannel:AddMessage(t);
Zerotorescue@0 729 end
Zerotorescue@0 730 end
Zerotorescue@0 731
Zerotorescue@68 732 function MailOpener:Print(text)
Zerotorescue@68 733 print(L["|cff15ff00Mail Opener|r: %s"]:format(text));
Zerotorescue@68 734 end
Zerotorescue@68 735
Zerotorescue@0 736 -- Enable our config module if it's disabled and make a reference to it
Zerotorescue@0 737 function MailOpener:EnableConfigModule()
Zerotorescue@0 738 if not MailOpenerConfig then
Zerotorescue@0 739 MailOpenerConfig = self:GetModule("Config");
Zerotorescue@0 740 MailOpenerConfig:Enable();
Zerotorescue@0 741 end
Zerotorescue@0 742 end
Zerotorescue@0 743
Zerotorescue@0 744 -- Toggle Postal's opening modules on or off
Zerotorescue@0 745 function MailOpener:TogglePostalModule(name, status)
Zerotorescue@60 746 if self.PostalEnabled and Postal then
Zerotorescue@0 747 -- Postal must be enabled
Zerotorescue@0 748
Zerotorescue@3 749 -- Toggle module (let Postal handle this)
Zerotorescue@3 750 Postal.ToggleModule(nil, name, Postal:GetModule(name), status);
Zerotorescue@0 751 end
Zerotorescue@0 752 end
Zerotorescue@0 753
Zerotorescue@0 754 -- Change Quick Auction's auto mail status based on our prefered settings
Zerotorescue@0 755 function MailOpener:ToggleQAStatus()
Zerotorescue@0 756 self:Debug("defaultQAStatus:" .. self.db.profile.general.defaultQAStatus);
Zerotorescue@0 757
Zerotorescue@118 758 if self.ZeroAuctionsEnabled and self.db.profile.general.defaultQAStatus ~= "__remember" and ZeroAuctionsAutoMail then
Zerotorescue@118 759 if self.db.profile.general.defaultQAStatus == "_enabled" and not ZeroAuctionsAutoMail:GetChecked() then
Zerotorescue@118 760 self:Debug("Turning automail |cff00ff00on|r.");
Zerotorescue@118 761
Zerotorescue@118 762 ZeroAuctionsAutoMail:Click();
Zerotorescue@118 763 elseif self.db.profile.general.defaultQAStatus == "disabled" and ZeroAuctionsAutoMail:GetChecked() then
Zerotorescue@118 764 self:Debug("Turning automail |cffff0000off|r.");
Zerotorescue@118 765
Zerotorescue@118 766 ZeroAuctionsAutoMail:Click();
Zerotorescue@118 767 end
Zerotorescue@118 768 end
Zerotorescue@0 769 end
Zerotorescue@0 770
Zerotorescue@0 771 function MailOpener:FormatMoney(copper)
Zerotorescue@0 772 local gold = floor( copper / 10000 );
Zerotorescue@0 773 local silver = floor( ( copper - ( gold * 10000 ) ) / 100 );
Zerotorescue@0 774 local copper = mod(copper, 100);
Zerotorescue@0 775
Zerotorescue@0 776 if gold > 0 then
Zerotorescue@0 777 return format(GOLD_AMOUNT_TEXTURE .. " " .. SILVER_AMOUNT_TEXTURE .. " " .. COPPER_AMOUNT_TEXTURE, gold, 0, 0, silver, 0, 0, copper, 0, 0);
Zerotorescue@0 778 elseif silver > 0 then
Zerotorescue@0 779 return format(SILVER_AMOUNT_TEXTURE .. " " .. COPPER_AMOUNT_TEXTURE, silver, 0, 0, copper, 0, 0);
Zerotorescue@0 780 else
Zerotorescue@0 781 return format(COPPER_AMOUNT_TEXTURE, copper, 0, 0);
Zerotorescue@0 782 end
Zerotorescue@0 783 end
Zerotorescue@0 784
Zerotorescue@7 785 -- General copy window for multiple things (clickable URLs, the time remaining, and such)
Zerotorescue@0 786 StaticPopupDialogs["MailOpenerCopyWindow"] = {
Zerotorescue@68 787 text = L["Press CTRL-C to copy."],
Zerotorescue@0 788 button2 = CLOSE,
Zerotorescue@0 789 hasEditBox = 1,
Zerotorescue@123 790 editBoxWidth = 360,
Zerotorescue@123 791 OnShow = function(self)
Zerotorescue@123 792 if self.editBox and MailOpener.currentPopupContents then
Zerotorescue@123 793 self.editBox:SetText(MailOpener.currentPopupContents);
Zerotorescue@123 794 self.editBox:SetFocus();
Zerotorescue@123 795 self.editBox:HighlightText(0);
Zerotorescue@0 796 end
Zerotorescue@0 797
Zerotorescue@0 798 -- Position the close button in the middle
Zerotorescue@123 799 if self.button2 then
Zerotorescue@0 800 -- Remove previous know position
Zerotorescue@123 801 self.button2:ClearAllPoints();
Zerotorescue@123 802 self.button2:SetWidth(200);
Zerotorescue@0 803 -- Reposition in the center
Zerotorescue@123 804 self.button2:SetPoint("CENTER", self.editBox, "CENTER", 0, -30);
Zerotorescue@0 805 end
Zerotorescue@0 806 end,
Zerotorescue@92 807 EditBoxOnEscapePressed = function(self)
Zerotorescue@92 808 self:GetParent():Hide();
Zerotorescue@0 809 end,
Zerotorescue@0 810 timeout = 0,
Zerotorescue@0 811 whileDead = 1,
Zerotorescue@0 812 hideOnEscape = 1,
Zerotorescue@0 813 maxLetters = 1024,
Zerotorescue@1 814 };
Zerotorescue@1 815
Zerotorescue@0 816
Zerotorescue@108 817 -- The idea for this is to wait with refresing while there is still mail remaining which can be opened
Zerotorescue@108 818 -- This should speed things up a tiny bit, but might become buggy if coded wrong
Zerotorescue@115 819 -- We actually override the function in the onenable
Zerotorescue@115 820 function NewCheckInbox(...)
Zerotorescue@139 821 if not MailOpener.db.profile.general.overrideCheckInbox or not MailOpener.db.profile.general.continueOpening or not lastAmount or lastAmount == 0 then
Zerotorescue@108 822 -- If the override Check Inbox option is off
Zerotorescue@108 823 -- or continuous opening is off
Zerotorescue@108 824 -- or there's currently no mail visible
Zerotorescue@0 825
Zerotorescue@115 826 MailOpener:Debug("CheckInbox:" .. tostring((not MailOpener.db.profile.general.overrideCheckInbox)) .. "/" .. tostring((not MailOpener.db.profile.general.continueOpening)) .. "/" .. tostring(lastAmount == 0));
Zerotorescue@0 827
Zerotorescue@108 828 -- Just call the original function
Zerotorescue@108 829 return originalCheckInbox(...);
Zerotorescue@0 830 end
Zerotorescue@0 831
Zerotorescue@108 832 if not hasOpenedMailAlready then
Zerotorescue@108 833 -- If MO hasn't opened mail yet, we wait.
Zerotorescue@108 834 -- MO will call this function when mail opening is done
Zerotorescue@0 835
Zerotorescue@108 836 MailOpener:Debug("CheckInbox:Waiting...");
Zerotorescue@0 837
Zerotorescue@108 838 return false;
Zerotorescue@108 839 else
Zerotorescue@108 840 MailOpener:Debug("CheckInbox:Refresh!");
Zerotorescue@108 841
Zerotorescue@108 842 return originalCheckInbox(...);
Zerotorescue@108 843 end
Zerotorescue@139 844 end