home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qns311.zip / Q-FINISH.SCR < prev    next >
Text File  |  1991-02-19  |  1KB  |  27 lines
  1. ;┌──────────────────────────────────────────────────────────────────────────┐
  2. ;│ Q-FINISH.SCR       Copyright 1988-1991 by Rik Brown                      │
  3. ;│                                                                          │
  4. ;│                    Clean up after mail run                               │
  5. ;└──────────────────────────────────────────────────────────────────────────┘
  6.  
  7.   EXIST $maildir\SUCCESS.RCV MAILDL_OK
  8.     DOS "if exist $maildir\$mailDL del $maildir\$mailDL"
  9. ;   Delete partial mail download that may unpack w/o message pointer reset
  10.  
  11.   GOTO MAILDL_CLEANUP
  12.  
  13. MAILDL_OK:
  14.  
  15.   DOS "if exist $maildir\SUCCESS.RCV $maildate"  ; <- OPTIONAL
  16.  
  17. ; This runs QTIME.EXE which creates a PCB NEWS(G) informing users when the
  18. ; last mail transfer was made. No batch file is supplied so you may wish
  19. ; to delete the above DOS command from your script!
  20.  
  21. MAILDL_CLEANUP:
  22.  
  23.   DOS "if exist $maildir\success.* del $maildir\success.*"
  24. ; Clear success indicators for the next time the script is run.
  25.  
  26. SYSTEM Y                              ; Return to DOS and continue EVENT
  27.