home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / MXP001.ZIP / PACK.CMD < prev   
OS/2 REXX Batch file  |  1990-11-27  |  639b  |  39 lines
  1. @echo off
  2.  
  3. rem
  4. rem   Parameters passed on to this Batch file by MX:
  5. rem
  6. rem     %1      Hotkey command used to select the desired file
  7. rem             compression program.
  8. rem
  9. rem     %2      Full path and file name of the would-be compressed mail
  10. rem             bundle.
  11. rem
  12. rem     %3      Full path and file name of the message text file constructed
  13. rem             by MX.
  14. rem
  15.  
  16.  
  17. if "%1" == "A" goto PACK_ARC
  18. if "%1" == "Z" goto PACK_ZIP
  19. if "%1" == "L" goto PACK_LZH
  20.  
  21. goto END
  22.  
  23. :PACK_ARC
  24.  
  25.   arc2 -a %2 %3
  26.   goto END
  27.  
  28. :PACK_ZIP
  29.  
  30.   pkzip2 -a %2 %3
  31.   goto END
  32.  
  33. :PACK_LZH
  34.  
  35.   lh a %2 %3
  36.   goto END
  37.  
  38. :END
  39.