User's Manual

284 Module - eAPI sample
g_log_path = D:\SOPHO Messenger@Net
g_log_days = 14
lab_log_path = & g_log_path
lab_log_days = & g_log_days
’ Default command line parameters
eAPI_form - 3
’ /Site:1 /eKernel address:*LOCAL /eKernel port:3209 /Log drive:C
g_command = Command$
If g_command = Then
Lcl_Msg = Warning: eAPI is started without command line parameters. +
Chr$(10) + Ch
r$(10)
Lcl_Msg = Lcl_Msg + Check the command string in the target value in the
properties o
f the shortcut. + Chr$(10) + Chr$(10)
Lcl_Msg = Lcl_Msg + Please confirm to start this session with the following
replacem
ent values: + Chr(10) + Chr$(10)
g_command = /Site:2 /eKernel address:*LOCAL /eKernel port:3209 /Log drive:C
lcl_rc = InputBox(Lcl_Msg, Me.Caption, g_command)
If lcl_rc = Then
End
Else
g_command = lcl_rc
End If
End If
’Initialise screen labels
lab_ekernel_remote_address = N/A
lab_ekernel_remote_port = N/A
lab_ekernel_local_address = N/A
lab_ekernel_local_port = N/A
’ Get command line parameter
g_site = parse_cmd_line(Site)
g_ekernel_remote_address = parse_cmd_line(eKernel address)
g_ekernel_remote_port = parse_cmd_line(eKernel port)
g_log_drive = parse_cmd_line(Log drive)
’ Handle special values
If g_ekernel_remote_address = *LOCAL Then g_ekernel_remote_address =
ip_ekernel.LocalIP
’ Start
log S, INF, Application & Me.Caption & started with parameters & g_command
’ 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.xx
x.xxx’ m
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.
.