[Mimedefang] Variable Initialization for mimedefang-filter

[David F. Skoll]

On Wed, 10 Apr 2002, Albert E. Whale wrote:

> Here's My Filter File.  Hope that makes more sense.

Yes, it does; there's a comment which reads:

# $FromAddress above here is obtained from the HEADERS file

except there's nothing which sets FromAddress.  If you really need it,
you have to put this in filter_begin:

$FromAddress = "Unknown";
if (open(HDR, "<HEADERS")) {
    while(<HDR>) {
        chomp;
        if (/^From:\s*(.*)$/i) {
            $FromAddress = $1;
            last;
        }
    }
    close(HDR);
}

--
David.