home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MAPL0206.ZIP / CALLZ.BAT < prev    next >
Encoding:
DOS Batch File  |  1993-02-06  |  2.1 KB  |  70 lines
  1. @Echo Off
  2. REM %1 = prefix/file converting, %2 = node, %3 = extension converting
  3. REM %4 = work path   %5 %6 - extract command   %7 = actual file path
  4. REM %8 = trailing backslash for arj and lzh files
  5. md %4%2
  6. proecho %node% ~ Now Extracting files from %1.%3~
  7. %5 %6 %7%1 %4%2%8
  8. DEL %7%1.%3
  9. IF EXIST %4%2\File_ID.DIZ Copy %4%2\File_ID.DIZ c:\RBBS
  10. IF EXIST %4%2\DESC.SDI Copy %4%2\DESC.SDI c:\RBBS
  11. pkzip -a -ex %7%1 %4%2\*.*
  12. IF ERRORLEVEL 1 GOTO badupload
  13.  
  14. :VIRUS
  15. proecho %node% ~ Your file will now be examined for Viruses~
  16. proecho %node%   Please wait a moment while we do this.....~
  17. scan /nomem /A %4%2
  18. IF ERRORLEVEL 1 goto VirusCk
  19. seterror 0
  20. goto Good
  21.  
  22. :VIRUSCK
  23. copy %7%1.ZIP c:\RBBS\virus
  24. del %7%1.zip
  25. proecho %node% ~  The file you uploaded contains a virus.~
  26. proecho %node%   Please carefully check you files before uploading!~~
  27. seterror 1
  28. goto exit
  29.  
  30. :GOOD
  31. proecho %node% ~No Viruses have been found!~
  32. REM The ~ represents a line feed.  The below is the suggested amounts.
  33. proecho %node% ~ Setting date of %1.ZIP to the date of most recent date of~
  34. proecho %node%   the archive........~
  35. REM recom -o -l c:\rbbs\uploads\logfile -s c:\rbbs\sys\comment.txt %1.zip
  36. proecho %node% ~  Now lets see how old the files in %1.ZIP are.......~~
  37. copy %7%1.ZIP %4%2
  38. zipds %4%2\*.zip
  39. testage %4%2 1990 c:\RBBS\hold
  40. if exist c:\RBBS\hold\%1.zip goto baddates
  41. if not exist c:\RBBS\hold\%1.zip goto thanks
  42.  
  43. :baddates
  44. proecho %node%  At least one of the programs you uploaded is~
  45. proecho %node%  more than 2 years old.  I will move any old~
  46. proecho %node%  programs offline for evaluation by the sysop.~
  47. proecho %node% ~ Please DO NOT upload items over 2 years old.~~
  48. copy %7%1.zip c:\RBBS\hold
  49. del %7%1.ZIP
  50. goto exit
  51.  
  52. :badupload
  53. proecho %node% Looks like one or more uploads are no good...~
  54. proecho %node% I will move all file(s) you just uploaded~
  55. proecho %node% offline for manual evaluation by the sysop.~
  56. copy %7%1.zip c:\RBBS\hold
  57. del %7%1.zip
  58. goto exit
  59.  
  60. :thanks
  61. proecho %node% ~Upload file dates are fine. ~~
  62.  
  63. :EXIT
  64. CTTY CON
  65. kdy %4%2
  66. SETERROR 0
  67. Echo On
  68. c:
  69. cd\RBBS
  70.