home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / ad109f66.zip / extractdiz.cmd < prev    next >
OS/2 REXX Batch file  |  1996-02-15  |  2KB  |  83 lines
  1. @echo off
  2. REM /////////////////////////////////////////////
  3. REM This is a sample ExtractDIZ.Cmd for AdeptXBBS
  4. REM /////////////////////////////////////////////
  5.  
  6. REM /////////////////////////////////////////////
  7. REM It will check for a FILE_ID.DIZ in arch.files
  8. REM and extract, rename it, and return to the BBS
  9. REM /////////////////////////////////////////////
  10.  
  11. REM //////////////////////////////////////////
  12. REM Command line parms are as follows:
  13. REM %1 = Complete filename to work on
  14. REM %2 = Line number
  15. REM %3 = Com port file handle
  16. REM %4 = Just filename (no path, no extension)
  17. REM %5 = Just extension
  18. REM %6 = Just Drive:Path
  19. REM //////////////////////////////////////////
  20.  
  21. REM /////////////////////////////////////////////
  22. REM 02/15/96
  23. REM Adept now looks for the description to be in
  24. REM the file called: Filename.Ext.Description
  25. REM instead of Filename.Description
  26. REM /////////////////////////////////////////////
  27.  
  28. CD \Adept\System\Line%2
  29.  
  30. REM ////////////////////////
  31. REM add more lines for more
  32. REM archive types..
  33. REM ////////////////////////
  34. IF %5==ARC GOTO ARC
  35. IF %5==ARJ GOTO ARJ
  36. IF %5==LZH GOTO LZH
  37. IF %5==RAR GOTO RAR
  38. IF %5==ZIP GOTO ZIP
  39. IF %5==ZOO GOTO ZOO
  40.  
  41. GOTO End
  42.  
  43. :ARC
  44. ARC e %1 FILE_ID.DIZ
  45. IF EXIST FILE_ID.DIZ REN FILE_ID.DIZ %4.%5.Description
  46.    ELSE GOTO NONE
  47. CD \Adept
  48.  
  49. :ARJ
  50. UNARJ E %1 FILE_ID.DIZ
  51. IF EXIST FILE_ID.DIZ REN FILE_ID.DIZ %4.%5.Description
  52.    ELSE GOTO NONE
  53. CD \Adept
  54.  
  55. :LZH
  56. LH X %1 FILE_ID.DIZ
  57. IF EXIST FILE_ID.DIZ REN FILE_ID.DIZ %4.%5.Description
  58.    ELSE GOTO NONE
  59. CD \Adept
  60.  
  61. :RAR
  62. RAR e -y %1 FILE_ID.DIZ
  63. IF EXIST FILE_ID.DIZ REN FILE_ID.DIZ %4.%5.Description
  64.    ELSE GOTO NONE
  65. CD \Adept
  66.  
  67. :ZIP
  68. UNZIP -oC %1 FILE_ID.DIZ
  69. IF EXIST FILE_ID.DIZ REN FILE_ID.DIZ %4.%5.Description
  70.    ELSE GOTO NONE
  71. CD \Adept
  72.  
  73. :ZOO
  74. ZOO -extract %1 FILE_ID.DIZ
  75. IF EXIST FILE_ID.DIZ REN FILE_ID.DIZ %4.%5.Description
  76.    ELSE GOTO NONE
  77. CD \Adept
  78.  
  79. :NONE
  80. CD \Adept
  81.  
  82. :End
  83.