Need some scripting Help calling mcsXap plugin
I am wanting to send an Xap message from a script but not having any luck.
Here is what I have so far...
I am wanting to send an Xap message from a script but not having any luck.
Here is what I have so far...
PHP Code:
Sub Main
Dim callname
dim callnmbr
dim flag
dim tmr
Dim ct
Dim body
Dim xap
Dim sTarget
Dim sClass
Dim sSection
Dim sData
'*************************************************************************************
' get the caller directory name
'callname = hsp.cidname(1)
' get the phone number
'callnmbr = hsp.cidnumber(1)
callname=hs.DeviceStringByName("Phone Status CID_Name")
callnmbr=hs.DeviceStringByName("Phone Status CID_Number")
'*************************************************************************************
xap = hs.GetPlugins("mcsXap")
' xap.SendXapMessage sTargetAddress, "cid.Incoming", "cid.incoming", _
' "Device" & Chr(1) & sDC & Chr(0) & _
' "Command" & Chr(1) & sLevel
xap.SendXapMessage sTarget, "cid.Incoming", sClass "cid.incoming", sData "name" &callname, "phone" &callnmbr
' xap.SendXapMessage "", "xAPBSC.event", "output.state.1", _
' "State" & Chr(1) & sStatus, _
' sName & "." & sID & "." & "Relay", _
' Left(gXapUID, 6) & sIndex
End Sub
Comment