User's Manual

282 Module - eAPI sample
Dim lcl_start As Integer
Dim lcl_end As Integer
Dim lcl_from As String
Dim lcl_to As String
Dim lcl_value As String
lcl_from = LCase$(< & keyword & >)
lcl_to = LCase$(</ & keyword & >)
lcl_start = InStr(1, LCase$(xml), lcl_from)
lcl_end = InStr(lcl_start + Len(lcl_from), LCase$(xml), lcl_to)
lcl_value = Mid$(xml, lcl_start + Len(lcl_from), 1 + lcl_end - lcl_start -
Len(lcl_to))
If Err Then
parse_xml = N/A
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
Nortel Communication Server 1000
DECT Messenger Installation and Commissioning — Book 1
NN43120-301 02.01 4 June 2010
Copyright © 2003-2010 Nortel Networks. All Rights Reserved.
.