[Mimedefang] Filtering Sender name

[Jason Englander]

On Thu, 23 Jan 2003, Julian Monteiro wrote:

> I was using until now the $Sender variable in filter_begin function, but
> the content is allways a already parsed e-mail address (like xxx at yyy.com
> ), but I want the whole Sender name (like My Name is xxx <xxx at yyy.com>).
>
> I tried to read ./SENDER file, but it appear to be empty.

Read in the HEADERS file (see 'man mimedefang-protocol') and get the From:
header from there.  The $Sender is totally different, that's the envelope
sender.  For example, right now the message you're reading from me has a
$Sender of "mimedefang-admin at lists.roaringpenguin.com", but a From: of
"Jason Englander <jason at englanders.cc>".

open (HEADERS, "./HEADERS");
while (<HEADERS>) {
  if ($_ =~ /^From: /) {
    # Do something
    last;
  }
}
close (HEADERS);

For parsing you might want to pass that through Mail::Address.

  Jason

-- 
Jason Englander <jason at englanders.cc>
394F 7E02 C105 7268 777A  3F5A 0AC0 C618 0675 80CA