[Mimedefang] Reading & Parsing Headers

[Jan Pieter Cornet]

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
> > INPUTMSG? 
> 
> 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>
$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(sub{$_[0]*9+$_[1]*3+
$_[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