#!/opt/bin/perl
##
## Spam Recognition System -- fully-functional prototype in perl
## (to be recoded with additional functionality in C or Objective-C)
##
## Based on algorithms described by Paul Graham in:
## http://www.paulgraham.com/spam.html
##
## $Id: rate.pl,v 1.4 2002/08/22 02:53:07 dgc Exp $
## dgc@uchicago.edu
##

($pdir = $0) =~ s!/[^/]+$!!;
eval 'push(@INC, $pdir); require "lib.pl"';

$DEBUG = 0;

sub usage {
	print STDERR "usage: $0\n";
}

sub main {
	my ($P, $N, $R);
	my $op;

	lockdb();
	($P, $N) = mapcontext();
	$R = maprate_rw();

	rate($R, $P, $N, (keys %{$P->{stats}}, keys %{$N->{stats}}));

	unmapcontext($P, $N);
	unmaprate($R);
	unlockdb();
}

&main;