#
# Norman Virus Control v5 / Linux
# based on Norman Virus Control Version 5.33.00
# -c scan archive files, -l:0 do not generate an extra log file,
# -s scan sub dirs, -u do not stop when infection found 
#


if ($norman) {
    do_log(2,"Using $norman");
    chop($output = `$norman -cl -c -s -u $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 =~ /.* virus in .* -> \'(.+)\'/ig);
	@virusname = (undef) if !@virusname;   # just in case: make list nonnil
	do_virus($output);
    } else {
	do_log(0,"Virus scanner failure: $norman (error code: $errval)");
    }
}
