[Mimedefang] multiple antivirus engines

[Aaron Paetznick]

The following works great for me:

sub message_contains_virus () {
   my($code, $cat, $act);
   ($code, $cat, $act) = message_contains_virus_filescan();
   return (wantarray ? ($code, $cat, $act) : $code) if ($act ne "ok");
   ($code, $cat, $act) = message_contains_virus_clamd();
   return (wantarray ? ($code, $cat, $act) : $code) if ($act ne "ok");
   return (wantarray ? (0, 'ok', 'ok') : 0);
}

sub entity_contains_virus ($) {
   my($e) = @_;
   my($code, $cat, $act);
   ($code, $cat, $act) = entity_contains_virus_filescan($e);
   return (wantarray ? ($code, $cat, $act) : $code) if ($act ne "ok");
   ($code, $cat, $act) = entity_contains_virus_clamd($e);
   return (wantarray ? ($code, $cat, $act) : $code) if ($act ne "ok");
   return (wantarray ? (0, 'ok', 'ok') : 0);
}


--Aaron



David F. Skoll wrote:
> On Tue, 3 Jun 2003, Jim Shewmaker wrote:
> 
> 
>>  Any tips on using multiple AV engines with mimedefang?
> 
> 
> It's easy; just write the Perl code to try them one after the other
> until one of them returns a virus indication.
> 
> Regards,
> 
> David.
> _______________________________________________
> MIMEDefang mailing list
> MIMEDefang at lists.roaringpenguin.com
> http://lists.roaringpenguin.com/mailman/listinfo/mimedefang