File Coverage

blib/lib/File/VirusScan/Engine/Command/ClamAV/Clamscan.pm

Criterion	Covered	Total	%
statement	25	38	65.7
branch	1	12	8.3
condition			n/a
subroutine	9	9	100.0
pod	1	2	50.0
total	36	61	59.0

package File::VirusScan::Engine::Command::ClamAV::Clamscan;
use strict;
use warnings;
use Carp;

use File::VirusScan::Engine::Command;
use vars qw( @ISA );
@ISA = qw( File::VirusScan::Engine::Command );

use Cwd 'abs_path';

use File::VirusScan::Result;

sub default_arguments
{
	return [qw(--stdout --no-summary --infected)];
}

sub scan
{
	my ($self, $path) = @_;

	if(abs_path($path) ne $path) {
		return File::VirusScan::Result->error("Path $path is not absolute");
	}

	my ($exitcode, $scan_response) = eval { $self->_run_commandline_scanner(join(' ', $self->{command}, @{ $self->{args} }, $path, '2>&1')); };

	if($@) {
		return File::VirusScan::Result->error($@);
	}

	if(0 == $exitcode) {
		return File::VirusScan::Result->clean();
	}

	if(1 == $exitcode) {

		# TODO: what if more than one virus found?
		# TODO: can/should we capture infected filenames?
		if($scan_response =~ m/: (.+) FOUND/) {
			return File::VirusScan::Result->virus($1);
		} elsif($scan_response =~ m/: (.+) ERROR/) {
			my $err_detail = $1;
			return File::VirusScan::Result->error("clamscan error: $err_detail");
		}
	}

	return File::VirusScan::Result->error("Unknown return code from clamscan: $exitcode");
}

1;
__END__