[Mimedefang] Possible Feature?

[Vince Hoang]

On Fri, Nov 01, 2002 at 06:09:10PM -0800, Brad Dameron wrote:
> This is true. However I wanted to use the header's time/date so
> the sender knew roughly when they sent the messag so they could
> look back. No problem tho.

I just installed MIMEDefang last night and am not sure if
there is an existing method to get to the headers, e.g.
$foo->{'header'}->{'Date'}, but would something like the
following code fragment work in a pinch?

    my $date;
    if (open H, "HEADERS") {
        while (<H>) {
            next unless /^Date: (.*)$/;
            $date = $1;
        }
        close H;
    }

    if ($date) {
        ; # do something with the date from the header
    }

-Vince