home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1996 February / IMM0296.ISO / direct / qsockpro.qip / INGENK.MPS < prev    next >
Text File  |  1995-12-16  |  1KB  |  57 lines
  1. # Ingenieurbⁿro Germany SLIP script
  2. # 08/08/95 BC
  3.  
  4. String username
  5. String password
  6. String framing
  7. String IPAddress
  8.  
  9. # Trace on
  10. SetTimeout 60
  11.  
  12. CfgGetValue "Username" username
  13. if result = 0 then
  14.         GetInput "Enter your user name" username
  15.     if result = 0 then
  16.         Print "Warning, no username entered"
  17.     else
  18.         Print "Username set to ["; username; "]"
  19.     endif
  20. endif
  21.  
  22. CfgGetValue "Password" password
  23. if result = 0 then
  24.         GetPassword "Enter your password" password
  25.     if result = 0 then
  26.         Print "Warning, no password entered"
  27.     else
  28.         Print "Password set."
  29.     endif
  30. endif
  31.  
  32. CfgGetValue "Framing" framing
  33. if result = 0 then
  34.     Abort "Can't read 'Framing' setting from qdeck.ini"
  35. endif
  36.  
  37.     CommWaitFor    "ogin:"
  38.     CommSend    username
  39.     CommSend    "%r"
  40.     CommWaitFor    "assword:"
  41.     CommSend    password
  42.     CommSend    "%r"
  43.  
  44. if framing = "MPSLIP" then
  45.         Print           ""
  46.         Print           "Getting IP address for SLIP"
  47.         CommWaitFor     "IP address is"
  48.         CommReadIPAddr  IPAddress
  49.         CfgSetValue     "IPAddress"     IPaddress
  50.         Print           ""
  51.         Print           "IP Address set to ["; IPAddress; "]"
  52. else
  53.     Print    "Framing is PPP"
  54. endif
  55.  
  56. END
  57.