|
From: <jgr...@us...> - 2003-07-09 21:53:21
|
Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv18322
Modified Files:
bayes.pl
Log Message:
Finally, and totally by chance, discovered the reason why some users sometimes report that a message has the right classification but the wrong XTC or subject modification. Fixed.
Index: bayes.pl
===================================================================
RCS file: /cvsroot/popfile/engine/bayes.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** bayes.pl 9 Jul 2003 18:18:09 -0000 1.19
--- bayes.pl 9 Jul 2003 21:53:19 -0000 1.20
***************
*** 16,21 ****
# main
! if ( $#ARGV == 0 )
! {
my $c = new POPFile::Configuration;
my $mq = new POPFile::MQ;
--- 16,20 ----
# main
! if ( $#ARGV == 0 ) {
my $c = new POPFile::Configuration;
my $mq = new POPFile::MQ;
***************
*** 48,57 ****
my @files = glob $ARGV[0];
! foreach my $file (@files)
! {
print "$file is '" . $b->classify($file) . "'\n";
}
! foreach my $word (keys %{$b->{parser__}->{words__}}) {
print "$word $b->{parser__}->{words__}{$word}\n";
}
--- 47,55 ----
my @files = glob $ARGV[0];
! foreach my $file (@files) {
print "$file is '" . $b->classify($file) . "'\n";
}
! foreach my $word (sort keys %{$b->{parser__}->{words__}}) {
print "$word $b->{parser__}->{words__}{$word}\n";
}
|