[Mimedefang] Filter to Reject Korean Mail

[Jeff Grossman]

I tried adding the following to my filter_begin section, and it did not
work.  The slaves died when I was sending mail.

    $head = $entity->head;
    $charset = $head->mime_attr("content-type.charset");
    if (defined($charset)) {
        $charset =~ tr/A-Z/a-z/;
        if ($charset eq "ks_c_5601-1987" or
            $charset eq "euc-kr" or
            $charset eq "iso-2022-kr") {
       return action_bounce("Spam from Korea not accepted. Please
contact Postm
aster for details.");
        action_notify_administrator("Message from Korea rejected.");
        }
    }

Any ideas what I did wrong?

Thanks,
Jeff
-- 
Jeff Grossman (jeff at stikman.com)