home *** CD-ROM | disk | FTP | other *** search
/ Cardinal Internet Access Solutions / Cardinal_Internet_Access_Solutions(1996-08-19).iso / files / internet / slipnet / slipnet.z / OLDLOGIN.CMD < prev    next >
OS/2 REXX Batch file  |  1995-02-19  |  2KB  |  108 lines
  1. #
  2. # initialize modem
  3. #
  4. output atz\13
  5. input 10 OK\n
  6. #
  7. # set modem to indicate DCD
  8. #
  9. output at&c1&d2\13
  10. input 10 OK\n
  11.  
  12. #
  13. # send phone number
  14. %tries = 0
  15. %connect = 0
  16. repeat
  17.   %tries = %tries +1
  18.   $result = "Initialize"
  19.   display "Try #:" %tries  \r
  20. # Edit the xxx-xxx-xxxx to be the access number assigned to you by slip.net
  21. # *** ENTER PHONE NUMBER HERE***
  22. output atdt1-217-792-2777\13
  23. #
  24. %timeout = [read 45 $result]
  25. %timeout = [read 45 $result]
  26.   # check if timed out
  27.   # this could be modem failure , or service
  28.   # took more than a minute to respond etc.
  29.   if %timeout = 0
  30.     display \n
  31.     display "ERROR Timed-out. Hangup line." \n
  32.     output +++\r
  33.     output ath0\r
  34.     %connect = 0
  35.     # abort
  36.   end
  37.  
  38.   # Retries Expired
  39.   # Make this number as large as you want
  40.   if %tries = 50
  41.     display "VHT ( Very High Traffic)." \7\n
  42.     display "Trying some other time." \n
  43.     output +++\r
  44.     output ath0\r
  45.     display "Aborting." \n
  46.     abort
  47.   end
  48.  
  49.   # Check if Modem Returns BUSY
  50.   # does not work with $result = "CONNECT" ??
  51.   # but since usually the only two conditions
  52.   # are busy and not busy , this will work
  53.   # NO CARRIER for example will pass through but
  54.   # will be traped in the  wait 30 dcd command below
  55.   if $result = "BUSY"
  56.     # display "This number is Busy." \n
  57.     %connect = 0
  58.     display "Waiting for a while." \n
  59.     sleep 10
  60.   else
  61.     display "Trying to Connect."\7\n
  62.     %connect = 1
  63.   end
  64. until %connect = 1
  65.  
  66. # now we are connected.
  67. # # commented out next 2 lines - TED 11/05/94
  68. #input 60 CONNECT
  69. #display connected
  70. #
  71. #  wait till it's safe to send because some modem's hang up
  72. #  if you transmit during the connection phase
  73. #
  74. wait 30 dcd
  75. #
  76. #  wait for the username prompt
  77. #
  78. input 30 login:
  79. #
  80. # Edit  "user_name" to be your slip login id assigned to you by slip.net
  81. # (Be sure to put a 'S' first!)
  82. # ***ENTER USERNAME HERE***
  83. output Suser_name\13
  84. #
  85. # and the password
  86. #
  87. input 30 Password:
  88. #
  89. # edit "your_password" to be your slip login password.
  90. # ***ENTER PASSWORD HERE***
  91. output your_password\13
  92. #
  93. # we are now logged in
  94. #
  95. # wait for the address string
  96. #
  97. input 30 to
  98. #
  99. # parse address
  100. #
  101. address 30
  102. #
  103. # we are now connected, logged in and in slip mode.
  104. #
  105. display \n
  106. display Connected.  Your IP address is \i.\n
  107. online
  108.