#
# OpenAntiVirus ScannerDaemon
#
use IO::Socket;
 
if ($oav) {
    do_log(2,"Using $oav");
    my $sock = IO::Socket::INET->new('127.0.0.1:8127');
    if (defined $sock) {
# Not required! Lars
#	$sock->connect('');
	$sock->print("SCAN $TEMPDIR/parts\n");
	$sock->flush;
	chomp($output = $sock->getline);
	$sock->close;
	$scanner_errors = 0;
	do_log(2,$output);
	if ($output =~ /^FOUND: /) {
	    @virusname = ($output =~ /FOUND: (.+);/g);
	    do_virus();
	}
   } else {
	$scanner_errors &= 1;
	do_log(0,"Virus scanner failure: ScannerDaemon - can't connect to daemon");
   }
}

