[Mimedefang] Multiple AV Scans

[Adam Beatham]

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