[Mimedefang] SURBL lookups no longer happening after upgrade to 2.48

Martin Blapp mb at imp.ch
Wed Nov 3 06:21:29 EST 2004


Hi,

> Not directly related to discussion.
>
> I guess that header was added by MIMEDefang?  How do you fetch original
> SpamAssassin headers into MIMEDefang?  I'd rather have SpamAssassin
> style headers appended (X-Spam-Status, X-Spam-Report, and so on) than
> X-Spam-Score from example mimedefang-filter.

I generate them. I think it would be nice to have something like that in
the example filter but it's not me deciding that. Anyway, here are parts
of our filter ...

#
# keep track of start time
#
my ($done, $start, $TIMEVAL_T);
if (! $skip_checks ) {
	require 'sys/syscall.ph';
	$TIMEVAL_T = "LL";
	$done = $start = pack($TIMEVAL_T, ());
	syscall(&SYS_gettimeofday, $start, 0) != -1
	or die "gettimeofday: $!";
}

[... Call Spamassassin ]

#
# Fix broken formatting done by spamassassin rules.
#

my $fixed_report = "";
if ($hits >= $report_req) {
	$fixed_report = $report;
	$fixed_report =~ s/\n+\z//g;            # fixes for multiline header
	$fixed_report =~ s/\n[\t ]{0,}\n/\n/g;  # removes empty lines
        $fixed_report =~ s/\n/\n\t/g;           # to stop sendmail complaining
}

#
# Use the excellent wrapping function of Text::Wrap.
#
my $firstpart;
my $secondpart;
$Text::Wrap::columns = 60;
$Text::Wrap::huge = 'wrap';
$Text::Wrap::break = '(?<=[\s,])';
if ($names =~ /([0-9A-Z_,]{0,40},)(.*)/ ) {
        $firstpart = $1 . "\n\t";
                $secondpart = Text::Wrap::wrap('',"\t",$2);
                $names = $firstpart . $secondpart;
        } else {
                        $names = Text::Wrap::wrap('',"\t",$names);
        }
}

#
# Get the final scan time
#
my ($seconds, $scantime);
syscall( &SYS_gettimeofday, $done, 0) != -1
        or die "gettimeofday: $!";
my @start = unpack($TIMEVAL_T, $start);
my @done  = unpack($TIMEVAL_T, $done);
# fix microseconds
for ($done[1], $start[1]) {
                $_ /= 1_000_000
        }
        $scantime = sprintf "%.4f", ($done[0]  + $done[1]  ) - ($start[0] + $start[1] );
        $seconds = "\"" . $scantime . " seconds\"";
}

action_add_header("X-Spam-Report", "$fixed_report");
action_add_header("X-Spam-Status", "No, hits=$hits scantime=$seconds tests=$names");

Martin


More information about the MIMEDefang mailing list