home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / os2 / pgprex12.arj / PGPREXX.ZIP / PGPexec.CMD < prev    next >
Encoding:
Text File  |  1996-07-25  |  764 b   |  26 lines
  1. /* REXX Program PGPexec.CMD
  2.    used to execute PGP and write the result code to a log file
  3. */
  4. parse ARG PGPoptions PGPparams
  5.  
  6. PGPpath = VALUE('PGPPATH',,'OS2ENVIRONMENT')
  7. If (Length(PGPpath)> 0) & (RIGHT(PGPpath,1) \= '\') then
  8.    PGPpath = PGPpath || '\'
  9. ExecString = PGPpath||'PGP.EXE'
  10.  
  11.  
  12. address cmd ExecString||' '||PGPoptions||' '||PGPparams
  13.  
  14.  
  15. /* Do logging ---------------------------------------------- */
  16. Erfolg = RC
  17.  
  18. Tab = '09'x
  19. PARSE SOURCE BetrSyst Shell MyName
  20. MyDir = FILESPEC("Drive",MyName)||FILESPEC("Path",MyName)
  21. LogFile = MyDir||'PGPREXX.LOG'
  22. Erg = STREAM(LogFile,'C','OPEN WRITE')
  23. Erg = LINEOUT(LogFile,Date('O')||' '||Time()||Tab||'>>>'||Tab||MsgId||Tab||Erfolg||Tab||PGPparams)
  24. Erg = STREAM(LogFile,'C','CLOSE')
  25. EXIT
  26.