home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / os2 / pgpmr102.arj / PGPMR2.ZIP / msgutil.cmd next >
Encoding:
Text File  |  1996-08-13  |  1.1 KB  |  54 lines
  1. /*
  2.     MR/2 ICE - MSGUTIL.CMD
  3.  
  4.     Copyright (c) 1996, Nick Knight
  5.     All Rights Reserved.
  6.  
  7.     Author:     Nick Knight
  8.     Created:    03/03/96
  9.     Usage:        msgutil subcommand MessageFile
  10.     Purpose:    msgutil.cmd allows for special processing of message
  11.                 files.    It is called from within MR/2 ICE, passed a
  12.                 subcommand based on the Fkey used to invoke it (F1 == 1,
  13.                 F12 = 12) and the current message file name.
  14.     US Mail:    Nick Knight, PO Box 22366, Beachwood, Ohio 44122
  15.     Fidonet:    1:157/2 or 1:/157/200
  16.     Internet:    nick@secant.com
  17.     Compuserve: 76066,1240
  18.     BBS:        Private messages on Nerd's Nook (216) 356-1772 or 1872
  19. */
  20.  
  21. subcommand = 0
  22.  
  23. '@echo off'
  24. parse arg subcommand msg_filename
  25.  
  26. if (subcommand == 1) then call run
  27. if (subcommand == 2) then call edit
  28. if (subcommand == 3) then call out
  29. 'exit'
  30. return 0            
  31.  
  32. run:
  33. CURDIR=DIRECTORY()
  34. zz=rxqueue('create','rx2')
  35. /* call pgpmr2.hide */
  36. 'start /win /I /C /F testCMD.cmd '||curdir msg_filename
  37. lin=''
  38. zz=rxqueue('set','rx2')
  39. do until queued()>0
  40. call syssleep 1
  41. end
  42. lin=linein('queue:')
  43. zz=rxqueue('distroy','rx2')
  44. return
  45.  
  46. edit:
  47. 'epm' msg_filename
  48. return
  49.  
  50. out:
  51. 'mr2i /Qtest.out'
  52. pause
  53. return
  54.