home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magic 1995 #1 / CDM_5.ISO / shell / mailers / im / imscript.arj / RIME.SCR
Encoding:
Text File  |  1991-07-31  |  4.3 KB  |  96 lines
  1. ;             InterMail 2.01 (C) 1991 InterZone Software, Inc.
  2. ;
  3. ; Script by Peter Stewart                                     Rev.7-31-91
  4. ; Documentation by Michele Hamilton-Stewart
  5. ;
  6. ; The following script is used at SunShine PCBoard to make a RIME mail
  7. ; run to my local hub using InterMail. Search for the 3 asterisks in the
  8. ; far right and enter the information specific for your needs.
  9. ; Any portion of the script may be customized more fully. If the hub you
  10. ; are calling has language modules or other opening prompts which differ
  11. ; from those shown, change them appropriately in the LOGON Section.
  12. ;
  13. ; *-------------------------------------------------------------------------
  14. ;                          CONNECT Section
  15. ; Debug is on to see what's happening. Change the port settings should they
  16. ; differ for you. Timeout is set for 300 seconds to insure that the wait
  17. ; while your hub processes mail for you isn't cut off too soon. Waits and
  18. ; retrys can be increased or decreased according to your own needs.
  19. ;
  20. ; Note that many modems also have inactivity timeout settings and that you
  21. ; will have to make sure that the modem doesn't time out before the script
  22. ; does.
  23. ; *-------------------------------------------------------------------------
  24.  
  25. debug on                   ; We want to see what's happening
  26. setport 19200 8 1 NONE     ; Set the port to correct settings
  27. timerset 300               ; Set timeouts to 300 seconds
  28.  
  29. clearcount                 ; clear the retry count
  30.  
  31. :dialup                    ; label for dial portion of script
  32. retrycount 20              ; we only want to make 20? attempts
  33. dial XXX-XXXX<CR>          ; Enter Phone number to Dial                   ***
  34.  
  35. case
  36.  "CONNECT 9600"  : >firstlogon  ; if we get connect at the correct speed, logon
  37.   VOICE          : fail         ; script fails if phone has been disconnected
  38.   BUSY           : wait 10      ; try again after 10 seconds
  39.   "NO DIAL TONE" : wait 10      ; try again after 10 seconds
  40.   "NO CARRIER"   : wait 5       ; try again after 5 seconds
  41.   RING<CR>       : wait 5       ;      - " -      5  - " -
  42. endcase
  43.  
  44. >dialup              ; go and try dialing again
  45.  
  46. :firstlogon          ; enter logon loop here
  47. clearcount           ; clear the retry count
  48.  
  49. :logon               ; enter here subsequent times
  50. retrycount 30        ; we only want to loop max 30 times
  51.  
  52. ; *-------------------------------------------------------------------------
  53. ;                              LOGON Section
  54. ; Add or change the prompts as necessary. To increase speed I decline
  55. ; graphics and quickly bypass the news, etc.
  56. ; Enter your NAME, PASSWORD and the Door number for the HUB software where
  57. ; appropriate. They should read "send first last<cr>" without the quotes, etc.
  58. ; *-------------------------------------------------------------------------
  59.  
  60. CASE
  61.   "want COLOR graphics (Enter)=no? " : send n q ns<CR>
  62.   "What is your first name? "        : send xxxx<cr>   ; Enter your logon name
  63.   "s will echo)? "                   : send xxxx<cr>   ; Enter your password
  64.   "(Enter)=yes? "                    : send n<cr>
  65.   "min. left) Main Board Command? "  : send op xx<cr>  ; Enter Door # to open
  66.   รจ                                  : >xfer
  67.   @nocarrier                         : fail
  68. ENDCASE
  69. >logon
  70.  
  71. ; *-------------------------------------------------------------------------
  72. ;                              TRANSFER Section
  73. ; Make sure that your Upload directory and filename are correct. This should
  74. ; correspond with where you tell PCRelay's config to place the exported mail.
  75. ; Additionally, make sure the path is correct as to where you want the
  76. ; incoming mail to go.
  77. ; *-------------------------------------------------------------------------
  78.  
  79. :xfer
  80.  
  81. Upload Z e:\im\sunshine.rly         ; Enter pathname for send file    ***
  82. ifbad >failit                       ; if we fail it's a bad session
  83.  
  84. Waitfor **                          ; we have a file coming in
  85. Download Z e:\im                    ; Enter path for IN.RLY           ***
  86. ifbad >failit                       ; if transfer fails, it's bad
  87.  
  88. sessionok                           ; log successful session
  89. >endscript
  90.  
  91. :failit                             ; label for failed transfer...
  92. sessionfail
  93.  
  94. :endscript                          ; we're at the end now...
  95.  
  96.