Apache-ProxyScan

 view release on metacpan or  search on metacpan

eg/clamav.pl  view on Meta::CPAN

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
# wrapper for clamav
 
$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.343 second using v1.01-cache-2.11-cpan-0d8aa00de5b )