filter


Called for each attachment

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