#
# CAI InoculateIT
#

if ($inocucmd ne "") {
	$output = `$inocucmd -sec -nex $TEMPDIR/parts/*`;
	$errval = ($? >> 8);
	do_log(2,$output);
	if ($errval != 0) {
		if ($errval == 100) {
			@virusname = ($output = ~ /was infected by virus (.+)/g);
			do_virus($output);
		} else {
			do_log(0,"Virus scanner failure: $inocucmd (error code: $errval)");
		}
	}
}
