home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2002 July / APC0702D1.iso / isp / tpgi / HelpDesk / scripts / Qmosaic / TPGI_2100.mps next >
Encoding:
Text File  |  2000-09-24  |  1.7 KB  |  68 lines
  1. # TPGI PPP login script
  2. # 
  3. #
  4. # 21/Aug/95 EJW
  5. #
  6. # Modified to connect to TPG2100 - Experimental Release ONLY!
  7. #
  8. # 19/8/96 Rod Tunks  Release 0.1 Changed to wait for switching to ppp prompt
  9. #                                Added delay at the end of 3 second to allow 
  10. #                                Linux PPP to start so Qdeck wouldnt time out
  11. #
  12. # 19/8/96 Rod Tunks  Release 0.2 Changed wait to 2 seconds after ppp selected
  13. #
  14.      
  15. STRING username
  16. STRING password
  17. STRING framing
  18. STRING IPAddress
  19. #Trace on
  20. SetTimeOut  60
  21. CfgGetValue "Username" username
  22.      
  23. IF result = 0 THEN
  24.     GetInput "Enter your username:"  username 
  25.     IF result = 0 THEN
  26.         PRINT "Warning, no username entered."
  27.     ELSE
  28.         PRINT "Username set to: ";username 
  29.         CfgSetValue "Username" username
  30.     ENDIF
  31. ENDIF
  32.     
  33. CfgGetValue "Password" password
  34. IF result = 0 THEN
  35.     GetPassword "Enter your password:" password 
  36.     IF result = 0 THEN
  37.         PRINT "Warning, no password entered."
  38.     ENDIF
  39. ENDIF
  40.     
  41. CfgGetValue "Framing" framing
  42. IF result = 0 THEN
  43.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  44. ENDIF                                                   # don't wait for spaces
  45.      
  46. CommWaitFor "username:"                 # case sensitive
  47.      
  48. CommSend        username
  49. CommSend        "%r"            # send ENTER 
  50.     
  51. CommWaitFor     "password:"
  52. CommSend        password
  53. CommSend        "%r"            # send ENTER 
  54.     
  55. CommWaitFor     "choice:"
  56.     
  57. # The Annex terminal server requires a macro to be exectued for connection 
  58. # ppp for PPP connection and slip for SLIP. It is case sensitive.
  59.      
  60. IF framing = "MPPPP" THEN
  61.     CommSend   "ppp"
  62. ENDIF
  63.     CommSend        "%r"
  64. CommWaitFor "PPP"
  65. Delay 2
  66.  
  67. END
  68.