# $language = "VBScript"
# $interface = "1.0"


Sub Sleep(timewait)
 
  If crt.screen.waitforstring("pause", timewait) = true then msgbox "surprise"
  
End Sub

Sub SendShellCommand(shell_command)
	crt.Screen.Send shell_command & VbCr
End Sub

sub main

SendShellCommand("root")
crt.Sleep 100
SendShellCommand("root")
crt.Sleep 100
SendShellCommand("cd /opt/bcm68620/")
crt.screen.WaitForString "#"
crt.Sleep 100
SendShellCommand("./svk_init.sh")
crt.screen.WaitForString ">"
crt.Sleep 1000
crt.Screen.Send VbCr

'mandatory
SendShellCommand("/api/set object=device system_mode=gpon__16_x")
crt.Sleep 50

'Optional - configure the NNI speed in order to work with a 1g traffic generator
SendShellCommand("/api/set object=device nni_speed.first_half=gbps_1 nni_speed.second_half=gbps_1 ")
crt.Sleep 50

'Optional - configure the PCIe dma queues sizes or configure the system not to fail on bad AVS check.  
SendShellCommand("/api/set object=device debug.host_dma_rx_queue_size=128 debug.host_dma_tx_queue_size=128 debug.avs_control=yes")
crt.Sleep 50

'Optional - configure the keep alive parameters  
SendShellCommand("/api/set object=device keepalive_interval=5 keepalive_tolerance=3")

crt.Screen.Send VbCr
crt.screen.WaitForString ">"
crt.Sleep 50
crt.Screen.Send VbCr


SendShellCommand("/user/register_indication_handler")
crt.Screen.Send VbCr
crt.Screen.Send VbCr
crt.screen.WaitForString ">"

crt.Screen.Send VbCr
crt.Sleep 50
SendShellCommand("/user/register_proxy_rx_handler ")
crt.Screen.Send VbCr
crt.Sleep 50
crt.Screen.Send VbCr
SendShellCommand("/api/oper object=device sub=connect ")
crt.Screen.Send VbCr
crt.screen.WaitForString ">"
crt.Screen.Send VbCr

crt.Sleep 50
		
End Sub