Metropoli BBS
VIEWER: pcbtest.bat MODE: TEXT (ASCII)
@echo off
if exist pcbpass.txt del pcbpass.txt
if exist pcbfail.txt del pcbfail.txt
testfile gif zip
if errorlevel == 2 goto gif
if errorlevel == 1 goto zip
goto crc

:gif
if %2 == test goto gift
giftest %1 /B:2/F:%3 > PCBPASS.TXT
if errorlevel == 25 goto badgif
if errorlevel == 20 goto badgif
if errorlevel == 10 goto end
if errorlevel == 1 goto badgif
goto end

rem -- If GIFtest deletes the file (the /E parameter) then :BADGIF will
rem -- rename it to PCBFAIL.TXT.  The "not exist %1" is faster than all
rem -- that errorlevel checking.
:gift
echo Testing GIF file...
giftest %1 /E/B:2/F:%3 > PCBPASS.TXT
if not exist %1 goto badgif
goto end

:badgif
move PCBPASS.TXT PCBFAIL.TXT /Q
goto end

:zip
ptest %1 ptest.cfg
if %2 == test goto end
if exist pcbfail.txt goto end

pcbdiz %1 %3 /AV/D/U

:crc
if exist pcbpass.txt del pcbpass.txt
rem proecho 1 ~Adding %@name[%1] to CRC database...
zdcsfc %1 %2 %3
goto end

:end
if exist PCBPASS.TXT type PCBPASS.TXT >> f:\pcb\PCBPASS.LOG
if exist PCBFAIL.TXT type PCBFAIL.TXT >> f:\pcb\PCBFAIL.LOG
if exist PCBFAIL.TXT move %1 h:\hold /q
if exist %3 type %3 >> f:\pcb\desc
[ RETURN TO DIRECTORY ]