home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / p / pgp / Scripts / PGPencrypt < prev    next >
Text File  |  1994-05-18  |  891b  |  39 lines
  1. #Script PGP: sign and encrypt posting
  2. # For ReadNews version 0.3
  3. #
  4. # Doesn't matter where you put the pgppath error test, the dialogue box
  5. # pops up.  Aaarrrgh!
  6. #IF "<pgppath>" = ""
  7. #Error   Cannot encrypt posting:   !PGP application has not been seen by the filer
  8. #ENDIF
  9. #arg Posting:
  10. #arg Encrypt to:
  11. #Args
  12. #IF "%0%"=""
  13. #Error Please drag a posting onto the field
  14. #EndIf
  15. #IF "%1%"=""
  16. #Error You must specify at least one user ID for encryption
  17. #EndIf
  18. #os copy %0% <ReadNews$TempDir>.msg ~c~v
  19. #
  20. #OS set RN$pgp_encrypt_to ""
  21. #repeat
  22. #OS seteval RN$pgp_encrypt_to RN$pgp_encrypt_to + " ""%1%"" "
  23. #shift 1
  24. #until "%1%"=""
  25. #
  26. #os Dir <ReadNews$TempDir>
  27. #task split_msg
  28. #OS set alias$RN_pgp_do "pgp -seat msg/txt <RN$pgp_encrypt_to>"
  29. #task RN_pgp_do
  30. #output post
  31. #include msg/hdr
  32. #include msg/asc
  33. #os remove msg/hdr
  34. #os remove msg/txt
  35. #os remove msg/asc
  36. #os remove msg
  37. #os remove RNTemp
  38. #os Back
  39.