FreeBSDAdmin/Mail/FalsePositive.pl

#!/usr/bin/perl
# False Positive
#
# Douglas Thrift
#
# $Id$

use strict;
use warnings;

use Mail::SpamAssassin;
use Mail::SpamAssassin::ArchiveIterator;

my $assassin = Mail::SpamAssassin->new();

sub wanted
{
        open DMAIL, '| /usr/local/bin/dmail -s';
        print DMAIL $assassin->remove_spamassassin_markup($assassin->parse($_[3]));
        close DMAIL;
}

my $iterator = Mail::SpamAssassin::ArchiveIterator->new({'opt_all' => 1, 'opt_j' => 0, 'opt_n' => 1, 'opt_want_date' => 0});

$iterator->set_functions(\&wanted, sub{});
$iterator->run(("h:mbx:$ENV{'HOME'}/.imap_mail/Spam/False Positive"));
Revision:	824
Committed:	2006-07-04T17:21:43-07:00 (18 years, 11 months ago) by douglas
Content type:	text/x-perl
File size:	587 byte(s)
Log Message:	Rearrange...
#	Content
1	#!/usr/bin/perl
2	# False Positive
3	#
4	# Douglas Thrift
5	#
6	# $Id$
7
8	use strict;
9	use warnings;
10
11	use Mail::SpamAssassin;
12	use Mail::SpamAssassin::ArchiveIterator;
13
14	my $assassin = Mail::SpamAssassin->new();
15
16	sub wanted
17	{
18	open DMAIL, '\| /usr/local/bin/dmail -s';
19	print DMAIL $assassin->remove_spamassassin_markup($assassin->parse($_[3]));
20	close DMAIL;
21	}
22
23	my $iterator = Mail::SpamAssassin::ArchiveIterator->new({'opt_all' => 1, 'opt_j' => 0, 'opt_n' => 1, 'opt_want_date' => 0});
24
25	$iterator->set_functions(\&wanted, sub{});
26	$iterator->run(("h:mbx:$ENV{'HOME'}/.imap_mail/Spam/False Positive"));