home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / protocol / resend.os2 < prev    next >
Text File  |  2020-01-01  |  1KB  |  69 lines
  1. ; Ask for username and password.
  2. ; This happens only once.
  3. ;
  4. ask \%u { username: }
  5. askq \%p { \%u's password: }
  6. ;
  7. ; Settings for entire session.
  8. ;
  9. define \%s 20           ; Seconds to pause between each try
  10. set modem hayes         ; Modem type
  11. set port com1           ; Communication port
  12. set speed 19200         ; Speed
  13. set input echo on
  14. set file type binary    ; Binary-mode file transfer
  15. set count 10            ; Try up to 10 times
  16. goto nomsg              ; Skip message the first time
  17.  
  18. :LOOP
  19. hangup
  20. echo CONNECTION BROKEN.
  21. echo Pausing for \%s seconds...
  22. sleep \%s
  23. Echo redialing...
  24. set input timeout proceed
  25.  
  26. :NOMSG
  27. dial T[CUNIX]           ; Dial the number
  28. if fail goto again      ; Keep trying...
  29. ; ======
  30. :TS
  31. def \%c 15
  32. output \13 
  33. input 1 >
  34. if success goto OK
  35. decrement \%c
  36. write screen { [\%c]}
  37. if > \%c 0 goto TS
  38. stop 1 Can't wake up terminal server
  39. :OK
  40. set flow xon/xoff
  41. output rlogin watsun\13
  42. ; ======
  43. ;; output \13              ; ...
  44. set input timeout quit
  45. input 15 login:
  46. output \%u\13
  47. input 8 Password:
  48. output \%p\13
  49. input 60 {$ }
  50. cd /temp
  51. output cd temp\13
  52. input 8 {$ }
  53. out ww -r\13
  54. input 10 KERMIT READY
  55. pause 1
  56. resend msvibm.zip
  57. if success goto done
  58. :AGAIN
  59. if count goto loop
  60. echo Too many tries, giving up.
  61. stop 1
  62. :DONE
  63. echo File transferred successfully
  64. output exit\13
  65. pause 5
  66. hangup
  67. stop 0
  68.  
  69.