[ViewVC] Annotation of: repos/FreeBSDAdmin/Mail/FalsePositive

#!/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:	811
Committed:	2006-07-03T08:19:04-07:00 (19 years ago) by douglas
File size:	587 byte(s)
Log Message:	Hrm...
#	User	Rev	Content
1	douglas	811	#!/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"));