home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / frei / winsock.arj / SERVER.CM_ / SERVER
Encoding:
Text File  |  1996-09-05  |  1.2 KB  |  55 lines
  1. #
  2. #  Trumpet Winsock 3.0 Server.cmd
  3. #
  4. #  Copyright (C) 1996 distributed by
  5. #  Trumpet Software International Pty Ltd 
  6. #  A.C.N 070065860
  7. #  Under Licence from the Copyright owners.
  8. #  All Rights Reserved.
  9. #
  10. $promptuser = "sername:"
  11. $promptpass = "ssword:"
  12. $promptcmd  = ">"
  13. $slipcmd    = "slip"
  14. $slipready  = ""
  15. $pppcmd     = "ppp"
  16. $pppready   = ""
  17. %getaddr    = 1
  18. $addrprompt = ""
  19. %ok = [load $promptuser]
  20. %ok = %ok & [load $promptpass]
  21. %ok = %ok & [load $promptcmd]
  22. %ok = %ok & [load $slipcmd]
  23. %ok = %ok & [load $slipready]
  24. %ok = %ok & [load $pppcmd]
  25. %ok = %ok & [load $pppready]
  26. %ok = %ok & [load %getaddr]
  27. %ok = %ok & [load $addrprompt]
  28. if (param(1) <> "preload") | ! %ok
  29.   dialog "profile.res","server",%ok
  30.     edit $promptuser,101
  31.     edit $promptpass,102
  32.     edit $promptcmd,103
  33.     edit $slipcmd,104
  34.     edit $slipready,105
  35.     edit $pppcmd,106
  36.     edit $pppready,107
  37.     toggle %getaddr,108
  38.     edit $addrprompt,109
  39.     help "trumpwsk.hlp",999,"server profile"
  40.   end
  41.   if %ok
  42.     save $promptuser
  43.     save $promptpass
  44.     save $promptcmd
  45.     save $slipcmd
  46.     save $slipready
  47.     save $pppcmd
  48.     save $pppready
  49.     save %getaddr
  50.     save $addrprompt
  51.   else
  52.     exit
  53.   end
  54. end
  55.