home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Fido / Spot / Rexx / COP.spot < prev    next >
Text File  |  1994-07-27  |  3KB  |  60 lines
  1. /**************************************************************/
  2. /*                      *CLOSE OF PLAY*                       */
  3. /*------------------------------------------------------------*/
  4. /*               $VER: COP.spot 1.1  (27-7-94)                */
  5. /*                  Brett Lappan (Fu Lee)                     */
  6. /* Spot #480 @ FidoNet 3:640/944.1 & brett@fulink.edex.edu.au */
  7. /* ---------------------------------------------------------- */
  8. /* This script is ment to be run after you have finished all  */
  9. /* your mail and want all un-read messages cleared in ALL     */
  10. /* areas, all replies exported and basiclly everything is     */
  11. /* cleaned up and compressed! U can also leave Spot iconified */
  12. /* at the end so if you run a cron to get your mail the Spot  */
  13. /* port is left open to alow unpacking of your mail.          */
  14. /* --------------- But what does it do? --------------------- */
  15. /*  Unmarks All unread messages in ALL areas!                */
  16. /*  Exports all mail!                                        */
  17. /*  Maintenance      (Remember this deletes things guy's!!!) */
  18. /*  Optimize         (Squishes all em' messages!)            */
  19. /*  Saves settings   (Incase you forget to save it yourself) */
  20. /*  Quits/Iconifies. (leaving the port open, u must set this)*/
  21. /*  More to come.... (Please send any suggestions)           */
  22. /*------------------------------------------------------------*/
  23. /* USE THIS SCRIPT AT YOUR OWN RISE, REMEMBER IT DELETES MSG'S*/
  24. /**************************************************************/
  25.  
  26. address spot
  27. options results
  28.  
  29.   'requestresponse TITLE " Close of Play " PROMPT 'Continue?''
  30.  
  31. if rc = 5 then
  32.      exit
  33.  
  34.     'unreadarea'
  35.  
  36. do until rc = 2
  37.    'messagelist'
  38.    'excludeflag ALL'
  39.    'includeflag UNREAD'
  40.    'clearflags UNREAD'
  41.    'excludeflag ALL'
  42.    'unreadarea'
  43.  end
  44.  
  45.    'arealist'
  46.    'export CLOSEWIN'
  47.    'maintenance NOREQ CLOSEWIN' /* Note: Deletes msg's            */
  48.    'optimize NOREQ CLOSEWIN'
  49.    'savesettings NOREQ'            /* Saves config if you forgot!    */
  50.    'iconify NOREQ'              /* iconifies [or quits] of course!*/
  51.  
  52. /******************************************************************/
  53. /* replace 'iconify NOREQ' with 'quitspot NOREQ' to quit spot     */
  54. /* -------------------------------------------------------------- */
  55. /* To come, a requester asking if u would like maint. or optimize */
  56. /* skipped at the begining instead of just asking to continue...  */
  57. /*                                              Regards Brett     */
  58. /******************************************************************/
  59. exit
  60.