#
# F-Prot Antivirus/Linux
#

if ($fprot) {
    do_log(2,"Using $fprot");
    chop($output = `$fprot -DUMB -ARCHIVE $TEMPDIR/parts`);
    $errval = retcode($?);
    $scanner_errors &= $errval;
    do_log(2,$output);
    if ($errval) {
	if ($errval == 3) {
	    @virusname = ($output =~ /Infection: (.+)/g);
	    do_virus();
	} else {
	    do_log(0,"Virus scanner failure: $fprot (error code: $errval)");
	}
    }
}
