home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
bbs_door
/
didtst11.arj
/
PROUT1.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-02-04
|
4KB
|
118 lines
@echo off
rem -- DidTest.COM by Dave Navarro, Jr.
rem -- Prevents same file from being tested twice.
didtest %2 %PCBDRIVE%%PCBDIR%\DIDTEST.LOG
if errorlevel==1 goto end
rem -- GOTO 4TESTEXT if you are running 4DOS or NDOS
rem -- GOTO TESTEXT if you are running MSDOS, DR-DOS or PC-DOS
goto 4testext
rem -- Process a single upload file - for ProDOOR 3.44
rem -- Passed Parameters:
rem -- * %1 Log File
rem -- * %2 File to Test
rem -- * %3 COM Port
rem -- * %4 Conference
rem -- * %5 PLAY Directory
rem -- ** See PROUTEST.BAT if you want to add new parameters or change the **
rem -- ** order of the current passed parameters. **
rem -- Determine file type and branch to proper test case using TESTFILE.EXE
:testext
testfile gif zip arj lzh
if errorlevel == 4 goto gif
if errorlevel == 3 goto zip
if errorlevel == 2 goto zip
if errorlevel == 1 goto zip
goto unknown
rem -- Determing file type and branch to proper test case using 4DOS commands
:4testext
if %@ext[%2] == gif goto gif
if %@ext[%2] == zip goto zip
if %@ext[%2] == arj goto zip
if %@ext[%2] == lzh goto zip
goto unknown
rem -- All unknown file types are moved to the HOLD directory for
rem -- review by the sysop. If it's a "postable" file, the user
rem -- will be given credit.
:unknown
proecho %3 File type unknown! Moving Offline for Review..~
mov %2 h:\hold
goto end
rem -- Test GIF file using GIFTEST by Dave Navarro, Jr.
rem -- * /A forces the GIF to be made a private upload, even in public
rem -- * upload conferences.
rem -- * /B:3 tells GIFtest were running ProDoor 3.44 dated after 12/31/91
rem -- * /D tells GIFtest to do CRC duplicate checking.
rem -- * /E tells GIFtest to erase any GIF which is Invalid, a Duplicate,
rem -- * or does not meet the minimum resolution.
rem -- * /F: tells GIFtest where to find the description file to modify.
rem -- * /L tells GIFtest to log all GIF information to GIFLOG in the
rem -- * current directory
rem -- * /M: tells GIFtest to invalidate any GIFs which are not at least
rem -- * 321x201x16 in resolution.
rem -- * /P: tells GIFtest to send all output to the COM port as well as
rem -- * to the screen.
rem -- ** There are other parameters available, see GIFtest for more info **
:gif
giftest %2 /A/B:3/D/E/F:%PCBDRIVE%%PCBDIR%\$DOOR.NAM/L/M:321x201x16/P:%3
goto end
rem -- Test Archives using ZipLab Plus by Jeffrey S. Morley
rem -- ZipLab Plus tests ZIP, ARJ, and LZH files
rem -- * The SET PCBDOOR=PRODOOR command let's ZPLUS know that we
rem -- * are running ProDoor instead of PCBoard.
rem -- * If any file is deleted, moved or renamed, you MUST delete
rem -- * the DSZLOG file in order for ProDoor to work properly.
:zip
ptest %2 %PCBDRIVE%%PCBDIR%\PTEST.CFG
if errorlevel==1 del %2
if not exist %2 del %dszlog%
if not exist %2 goto end
goto diz
rem -- Search for FILE_ID.DIZ using ProDIZ by Dave Navarro, Jr.
rem -- If one is found, import it as the description.
rem -- ProDIZ supports ZIP, ARJ, and LZH files
rem -- * /AV tells PRODIZ to add the AV serial number to the description
rem -- * of any ZIP files that contain one.
rem -- * /D tells PRODIZ to include the number of files in the archive
rem -- * and the oldest/newst file dates.
rem -- * /U tells PRODIZ to include the uncompressed size of the archive
rem -- * in the description.
:diz
proecho %3 ~Searching for FILE_ID.DIZ...~
prodiz %2 %PCBDRIVE%%PCBDIR%\$door.nam /d /u /av
rem -- GOTO 4ISZIP if you are running 4DOS or NDOS
rem -- GOTO ISZIP if you are running MSDOS, DR-DOS, or PC-DOS
goto 4iszip
rem -- test archive extension again using 4DOS commands
:4iszip
if %@ext[%2] == zip goto end
goto end
goto tozip
rem -- test archive extension using TESTFILE.EXE
:iszip
testfile zip
if errorlevel == 1 goto end
goto tozip
rem -- Convert any archive which is not a ZIP to ZIP format using
rem -- AC (Archive Convert) by Donald Langhorn.
rem -- Requires CDD command in 4DOS or CDTO.COM program (public domain)
:tozip
proecho %3 ~Converting to ZIP format...~
CDD %5
ac /z %2
cdd d:\prodoor
if exist %dszlog% del %dszlog%
:end