home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ZLAB_19C.ZIP / GIFT4B10.ZIP / PROUT1.BAT < prev    next >
Encoding:
DOS Batch File  |  1992-01-22  |  1.6 KB  |  54 lines
  1. @echo off
  2. rem -- process a single upload file - for ProDOOR 3.4
  3. rem -- %1-logfile, %2-testfile, %3-comport, %4-conferece
  4.  
  5. rem -- determing file type and branch to proper test case
  6. rem -- using 4DOS commands
  7. if %@ext[%2] == gif goto gif
  8. if %@ext[%2] == zip goto zip
  9. if %@ext[%2] == exe goto zip
  10. if %@ext[%2] == lzh goto zip
  11. if %@ext[%2] == arj goto zip
  12. goto end
  13.  
  14. rem -- Check GIF, delete if invalid or incomplete GIF file and
  15. rem -- add resolution to description
  16. :gif
  17. giftest %2 /P:%3/E/L/B:3/D/M:321x201x16/F:%PCBDRIVE%%PCDDIR%\$door.nam
  18. goto end
  19.  
  20. rem -- test ZIP files
  21. rem -- ZipLab Plus tests ZIP, ARJ, and LZH files
  22. :zip
  23. ptest %2 %PCBDRIVE%%PCBDIR%\ptest.cfg
  24.  
  25. rem -- ProDIZ supports ZIP, ARJ and LZH files
  26. proecho %3 ~Searching for FILE_ID.DIZ...~
  27. prodiz %2 %PCBDRIVE%%PCBDIR%\$door.nam /D/AV/U
  28.  
  29. rem -- ZDCS duplicate checking system for CRC's.
  30. proecho %3 ~Checking CRC for duplication...~
  31. zdcsfc %2 UPLOAD
  32. if exist pcbfail.txt sendcom %3 /F PCBFAIL.TXT
  33. if exist pcbfail.txt move %2 h:\hold
  34. if not exist %2 goto end
  35.  
  36. rem -- Check for AV in the file
  37. proecho %3 ~~ChkAv 2.2 - Courtesy of The Bard's Lair (718)381-3651~
  38. proecho %3 ~Checking for -AV~
  39. chkav %2
  40. if errorlevel == 2 av
  41. goto end
  42.  
  43. rem -- Found AV
  44. rem -- Use txt2msg to send a message to SysOp letting him/her know
  45. :av
  46. proecho %3 ~~Found -AV in file, sending mail to SysOp to revue file... ~
  47. echo User has uploaded the file: %2 > mail
  48. echo which contains an -AV in it, please revue file. >> mail
  49. txt2msg f:\bbs\main\msgs -tSYSOP -fPROUTEST -sAV_File mail
  50. del mail
  51. goto end
  52.  
  53. :end
  54.