2 # Copyright (C) 2013, Eric Wong <normalperson@yhbt.net> and all contributors
3 # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
7 use PublicInbox::Filter;
9 my $usage = "public-inbox-mda main_repo fail_repo < rfc2822_message";
10 my $filter = Email::Filter->new(emergency => "~/emergency.mbox");
11 my $main_repo = shift @ARGV or die "Usage: $usage\n";
12 my $fail_repo = shift @ARGV or die "Usage: $usage\n";
13 my $max = 1024 * 500; # same as spamc
16 if (length($filter->simple->as_string) <= $max
17 && do_spamc($filter->simple, \$filtered)) {
18 # update our message with SA headers (in case our filter rejects it)
19 my $simple = Email::Simple->new($filtered);
21 $filter->simple($simple);
23 if (PublicInbox::Filter->run($simple)) {
24 # run spamc again on the HTML-free message
25 if (do_spamc($simple, \$filtered)) {
26 $filter->simple(Email::Simple->new($filtered));
27 $filter->pipe("ssoma-mda", $main_repo);
29 $filter->pipe("ssoma-mda", $fail_repo);
32 # PublicInbox::Filter nuked everything, oops :x
33 $filter->pipe("ssoma-mda", $fail_repo);
36 # if SA thinks it's spam or there's an error:
37 # don't bother with our own filtering
38 $filter->pipe("ssoma-mda", $fail_repo);
40 die "Email::Filter failed to exit\n";
42 # we depend on "report_safe 0" in /etc/spamassassin/*.cf with --headers
43 # not using Email::Filter->pipe here since we want the stdout of
44 # the command even on failure (spamc will set $? on error).
46 my ($simple, $out) = @_;
48 my $orig = $simple->as_string;
49 run([qw/spamc -E --headers/], \$orig, $out);
52 return ($@ || $? || !defined($$out) || length($$out) == 0) ? 0 : 1;