--- trunk/search.pl	2004/05/03 20:40:40	1
+++ trunk/search.pl	2004/05/03 21:28:46	2
@@ -2,31 +2,19 @@
 
 use Plucene::Simple;
 use Mail::Box::Manager;
+use Data::Dumper;
+use MWS
 
 my $debug = 1;
 
-my $index = Plucene::Simple->open( "index" ) || die "can't open index: $!";
-my $mgr	= Mail::Box::Manager->new;
-my $folder;	# placeholder for folders
+my $mws = MWS->new('index');
 
-my @index_ids = $index->search(join(" ",@ARGV));
+my $s=join(" ",@ARGV);
 
-my $results = $#index_ids + 1;
+my $results = $mws->search($s);
 print "$results results...\n";
 
-foreach my $index_id (@index_ids) {
-	my ($mbox,$id) = split(/ /,$index_id);
-
-	if (! $folder->{$mbox}) {
-		$folder->{$mbox} = $mgr->open($mbox);
-		print STDERR "## open($mbox)\n" if ($debug);
-	}
-
-	my $message = $folder->{$mbox}->find($id) ||
-		print STDERR "can't find message $id in $mbox. Time to re-index?\n";
-	foreach my $from ($message->from) {
-		print $from->phrase," [",$from->address,"] ",$from->comment,"\n";
-	}
-	print " ",$message->get('Subject'),"\n";
+while (my $r = $mws->fetch_result()) {
+	print Dumper($r);
 
 }