Installing Mailscrubber on Windows

#!/usr/bin/perl -w
#headermangle.pl

# This is supposed to extract the header bits we don't want and toss them,
# and save the relevant ones for some future purpose.

use strict;
local ($/); #sets the record separator built-in variable to null rather than '\n';

my $debug = '0';
my ($subject, $from, $replyto, $to, $date) = "";

my $message = <>; # now we slurp the entire file into the scalar $message

# then we look to see if it's been forwarded or not,
# next rip out all the X- whatnot headers,
# then pull out the From: and Reply to: if they're there
# Last just spew the mail out after the original message delimiter


$message =~ /----- Original Message -----.*\n|Begin forwarded .*\n/;

if ($') { my $newmessage = $';                  # grab everything after the "Original..."
                $newmessage =~ s/X-.*\n//g;     # rip out all the previous X-header crap
                 # get other relevant headers in here.
                 # Do we need to account for ">" in some forwarded messages,
                 # is ">" ever in front of the headers we want? (probably not?)

                getbasicheaders ();

                print "$newmessage";
                if ($debug) {   print "\n(New message)\n";
                                print "It was sent to $to, on $date,\nallegedly from $from,\nabout \"$subject\"\n";
                }
} else { $message =~ s/X-.*\n//g;

                getbasicheaders ();
                print "$message";
                if ($debug) {   print "\n(Original message)\n";
                }
}

sub getbasicheaders {
                if ($message =~ /Subject: (.*)/ ) { $subject = $1; }
                if ($message =~ /From: (.*)/ ) { $from = $1; }
                if ($message =~ /Reply to: (.*)/ ) { $replyto = $1; }
                if ($message =~ /To: (.*)/ ) { $to = $1; }
                if ($message =~ /Sent: (.*)/ ) { $date = $1; }
}
        

#!C:\perl\bin\perl -w
#sa_learner.pl

use strict;
use CWD;

my $spamdir    = "C:/cygwin/home/is_spam/.maildir/new";
my $hamdir     = "C:/cygwin/home/not_spam/.maildir/new";
my $storedir      = "C:/cygwin/home/system/mail";
my $bindir = "C:/cygwin/home/system/";

chdir($spamdir);
foreach my $file (<*>) {
    if (-f $file) {
        system("perl $bindir/headermangle.pl < $file > $storedir/spam/$file");
        system("del $file");
    }
}

chdir($hamdir);
foreach my $file (<*>) {
    if (-f $file) {
        system("perl $bindir/headermangle.pl < $file > $storedir/ham/$file");
        system("del $file");
    }
}

system("sa-learn --spam $storedir\\spam");
system("sa-learn --ham $storedir\\ham");
        

        local_interfaces = <; ip_address
        domainlist local_domains = mailscrubber.example.com
        domainlist relay_to_domains = example.com
        #comment out verify = recipitent in +relay_to_domains acl
        #add after domain_literal router:
        spamcheck_router:
                no_verify
                check_local_user
                condition = "${if and { {!def:h_X-Spam-Flag:} {!eq {$received_protocol}{spam-scanned}}} {1}{0}}"
                driver = accept
                transport = spamcheck
        #add after remote_smtp transport:
        spamcheck:
                debug_print = "T: spamassassin_pope for $local_part@$domain"
                driver = pipe
                command = /usr/bin/exim -oMr spam-scanned -bS
                use_bsmtp
                headers_add = "X-Spam-Scanned: pumpaudio mailscrubber"
                transport_filter = C:/Perl/bin/spamassassin.bat
                home_directory = "/tmp"
                current_directory = "/tmp"
                user = Administrator
                group = Administrators
                # return_fail_output
                message_prefix =
                message_suffix =

        #edit the localPdelivery transport to look like:
        local_delivery:
                driver = appendfile
                # group = mail
                mode = 0660
                mode_fail_narrower = false
                envelope_to_add = true
                return_path_add = true
                directory = /home/${local_part}/.maildir/
                maildir_format