mws/trunk/search.pl

#!/usr/bin/perl -w

use Plucene::Simple;
use Mail::Box::Manager;
use Data::Dumper;
use MWS

my $debug = 1;

my $mws = MWS->new('index');

my $s=join(" ",@ARGV);

my $results = $mws->search($s);
print "$results results...\n";

while (my $r = $mws->fetch_result()) {
        print Dumper($r);

}
1	#!/usr/bin/perl -w
2
3	use Plucene::Simple;
4	use Mail::Box::Manager;
5	use Data::Dumper;
6	use MWS
7
8	my $debug = 1;
9
10	my $mws = MWS->new('index');
11
12	my $s=join(" ",@ARGV);
13
14	my $results = $mws->search($s);
15	print "$results results...\n";
16
17	while (my $r = $mws->fetch_result()) {
18	print Dumper($r);
19
20	}