home *** CD-ROM | disk | FTP | other *** search
- @echo off
- proecho %3 ~∙ Testing: %2~
- didtest %2 %PCBDRIVE%%PCBDIR%\DIDTEST.LOG
- if errorlevel==1 goto end
- goto start
-
- rem -- ╒════════════════════════════════════════════════╕
- rem -- │ Process a single upload file - for ProDoor │
- rem -- │ Passed Parameters: │
- rem -- │ ■ %1 Log File │
- rem -- │ ■ %2 File to Test │
- rem -- │ ■ %3 COM Port │
- rem -- │ ■ %4 Conference Number │
- rem -- │ ■ %5 Play Directory │
- rem -- │ ■ %6 PCB Directory │
- rem -- ╘════════════════════════════════════════════════╛
-
- :start
- rem -- ** These commands only work when running under 4DOS!
- if %@ext[%2] == gif goto gif
- if %@ext[%2] == zip goto zip
- if %@ext[%2] == arj goto arj
- if %@ext[%2] == lzh goto lzh
- goto end
-
- :gif
- giftest %2 /A/B:3/D/E/F:%PCBDRIVE%%PCBDIR%\$DOOR.NAM/L/M:321x201x16/P:%3
- goto end
-
- :lzh
- proecho %3 ∙ CRC Test...
- c:\utility\lharc t %2
- if errorlevel 1 goto err
- proecho %3 Passed!~
- proecho %3 ∙ Checking for FILE_ID.DIZ...
- diz-2 diz-2.cnf %2 %PCBDRIVE%%PCBDIR%\$door.nam %PCBNODE%
- if errorlevel==29 proecho %3 Found!~
- if errorlevel==0 proecho %3 Not Found!~
-
- goto end
-
- :arj
- proecho %3 ∙ CRC Test...
- c:\utility\arj t %2
- if errorlevel 1 goto err
- proecho %3 Passed!~
- proecho %3 ∙ Checking for FILE_ID.DIZ...
- diz-2 diz-2.cnf %2 %PCBDRIVE%%PCBDIR%\$door.nam %PCBNODE%
- if errorlevel==29 proecho %3 Found!~
- if errorlevel==0 proecho %3 Not Found!~
- goto end
-
- :zip
- proecho %3 ∙ CRC Test...
- c:\utility\pkunZIP -t %2
- if errorlevel 1 goto err
- proecho %3 Passed!~
- proecho %3 ∙ Checking for FILE_ID.DIZ...
- diz-2 diz-2.cnf %2 %PCBDRIVE%%PCBDIR%\$door.nam %PCBNODE%
- if errorlevel==29 proecho %3 Found!~
- if errorlevel==0 proecho %3 Not Found!~
- rem ** if registered add zip comment => recom -c c:\diz-2\diz2-c.%PCBNODE%
- goto end
-
- :err
- proecho %3 Failed!~
- proecho %3 ~Moving Offline for the SysOp to check.~
- move %2 c:\reject
- goto end
-
- :end
-