home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / StrICQ / Src / rexx / PreParsePGP.rexx < prev    next >
OS/2 REXX Batch file  |  1999-04-11  |  639b  |  38 lines
  1. /*
  2.  
  3.   PreParsePGP.rexx - A simple example of how to encrypt messages with PGP
  4.  
  5.   $VER: PreParsePGP.rexx v1.0 11.04.99 Copyright (C) 1999 Douglas F. McLaughlin
  6.  
  7.   Written By: Douglas F. McLaughlin 
  8.  
  9.   Note: Permission is granted to use this script in any form or make any modifications
  10.         as necessary.
  11.  
  12. */
  13.  
  14. in = 'in'
  15.  
  16. parse arg uin type file .
  17.  
  18. address STRICQ.1
  19.  
  20. getcontact 'UIN='uin 'VAR=USER'
  21.  
  22. address command
  23.  
  24. if type = 1 then do
  25.   say 'c:pgpe -r 'user.email' -at 'file
  26.   'c:pgpe -r 'user.email' -at 'file
  27.   call delete(file)
  28.   file = file'.asc'
  29. end
  30.  
  31. address STRICQ.1
  32.  
  33. sendmessage 'UIN='uin 'FILE='file
  34.  
  35. call delete(file)
  36.  
  37. exit(0)
  38.