WTB: Bubble Hearth Detector

[rubberbands]

So I'm looking for an addon (or any willing addon savvy player) which will create a message in say/party/raid under the following conditions:

1) I'm in an instance / in combat
2) Friendly player starts using hearthstone when the buff "Divine Shield" is active on himself

Must not happen:
Triggering when paladin A bubbles but only paladin B hearths without bubble.

Example: Paladinguildie attempts to bubble hearth during a wipedown. I will give Raid Warning (or just announce in raid if I dont have assist) "Paladinguildie is deserting his post! Show no mercy for cowards!"

Bonus points:
Also able to rat out enemy paladins (eg. Wintergrasp,arena, bg)

(yes, i've done searches through here, curse and official forums)

[nightcracker]

Shouldn't be that hard, just hook COMBAT_LOG_EVENT_UNFILTERED, and watch for SPELL_CAST_START, and when it passes the spellname "Hearthstone" and he currently has the "Divine Shield" buff on, then do something.

Some code from the top off my head:

local holder = CreateFrame("Frame")
holder:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
holder:SetScript("OnEvent", function(_, _, _, event, _, name, _, _, _, _, _, spell)
    if event=="SPELL_CAST_START" and spell=="Hearthstone" and UnitBuff(name, "Divine Shield") then
        -- do something
        -- example:
        print(name.." is bubblehearthing!")
    end
end)