Mercurial > wow > mailopener

annotate Core.lua @ 51:fcc7112cc365

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