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