
#
# Clam Antivirus
#

if ($clamscan ne "") {
    do_log(2,"Using clamav");
    # --one-virus is only for esthetic reasons.
    chop($output = `$clamscan --stdout -r -w --one-virus $TEMPDIR/parts`);
    $errval = retcode($?);
    do_log(2,$output);
    if ($errval == 0) { # no errors, no viruses found
	$scanner_errors = 0;
    } elsif ($errval == 1) { # no errors, viruses discovered
	$scanner_errors = 0;
	@virusname = ($output =~ /.*: (.+) FOUND/g);
	do_virus($output);
    } else {
	do_log(0,"Virus scanner failure: $clamscan (error code: $errval)");
    }
}
