Apache-ProxyScan
1 match

 view release on metacpan or  search on metacpan

eg/clamav.pl  view on Meta::CPAN 

# wrapper for clamav
# http://clamav.elektrapro.com/

$file = shift @ARGV;

$optd='';
if (defined $ENV{'SCAN_TMP'}) {
  $optd="--tempdir=".$ENV{'SCAN_TMP'};
} 

open(FH, "ulimit -t60 ; /usr/bin/clamscan --mbox --threads=0 $optd --remove --stdout --disable-summary '$file' |");
@msg = <FH>;
close FH;
$rc = $?;

if ($rc != 0) {
  $url = $ENV{'REQUEST_URI'};
  print "Content-type: text/html\n\n";
  print "<html><head><title>Virus Found</title></head><body>\n";

  print "<H1>Virus Alert!</H1>";



( run in 0.651 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )