DESCRIPTION Obtain Updated Product Information
; connect to titan host pc and download product file
; ray 05/98
; titan.ros -- reachout script
; connect via toll-free #'s 877 536 3030

INIT_DIAL = "Initializing Titan Download Process"

TRIES = 0

:GET_PW
INPUT PASSWORD "Enter the password for Remote Access -->> ",TITAN_PW
IF TITAN_PW != "SALES" AND TITAN_PW != "sales"
  IF RESULT = IDCANCEL
     GOTO :EXIT_SCRIPT
  ELSE 
     MESSAGE "Invalid Password Entered!"
  ENDIF
  TRIES = TRIES + 1
  IF TRIES = 3
    GOTO :EXIT_SCRIPT
  ELSE
    GOTO :GET_PW
  ENDIF
ENDIF

;home
;
MESSAGE "Are you dialing from home (where no access # is required)?",INIT_DIAL,3+32
IF RESULT = IDYES
  GOTO :C1
ENDIF
IF RESULT = IDCANCEL
  GOTO :EXIT_SCRIPT
ENDIF

; office
;
MESSAGE "Are you dialing from an office (where dialing 9 is required)?",INIT_DIAL,3+32
IF RESULT = IDYES
  GOTO :C2
ENDIF
IF RESULT = IDCANCEL
  GOTO :EXIT_SCRIPT
ENDIF

; hotel
;
MESSAGE "Are you dialing from a hotel (where dialing 8 is required)?",INIT_DIAL,3+32
IF RESULT = IDYES
  GOTO :C3
ENDIF
IF RESULT = IDCANCEL
  GOTO :EXIT_SCRIPT
ENDIF

; manual dial
;
MESSAGE "Do you wish to dial a number manually including access #?",INIT_DIAL,3+32
IF RESULT = IDYES
  GOTO :C4
ENDIF
IF RESULT = IDCANCEL
  GOTO :EXIT_SCRIPT
ENDIF

; custom connection
;
MESSAGE "Do you wish to use the custom OTHER CONNECTION? (verify with Titan MIS first)",INIT_DIAL,4+32
IF RESULT = IDYES
  GOTO :C5
ELSE
  GOTO :EXIT_SCRIPT
ENDIF

:C1
CONNECT "HOME"
GOTO :BEGIN_COM
:C2
CONNECT "OFFICE"
GOTO :BEGIN_COM
:C3
CONNECT "HOTEL"
GOTO :BEGIN_COM
:C4
; manual dial
INPUT "ENTER ACCESS # AND PHONE # TO DIAL",PHONE_NO
CONNECT NUMBER PHONE_NO
GOTO :BEGIN_COM
:C5
; custom connection
MESSAGE "Do you need guidance in setting up this other connection",INIT_DIAL,4+32
IF RESULT = IDYES
  EXEC "C:\PROGRA~1\REACHOUT\TTDIALUP.EXE"
  GOTO :EXIT_SCRIPT ; let them go work on it
ENDIF
CONNECT "OTHER CONNECTION" ; modified by user

:BEGIN_COM
IF RESULT != 0
  MESSAGE "Please Re-try -- Comm. Error #" STR(RESULT) " -- " RESULTSTR(RESULT),STR(RESULT)
  GOTO :EXIT_SCRIPT
ENDIF


GETFILE ALWAYSOVERWRITE "C:\INVLOOK\DATA\*.*" FROM "C:\INVLOOK\DATA\*.*"
IF RESULT < 100	
   BEEP	
   MESSAGE "File transfer completed!"
ELSE
   MESSAGE RESULTSTR(RESULT) " -- File transfer incomplete, call MIS!",STR(RESULT)
ENDIF

:EXIT_SCRIPT
DISCONNECT
EXIT