home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / fido / spot / rexx / pgp / addpgpkey.spot < prev    next >
Text File  |  1994-07-06  |  1KB  |  41 lines
  1. /* AddPGPKey.spot Version 1.0 © 1994 by Chris Dee                           */
  2. /*   (Based on Encrypt.spot Version 1.2 © 1993 by Wim Van Goethem)          */
  3. /*                                                                          */
  4. /* This Arexx script will add the (public) PGP key (if any) that is in the  */
  5. /* current message when this script is selected. This script uses PGP which */
  6. /* has been ported to the Amiga by Peter Simons.                            */
  7. /*                                                                          */
  8. /* For comments, remarks, bugs, etc. contact:                               */
  9. /* Fidonet: 2:286/407.34 (Chris Dee)                                        */
  10. /* Internet: cd@grafix.wlink.nl                                             */
  11.  
  12. /* Path were you keep PGP (must end on "/" or ":" or be empty) */
  13. PGPpath = "Mail:Bin/"
  14.  
  15. address spot
  16. options results
  17.  
  18. if ~show(Libraries,'rexxsupport.library') then
  19.     if ~addlib("rexxsupport.library",0,-30,0) then exit
  20.  
  21. 'saveascii TO T:pgptemp_a OVERWRITE NOTEARLINE NOORIGIN NOKLUDGES' /* Save the msg */
  22.  
  23. /* Add PGP key (if any) */
  24. options failat 100
  25. address command PGPpath'PGP -ka T:pgptemp_a'
  26. if rc ~= 0 then do
  27.     foo = delete('T:pgptemp_a')
  28.     say ""
  29.     say ""
  30.     say "Please close window to quit."
  31.     exit
  32.     end
  33.  
  34. foo = delete('T:pgptemp_a')
  35.  
  36. /* Quit */
  37. say ""
  38. say ""
  39. say "Please close window to quit."
  40. exit
  41.