home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
vrac
/
rtape400.zip
/
GETFILE.SMP
< prev
next >
Wrap
Text File
|
1994-11-10
|
2KB
|
74 lines
@ECHO OFF
REM This is a sample batch file to use an Upload Processor, such as the free
REM copy of VIRULAB included, with RoboTape. This batch file uses VIRULAB
REM and the shareware program GIFTEST, not included but widely available,
REM to scan uploaded files for viruses and GIF dimensions.
REM .
REM Parameters For Calling This Batch File Are...
REM %1 Com Port Number 1 = Com 1....
REM %2 Transfer Protocol x=Xmodem, b=Ymodem, z=Zmodem.
REM %3 Upload Path For This File Area, "Restored Path" In RBCONFIG Program.
REM %4 File Name To Be Uploaded.
REM %5 File Type 0=Self-Extract Or Not An Archive,1=GIF,2=ZIP,3=ARJ,4=LZH,
REM 5=ARC,6=SQZ,7=ZOO. Use This Parameter For Virus Scanners, GIF Checkers,
REM And Etc....
REM %6 Baud Rate User Is Logged On At
REM .
REM The File UPSTAT.DAT Will Be Shown To The User After A Bad UPLOAD. Use The
REM Redirection Symbol ">" To Redirect The Echo To This File.
REM .
:LOOP
DSZ port %1 r%2 %3%4
if errorlevel 1 goto BAD
if errorlevel 0 goto CHECK
goto DONE
:BAD
echo WARNING: Bad Upload !!! >UPSTAT.DAT
echo Exiting With Errorlevel 1
del %3%4
goto DONE
:CHECK
if %5 == 7 goto VCHECK
if %5 == 6 goto VCHECK
if %5 == 5 goto VCHECK
if %5 == 4 goto VCHECK
if %5 == 3 goto VCHECK
if %5 == 2 goto VCHECK
if %5 == 1 goto GIFCHECK
if %5 == 0 goto VCHECK
goto UPDATE
:VCHECK
REM Run Virus Door Here And Check Errorlevels
VIRULAB %3%4
if errorlevel 101 goto UPDATE
if errorlevel 100 goto UPDATE
if errorlevel 1 goto BAD
if errorlevel 0 goto UPDATE
goto UPDATE
:GIFCHECK
GIFTEST %3%4 /D /M:320X200X16 /L:GIFSIN.LOG
if errorlevel 25 goto DUPE
if errorlevel 20 goto TOOSMALL
if errorlevel 10 goto LITE
if errorlevel 1 goto INHEAD
if errorlevel 0 goto UPDATE
goto DONE
:LITE
goto UPDATE
:DUPE
echo %4 Was A Renamed Duplicate Of A GIF Already On System, REJECTED! >UPSTAT.DAT
del %3%4
goto DONE
:TOOSMALL
echo File Failed The Minimum Resolution Requirement Of 320x200x16, REJECTED! >UPSTAT.DAT
del %3%4
goto DONE
:INHEAD
echo File Had Invalid GIF Header, TRASHED And REJECTED! >UPSTAT.DAT
del %3%4
goto DONE
:UPDATE
goto DONE
:DONE
echo Exiting Back To Robo Tape.....