filter

Called for each MIME part

sub filter ($$$$) {
    my ($entity, $fname, $ext, $type) = @_;
    return if message_rejected();
    if ($FoundVirus) {
        my $ScannerMessages = "";
        my ($code, $category, $action) = entity_contains_virus($entity);
        if ($category eq "virus") {
            return action_quarantine($entity, "$ScannerMessages\n");
        }
    }
    return action_accept();
}