home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / ISP / SCRPTLST / SCRUZNET.CMD < prev    next >
Encoding:
Text File  |  1996-03-05  |  3.2 KB  |  176 lines
  1. #        Login.cmd for Scruz-Net
  2. #
  3. #    ***     WARNING: YOU MUST DELETE EVERYTHING ABOVE THIS LINE!!     ***
  4. #    ***     Note: You may also need to delete lines from the end of   ***
  5. #    ***           this file                                           ***
  6. ##############################################################################
  7. #
  8. # login.cmd v95.9.28
  9. # Neil Magedman <neil@scruz.net>
  10. # Based loosely on the login.cmd that comes with the standard
  11. # twsk20b.zip package
  12. # 
  13. #
  14.  
  15.  
  16. ###
  17. # Constants
  18. ###
  19.  
  20. $userprompt = "ogin:"
  21. $passprompt = "ssword:"
  22. $your_address_is = "to "
  23.  
  24.  
  25. ###
  26. # Check for first timers...
  27. ###
  28. if ![load $setup_run]
  29.   display \n\nYou must first run the setup script, Dialler|setup.cmd.\n
  30.   display (Go to the "Dialler" menu and select "setup.cmd")\n
  31.   abort
  32. end
  33.  
  34.  
  35.  
  36. ###
  37. # set up some connection variables
  38. ###
  39.  
  40. if (![load $phone_number]) | ($phone_number = "")
  41.   query $phone_number Enter the number to dial
  42. end
  43.  
  44. if (![load $username]) | ($username = "")
  45.   username "Enter your login username"
  46. end
  47.  
  48. if (![load $password]) | ($password = ""
  49. )
  50.   password "Enter your login password"
  51. end
  52.  
  53. if ![load $modeminit]
  54.   $modeminit = "at"
  55. end
  56.  
  57. if ![load %attempts]
  58.   %attempts = 10
  59. end
  60.  
  61.  
  62.  
  63. ###
  64. # Reset (and test) modem
  65. ###
  66.  
  67. output "atz"\r
  68. if ! [input 10 OK\n]
  69.   display "Modem is not responding"\n
  70.   abort
  71. end
  72.  
  73.  
  74.  
  75. ###
  76. # Send initialization string
  77. ###
  78.  
  79. output $modeminit\r
  80. input 10 OK\n
  81.  
  82.  
  83.  
  84. ###
  85. # redial until connected
  86. ###
  87.  
  88. %n = 1
  89. repeat
  90.  
  91.   if %n > %attempts
  92.     display \n\n
  93.     display *** Scruznet maintains a no busy signal policy.\n
  94.     display *** If you are receiving busy signals, please notify Scruznet.\n\n
  95.     abort
  96.   end
  97.  
  98.   # Dial
  99.   display Cycle %n:\n
  100.   if %n > 1
  101.     sleep 3
  102.   end
  103.   outputecho 40 "atdt"$phone_number\r
  104.   read 60 $modem_response
  105.  
  106.   %n = %n + 1
  107. until pos("CONNECT", $modem_response)
  108.  
  109.  
  110.  
  111. ###
  112. # Log in
  113. ###
  114.  
  115. wait 30 dcd             # wait for connection to stabilize
  116. %logged_in = 0          # boolean - are we in?
  117. %failed_logins = 0      # counter - abort after three 
  118. repeat
  119.  
  120.   input 30 $userprompt
  121.   output $username\r
  122.   input 30 $passprompt
  123.   output 
  124. $password
  125.   outputecho \r
  126.  
  127.  
  128.   if [expect 10 "Invalid Login"]
  129.     %failed_logins = %failed_logins + 1
  130.     if %failed_logins = 3
  131.       display \n\n\n\7\7\7*** Wrong name and/or password.  Aborting! ***\n\n\n
  132.       set dtr off
  133.       abort
  134.     end
  135.     repeat
  136.       username "Enter your login username"
  137.     until $username <> ""
  138.     repeat
  139.       password "Enter your login password"
  140.     until $password <> ""
  141.  
  142.   else
  143.     %logged_in = 1
  144.   end
  145.  
  146. until %logged_in
  147.  
  148.  
  149.  
  150. ###
  151. # we are now logged in!!  Yippy Skippy!
  152. # Establish slip/ppp mode
  153. ###
  154.  
  155. if ! %ppp
  156.   input 30 $your_address_is
  157.   address 30
  158. end
  159.  
  160. input 30 begin
  161. online
  162.  
  163.  
  164. display \n\n\7\7\7
  165. display ***************************************************************\n
  166. display Connection established!  You may now run your winsock programs.\n
  167. display ***************************************************************\n\n
  168.  
  169.  
  170. ###
  171. # fin
  172. ###
  173.  
  174.  
  175. ###########################################################################
  176. #    ***     WARNING: YOU MUST DELETE EVERYTHING BELOW THIS LINE!!     ***#