home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / fido / spot / rexx / pgp / _import.spot < prev    next >
Text File  |  1994-07-27  |  1KB  |  41 lines
  1. /***************************************************************************/
  2. /* Import.rexx   ©1993 Stu Churchill   2:250/107.97@fidonet                */
  3. /*                                                                         */
  4. /* $VER: Import.rexx 1.29 (5.9.93)                                         */
  5. /*                                                                         */
  6. /* Intended for use from a script called by TrapDoor's AFTERSESSION        */
  7. /***************************************************************************/
  8.  
  9. options results
  10.  
  11. spot_path = 'run mail:Spot'  /* Change this line ONLY */
  12.  
  13.  
  14. if ~show('ports','SPOT') then do
  15.   address command spot_path
  16.   'WaitForPort SPOT'
  17.   quit = yes                  /* Marker to close SPOT after finishing */
  18. end
  19.  
  20. address 'SPOT'
  21. 'isiconified'
  22. if rc = 0 then do
  23.   icon = yes                  /* Marker to re-iconify after finishing */
  24.   'uniconify'
  25. end
  26. 'spot2front'
  27.  
  28. 'import CLOSEWIN'             /* Import messages */
  29.  
  30. ADDRESS COMMAND "RX rexx:AutoDecrypt.spot" /* Call the autodecrypt script. */
  31.  
  32. if icon = yes then do
  33.   'iconify NOREQ'             /* Re-iconify if necessary */
  34. end
  35.  
  36. if quit = yes then do
  37.   'quitspot NOREQ'            /* Close SPOT if we had to open it ourselves */
  38. end
  39.  
  40. exit
  41.