#
# Ikarus AntiVirus 
#

if ($ikarus) {
    do_log(2,"Using $ikarus");
    chop($output = `$ikarus $TEMPDIR/parts`);
    $errval = retcode($?);
    do_log(2,$output);
    if ($errval == 0) {		# no errors, no viruses found
	$scanner_errors = 0;
    } elsif ($errval == 40) {	# no errors, viruses/suspicious files discovered
	$scanner_errors = 0;
	@virusname = ($output =~ /Signature (.+) found/g);
	@virusname = (undef)  if !@virusname;  # just in case: make list nonnil
	do_virus();
    } else {	# interrupted or some error preventing further execution
	do_log(0,"Virus scanner failure: $ikarus (error code: $errval)");
    }
}
