home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ZLAB_19C.ZIP / GIFT4B10.ZIP / PRO-P.BAT < prev    next >
Encoding:
DOS Batch File  |  1992-01-17  |  2.6 KB  |  134 lines
  1. @echo off
  2. echo off
  3. rem -- pro-p.bat - process "repack" archive request - for ProDOOR 3.4
  4. rem -- %1-resultfile, %2 sourcefile, %3 destfile, %4 playpen
  5.  
  6. rem verify proper command line
  7. if .%4 == . goto usage
  8. if .%5 == . goto pars_ok
  9.  
  10. :usage
  11. echo ERROR! PRO-P.BAT CALLED WITH IMPROPER COMMAND-LINE.
  12. echo P0=%0 P1=%1 P2=%2 P3=%3 P4=%4 P5=%5 >>%1
  13. goto end
  14.  
  15. :pars_ok
  16. rem verify that destination format is known
  17. testfile %3 arc zip pak lzh zoo arj
  18. if errorlevel == 98 goto dest_error
  19. if errorlevel == 6 goto destok
  20. if errorlevel == 5 goto destok
  21. if errorlevel == 4 goto destok
  22. if errorlevel == 3 goto destok
  23. if errorlevel == 2 goto destok
  24. if errorlevel == 1 goto destok
  25. goto dest_error
  26.  
  27. :destok
  28. rem verify that the playpen is empty; clean it out if needed
  29. if not exist %4\*.* goto emptyplay
  30. echo Y|del %4 >nul
  31.  
  32. :emptyplay
  33. rem unpack file according to source format
  34. testfile %2 arc zip pak lzh zoo
  35. if errorlevel == 98 goto cant_handle
  36. if errorlevel == 5 goto zoo
  37. if errorlevel == 4 goto lzh
  38. if errorlevel == 3 goto pak
  39. if errorlevel == 2 goto zip
  40. if errorlevel == 1 goto arc
  41. goto cant_handle
  42.  
  43. :zoo
  44. zoo -extract >>%1 %2 %4
  45. goto repack
  46.  
  47. :arc
  48. pkunpak >>%1 %2 %4
  49. goto repack
  50.  
  51. :zip
  52. pkunzip >>%1 %2 %4
  53. goto repack
  54.  
  55. :pak
  56. pak e >>%1 %2 %4
  57. goto repack
  58.  
  59. :lzh
  60. lharc e /v >>%1 %2 %4\
  61. goto repack
  62.  
  63. :repack
  64. if errorlevel 1 goto unpack_error
  65.  
  66. rem file is unpacked, now repack in destination format
  67. testfile %3 arc zip pak lzh zoo arj
  68. if errorlevel == 98 goto dest_error
  69. if errorlevel == 6 goto toarj
  70. if errorlevel == 5 goto tozoo
  71. if errorlevel == 4 goto tolzh
  72. if errorlevel == 3 goto topak
  73. if errorlevel == 2 goto tozip
  74. if errorlevel == 1 goto toarc
  75. goto cant_handle
  76.  
  77. :tozoo
  78. zoo -move >>%1 %3 %4\*
  79. goto done
  80.  
  81. :toarc
  82. pkpakjr -m >>%1 %3 %4\*.*
  83. goto done
  84.  
  85. :tozip
  86. pkzip -m -es >>%1 %3 %4\*.*
  87. goto done
  88.  
  89. :toarj
  90. arj m %3 %4\*.* >> %1
  91. goto done
  92.  
  93. :topak
  94. pak m >>%1 %3 %4\*.*
  95. goto done
  96.  
  97. :tolzh
  98. lha m /v >>%1 %3 %4\*.*
  99. goto done
  100.  
  101. :done
  102. if errorlevel 1 goto pack_error
  103. echo. >>%1
  104. echo %3 created.  Download it before leaving ProDoor. >>%1
  105.  
  106. rem -- remove source file if it has the same name as destination
  107. rem -- (usually happens when repacking ZIPM packets)
  108. prosm /chkpath -N %2 %3
  109. if errorlevel 1 goto end
  110. del %2
  111. goto end
  112.  
  113. :dest_error
  114. echo Sorry, %0 does not know how to create %3 ! >>%1
  115. goto end
  116.  
  117. :cant_handle
  118. echo Sorry, %0 does not know how to process %2 ! >>%1
  119. goto end
  120.  
  121. :pack_error
  122. echo Y|del %4 >nul
  123. echo. >>%1
  124. echo %0: Error creating %3. >>%1
  125. goto end
  126.  
  127. :unpack_error
  128. echo Y|del %4 >nul
  129. echo. >>%1
  130. echo %0: Error unpacking %2. >>%1
  131. goto end
  132.  
  133. :end
  134.