Mercurial > wow > mailopener

annotate Core.lua @ 57:8d1a34cec258

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Any English professors near? ?2 mail? vs ?2 mails?.
author Zerotorescue
date Sun, 12 Sep 2010 22:20:55 +0200
parents 75c36b3d5443
children 4cd3b02f6840
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@55 220 check: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 ]]