Dial Script

;  Copyright (c) 2007
;  Verizon Communications, Inc.  All rights reserved.
;
;  The information in this software is subject to change without
;  notice and should not be construed as a commitment by Verizon.
;
;  If using Microsoft Windows(c), this script can be placed in the c:\windows\system32\ras
;  or c:\winnt\system32\ras directory.  
;

proc main
   integer Retries = 5
   delay 1
   transmit "...<cr>"
   Partner_Login:
      waitfor
         "SITA NETWORK: 2"              then Send_NUI,
	 "SITA NETWORK: 4"              then Send_NUI,
         "SITA NETWORK: PASSWORD"       then Send_Password,
         "SITA NETWORK: Network"        then Send_Network,
         "Host Name:"                   then Magic_Hostname
      until 5
      Retries = Retries - 1
      if Retries > 0 then
         transmit "...<cr>"
         goto Partner_Login
      endif
      halt
   
   Send_NUI:
      transmit "nui 19730001<cr>"
      goto Partner_Login
      
   Send_Password:
      transmit "KHS9NE<cr>"
      goto Partner_Login

   Send_Network:
      transmit "Line (512/512) 2111855<cr>"
      goto Partner_Login
      
   Magic_Hostname:
      transmit "WCDIAL<cr>"
      waitfor
         "Password:"    then Hostname_Password,
         "Host Name:"   then Magic_Hostname
      until 5
      Retries = Retries - 1
      if Retries > 0 then
         goto Magic_Hostname
      endif
      halt
      
   Hostname_Password:
      transmit "sr1p.hpf<cr>"
       
endproc