#!/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.3 2002/08/19 20:47:23 dgc Exp $
## dgc@uchicago.edu
##

push(@INC, "/opt/pkgs/srs-0.1/bin");
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);

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

&main;