/* $VER: ZEUS BBS Xtruder Virus Interface v1.0 21-08-95 (c) 1995 -*-Per2-*-

this is a very short doc... you must make this in your TestFile.zeus

 when Ext = 'LHA' | Ext = 'LZH' then do
   CLIDoor '"RX ZEUS:Scripts/File/VirusCheck.zeus 'Filename'"'
  CLIDoor '"LHA t 'Filename'"' Stack 8192
  Ret = RC
  
  if Ret = 0 & GetDIZ = 1 then CLIDoor '"Lha -x0 e 'Filename' FILE_ID.DIZ"'
Stack 8192 Dir WorkDir   end

and put this in so it gets the username i know there is another way to do this
but i don't have the time right now, remember to change the sysop name
in line 69 and the area the virus message must go

DelVar 'FILENAME'
DelVar 'GETDIZ'

GetUserData 'Name' 
UName = RESULT
address command 'echo >T:XTruder.User 'UName''

*/

LOG = 'T:XTruder.Log'

Address XTRUDER
OPTIONS RESULTS
PARSE UPPER ARG arg2
archive = arg2

say ''
say 'Loading Xtruder'
say 'Welcome To ZEUS Virus Check v1.0 (c) 1995 By -*-Per2-*-'
say ''
say 'Checking 'Archive' for Virus...'

CHECKFILES archive
virusstatus = rc

  IF virusstatus = 0 THEN DO
    say 'Archive Contains No Virus.'
    say 'Ok!'
    say ''
  END

  IF virusstatus >= 1 THEN DO
    call open(req,LOG,"W")
    call writeln(req,"Information From ZEUS Virus Checker v1.0  ")
    call writeln(req,"")
    call writeln(req,''||Date()||' 'Time()||'')
    call writeln(req,'Xtruder started check of 'archive'!')
    call writeln(req,'Xtruder FOUND VIRUS in 'archive'!')
    call writeln(req,'Xtruder ended')
    call writeln(req,"")
    call close req
    say ""
    say "You Will Not Get Upload Credit For This File"
    say "Reason:"
    say ''Archive' Seem to Contain a Virus!'
    say 'I Will leave a Message To Sysop About this File!'
    say ''
    address command 'echo >t:XTruder.Up The File Was Uploaded By'
    address command 'Join t:XTruder.Up T:XTruder.User as T:XTruder.Txt1'
    address command 'Join T:Xtruder.Log T:XTruder.Txt1 as T:XTruder.Txt'
    address command 'wait 6'
    address command 'Zeus:Bin/PostMsg >NIL: "Zeus Virus Checker" "Kenneth
Perto" "Possible Virus in File" "T:XTruder.Txt" 1'   END

call close LOG
address command 'delete >nil: T:XTruder*'

EXIT 0
END