[Mimedefang] action_wrap_header

[Mickey Hill]

Hi everyone,

David, you mentioned a wrap_header function, but I haven't found it in
the 2.3 release.  I needed such a function for my SpamAssassin report,
so here's what I wrote and added to mimedefang.pl.  It's pretty simple
(simple is good!) and it's working well for me.  If it's useful to you
or anyone else, you are welcome to it!

#***********************************************************************
# %PROCEDURE: action_wrap_header
# %ARGUMENTS:
#  header -- header name (eg: X-My-Header)
#  value -- header value (eg: any text goes here)
# %RETURNS:
#  Nothing
# %DESCRIPTION:
#  Makes a note for milter to add a multi-line header to the message.
#***********************************************************************
sub action_wrap_header {
    my($header, $value) = @_;
    my @values = reverse split(/\n/, $value);

    for (@values) { action_add_header($header, $_) }
}


In my mimedefang-filter, here's an excerpt from my filter_begin:

    my ($hits, $req, $names, $report) = spam_assassin_check();
    action_add_header("X-Spam-Score", "$hits, Required: $req");
    if ($hits > 0) {
        action_add_header("X-Spam-Tests", "$names");
        action_wrap_header("X-Spam-Report", "$report");
    }

All this gives me the following headers:

X-Spam-Score: 7.1, Required: 5
X-Spam-Tests: PURE_PROFIT,OPPORTUNITY
X-Spam-Report: 
X-Spam-Report: SPAM: ---- Start SpamAssassin results
X-Spam-Report: SPAM: 7.1 hits, 5 required;
X-Spam-Report: SPAM: *  4.0 -- BODY: /PURE PROFIT/
X-Spam-Report: SPAM: *  3.1 -- BODY: /OPPORTUNITY/
X-Spam-Report: SPAM: 
X-Spam-Report: SPAM: ---- End of SpamAssassin results

-------------------------
Mickey Hill
Rudolph's Inc
2021 Rob Mason Rd
PO Box 69
Murray KY 42071 USA
Phone (270) 753-0686 x124
Fax   (270) 753-0753
mickey at rudolphtire.com
www.rudolphtire.com