[Mimedefang] accessing mail headers in mimedefang-filter

[Tilman Schmidt]

On Tue, 25 Nov 2008 10:29:03, Steffen Kaiser wrote:
> On Tue, 25 Nov 2008, Tilman Schmidt wrote:
> 
>>        unless (defined($entity->head) &&
>>                lc($entity->head->get('Precedence', 0) eq 'bulk')) {
>                                                                   ^ That's
> the final parenthesis of lc() -> it belongs before eq operator.

Well spotted. Thanks for your sharp eyes.
Strangely,

        unless (defined($entity->head) &&
                lc($entity->head->get('Precedence', 0)) eq 'bulk') {

doesn't work either, but

        unless (defined($entity->head) &&
                lc($entity->head->get('Precedence', 0)) =~ /^bulk$/) {

does, and so does

        unless (defined($entity->head) &&
                $entity->head->get('Precedence', 0)) =~ /^bulk$/i) {

But I won't pursue the reasons for this any further as I have a working
solution now. Many thanks for your help.

-- 
Tilman Schmidt
Phoenix Software GmbH
Bonn, Germany

-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 250 bytes
Desc: OpenPGP digital signature
URL: <https://lists.mimedefang.org/pipermail/mimedefang_lists.mimedefang.org/attachments/20081125/58dc3e8a/attachment.sig>