#
# KasperskyLab AVP
#

if ($avp) {
    do_log(2,"Using $avp");
    chdir($AVPDIR) || do_exit($REGERR, __LINE__);
    chop($output = `$avp -* -P -B -Y -O- $TEMPDIR/parts`);
    $errval = retcode($?);
    $scanner_errors &= $errval;
    chdir($TEMPBASE);
    do_log(2,$output);
    if ($errval) {
	if ($errval == 4) {
	    @virusname = ($output =~ /infected: (.+)/g);
	    do_virus();
	} else {
	    do_log(0,"Virus scanner failure: $avp (error code: $errval)");
	}
    }
}
