User's Manual

log S, INF, Warning : parameter ' & keyword & ' not available in ' & xml & '
Else
parse_xml = lcl_value
End If
On Error GoTo 0
End Function
Private Sub lab_message_Click()
End Sub
Private Sub cmd_transmit_Click()
Dim lcl_xml As String
' Validate
If Trim$(txt_group) = Then
lab_msg = Error. Group must be entered.
txt_group.SetFocus
Exit Sub
End If
If Trim$(txt_alarmdescr) = Then
lab_msg = Error. Alarm description must be entered.
txt_alarmdescr.SetFocus
eAPI_form - 2
Exit Sub
End If
If Trim$(txt_msg) = Then
lab_msg = Error. Message must be entered.
txt_msg.SetFocus
Exit Sub
End If
' Build XML string
lcl_xml = <xml><msgrqs> '<site> & g_site & </site>
lcl_xml = lcl_xml + <set_or_reset> & cbo_set_or_reset & </set_or_reset>
lcl_xml = lcl_xml + <group> & Trim$(txt_group) & </group>
lcl_xml = lcl_xml + <alarmdescr> & Trim$(txt_alarmdescr) & </alarmdescr>
lcl_xml = lcl_xml + <msg> & Trim$(txt_msg) & </msg>
lcl_xml = lcl_xml + <remove_after> & cbo_remove_after & </remove_after>
lcl_xml = lcl_xml + </msgrqs></xml>
' Submit request
eAPI_form.lst_ekernel_outq.AddItem lcl_xml
' Inform user
lab_msg = Message submitted to eKERNEL.
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim lcl_o As String
' Submit <pgmsts> shutdown request to ekernel if connected
On Error Resume Next: Err = 0
If ip_ekernel.State = 7 Then
lcl_o = <xml><pgmsts><value>Shutdown</value></pgmsts></xml>
ip_ekernel.SendData lcl_o + Chr$(13) + Chr$(10)
If Err Then
lab_msg = Error & Err & - & Err.Description
log E, ERR, TCP senddata error & Err & - & Err.Description & - & l
cl_o & could not be sent to eKERNEL
Else
lst_ekernel_outq.RemoveItem 0
log O, TCP, lcl_o
End If
On Error GoTo 0
End If
DoEvents
' log
log S, INF, Application ended
' end
End
Module - eAPI sample
72 DECT Messenger Installation and Commissioning — Book 1 March 2012
Comments? infodev@avaya.com