User's Manual

' Terminate if undefined values
If g_site = N/A Then
lcl_rc = MsgBox(eAPI could not start. Parameter '/Site:xxx' missing in command strin
g., vbCritical, eAPI - SOPHO Messenger@Net)
Unload Me
End If
If g_ekernel_remote_address = N/A Then
lcl_rc = MsgBox(eAPI could not start. Parameter '/eKernel address:xxx.xxx.xxx.xxx' m
issing in command string., vbCritical, eAPI - SOPHO Messenger@Net)
Unload Me
End If
If g_ekernel_remote_port = N/A Then
lcl_rc = MsgBox(eAPI could not start. Parameter '/eKernel port:xxxxx' missing in com
mand string., vbCritical, eAPI - SOPHO Messenger@Net)
Unload Me
End If
If g_log_drive = N/A Then
lcl_rc = MsgBox(eAPI could not start. Parameter '/Log drive:x' missing in command st
ring., vbCritical, eAPI - SOPHO Messenger@Net)
Unload Me
End If
If Len(g_log_drive) <> 1 Then
lcl_rc = MsgBox(eAPI could not start. Parameter '/Log drive:x' is invalid in command
string., vbCritical, eAPI - SOPHO Messenger@Net)
Unload Me
End If
' Update screen labels
lab_ekernel_remote_address = & g_ekernel_remote_address
lab_ekernel_remote_port = & g_ekernel_remote_port
' Initialise eAPI screen fields
With cbo_set_or_reset
.Clear
.AddItem *SET
.AddItem *RESET
.ListIndex = 0
End With
With cbo_remove_after
.Clear
.AddItem *SENT
.AddItem *RESET
.AddItem *CALC
eAPI_form - 4
.ListIndex = 0
End With
' Set socket state indicator to defaults
lab_ekernel_state.Backcolour = RGB(0, 0, 0)
' Show copyright
lab_msg = & App.LegalCopyright
' Initialise CFGRQS variables
g_log_path = g_log_drive + :\SOPHO Messenger@Net
g_log_days = 14
lab_log_path = & g_log_path
lab_log_days = & g_log_days
' Ininitialise guarding
g_guarding = Timer
' Enable timer for eKernel
tim.Interval = 100
tim.Enabled = True
End Sub
Private Sub ip_ekernel_Connect()
Dim lcl_version As String
Dim lcl_o As String
' Update screen
Module - eAPI sample
74 DECT Messenger Installation and Commissioning — Book 1 March 2012
Comments? infodev@avaya.com