home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Virus / XTRUDER1.LHA / Xtruder / Rexx / MEBBSNet / afterup.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-10-16  |  608 b   |  21 lines
  1. /**/
  2. OPTIONS RESULTS
  3.  
  4. DoorName='CheckVira'
  5.  
  6. TempUploadDir='Files3:UP_TMP/TMP1/'
  7. CALL ADDLIB 'mebbsarexx.library',0,-30,0
  8. PARSE ARG LineNumber
  9.  
  10. ADDRESS 'XTRUDER'
  11. CALL MESSAGE DoorName,LineNumber,"Please Wait Checking for Virus!",1
  12. CHECKPATH TempUploadDir /*|| File2Check*/
  13. IF RESULT > -1 THEN DO
  14.    CALL MESSAGE DoorName,LineNumber,'The result was ' || RESULT
  15.    CALL MESSAGE DoorName,LineNumber,'There is a virus in the uploaded file!!',1
  16.    CALL HotKey DoorName,LineNumber,'Press any key...'
  17.    ADDRESS COMMAND 'c:move ' || TempUploadDir || '*.* ' || 'DH5:BAD'
  18. END   
  19. END
  20. CALL EXIT_DOOR DoorName,LineNumber
  21.