home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / XNET.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.2 KB  |  52 lines
  1. # XNet Information Systems PPP script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # Authored 5/16/95 Kevin Flick
  4.  
  5. #define the variables we will need
  6.  
  7. STRING username
  8. STRING password
  9. STRING framing
  10. STRING IPAddress
  11.  
  12. # uncomment for debugging
  13. #TRACE ON
  14.  
  15. # reset maximum login timeout.
  16. SetTimeout 90
  17.  
  18. CfgGetValue "Username" username
  19. IF result = 0 THEN
  20.     GetInput "Enter your user name" username
  21.     IF result = 0 THEN
  22.         PRINT "Warning, no username entered"
  23.     ELSE
  24.         PRINT "Username set to ["; username; "]"
  25.     ENDIF
  26. ENDIF
  27.  
  28. # get password from access method
  29. # if the Password field is empty, prompt the user for it.
  30. CfgGetValue "Password" password
  31. IF result = 0 THEN
  32.     GetPassword "Enter your password" password
  33.     IF result = 0 THEN
  34.         PRINT "Warning, no password entered"
  35.     ELSE
  36.         # NOTE: Don't print password.
  37.         PRINT "Password set."
  38.     ENDIF
  39. ENDIF
  40.  
  41. CommWaitFor "Login"           # wait for login prompt
  42. #DELAY 5
  43.     CommSend username         # send user name
  44.     CommSend "%r"             # send carriage return
  45.  
  46. CommWaitFor "assword"         # wait for password prompt
  47. #DELAY 5
  48.     CommSend password         # send password
  49.     CommSend "%r"             # send carriage return
  50.  
  51. END
  52.