[Mimedefang] Read Information from Header ?

[Jan Pieter Cornet]

On Wed, Feb 15, 2006 at 04:56:36PM -0500, David F. Skoll wrote:
> Christoph wrote:
> 
> > Or should i get the information from the file "HEADER" in the temp
> > Directory ?
> 
> The file is called "./HEADERS", and yes, you'll need to read it to get
> the information.  However, it's guaranteed to have one header per line
> (long headers are "unwrapped"), so it's relatively easy to parse.

Or use:

  sub filter_end {
     my($entity) = @_;

     my $fromhdr = $entity->head->get('From');
     my $tohdr = $entity->head->get('To');

     ...

-- 
#!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