#
# KasperskyLab AVP
#

if ($avp ne "") {
	chdir($AVPDIR) || do_exit($REGERR, __LINE__);
	$output = `$avp -* -B -Y $TEMPDIR/parts`;
	$errval = ($? >> 8);
	chdir($TEMPBASE);
	do_log(2,$output);
	if ($errval != 0) {
		if ($errval == 4) {
			@virusname = ($output =~ /Infected by virus: (.+)/g);
			do_virus($output);
		} else {
			do_log(0,"Virus scanner failure: $avp (error code: $errval)");
		}
	}
}
