#
# Sophos Anti Virus
#

if ($sophos ne "") {
	$ENV{SAV_IDE} = $sophos_ide if $sophos_ide ne "";
	$output = `$sophos -nb -f -all -rec -ss -sc -archive $TEMPDIR/parts`;
	$errval = ($? >> 8);
	do_log(2,$output);
	if ($errval != 0) {
		if ($errval == 3) {
			my $loutput = $output;
			$loutput =~ s/Virus fragment/Virus/g;
			@virusname = ($loutput =~ /Virus (.+) found/g);
			do_virus($output);
		} else {
			do_log(0,"Virus scanner failure: $sophos (error code: $errval)");
		}
	}
}
