home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / WLAX / ROBO42-A.ZIP / MEGAMAIL.RS < prev    next >
Text File  |  1992-07-23  |  2KB  |  51 lines
  1. ;-----------------------------------------------------------------------
  2. ; MEGAMAIL.RS -- Send/Get MegaMail using internal Zmodem
  3. ;.......................................................................
  4. ; Author:   Dan Parsons
  5. ; Version:  1.0
  6. ; Date:     04/27/92
  7. ;
  8. ; Notes:    This script expects to find a .UL file in the configured
  9. ;           REP dir with the name <BBSID>.UL.  For example, on Group
  10. ;           One BBS, the script would look for GROUPONE.UL in the
  11. ;           configured REP file directory.
  12. ;
  13. ;           Incoming .DL files will be re-numbered appropriately, and
  14. ;           placed in your configured QWK (incoming mail) directory.
  15. ;
  16. ;-----------------------------------------------------------------------
  17. TITLE "MegaMail Mail Run (Internal Zmodem)"
  18. PARAMETER 1 "MegaMail door to open"
  19. ENDPARAMS
  20.  
  21.     ; May need to be increased for slow boards or lots of mail
  22.     TIMEOUT 240
  23.  
  24.     ; Make sure we have a .UL file
  25.     IF NOT EXIST "%REPDIR%%ID%.UL" GOTO NO_UL_FILE
  26.  
  27.     VENUE MAIN
  28.     SEND "OPEN %P1%|"
  29.  
  30.     ; Send the outgoing mail
  31.     WAITFOR "*"
  32.     MESSAGE "Sending %REPDIR%%ID%.UL reply packet"
  33.     UPLOAD "%REPDIR%%ID%.UL" USING "ZMODEM"
  34.     RENUMBER "%REPDIR%%ID%.UL"
  35.  
  36.     ; Get the incoming mail
  37.     MESSAGE "Receiving %QWKDIR%%ID%.DL message packet"
  38.     IF EXIST "%QWKDIR%%ID%.DL" RENUMBER "%QWKDIR%%ID%.DL"
  39.     WAITFOR "*"
  40.     DOWNLOAD "%QWKDIR%%ID%.DL" USING "ZMODEM"
  41.  
  42.     ; Wait until we get back to the main board to return
  43.     VENUE MAIN
  44.  
  45. EXIT 0
  46.  
  47. :NO_UL_FILE
  48.     MESSAGE "No .UL file found.  I'm looking for: %REPDIR%%ID%.UL"
  49. EXIT 1
  50.  
  51.