. $VER: Virus Reporting Script (c)1997 Steve Clack V1.1
. (Note: this is NOT an AREXX script and is executed via. EXECUTE).
.
. Arguments:  BASEDIR/A FILE/A
. BASEDIR: The directory in which your main BBS files operate, ie. BBS:Files/
.          this directory is passed by Magic File so you do not need to alter
.          this script.
. FILE: File concerned.
.           
.key BASEDIR/A,FILE/A
.bra {
.ket }
RequestChoice >ENV:MFreq{$$} "Magic File Suspect File Report" "The following file _MAY_ be virus infected*n{FILE}*nand has been moved to the BAD directory!" "Ignore|Delete"
IF $MFreq{$$} EQ "0"
   Delete {BASEDIR}BAD/{FILE}
ENDIF
Delete >nil: ENV:MFreq{$$}

