home *** CD-ROM | disk | FTP | other *** search
/ Everyones Internet / EV1NET.ISO / pc / data / 1065.scp < prev    next >
Encoding:
Text File  |  1999-05-24  |  1.1 KB  |  65 lines
  1. #
  2. # set up some strings for dialling up
  3. #
  4. if ![load $username]
  5.   if [username "Enter your login username"]
  6.     save $username
  7.   end
  8. end
  9. if ![load $password]
  10.   if [password "Enter your login password"]
  11.     save $password
  12.   end
  13. end
  14. load $prefix
  15. load $modemsetup
  16. load $number
  17. $userprompt = "ogin:"
  18. $passprompt = "word:"
  19. %attempts = 10
  20. #
  21. #
  22. #----------------------------------------------------------
  23. #
  24. # initialize modem
  25. #
  26. output "atz"\13
  27. if ! [input 10 OK\n]
  28.   display "Modem is not responding"\n
  29.   abort
  30. end
  31. #
  32. # setup our modem commands
  33. #
  34. output $modemsetup\13
  35. input 10 OK\n
  36. #
  37. # send phone number
  38. #
  39. %n = 0
  40. repeat
  41.   if %n = %attempts
  42.     display "Too many dial attempts"\n
  43.     abort
  44.   end
  45.   output "atdt" $prefix $number\13
  46.   %ok = [input 60 CONNECT]
  47.   %n = %n + 1
  48. until %ok
  49. input 10 \n
  50. #
  51. #  wait for the username prompt
  52. #
  53. input 30 $userprompt
  54. output $username\13
  55. #
  56. # and the password
  57. #
  58. input 30 $passprompt
  59. output $password\13
  60. #
  61. # we are now logged in
  62. # The terminal server starts PPP automatically now
  63. # so we are done.
  64. #
  65.