#!/usr/bin/perl # Copyright (c) 2002 Oliver Paukstadt. All rights reserved. # This program is free software; you can redistribute it # and/or modify it under the same terms as Perl itself. # wrapper for sophos # http://www.sophos.com/ $file = shift @ARGV; if (defined $ENV{'SCAN_TMP'}) { $ENV{'SAV_TMP'}=$ENV{'SCAN_TMP'}; } open(FH, "ulimit -t60 ; /usr/local/bin/sweep -f -archive -all -remove -di -nc -ss '$file' |"); @msg = ; close FH; $rc = $?; if ($rc != 0) { $url = $ENV{'REQUEST_URI'}; print "Content-type: text/html\n\n"; print "Virus Found\n"; print "

Virus Alert!

"; print "while scanning $url
\n"; print "Sophos (return code $rc) reported:

".join("", @msg)."

\n"; print "\n"; unlink "$file"; } exit 1 if ($rc != 0);