TEXT   20

compusrsv

Guest on 23rd August 2022 03:44:14 AM

  1. count 5
  2. loop:
  3.     if !count
  4.         hangup
  5.         display "^M^JAborting Script, Maximum count exceeded^M^J"
  6.         abort
  7.     endif
  8.     expect 10 "CONNECT"
  9.     if !expect
  10.         hangup
  11.         redial
  12.         goto loop
  13.     endif
  14. sleep 2
  15. # Transmit a Control-C (^C) to CompuServe, and then wait for the
  16. # prompt "User ID:".  If this is not seen in 10 seconds, we try again.
  17. output "^C"
  18. cis:
  19.     expect 10 "User ID:"
  20.     if !expect
  21.         goto cis
  22.     endif
  23.  
  24. # Transmit the user id string (remember the ^M at the end for ENTER)...
  25.  
  26.     output "xxxxx,xxxx^M"
  27.  
  28. # Wait for CompuServe to ask for a password...
  29.  
  30.     expect 10 "Password:"
  31.  
  32. # Transmit our password
  33. # (You don't think for a moment that this is my REAL password, do you?????)
  34.  
  35.     output "xxxxxx.xxxxx^M"
  36.  
  37. # Wait for CompuServe header,
  38.     expect 10 "Compuserve"
  39. 

Raw Paste


Login or Register to edit or fork this paste. It's free.