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.
;
;  Scripting instructions for access via supplemental IP networks.
;
;  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
   Partner_Login:
      waitfor
         "sername:"    then Send_Uupops,
         "ogin:"       then Send_Uupops,
         "assword:"    then Send_Uupops,
         "Host Name:"  then Magic_Hostname
      until 5
      Retries = Retries - 1
      if Retries > 0 then
         goto Send_Uupops
      endif
      halt
   
   Send_Uupops:
      transmit "dial@uupops.net<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