[Mimedefang] Multiple AV Scans
Adam Beatham
adam at backboard.org
Tue Oct 22 14:48:00 EDT 2002
This is what I have, which I believe David gave me a while back..
sub message_contains_virus () {
my ($code, $category, $action);
($code, $category, $action) = message_contains_virus_filescan();
($code, $category, $action) = message_contains_virus_clamav() if
$category ne 'virus';
return ($code, $category, $action) if $category eq 'virus';
return (wantarray ? (0, 'ok', 'ok') : 0);
}
sub entity_contains_virus ($) {
my ($e) = @_;
($code, $category, $action) = entity_contains_virus_filescan($e)
if $Features{'Virus:FileScan'};
($code, $category, $action) =
entity_contains_virus_clamav($e) if $Features{'Virus:CLAMAV'} &&
$category ne 'virus';
return ($code, $category, $action) if $category eq 'virus';
return (wantarray ? (0, 'ok', 'ok') : 0);
}
then you just call the proper function in the proper part of the filter..
-adam
At 11:42 AM 10/22/2002 -0700, you wrote:
>Can somebody help me with the perl code for the mimedefang-filter to use the
>File::Scan and ClamAV anti-virus programs with MIMEDefang? I would the
>message to go through the first scanner, and then if it does not catch a
>virus, to go through the second one.
>
>Thanks,
>Jeff
>--
>Jeff Grossman (jeff at stikman.com)
>
>_______________________________________________
>MIMEDefang mailing list
>MIMEDefang at lists.roaringpenguin.com
>http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
-adam ...the guy behind the guy behind the guy
More information about the MIMEDefang
mailing list