Sub CheckActive(CMsg As String)
Dim i As Int
Dim MP As MediaPlayer
MP.Initialize
Try
MP.Load(RingM.GetContentDir,RingM.GetDefault(RingM.TYPE_NOTIFICATION))
Catch
Log("Invalid File")
End Try
Select Case mBAction
Case "PO"
mBCol1 = Strings.SplitGetWord(CMsg,";",5)
i = Msgbox2("Attention! <" & mBCol1 & "> is already active!", "Title","OK","","",Null)
ButtonsAct(False)
IsActive = False
Case "OW"
mBCol1 = Strings.SplitGetWord(CMsg,";",5)
i = Msgbox2("Attention! <" & mBCol1 & "> is already active. Do you really want to activate?", "Title", "Yes","","No", Null)
Select Case i
Case DialogResponse.POSITIVE
CallSub3(PushService.wsh,"SendMessageToServer","FA",UserID)
Case DialogResponse.NEGATIVE
IsActive = False
ButtonsAct(False)
End Select
End Select
mBAction = ""
mBCol1 = ""
mBCol2 = ""
mRTID = ""
mRTInf = 0
MP.Play
End Sub