home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1996 February / IMM0296.ISO / direct / qsockpro.qip / SPACENET.MPS < prev    next >
Text File  |  1995-12-16  |  1KB  |  58 lines
  1. # SpaceNet (Muenchen, Germany) PPP/SLIP script fixed IP for SLIP
  2. # 08/08/95 BC
  3.  
  4. String username
  5. String password
  6. String framing
  7. String IPAdress
  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. CommWaitFor    "ogin:"
  33. CommSend    username
  34. CommSend    "%r"
  35. CommWaitFor    "assword:"
  36. CommSend    password
  37. CommSend    "%r"
  38.  
  39. CfgGetValue "Framing" framing
  40.  
  41. if result = 0 then
  42.     Abort "Can't read 'Framing' setting from qdeck.ini"
  43. endif
  44.  
  45. if framing = "MPSLIP" then
  46.     Print        "Getting IP Address"
  47. #    CommWaitFor    ") to"
  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.  
  58.