home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / on-line / yam2.1 / rexx / archiver.yam next >
Encoding:
Text File  |  2000-04-19  |  864 b   |  21 lines
  1. /* Archiver.yam - Creates packed attachments                            */
  2. /* $VER: Archiver.yam 1.0 (21.01.00) © 2000 by M.Beck <mbeck@yam.ch>    */
  3. /* This archiver scripts looks at the archive filename extension and    */
  4. /* automatically selects the appropriate archiver program. For example, */
  5. /* if you enter "test.lzx", the script will pack the files using LZX    */
  6. /* instead of LHA. Installation: Go to YAM/Config/Misc and set the      */
  7. /* option Archiver to "rx archiver.yam %a %f".                          */
  8.  
  9. PARSE ARG arcname' 'filelist
  10. ext = UPPER(RIGHT(arcname,4))
  11. SELECT
  12.    WHEN ext = '.ZIP' THEN cmd = 'ZIP 'arcname filelist
  13.    WHEN ext = '.LZX' THEN cmd = 'LZX -a a 'arcname filelist
  14.    WHEN ext = '.LHA' THEN cmd = 'LhA -a -m a 'arcname filelist
  15.    OTHERWISE              cmd = 'LhA -a -m a 'arcname filelist
  16. END
  17. ADDRESS COMMAND cmd
  18. EXIT
  19.  
  20.  
  21.