svn commit: r169121 - /spamassassin/trunk/masses/corpora/mass-find-nonspam

[si...@apache.org]

Author: sidney
Date: Sat May  7 19:24:35 2005
New Revision: 169121

URL: http://svn.apache.org/viewcvs?rev=169121&view=rev
Log:
use Mail::SpamAssassin::Message to make a Message object instead of loading all of Mail::SpamAssassin and calling parse() which only creates and returns a Message object

Modified:
    spamassassin/trunk/masses/corpora/mass-find-nonspam

Modified: spamassassin/trunk/masses/corpora/mass-find-nonspam
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/corpora/mass-find-nonspam?rev=169121&r1=169120&r2=169121&view=diff
==============================================================================
--- spamassassin/trunk/masses/corpora/mass-find-nonspam (original)
+++ spamassassin/trunk/masses/corpora/mass-find-nonspam Sat May  7 19:24:35 2005
@@ -101,7 +101,7 @@
 use lib "lib";
 use lib "../lib";
 use lib "../../lib";
-use Mail::SpamAssassin;
+use Mail::SpamAssassin::Message;
 use Mail::SpamAssassin::ArchiveIterator;
 
 # flush buffer immediately so if mass-check fails or stops we don't get a corrupt line
@@ -114,8 +114,6 @@
 use Getopt::Long;
 GetOptions("single");
 
-my $spamtest = new Mail::SpamAssassin;
-
 my $iter = new Mail::SpamAssassin::ArchiveIterator ({
         'opt_j' => 1,
         'opt_n' => 1,
@@ -125,7 +123,6 @@
 if ($opt_single) {
   my @data = <STDIN>;
   wanted ("stdin", 0, \@data);
-  $spamtest->finish;
   exit 1;
 
 } else {
@@ -140,7 +137,6 @@
 #foreach my $from (sort {$count{$b} <=> $count{$a}} keys %count) {
 #print "$count{$from}   $from $lastsubject{$from}  $lastid{$from}\n";
 #}
-$spamtest->finish();
 exit;
 
 ###########################################################################
@@ -152,8 +148,7 @@
 
 sub wanted {
   my (undef, $id, $time, $dataref) = @_;
-
-  my $ma = $spamtest->parse ($dataref);
+  my $ma = Mail::SpamAssassin::Message->new({message=>$dataref});
   my $from = $ma->get_header ("From");
   unless (defined $from) {
     $ma->finish();