Metropoli BBS
VIEWER: upload.bat MODE: TEXT (ASCII)
@ECHO OFF
rem **************************************************************************
rem     UPLOAD.BAT for ECDIZ
rem **************************************************************************

rem *** BEGIN for ECDIZ ******************************************************
rem goto a temp directory
rem **************************************************************************
if NOT EXIST %pcbdir%\work mkdir %pcbdir%\work >NUL
cd %pcbdir%\work

rem extract the diz from the ul'ed file
rem ************************************************
pkunzip -o %1 file_id.diz >NUL

rem clean the diz
rem ************************************************
if not exist file_id.diz goto cont 
c:\ecd\ecdiz -tkbipxvv 45 file_id.diz new.diz c:\ecd\strip.diz

rem cleanup and put the new diz back in, if modified
rem ************************************************
del file_id.diz >NUL
if errorlevel=1 goto rezip
if errorlevel=0 goto cont

:rezip
ren new.diz file_id.diz >NUL
pkzip -eX %1 file_id.diz >NUL
del file_id.diz >NUL

:cont
cd %pcbdir%
rem *** end of cleaning diz.  continue with ul processor ******************
[ RETURN TO DIRECTORY ]