Metropoli BBS
VIEWER: viewzip.bat MODE: TEXT (LATIN1)
@ECHO OFF
if .%1 == . goto prob
if VIEW == %1 goto next
IF EXTRACT == %1 goto next2
IF READ == %1 goto next3
IF TECH == %1 goto next4
IF FLAG == %1 goto next5
IF REZIP == %1 goto next6
IF DEL == %1 goto delme
IF TEST == %1 goto next7
IF COPY == %1 goto next8
goto prob
:next8
copy %2+%3 %4
goto end
:next
if exist %2 goto start
goto prob
:next2
if exist %2 goto extr
goto prob
:next3
if exist %2 goto readme
goto prob
:next4
if exist %2 goto techn
goto prob
:next5
if exist %2 goto flagme
goto prob
:next6
if exist %2 goto rezipme
:next7
if exist %2 goto testzip
goto prob
:testzip
echo þ Testing ZIP file integrity
%3pkunzip -t %2 > pcbfail.txt
if errorlevel == 1 goto fail
echo þ File %2 passed ZIP integrity test
goto end
:fail
echo þ File %2 failed ZIP integrity test
goto end
:delme
deltree /y %2
goto end
:rezipme
%4pkzip %3 %2
goto end
:flagme
%6pkunzip -e -o %2 %3 %5
goto end
:techn
%4pkunzip -vt %2 > %3\extfv6.$$%5
goto end
:readme
%4pkunzip -c %2 %5> %3extfv4.$$%6
goto end
:extr
%4pkunzip -e %2 %3 %5
goto end
:start
md %5
%4pkunzip -v %2 > %3extfv1.$$%6
%4pkunzip -@%3extfv2.$$%6 %2 > pcbfail.txt
del pcbfail.txt
goto end
:prob
echo ÿ
echo ÿ
echo Error Occured while attempting PKZIP routines
echo ÿ
echo View Zip MUST only be executed by EXTFV.PPE
echo ÿ
echo ÿ
:END


[ RETURN TO DIRECTORY ]