[Mimedefang] Reading & Parsing Headers

Jan Pieter Cornet johnpc at xs4all.nl
Thu Feb 16 18:02:14 EST 2006

On Thu, Feb 16, 2006 at 02:09:11PM -0800, Matthew.van.Eerde at hbinc.com wrote:
> KAM wrote:
> > What is the best way in MIMEDefang to get the contents of a header
> > line? 
> > 
> > For example, if I want to test for the existence of a From: header
> > and test the line, how would one do it? Do I have to loop through
> No, but you will have to loop through ./HEADERS

Or, as I said yesterday in another thread, via
$entity->head->Get('headername'), where $entity is the argument to
filter_end (and filter_begin, nowadays).

#!perl -wpl # mmfppfmpmmpp mmpffm <pmmppfmfpppppfmmmf at fpffmm4mmmpmfpmf.ppppmf>
$_[2]}->(map{/p|f/i+/f/i}split//,$&)+97):qw(m p f)[map{((ord$&)%32-1)/$_%3}(9,
3,1)]),5,1)='`'lt$&;$f.eig;                                # Jan-Pieter Cornet

More information about the MIMEDefang mailing list